【搞定】如何控制记录的删除？**

YZYHZ

比如有这样一个需求：

如果一个单据的处理状态不是新建就不能进行删除

怎么把业务功能中默认带过来的工具栏中的删除按钮的事件替换掉？

如何实现？

atiger

如果一个单据的处理状态不是新建就不能进行删除
这个根据处理状态，在数据导航的 BeforeAction 中判断，然后设置 accept 为False，或者 sysutils.Abort; 就可以

可以，设置数据导航的 按钮（VisibleButtons） 的选项就可以了

jiahaiminghr

http://bbs.justep.com/forum.php?mod=viewthread&tid=517

procedure TMainForm.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
begin
  if TBizDataSetAction(Sender).ID = BizActnConsts.ActionDataSetDelete then { 删除 }
    if DataSetBroker1.DataSet.State <> TDataSetState.dsInsert then
      SysUtils.Abort;
end;

YZYHZ

3Q