function setdbalias(const aliasname, servername:string):boolean;
var
paramlist:tstringlist;
begin
result:=true;
paramlist:=tstringlist.Create;
try
paramlist.Clear;
paramlist.Add('SERVER NAME='+servername);
paramlist.add('USER NAME=SYSDBA');
paramlist.add('PASSWORD=masterkey');
if session.IsAlias(aliasname) then
begin
session.ModifyAlias(aliasname,paramlist);
end else
begin
session.AddAlias(aliasname,'intrbase',paramlist);
end;
session.SaveConfigFile;
except
result:=false;
end;
paramlist.free;
end;
I do not know what database Server u use.But I uses the oracle database,
I can satisfy your demand.Only use Tdatabase componet.
var UserName,Password,ServerName;string;
Database:Tdatabase;
Database:=TDatabase.Create(Application);
Database.DatabaseName;='Test';
Database.DriverName:='ORACLE';
DataBase.LoginPrompt:=False;
Database.Params.Values['SERVER NAME']:='@'+ServerName;
DataBase.Params.Values['USER NAME']:=UserName;
DataBase.Params.Values['PASSWORD']:=PassWord;
//the following is oracle default setup,you can put a Tdatabase on the
//form,double click it,then see the driver name drop-down,select the
//"oracle",click Default button,You can see all,the only change is the
//above three variale and driver name
try
Database.open;
except
Database.close;
ShowMessage('Not connect to database');
end;
//later,all operations to the remote database only to set
//the DatabaseName of TQuery as Database.DatabaseName