Session: TSession;
    
    Session.GetAliasNames(ap);
    if (ap.IndexOf('db')=-1) then   {判断别名是否存在}
    begin
      s.Clear;
      s.Append('DATABASE NAME=scadanet');
      s.Append('SERVER NAME='+hostname);
      s.Append('USER NAME=sa');
      s.Append('OPEN MODE=READ/WRITE');
      s.Append('SCHEMA CACHE SIZE=8');
      s.Append('BLOB EDIT LOGGING=');
      s.Append('LANGDRIVER=DBWINUS0');
      s.Append('SQLQRYMODE=SERVER');
      s.Append('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
      s.Append('DATE MODE=0');
      s.Append('SCHEMA CACHE TIME=-1');
      s.Append('MAX QUERY TIME=300');
      s.Append('MAX ROWS=-1');
      s.Append('BATCH COUNT=200');
      s.Append('ENABLE SCHEMA CACHE=FALSE');
      s.Append('SCHEMA CACHE DIR=');
      s.Append('HOST NAME=');
      s.Append('APPLICATION NAME=');
      s.Append('NATIONAL LANG NAME=');
      s.Append('ENABLE BCD=FALSE');
      s.Append('TDS PACKET SIZE=4096');
      s.Append('BLOBS TO CACHE=64');
      s.Append('BLOB SIZE=32');
      session.AddAlias('db','MSSQL',s);
      Session.SaveConfigFile;    {BDE配置文件存盘}