如何在程序中动态修改BDE的设置信息(BDE中有关PARADOX的相关设置,如BLOCKSIZE)。 (50分)

  • 主题发起人 主题发起人 eastroad
  • 开始时间 开始时间
你在程序中可是使用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;
 
用Session,上面说的。。
 
后退
顶部