DataBase1.DatabaseName :='md';
DataBase1.DriverName:='MSSQL';
DataBase1.Params.Clear;
DataBase1.Params.Add('DATABASE NAME='+DatabaseName); /*********
DataBase1.Params.Add('SERVER NAME='+ServerName); /*********
DataBase1.Params.Add('USER NAME='+UserName); /*********
DataBase1.Params.Add('PASSWORD='+Pwd); /*********
DataBase1.Params.Add('OPEN MODE=READ/WRITE');
DataBase1.Params.Add('SCHEMA CACHE SIZE=8 ');
DataBase1.Params.Add('BLOB EDIT LOGGING=');
DataBase1.Params.Add('LANGDRIVER= ');
DataBase1.Params.Add('SQLQRYMODE=LOCAL'); /*********
DataBase1.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
DataBase1.Params.Add('DATE MODE=0');
DataBase1.Params.Add('SCHEMA CACHE TIME=-1 ');
DataBase1.Params.Add('MAX QUERY TIME=300');
DataBase1.Params.Add('MAX ROWS=-1');
DataBase1.Params.Add('BATCH COUNT=200');
DataBase1.Params.Add('ENABLE SCHEMA CACHE=FALSE ');
DataBase1.Params.Add('SCHEMA CACHE DIR= ');
DataBase1.Params.Add('HOST NAME='+HostName); /*********
DataBase1.Params.Add('APPLICATION NAME= ');
DataBase1.Params.Add('NATIONAL LANG NAME=');
DataBase1.Params.Add('ENABLE BCD=FALSE ');
DataBase1.Params.Add('TDS PACKET SIZE=4096');
DataBase1.Params.Add('BLOBS TO CACHE=64');
DataBase1.Params.Add('BLOB SIZE=32');
DataBase1.Connected := True;
except
Application.MessageBox('连接数据库服务器失败, 程序异常终止!',
'错误框', mb_Ok + mb_IconStop);
Application.Terminate;
end;