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