系统总框架-X邦

1、CHISC.NET -全国医疗信息化联盟,为全国医疗信息化人员提供最全面的资料下载平台系统总框架设计思想申明：仅针对chis5.0系统 2001-9-1本手册仅限于程序员使用或最新的日期版本北京众邦慧智计算机系统集成公司保留最终解释权利未取得所有者许可，任何人或团体不得以任何形式传播目录：系统基类组成用户管理及验证报表生成器设计原理Data 层与 Logic 层的分层思想系统基类组成：Unit_global_varrant.pas系统全局变量Unit_RootMainForm.pas系统主窗口基类Unit_frmMainBase.pas系统主窗口ChildForm.pas系统子窗口基类Chil

2、dPrintForm.pas系统普通打印子窗口ChildPrintFormCube.pas系统交叉表打印子窗口一 Unit_global_varrant.pas系统全局变量functionSelectMessageBox(Text:string;CaptionNum:integer;Flags:integer):IntegerMessageBox 的取代Function _AddAllFields(DestClientDataSet: TClientDataSet):Boolean;动态把数据集中的所有字段建立成字段对象procedure ShowLineedt(stgReport:TDsnS

3、tage;iRepControlsNum:integer) ;允许控件可编辑procedure HideLineedt(stgReport:TDsnStage;iRepControlsNum:integer) ;不允许控件可编辑function ConvertDigit(iDigit:Double): String;把数字串转换未大写字符串function UpperDigit(iDigit:integer):string;把单个数字转换为大写字符串function DigitDW(iDW:integer):string;把位数转换为大写金额位数function TrancCurrentNo(

4、iNum: Integer):String;Function NBGetAdapterAddress(ino:Integer) : String;获得第几张网卡的物理地址function GetMac:string;获得网卡号CHISC.NET -全国医疗信息化联盟,为全国医疗信息化人员提供最全面的资料下载平台二 Unit_RootMainForm.pas主要是针对运行期动态设计Windows 流技术，如果了解系统主窗口基类FORM，对业务系统没有影响。技术涉及到Delphi的 RTTI ，这部分很好了解。Delphi的RTTI和三 Unit_frmMainBase.pas系统主窗口主要是每一

5、个子系统专门添加代码用的框架，没有任何技术与业务含量。四 ChildForm.pas 最主要的方法是系统子窗口基类procedure TfrmChildForm.LoadFormStream;1 把所有的Dcom置上 gv_Appserver2 把与录入控件关联的Dcom.Connected := True3 如果保存过界面，把界面取出放到ChildStage上 ,ChileStage是一个可运行期设计的面板五 ChildPrintForm.pas系统普通打印子窗口这里有几个ClientDataSet承揽报表的恢复和cdsUpdateSQL,报表 SQL和格式cdsSQLParams 报表参数

6、cdsReportDataSet报表数据SQL，参数，数据的管理cdsReportStoreProcDataSet用存储过程做成的报表的数据Function GetReport(iReport_code : Integer):boolean; /把报表根据报表号从rt_report_data,rt_reprot_params取报表信息中取出，放到cdsUpdateSQL, cdsSQLParamsFunction GetData:boolean;把数据放到cdsReportDataSetFunction PrintReport:boolean;或/cdsReportStoreProcDataS

7、et/取数据打印打印报表Function PreviewReport:boolean;/打印预览用“大白板”显示报表Procedure InitPrintForm;为了运行期恢复控件，运行期注册类procedure AddReportParams;无用，本来这个函数在unit QRExpbld， QRExpbld 只为运行期设计QuickRep 表达式Procedure RepData_SaveAS;把报表数据保存到txt文件中六 ChildPrintFormCube.pas系统交叉表打印子窗口由于对交叉表没有使用过，所以无法描述，请经验丰富者填写这部分用户管理及验证由以下数据结构构成了用户管

8、理的基础xt_subsys子系统表 , 每个子系统的许可证就放在此xt_group哪个子系统有哪些用户组CHISC.NET -全国医疗信息化联盟,为全国医疗信息化人员提供最全面的资料下载平台xt_func每个子系统的每个用户组具有什么功能xt_user_group每个子系统的每个用户组有哪些用户xt_user每个子系统的每一个用户组的每个用户的关联信息，这是整个用户管理的核心，重点字段有： subsys_id,user_group,user_name,pass_word,user_mixt_user_interface如果某个子系统在运行期设计并保存了某个Form, 就在此表有一条记录在主程序

9、中专门有一个线程在探测用户是否在线，用户是否达到了使用的上限。报表生成器设计原理1生成 SQL，与 Delphi中写 SQL一样，参数也是 : 开头2运行验证 SQL，配置参数类型，初始值，字典编号应该是这个参数所对应的TagSQL3拖控件，连接数据源 选 cdsReportDataSet ，连接数据字段 选 cdsReportDataSet 中的字段 ，或做表达式计算，或用系统信息4 预览，保存报表5 找到报表号，在程序中，通过 GetReport( 报表号 ) ，把报表从数据库 Blob 字段中调出，恢复到 dsnstage,GetData ，获得数据，打印。整个系统最关键的技术就是DSN

10、，QuickRep ，一个用于运行期设计，一个用于打印，打印的技术全部可以参考QuickRep，运行器设计就是充分利用RTTI 和 windows 的拖动消息，这Delphi 比较中级的技术， 可以参考 一书，有详细介绍， 核心思想就是流与类信息。设计报表的难点就是弄清楚几个BAND的作用Data 层与 Logic 层的分层思想站在层次模型的角度上分为：业务表示层多种业务表示方式业务逻辑层多种业务组合，流程实体映射层对多个异构数据库的屏蔽和统一数据服务层数据视图，数据操作 增删改，外键，存储过程，触发器，备份，复制，恢复的处理我们目前欠缺通信安全层每一层根据抽象和聚合又可细分为多个层次，不可简单认为两层或三层或N层，未来软件是在层次模型基础上的分布协作式计算的组件环境，高内聚，低耦合，异步连接，对等计算是未来的发展方向Data 层专门放置实体数据集entry DataSet， Data 层是对数据结构的一个映射，Logic 层专门放置事务数据集transaction DataSet,Logic层是对业务规则的一个映射，客户端 Client是站在客户角度上数据与业务的一个结合表示Data 层专用于表中记录的增删改数据查询，与具体业务规格无关。Logic 层专用于业务流程与业务算法，具体写表操作交给Data 层，这是设计的初衷。客户端只管输入输