dmthreadu.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 40 行

unit dmThreadU;

interface

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

type
  TdmThread = class(TDataModule)
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBQuery1: TIBQuery;
  private
    { Private declarations }
  public
    constructor Create(DB_Name : String; Username : String; Password : String); reintroduce; overload;
    { Public declarations }
  end;

var
  dmThread: TdmThread;

implementation

{$R *.dfm}

{ TdmThread }

constructor TdmThread.Create(DB_Name: String; Username : String; Password : String);
begin
  inherited Create(nil);
  IBDatabase1.DatabaseName := DB_Name;
  IBDatabase1.Params.Add(Format('user_name=%s', [Username]));
  IBDatabase1.Params.Add(Format('password=%s', [Password]));
  IBDatabase1.Connected := true;
end;

end.