12、ERP设计之 系统基础管理(BS)- 模块与菜单的关联

ShareERP2013-10-03

 

         模块：具有功能设计、权限绑定，链接用户菜单与系统的重要桥梁。

         菜单：是用于显示与用户交互的重要入口，更是导航系统的舵手，所以它的设计直接影响到用户体验。

 

         菜单可能根据不同的用户会有不同的加载方式，特别是定制的系统，灵活性不必可少。并且，可扩展性，提供用户二次开发接口，可挂接用户自己的模块及调用菜单，当用户增加自己的模块或菜单后，能否进行权限控制，那么在权限设计时就要充分考虑到这些要素，详细请参看权限设计。

 

在一般系统中，菜单和工具栏按钮是共享事件过程的，我们不太可能给每个Event绑定一个过程，那样的代码量不但大而且冗余，就笔者使用的Delphi为例，Delphi为我们提供了ActionList控件，它是能很好的链接菜单和工具栏按钮的控件，不光是Event能共享，就连快捷键、图像、标题、Hint都为我们做好了。有了它看似简单许多，但我们还要进一步简化操作，就算共享Event，但功能项太多，不能每项都去编写代码，并且每项功能还都是动态创建的，为此我们要做一个统一的Event过滤器来执行操作，将所有的功能项绑定到Event过滤器上，以功能编号来区别功能调用。

        

为方便维护，笔者将各个子系统模块定义成DLL动态库，动态库里分若干子模块，每个子模块对应一菜单项，这样的映射关系需要做一个菜单模块映射表，用来记录它们，以便用户自定义自己的模块。

 

菜单与模块映射表
序号	主键	字段名	字段说明	数据类型	长度
1	YES	iAutoID		int	4
2		cMCode	模块编号	varchar	20
3		cMenuName	菜单名	varchar	20
4		cMenuCaption	菜单标题	varchar	40
5		cParentName	父级菜单	varchar	20
6		cRemark	备注	varchar	20
7		bVisible	菜单可见	bit	1

 

有了菜单与模块映射表,就可以动态的为系统创建模块菜单和树形视图。

 

前面提到，DLL动态库模块，动态库模块它本身也是一个树形结构。

 

模块->

子模块->

    功能项->

    功能项N…

子模块N…->

 

Delphi 为我们提供了TCollection对像，它非常方便管理这种结构，然后再将 TCollection转成菜单就OK。

 

模块管理类的简单定义:

 

TModuleMgr = class;



 



  //菜单项



TModuleItem = class(TCollectionItem)



public



   fTreeNode: TTreeNode;



   fMInfo: TModuleItemRec;



   procedure MenuOnClick(Sender: TObject); //菜单点击事件过滤



end;



 



TModules = class(TCollection)



private



   fForms: TList;



   DLLHandle: Integer; //DLL句柄



   fSysHelper: TModuleMgr;



   procedure OnTimer(Sender: TObject);



   function GetItems(Index: Integer): TModuleItem;



   procedure SetItems(Index: Integer; Value: TModuleItem);



public



   ModuleID: Integer;



   DLLFileName: string;



   function AddDLLFunction(const MenuCode: string): TModuleItem;



   constructor Create(ItemClass: TCollectionItemClass; ASysHelper:TModuleMgr);



   property Items[Index: Integer]: TModuleItem read GetItems writeSetItems;



   destructor Destroy; override;



   function GetActiveFunc: TModuleItem;



   procedure Execute(AItem: TModuleItem);



end;



 



 



TModuleItemRec = record



   ModuleDllName:    string;         //Dll Name



   ModuleParentCode: string;        //父项序号



   ModuleCode:       string;         //模块功能序号



   MenuCode: string;                //菜单编码



   ModuleFormTitle:  string;         //菜单标题



   ModuleTemplate:   string;         //模板名



   iShowType:        Byte;           //窗口显示类型



   ModuleType:      TTemplateType;  //模块类型 =TTemplateType单据模板类型



   ModuleEnabled:    Boolean;        //菜单是否有效



   RootAuth:         string;         //权限编码



   InfaceName:       string;         //接口名



 end;



 PModuleItemRec =^TModuleItemRec;



 



 

 

 

下篇：系统基础管理(BS)- 栏目与查询  待续……

来源：分享ERP  http://www.shareerp.com 联系QQ:908916944