procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var
ls: string;
begin
ls := TBizDataSetAction(DataNavigator1.Buttons[0].Action).CurrentDataSource.DataSet.Name;
if ((Sender as TBizDataSetAction).ID = BizActnConsts.ActionDataSetAppend) then
begin
if ls = 'DataSetMaster' then
begin
Accept := False;
jsdialogs.ShowMsg('不能新增!','提示信息')
end;
end;
end;