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;
