udmoa.pas

来自「一个会议签到系统」· PAS 代码 · 共 56 行

unit uDMOA;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms,IniFiles;

type
  TDMOA = class(TDataModule)
    ADOCnt: TADOConnection;
    ADOQry: TADOQuery;
    ADODataSet: TADODataSet;
    ADOExeSQL: TADOQuery;
    procedure ADOCntBeforeConnect(Sender: TObject);
  private
    sAppUserID,sAppDBName,sAppPassword,sAppServerIP:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMOA: TDMOA;

implementation

{$R *.dfm}

procedure TDMOA.ADOCntBeforeConnect(Sender: TObject);
var
 FormINI:TIniFile;
 sTemp:String;
begin
  FormIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'AppServerIP.Ini');
   {********SQL Server7.0**********}
   sTemp:=FormIni.ReadString('DBServer','DBServerIP','127.0.0.1');
   sAppServerIP:=sTemp;  
   sTemp:=FormIni.ReadString('DBServer','DBServerName','KQData');
   sAppDBName:=sTemp;  
   sTemp:=FormIni.ReadString('DBServer','DBServerUserName','sa');
   sAppUserID:=sTemp;
   sTemp:=FormIni.ReadString('DBServer','DBServerUserPW','');
   sAppPassword:=sTemp;   
   FormINI.Free;{**************************************************************}
  if  sAppServerIP = '127.0.0.1' then sAppServerIP:='';
   sTemp:='Provider=SQLOLEDB.1;Persist Security Info=False'
              +';User ID='+sAppUserID
              +';PassWord=' + sAppPassword
              +';Initial Catalog='+sAppDBName
              +';Data Source='+sAppServerIP
              +';Connect Timeout=30';
  ADOCnt.ConnectionString:=sTemp;
end;

end.