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配置文件存盘}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货