【结】请问关于功能继承的问题，请指点一下。

itking

鄙人开发技术有限，关于下面请高人指点。

父类  定义了
  public
    {public declarations}
    FIsAdminManager:Boolean;
    property IsAdminManager: Boolean read FIsAdminManager write FIsAdminManager;


我现在 想通过子类 对 父类的 FIsAdminManager  赋值，应该如何做？子类 里面通过self. 提示 有 IsAdminManager

编译 没有报错，但是 好像没有达到效果。

关于 FIsAdminManager 的定义 我应该放到哪里？或者 我基类 需要怎么修改 才能达到效果？

atiger

请问楼主想达到啥样子的效果呢？具体说说吧，

itking

就是 一个开关

父类执行 是一种情况，子类执行 是另外一种情况。通过这个开关来选择不同的 sql语句

atiger

嗯，这只适合用于同一个客户端，且客户端没有退出的情况，当客户端关闭，或者不同的客户端访问的时候，就不起作用了。如果是在这个用户设置，另一个用户读取，那么只能用表来存储这样的值。请问楼主，你是哪种情况呢

itking

同一 客户端。

我现在 要做一个 类似组织机构管理器那样的。

从 组织机构上把 权限过滤开，例如 集团公司管理员 可以看到 所有数据，而子公司只能看到本子公司 数据，现在 集团公司的 已经做完了，就差 这个控制开关了，我写完后，试了 也不行。

itking

经过断点 ，跟踪 发现：

子类里的

procedure TFLOWMANAGEDept.BizFormShow(Sender: TObject);
begin
//  Inherited;
  self.IsAdminManager:=False;
end;


并没有执行，是为什么？？

itking

找到原因了，谢谢。

atiger

呵呵，是功能的主窗体设置不对吧。

itking

是的。