如果未满足所需条件，则阻止发布到数据库

Question

这是我的代码：

procedure TDataModule2.MYTABLEBeforePost(DataSet: TDataSet);
begin
if (MYTABLE.FieldByName('DONE').Value = 1) then begin
DataSet.FieldByName('DONE_WHEN').AsDateTime:=Now;
end else  begin
DataSet['DONE_BY'] :='';
DataSet.FieldByName('DONE_WHEN').Clear;
end;
end;

字段“DONE”是布尔字段（在网格中表示为复选框），字段“DONE_BY”是从表中接收数据的查找字段。

如果复选框被选中并且“done_by”字段为空，我想要做的是阻止记录的发布。 和其他方式。如果“done_by”为空且未选中“done”，则阻止发布。

因此，如果用户选中复选框但忘记从查找组合中选择名称，则会显示一条消息。 或者他选择了一个名称但忘记选中复选框。我正在使用 cxGrid。有没有办法我可以做到这一点？

Answer 1

编辑：我想知道，if..then..else 中使用的MYTABLE 和赋予程序的DataSet 有什么区别？ MYTABLE是什么对象？

查看您当前的代码，我假设如下（参见代码中的 cmets）

procedure TDataModule2.MYTABLEBeforePost(DataSet: TDataSet);
begin
  if (MYTABLE.FieldByName('DONE').Value = 1) then //Checkbox checked
  begin
    //Should be done when checkbox checked and DONE_BY is not empty
    DataSet.FieldByName('DONE_WHEN').AsDateTime:=Now; 
  end 
  else  
  begin
    //Should happen if input doesn't meet conditions
    DataSet['DONE_BY'] :='';
    DataSet.FieldByName('DONE_WHEN').Clear;
  end;
end;

如果我的假设是正确的，这应该可以解决它：

procedure TDataModule2.MYTABLEBeforePost(DataSet: TDataSet);
begin
  if (MYTABLE.FieldByName('DONE').Value = 1) and 
     (MYTABLE.FieldByName('DONE_BY').Value <> '') then //Checkbox checked and Done_by not empty
  begin
    //Should be done when checkbox checked and DONE_BY is not empty
    DataSet.FieldByName('DONE_WHEN').AsDateTime:=Now; 
  end 
  else  
  begin
    //Should happen if input doesn't meet conditions
    DataSet['DONE_BY'] :='';
    DataSet.FieldByName('DONE_WHEN').Clear;
    Abort;
  end;
end;

我相信 Abort; 是您在 Else 部分中所需要的，但我对此不是 100% 确定。

我希望这对你有任何帮助，如果我误解了你的问题，请告诉我:)

编辑： 鉴于您的最新评论，我认为以下内容应该可以解决问题。

procedure TDataModule2.MYTABLEBeforePost(DataSet: TDataSet);
begin
  if (MYTABLE.FieldByName('DONE').Value = 1) then //Checkbox checked
  begin
    //Should be done when checkbox checked and DONE_BY is not empty
    If DataSet['DONE_BY'] <> '' then
      DataSet.FieldByName('DONE_WHEN').AsDateTime:=Now
    else
      Raise Exception.Create('Your message') 
  end 
  else  
  begin
    //Should happen if input doesn't meet conditions
    DataSet['DONE_BY'] :='';
    DataSet.FieldByName('DONE_WHEN').Clear;
    Raise Exception.Create('Your message')
  end;
end;

您可以使用中止代替异常。根据自己的喜好编辑:)