function GetNetDate: TDateTime;
  begin
    with TADOQuery.Create(nil) do
    begin
      try
        Connection := ADOConnection1;  // 绑定数据库连接对象
        if Self.DBEService.DBType = dtMSSQL then // 这里你自己处理一下，公司代码的意思是，如果当前数据库是MSSQL Server
          SQL.Add('SELECT GETDATE() AS CURDATE ')
        else Self.DBEService.DBType = dtOracle then  // 如果当前数据库是Oracle
          SQL.Add('SELECT SysDate AS CURDATE FROM DUAL ');
        Open;
        Result := FieldByName('CURDATE').AsDateTime;
      finally
        Free;
      end;
    end;
  end;