clsdbinterface.~pa

来自「自已写的IP扫描工具」· ~PA 代码 · 共 22 行

unit clsDbInterface;

interface
uses ADODb;

type
  IDBInterface = interface(IInterface)
    procedure Add(const obj: TObject);
    procedure Edit(const obj: TObject);
    procedure Delete(const obj: TObject);
    function getTrimData: TADODataSet;
  end;

var
  DBInterface: IDBInterface;

implementation



end.