var
OptionIni : TIniFile;
function TDM_Frm.optionSet(conn: TAdoConnection; Param: string): boolean;
var
serverName ,UserName,pwd, DBName : string;
begin
result := True;
try
serverName := OptionIni.ReadString('SOFT','ServerName','');
USerName := OptionIni.ReadString('SOFT','UserName','');
pwd := OptionIni.ReadString('SOFT','Password','');
dbName := OptionIni.ReadString('SOFT','DbName','');
if conn.Connected then conn.Connected := False;
conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + UserName +
';password = ' + pwd +
';Initial Catalog=' + DBName;
if ServerName <> '' then
conn.ConnectionString := conn.ConnectionString + ';Data Source=' + ServerName;
conn.ConnectionString := conn.ConnectionString + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
conn.Connected := True;
except
serverName := OptionIni.ReadString('SOFT','ServerName','');
USerName := OptionIni.ReadString('SOFT','UserName','');
pwd := OptionIni.ReadString('SOFT','Password','');
dbName := OptionIni.ReadString('SOFT','DbName','');
if conn.Connected then conn.Connected := False;
conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + UserName +
';password = ' + pwd +
';Initial Catalog=' + DBName + FormatDateTime('YYYY',now);
if ServerName <> '' then
conn.ConnectionString := conn.ConnectionString + ';Data Source=' + ServerName;
conn.ConnectionString := conn.ConnectionString + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';
conn.Connected := True;
result := False;
end;
end;
procedure TDM_Frm.DataModuleCreate(Sender: TObject);
begin
appPath := getApplicationPath;
OptionIni := TIniFile.Create(AppPath + 'Config.ini');
optionSet(adoConn);
end;