datamodule.pas

来自「一般情况教师想出一份试卷」· PAS 代码 · 共 39 行

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TBYSJ_DM = class(TDataModule)
    TiKu_ADOC: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BYSJ_DM: TBYSJ_DM;

implementation

{$R *.dfm}

procedure TBYSJ_DM.DataModuleCreate(Sender: TObject);
begin
  TiKu_ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB\TiKu.mdb;'+
    'User ID=Admin;Jet OLEDB:Database Password=19810802;Persist Security Info=False';
  TiKu_ADOC.Open;
end;

procedure TBYSJ_DM.DataModuleDestroy(Sender: TObject);
begin
  TiKu_ADOC.Close;
end;

end.