u_dm.pas

来自「一个简单的学籍管理软件」· PAS 代码 · 共 42 行

unit U_Dm;
               
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type    

  TFm_DM = class(TDataModule)
    DB_Sys: TDatabase;
    Db_Data: TDatabase;
    procedure DataModuleCreate(Sender: TObject);
  private
  public
  end;

var
  Fm_DM: TFm_DM;

implementation

uses U_GlobalVar, U_GlobalProc, U_StudentSearch;

{$R *.DFM}
procedure TFm_DM.DataModuleCreate(Sender: TObject);
begin
  if DB_Sys.Connected then
    DB_Sys.Connected := False;
  DB_Sys.Params.Clear;
  DB_Sys.Params.Add('PATH=' + S_SysPath);
  DB_Sys.Connected := True;
  if DB_Data.Connected then
    DB_Data.Connected := False;
  DB_Data.Params.Clear;
  DB_Data.Params.Add('PATH=' + S_DataPath);
  DB_Data.Connected := True;
end;

end.