一个数据库程序的建立，即使你没有显式的添加TSession组件，
系统中依然存在一个名字为Session的TSession对象，你可以在
任何位置调用该对象的方法和属性。TSession类的很多方法可以
帮助我们的应用程序获取系统BDE环境，下面介绍一个代码片断用以添加一个BDE别名：
var
BDEList : TStringList ;
．．．
begin
．．．
BDEList := TStringList.Create () ;
try
Session.GetAliasNames(BDElist) ; // 获取系统所有BDE别名列表
if BDEList.IndexOf('DragonPC')= -1 then begin // 如果没有我们的BDE别名"DragonPC"
BDEList.Clear ;
BDEList.Add('SERVER NAME=' + 'SQLServerName')); // 数据库服务器名称
BDEList.Add('DATABASE NAME=master') ; // 默认数据库
BDEList.Add('USER NAME=sa'); // 用户名
Session.AddAlias('DragonPC', 'MSSQL', BDEList) ; // 添加一个MSSQL类型的BDE别名
ShowMessage('系统即将建立BDE别名！') ;
Session.SaveConfigFile() ; // 存储BDE配置
end;
finally
BDEList.Free ;
end;
