**************如何在DELPHI里配置BDE呢 请给个详细的代码***********************

Question

我做过,用session,你自己看看帮助就可以了

Answer 1

procedure TDm1.InitDataBase(aliasnames :string;localpath:string);
var
  AliasParams:TStringList;
  FilePath : string;（paradox数据库所在路径）
begin
  FilePath := 'path=' +  DefaultDir + localpath +'\';(配置paradox数据库的别名)
  Aliasparams:=TStringList.Create;
  AliasParams.Add(Filepath);  if not Session.IsAlias(aliasnames) then
  begin
    try
      Session.AddAlias(aliasnames,'STANDARD',ALiasParams);
      Session.SaveConfigFile;
    finally
      AliasParams.Free;
    end;
  end else
  begin
    try
      Session.ModifyAlias(aliasnames,AliasParams);
      Session.SaveConfigFile;
    finally
      AliasParams.Free;
    end;
  end;
end;

Answer 2

function SetDbAlias(const AliasName, ServerName, DataBaseName,
  UserName, SetPassWord: String): Boolean;
var
  ParamList : TStringList;
begin
  Result := False;
  ParamList := TStringList.Create;
  try
    ParamList.Clear;
    ParamList.Add('SERVER NAME=' + ServerName);
    ParamList.Add('Database NAME=' + DataBaseName);
    ParamList.Add('USER NAME=' + UserName);
    ParamList.Add('PASSWORD=' + SetPassWord);
    if Session.IsAlias(AliasName) then
    begin
      Session.ModifyAlias(AliasName,ParamList);
    end
    else
    begin
      Session.AddAlias(AliasName,'MSSQL',ParamList);
    end;
    Session.SaveConfigFile;
  except
    ParamList.free;
    Exit;
  end;
  ParamList.free;
  Result:=True;
end;