回复：南京不懂

Question

当然可以的!
你可以这样做！
这是我程序的一断：
var  BdeParams     : TStringList ;
begin
  if Trim(edt1.Text)='' then exit ;
  try
    Session.DeleteAlias(database1);
    Session.SaveConfigFile;
  except
    showmessage('error');
    exit ;
  end ;
  BdeParams := TStringList.Create;
  try
    BdeParams.Clear;
    BdeParams.Add('SERVER NAME='+Trim(edt1.Text)) ;
    BdeParams.Add('USER NAME=edit2.Text) ;
    BdeParams.Add('DATABASE NAME=DataBase1') ;
    BdeParams.Add('SQLQRYMODE=SERVER') ;
    Session.AddAlias('DataBase1','MSSQL', BdeParams) ;
    Session.SaveConfigFile;
  except
    showmessage('error');
    exit ;
  end ;
  Application.ProcessMessages;
  try
    ServerDatabase.Connected := False ;
    ServerDatabase.AliasName    := 'DataBase1' ;
    ServerDatabase.DatabaseName := 'DataBase1' ;
    ServerDatabase.Params.Clear ;
    ServerDatabase.Params.Add('USER NAME=""')                      ;
    ServerDatabase.Params.Add('PASSWORD='+'') ;
    ServerDatabase.Connected := True ;
  except
    exit ;
    MessageBox(handle,'连接不成功!','失败',mb_ok);  end ;
  MessageBox(handle,'设置成功!','恭喜',mb_ok);
  Close;//这是基于SQLServer的动态配置BDE，对你有所启发！