idatapersistentunit.pas

来自「随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太」· PAS 代码 · 共 30 行

//-------------------------------------------------------------------------
// 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.