procedure TFrm_pm.DSLocalPostDataChange(Sender: TObject;
Field: TField);
begin
if frm_datam.DSetPost.RecordCount > 0 then
begin
//显示岗位包含的权限组
ShowPostIncGroup;
//显示岗位不包含的权限组
ShowPostExGroup;
//显示岗位包含的权限
ShowPostIncPur;
end;
inherited;end;
Field: TField);
begin
if frm_datam.DSetPost.RecordCount > 0 then
begin
//显示岗位包含的权限组
ShowPostIncGroup;
//显示岗位不包含的权限组
ShowPostExGroup;
//显示岗位包含的权限
ShowPostIncPur;
end;
inherited;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货