udm.pas

来自「这也是一个图书管理系统,不过比上一个更加具有价值,是难得的尤物」· PAS 代码 · 共 33 行

unit uDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TdmMain = class(TDataModule)
    adoCon: TADOConnection;
    adqBook: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ADO_STRING='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=home.mdb;Persist Security Info=False' ;

implementation

{$R *.dfm}

procedure TdmMain.DataModuleCreate(Sender: TObject);
begin
  adoCon.ConnectionString:=ADO_STRING;
  adqBook.Active:=True;
end;

end.