clsdataconnect.~pas

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

unit clsDataConnect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Dialogs, Forms,
  StdCtrls, ADODB, Inifiles, clsDbInterface, clsConnection, clsDtSet;


type
  TdataConnect = class(Tobject)
    ObjConnection: TConnection;
    constructor Create();
    procedure DataConnection;
    procedure DataAdd(DBInterface: IDBInterface; const obj: TObject);
    procedure DataEdit(DBInterface: IDBInterface; const obj: TObject);
    procedure DataDelete(DBInterface: IDBInterface; const obj: TObject);
    function DataQuery(SQLStr: string): TDtSet;

  end;

implementation

{ TdataConnect }

constructor TdataConnect.Create;
//var
 // loadtofile: Tinifile;
begin

  //loadtofile := tinifile.create(ExtractFilePath(Application.ExeName) + 'Ini\adoconnection.ini');
 //  loadtofile :=tinifile.create(s+'\Ini\adoconnection.ini');
  (*   更