//绝对能用的源代码
var
GetAlias: TStringList;
ServerStr: String;
begin
serverStr:='xxxxxxxxxx'; //你的机器的名称.
//建立别名
GetAlias:=TStringList.Create;
Session.GetAliasNames(GetAlias); //取得别名列表。
if GetAlias.IndexOf(AliName)<>-1 then
begin
Session.DeleteAlias(AliName);
Session.SaveConfigFile;
end;
try
Session.AddStandardAlias(AliName,'','MSSQL');
Session.SaveConfigFile;
//modify para
GetAlias.Clear;
GetAlias.Add('User name=sa');
GetAlias.Add('SQLQRYMODE=SERVER');
GetAlias.add('Server name='+ServerStr);
GetAlias.add('DataBase name=XXXyz');
Session.ModifyAlias(AliName,GetAlias);
Session.SaveConfigFile;
with DataBase1 do
begin
Connected:=False;
LoginPrompt:=False;
AliasName:=AliName;
DatabaseName:='XXX_SQL';
Params.Clear;
Params.Add('User Name=sa');
Params.Add('Password=');
Connected:=True;
LoginDB:=True;
end;
except
Application.MessageBox('系统建立目标失败,请确定服务器已运行。','错误',MB_ICONERROR+mb_OK);
Application.Terminate;
end;