unitdm.pas

来自「SQL2000跟课件学习的源代码 分享共同学习」· PAS 代码 · 共 42 行

unit UnitDM;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDM_Data = class(TDataModule)
    DatabaseEdu: TDatabase;
    QueryStudent: TQuery;
    DataSourceStudent: TDataSource;
    TableClass: TTable;
    DataSourceClass: TDataSource;
    UpdateSQL1: TUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_Data: TDM_Data;

implementation

{$R *.dfm}

procedure TDM_Data.DataModuleCreate(Sender: TObject);
begin
  DatabaseEdu.Connected := True;
end;

procedure TDM_Data.DataModuleDestroy(Sender: TObject);
begin
  DatabaseEdu.Connected := False;
end;

end.