发信人: teleme(PassWord)
整理人: teleme(2001-06-15 17:59:06), 站内信件
|
procedure SetAlias; { 设置当前数据的别名(PARADOX) }
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('PATH=你的数据库的路径');
Add('ENABLE BCD=FALSE');
end;
Session.AddAlias('你的数据库别名', 'PARADOX', MyList);
finally
MyList.Free;
end;
end; { SetAlias }
其他数据库的一样
---- fire engine
|
|