BDE的困绕

Question

可以动态改变bde的:
var  BdeParams     : TStringList ;
begin
  try
    Session.DeleteAlias('databasename');
    Session.SaveConfigFile;
  except
    showmessage('error');
    exit ;
  end ;
  BdeParams := TStringList.Create;
  try
    BdeParams.Clear;
    BdeParams.Add('SERVER NAME='+Trim(edt1.Text)) ;
    BdeParams.Add('USER NAME='+Trim(edt2.Text)) ;
    BdeParams.Add('DATABASE NAME= '+Trim(edt3.Text)) ;
    BdeParams.Add('SQLQRYMODE=SERVER') ;
    Session.AddAlias(Trim(edt3.Text),'MSSQL', BdeParams) ;
    Session.SaveConfigFile;
  except
    showmessage('error');
    exit ;
  end ;
  try
    Database1.Connected := False ;
    Database1.AliasName    := '' ;
    Database1.DatabaseName := '' ;
    Database1.Params.Clear ;
    Database1.Params.Add('USER NAME=""')                      ;
    Database1.Params.Add('PASSWORD='+' ') ;
    Database1.Connected := True ;
  except
    exit ;
    MessageBox(handle,'连接不成功!','失败',mb_ok);
  end ;
//

Answer 1

谢谢！，我是指自动调用config!~

Answer 2

bde能动态进行配置，生成数据库别名的。你是否是这个意思！！

Answer 3

我想将配置好的bde的config几个文件随时更换！

Answer 4

用 BDE 的 API 函数好像可以的。但是具体的函数名我也忘了。用控件好像
是不可以的。

Answer 5

凡是DELPHI自带的配置工具都可以在程序中体现，因为他们也是用DELPHI开发的，代码是可以重用的