procedure TFrm_pm.DSLocalPostDataChange(Sender: TObject;
  Field: TField);
begin
  if frm_datam.DSetPost.RecordCount > 0 then
  begin
    //显示岗位包含的权限组
    ShowPostIncGroup;
    //显示岗位不包含的权限组
    ShowPostExGroup;
    //显示岗位包含的权限
    ShowPostIncPur;
  end;
  inherited;end;