dmain.pas

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· PAS 代码 · 共 51 行

{***************************************************************
 *
 *说明：数据库别名 珠江花园     SUMMIT
 *                 社保局       SIMC
 *                 社保局(测试) SIBM2000                             
 *
 ****************************************************************}

unit dMain;

interface

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

type
  TdfmMain = class(TDataModule)
    dbsMain: TDatabase;
    stoGetNumber: TStoredProc;
    procedure dbsMainBeforeConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmMain: TdfmMain;

implementation

{$R *.DFM}

procedure TdfmMain.dbsMainBeforeConnect(Sender: TObject);
var
  DelphiIni: TIniFile;
begin
  DelphiIni := TIniFile.Create(ExtractFilePath(Application.EXEName) +
    'start.Ini');
  with DelphiIni do
  begin
    TDataBase(dbsMain).AliasName :=
      ReadString('BDE', 'AliasName', 'sidb');
  end;
  DelphiIni.Free;
end;

end.