你在程序中可是使用Sessioin,动态添加别名,在参数中写入
var
MyList: TStringList;
DataBaseFile:String;
begin
MyList:=TStringList.Create;
try
//我使用的是INTERBASE数据库
DataBaseFile:=ExtractFilePath(ParamStr(0))+'DataBase/LandData.GDB';
//参数
MyList.Add('SERVER NAME='+DataBaseFile);
MyList.Add('USER NAME=SYSDBA');
if not Session1.IsAlias('Land') then
//指定要添加的别名类型和参数,具体可以看Delphi帮助
Session1.AddAlias('Land','INTRBASE',MyList);
try
LandDataBase.Connected:=True;
except
LandDataBase.Connected:=False;
end;
finally
MyList.Free;
end;
end;