with CkjlQuery do
   begin
      Close;
      SQL.Clear;
      SQL.Add(SQLStr);
      ParamByName('Ptime').AsDateTime:=DateTimePicker1.DateTime;
      open;
   end