dm.pas

来自「一个用vb mysql实现的人事管理信息系统希望对大家有用。」· PAS 代码 · 共 37 行

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

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

var
  dmain: Tdmain;

implementation

{$R *.dfm}

procedure Tdmain.DataModuleCreate(Sender: TObject);
begin
  ADOConnection1.Connected:=true;
end;

procedure Tdmain.DataModuleDestroy(Sender: TObject);
begin
   ADOConnection1.Connected:=false;
end;

end.