【搞定】BeforeCommit的使用提问**

Anson.Leung

我在在数据集中写了相关的代码，我查了论坛上相关的一个帖子，发现它好像是在窗体上，因为是看到procedure TMainForm.DataSetBroker1BeforePost(DataSet: TDataSet);

我把代码放在数据集上，录入时如果有多条记录，只要最后一条符合要求，就能保存成功，否则就会有错误提示。请问如何让代码检查所有没有的数据。
另外，使用BeforePost，FocusControl是可以对应到响应到错误的字段，但是用BeforeCommit则不能。

PIECE_NUM:String;
begin
//检查批号
     PIECE_NUM:=DataSet.FieldByName('PIECE_NUM').AsString;
     if StringUtils.Copy(PIECE_NUM,0,1) <> '0' then
     begin
          Dialogs.ShowMessage('批号第一个数字必须为0，请修改!');
          DataSetSALES_RECORD_IMPORT_DT.FieldByName('PIECE_NUM').FocusControl;
          SysUtils.Abort;
     end;

Anson.Leung

上面说错，我试了一下，是我鼠标选中符合的那条然后点保存，其他不符合也都能保存

jiahaiminghr

可以在数据集的BeforeApplyUpdate事件中，用一个循环来判断每一条记录是否符合业务规则。

Anson.Leung

代码没接触过，目前能看懂和效仿一些，怎么循环可否大致写一下，谢谢！

jiahaiminghr

procedure TDDSQB.DataSetDDBBeforeApplyUpdates(Sender: TObject; var OwnerData: object);
var
  currentNo: integer;
begin
  currentNo := DataSetDDB.RecNo;
  DataSetDDB.First;
  while not DataSetDDB.Eof do
    begin
      if DataSetDDB.FieldByName('PIECE_NUM').AsInteger <> 0 then
        SysUtils.Abort;
      DataSetDDB.Next;
    end;
  DataSetDDB.RecNo := currentNo;
end;

Anson.Leung

按你说的做了，但是效果有点怪异，我加了个Dialogs.ShowMessage，用鼠标点了不合规定的单元格按保存，会出提示，当我把所有记录都改成都符合，还是不能保存，也不提示了。

jiahaiminghr

看看你怎么做的？

Anson.Leung

这些天对代码有多点认识，基本上已经搞定了。但是有个问题是FocusControl对不上，例如第二行不符合，我把鼠标放在其他列，按了保存后，焦点跳到这一列的第二行，但不是跳到第二行的'PIECE_NUM'列上。

var
PIECE_NUM : String;

begin
     DataSetSALES_RECORD_INPUT_DTS.First;
  while not DataSetSALES_RECORD_INPUT_DTS.Eof do
  begin
       PIECE_NUM :=DataSetSALES_RECORD_INPUT_DTS.FieldByName('PIECE_NUM').AsString;
       if (PIECE_NUM.Length <> 6) OR (Variants.VarToStr(StringUtils.Copy(PIECE_NUM,0,1))<>'0') then
       begin
            DataSetSALES_RECORD_INPUT_DTS.FieldByName('PIECE_NUM').FocusControl;
            Dialogs.ShowMessage('批号第一个数字必须为0，且必须6位，请修改!');
            SysUtils.Abort;
       end;
    DataSetSALES_RECORD_INPUT_DTS.Next;
  end;
end;

lixy

但不是跳到第二行的'PIECE_NUM'列上。

DataSetSALES_RECORD_INPUT_DTS.FieldByName('PIECE_NUM').FocusControl;
这个很奇怪，你用代码跟一下，执行这句代码了吗？
'PIECE_NUM'字段是什么类型的字段？自定义的？计算字段？

jiahaiminghr

由于长时间没有反馈，先结贴了！