procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
begin
case (Sender as TBizDataSetAction).ID of
BizActnConsts.ActionDataSetAppend:
begin
//
end;
BizActnConsts.ActionDataSetDelete:
begin
//
end;
BizActnConsts.ActionDataSetCancel:
begin
//
end;
end;
end;