idatapersistentunit.pas

来自「delphi实现三层erp」· PAS 代码 · 共 28 行

unit IDataPersistentUnit;

interface

uses
  CardServer_TLB;
  
type
  IDLLDataPersistent = interface(IUnknown)
    ['{603F6DA0-0046-4425-95C8-9EB66598FAC8}']
    procedure SetIDataPerDisp(pIRDMDataPerDisp: IRDMCardServerDisp); safecall;
    function GetIDataPerDisp: IRDMCardServerDisp; safecall;

    function BeginTrans(out pMsg: WideString): Boolean; safecall;
    function CommitTrans(out pMsg: WideString): Boolean; safecall;
    function RollBackTrans(out pMsg: WideString): Boolean; safecall;
    function SelectData(const PWStr: pWideString; var pPrvName: WideString): Boolean; Stdcall;
    function InsertDataSet(const PWStr: pWideString; out pMsg: WideString): Boolean; Stdcall;
    function UpdateDataSet(const PWStr: pWideString; out pMsg: WideString): Boolean; Stdcall;
    function DeleteDataSet(const PWStr: pWideString; out pMsg: WideString): Boolean; Stdcall;
    function CloseDataSet(const PWStr: pWideString): Integer; Stdcall;
  end;


implementation

end.