idatapersistentunit.pas

Delphi最新三层源码(1.0),对delphi有帮助

//-------------------------------------------------------------------------
// 1.(本地)数据持久层接口
//
//
//-------------------------------------------------------------------------

unit IDataPersistentUnit;

interface
  uses DB;
  
type

  IDataPersistent = interface(IUnknown)
    ['{56D64724-46C0-47AA-95C4-5C92D4B09158}']
    function BeginTrans: Integer; safecall;
    function CommitTrans: Integer; safecall;
    function RollBackTrans: Integer; safecall;
    function SelectData(const wsSQL: WideString; out wsPrv: WideString): TDataSet; Stdcall;
    function InsertDataSet(const wsSQL: WideString): Integer; Stdcall;
    function UpdateDataSet(const wsSQL: WideString): Integer; Stdcall;
    function DeleteDataSet(const wsSQL: WideString): Integer; Stdcall;
    procedure CloseDataSet(const wsDSName: WideString); Stdcall;
  end;


implementation

end.