unitdatamodule.pas.~13~

来自「初中成绩录入系统网络版(firebird) firebird下的网络编程」· ~13~ 代码 · 共 38 行

unit unitDatamodule;

interface

uses
  SysUtils, Classes, IBServices, IBDatabase, DB, IBCustomDataSet, IBQuery,
  IBTable;

type
  Tdm = class(TDataModule)
    Query1: TIBQuery;
    IBDB: TIBDatabase;
    Trans1: TIBTransaction;
    IBBS: TIBBackupService;
    IBRS: TIBRestoreService;
    IBSS: TIBSecurityService;
    Table1: TIBTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  IBDB.DatabaseName:=ExtractFilePath(paramstr(0))+'achieve.gdb';
end;

end.