0

我在表单上的按钮中有以下代码，但我想获取已保存对象的 OID 或 ID 值，以便以后可以直接加载。

procedure TFormMain.ButtonNewClick(Sender: TObject);
var
  Employee: Variant;
  OId: Variant;
begin
  Employee := Factory.New('Sample.Employee', True);
  if VarIsNull(Employee) or VarIsClear(Employee) then
  begin
    ShowMessage('Could not create Employee!');
    Exit;
  end;

  Employee.Name := 'Foo Bar';
  Employee.SSN := '616-27-7814';

  Employee.Sys_Save;

  OId := Employee.Sys_getOID; <- This doesn't exist

  Employee.Sys_Close;
  Employee := NULL;
end;

该文档显示了诸如 GetId 之类的函数，但它们要求您传入 OID，但我没有看到用于此的函数，并且只是 .OID 等不起作用，我有这种感觉，因为所有教程都显示了加载示例通过 OID 或 ID，我缺少一些非常基本的东西。

任何指针都会非常有帮助。

谢谢，布鲁斯

4

2 回答 2

1

你试过了吗Employee.Oid？Employee.Sys_Oid

于 2010-10-28T15:40:20.267 回答
0

阅读 InterSystem Cache's ActiveX objects的文档，我看不到任何从Sample.Employee对象获取 OID 的方法。

于 2010-10-27T18:33:12.333 回答