适用于简单MIS系统的控件关系映射组件设计思路分享

MIS系统就是信息管理系统，用于信息的收集、传递、维护和使用等等。控件关系映射（Control Relation Mapping，CRM）是我在2005年研究生一年级给导师做项目的时候提出来的一种针对大表单的快速解决方案（解决方案很多种），其设计从UI映射和OR映射借鉴了点思想，加上点自己的体会设计的，不过这个组件属于业余级别的。

这个组件的设计背景是：给导师做一个项目（20万的企业MIS），MIS系统就是有一个大表单用于输入信息，实现数据库记录CRUD操作。不过这个项目表单有点夸张，少的有70～80个字段，多的有几百个，最夸张的是一个同学设计了1000多个字段的表单，他做好后，很有成就感的给显了一下。不过，我可以没有他那么有耐心，从小到大我都是偷懒过来的，因此我就在琢磨怎么省点事。整个项目有9大模块，必须采用Delphi开发（现在忘光了，我原来就没想学这玩意，Pascal语言让我感觉很别扭）。我负责框架设计和其中一个模块。框架的设计采用模块化支持，集成界面配置、权限管理、包管理、基本UI操作，由框架加载各个模块（BPL库，类似DOTNET的程序集），根据需要呈现各个模块其中的UI。我负责的模块需要输入一堆数据，因此我设计了一个小型的控件关系映射（由于业务简单，没有采用ORM等先进技术），其思想非常简单，即利用一个XML封装界面的输入、处理和输出，XML文件由可视化工具自动生成。

CRM概念设计图如下，其思想是利用一个XML配置文件，实现界面表单与数据库记录映射，中心思想是一条映射SQL。映射SQL的参数来自界面控件、某个类成员或方法，或者常量；映射SQL执行数据库的操作；映射执行结果是控件属性赋值、控件赋值、成员赋值、数据绑定、调用方法等。通过映射SQL很容易实现：1 进入页面后查询，执行Bind映射SQL，填充DataGrid；2 点击添加，显示一个Panel，隐藏DG Panel，保存后，执行Create映射SQL，映射结果是隐藏添加记录Panel、显示DG Panel、执行Bind映射SQL；3 Update和Create类似。因此，在我的应用中，无论表单如何复杂，代码都不会超过100行。

CRM体系结构图下：

它由映射配置工具、映射文件、映射配置层、核心层和窗体层组成，相当于关系数据库与用户界面的适配器，为双方的数据交互提供桥梁作用。当用户输入信息提交系统后，（1）核心层利用窗体层提供的功能从用户界面获取用户数据；（2）核心层利用映射配置层读取映射配置并解析；（3）核心层利用数据访问层访问关系数据库；（4）如果本次访问需要返回结果，则核心层利用映射配置层读取配置数据，然后利用窗体层将返回结果显示给用户。如果用户仅需从关系数据库获取数据时，则只需要执行上述过程的（2）~（4）步骤。

举个非常简单的例子（基于.NET，做完Delphi项目后，我移植到DotNET 1.1了）：

（1）插入派遣单位表单

（2）利用可视化配置工具生成映射SQL如下

（3）在“保存”按钮的OnClick事件响应函数编写一行代码即可完成该功能：