with CustomerData.adoqDataInfo do //取出服务器当前时间
begin
if Active then Close;
ConnectionString:=CustomerData.adoqDataInfo.ConnectionString;
SQL.Clear ;
SQL.Add('SELECT GETDATE() AS CurrentTime');
Open;
if not CustomerData.adoqDataInfo.Eof then
begin
CurrentTime:=FieldByName('CurrentTime').AsDateTime ;
end;
Close;
end;
