dataaccess.pas

来自「delphi写的一款不错的通讯录软件,适合初学者下载．」· PAS 代码 · 共 44 行

unit DataAccess;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TDbase = class(TDataModule)
    ADOTable: TADOTable;
    ADOQuery: TADOQuery;
    ds: TDataSource;
    ADOCon: TADOConnection;
  private

  public
 // procedure ExecuteNonQuery(query:string);
 // procedure Dispose;
  end;

var
  Dbase: TDbase;

implementation

{ procedure TDbase.ExecuteNonQuery(query:string);
begin

    ADOQuery.Active := true;
    ADOQuery.SQL.Clear;
    ADOQuery.SQL.Add(query);
    ADOQuery.ExecSQL;
end;
procedure TDbase.Dispose;
begin
    if(ADOQuery.Active) then begin
    ADOQuery.Close;
    ADOQuery.Free;
    end;
end;
}

end.