关于数据库的别名机制(100分)

一个数据库应用系统应如何处理数据库别名机制,使得数据库应用系统可以安装在
任何目录,别名都不会出错!!!还有如果这个数据库中含有很多子目录,那别名又应如何
处理???我试过用TSession中的AddAlias,AddStandardAlias,DeleteAlias等方法,但似乎
很复杂,变来变去,容易搞混,以上问题请诸位不吝赐教!!!(100分)

对于单机应用。建议只建立一个目录存放数据，如data目录，这样别名只做一个便可。
//使得数据库应用系统可以安装在任何目录
只要能得到你存放数据的目录，动态建立别名便可。
ExtractFileDir(Application.ExeName)+'/Data'
如果用SQL Server的话，数据存放在服务器上位置是固定的，可以上程序开始时
建立别名，结束时删除它。
:
//Create current prog's alias ;
GetDir(0,s);
AliName:='';
for i:=1 to Length(s) do
if (Copy(s,i,1)<>':') and (Copy(s,i,1)<>'/') and (Copy(s,i,1)<>' ')then
AliName:=AliasName+Copy(s,i,1);
.......
if GetAlias.IndexOf(AliName)=-1 then
try
Session1.AddStandardAlias(AliName,
ExtractFileDir(Application.ExeName)+'/Data','Paradox');
Session1.SaveConfigFile;
except
Application.MessageBox('建立别名失败！','错误',MB_ICONERROR+mb_OK);
Application.Terminate;
end;
数据库的存放位置与.exe文件相对确定，便好办了。

接受答案了.