[请求]【急】新手问题：关于输入数据的验证问题。

零下三度

我有十份文件可供分发，每次分发之前都要对文件总数，剩余份数和输入的份数进行判断，使分发的总数不能够大于可供分发数。
我的思想是每次分发确认前将输入的数据和剩余的数量做和，如果大于可供分发数则不通过，但这样带来一个问题就是我要修改一条记录的话，比如把五份改成六份就会通不过，请问改如何改动。
PS：以前曾做过一个类似的，不过是把方法写在了DataNavigatorBeforeAction事件中，而这个例子中没有DataNavigator，而且是在弹出窗口中输入分发数。

零下三度

没人知道下吗，，，，，，

zfang

关键是没有看的太懂楼主的描述。
其实这个问题就看你要在哪里去触发代码做这种校验。
试试DataSetBroker1DataChange？

零下三度

我看了OnDataChange的方法，感觉跟我说的不一样。‘
我以前有个代码：
procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
var laccept,lfffs,lfs,lsy,llaccept,llfs:Integer;
begin
DataNavigator.SetFocus;
        lsy:=INFODRAWING_MANAGE_INFO.TDRAWING_PARTICULAR_INFO(DocViewDrawing_Particular_Info.Doc).DataSetBrokerSum.DataSet.FieldByName('SYFS').AsInteger;
        lfs:=INFODRAWING_MANAGE_INFO.TDRAWING_PARTICULAR_INFO(DocViewDrawing_Particular_Info.Doc).DataSetBrokerSum.DataSet.FieldByName('Dispense_Num').AsInteger;
        llfs:=INFODRAWING_MANAGE_INFO.TDRAWING_PARTICULAR_INFO(DocViewDrawing_Particular_Info.Doc).DataSetBrokerSum.DataSet.FieldByName('Dispense_Num').AsInteger;
        INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.Edit;
        INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.Post;
        laccept:=INFODRAWING_MANAGE_INFO.TDRAWING_PARTICULAR_INFO(DocViewDrawing_Particular_Info.Doc).DataSetBrokerEng_Drawing.DataSet.FieldByName('ACCEPT_NUM').AsInteger;
        lfffs:=INFODRAWING_MANAGE_INFO.TDRAWING_PARTICULAR_INFO(DocViewDrawing_Particular_Info.Doc).DataSetBrokerSum.DataSet.FieldByName('FFFSTJ').AsInteger;
        if (laccept<lfffs)then
        begin
          jsDialogs.ShowMsg('分发份数大于接收份数，不能保存，请重新编辑','提示');
          Accept:=False;
          INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.Cancel;
          INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.Edit;
          INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.FieldByName('Dispense_Num').AsInteger:=lfs;
          INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataSetBrokerEng_Drawing_Dispense.DataSet.FieldByName('SYFS').AsInteger:=lsy;
          INFODRAWING_MANAGE_INFO.TDISPENSE_PARTICULAR_INFO(DocViewDispense_Particular_Info.Doc).DataEditDataSetBrokerEng_Drawing_Dispense.SetFocus;
        end;
end；


但是我现在要在一个新的弹出窗口中做判断，没有DataNavigator，就无法用到这个事件。。。。所以我就是想问其他什么方式可以实现上边的方法。

zfang

都是一样的处理代码 啊，无非就是你原来是在DataNavigator的动作事件上来做，那现在就改到你的弹出窗口里来做。但不清楚你的弹出窗口，我们也不知道该在哪里做！
可以在数据集上，也可以在DataEdit的相关事件上，或者按钮的相关事件里。

零下三度

我想把手动输入的数据保存到数据库中，如果比较通过则保存，若通不过则Cancel，但是我试了，如果第一次输入了非法数据不报错，只有第二次才报错。

zfang

那你跟踪一下，第一次输入是否执行了你的代码校验部分。

atiger

??