Server寫在DataSetProvider的OnDataRequest事件
function Ts_rdm_main.pd_queryDataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
begin
  if (Now >= StrToDateTime(FormatDateTime('yyyy/mm/dd ', Date)   '08:00'))
    and (Now <= StrToDateTime(FormatDateTime('yyyy/mm/dd ', Date)   '17:00')) then
    Result := ''
  else
    Result := '目前時段不可連線！';
end;    Client在登入時執行cds_query的DataRequest
var
  ls_Result : String;
begin
  ls_Result := cds_query.DataRequest('');      if ls_Result <> '' then
  begin
    ShowMessage(ls_Result);
    Abort;
  end;