unitdatamodule.pas.~10~

初中成绩录入系统网络版(firebird) firebird下的网络编程

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;
    IBTable1: 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.