type
MEdtAccount: TMaskEdit;
DataDB: TDatabase;
Session: TSession;
End; // var AParams: TStringList;if not Session.IsAlias('Finance') then//换成你的别名
begin
ShowMessage('Alias Finance does not exist');
Exit;
end;
AParams := TStringList.Create;
try
AParams.Clear;
AParams.Add('DATABASE NAME='+MEdtAccount.Text);
Session.ModifyAlias('Finance',AParams);
Session.SaveConfigFile;
DataDB.Connected:=true;
except on EdatabaseError do
begin
Application.MessageBox('数据库连接失败,请检查计算机网络是否正常!',
'登录警告',MB_OK+MB_ICONWARNING);
MEdtUsercode.setfocus;
end;
end;
AParams.Free;
MEdtAccount: TMaskEdit;
DataDB: TDatabase;
Session: TSession;
End; // var AParams: TStringList;if not Session.IsAlias('Finance') then//换成你的别名
begin
ShowMessage('Alias Finance does not exist');
Exit;
end;
AParams := TStringList.Create;
try
AParams.Clear;
AParams.Add('DATABASE NAME='+MEdtAccount.Text);
Session.ModifyAlias('Finance',AParams);
Session.SaveConfigFile;
DataDB.Connected:=true;
except on EdatabaseError do
begin
Application.MessageBox('数据库连接失败,请检查计算机网络是否正常!',
'登录警告',MB_OK+MB_ICONWARNING);
MEdtUsercode.setfocus;
end;
end;
AParams.Free;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货