在Delphi中如何用BDE配置ACCESS？

Question

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;

Answer 1

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;

Answer 2

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;