系統(tǒng)總框架-X邦

1、CHISC.NET -全國醫(yī)療信息化聯(lián)盟,為全國醫(yī)療信息化人員提供最全面的資料下載平臺系統(tǒng)總框架設計思想申明：僅針對chis5.0系統(tǒng) 2001-9-1本手冊僅限于程序員使用或最新的日期版本北京眾邦慧智計算機系統(tǒng)集成公司保留最終解釋權利未取得所有者許可，任何人或團體不得以任何形式傳播目錄：系統(tǒng)基類組成用戶管理及驗證報表生成器設計原理Data 層與 Logic 層的分層思想系統(tǒng)基類組成：Unit_global_varrant.pas系統(tǒng)全局變量Unit_RootMainForm.pas系統(tǒng)主窗口基類Unit_frmMainBase.pas系統(tǒng)主窗口ChildForm.pas系統(tǒng)子窗口基類Chil

2、dPrintForm.pas系統(tǒng)普通打印子窗口ChildPrintFormCube.pas系統(tǒng)交叉表打印子窗口一 Unit_global_varrant.pas系統(tǒng)全局變量functionSelectMessageBox(Text:string;CaptionNum:integer;Flags:integer):IntegerMessageBox 的取代Function _AddAllFields(DestClientDataSet: TClientDataSet):Boolean;動態(tài)把數(shù)據(jù)集中的所有字段建立成字段對象procedure ShowLineedt(stgReport:TDsnS

3、tage;iRepControlsNum:integer) ;允許控件可編輯procedure HideLineedt(stgReport:TDsnStage;iRepControlsNum:integer) ;不允許控件可編輯function ConvertDigit(iDigit:Double): String;把數(shù)字串轉換未大寫字符串function UpperDigit(iDigit:integer):string;把單個數(shù)字轉換為大寫字符串function DigitDW(iDW:integer):string;把位數(shù)轉換為大寫金額位數(shù)function TrancCurrentNo(

4、iNum: Integer):String;Function NBGetAdapterAddress(ino:Integer) : String;獲得第幾張網(wǎng)卡的物理地址function GetMac:string;獲得網(wǎng)卡號CHISC.NET -全國醫(yī)療信息化聯(lián)盟,為全國醫(yī)療信息化人員提供最全面的資料下載平臺二 Unit_RootMainForm.pas主要是針對運行期動態(tài)設計Windows 流技術，如果了解系統(tǒng)主窗口基類FORM，對業(yè)務系統(tǒng)沒有影響。技術涉及到Delphi的 RTTI ，這部分很好了解。Delphi的RTTI和三 Unit_frmMainBase.pas系統(tǒng)主窗口主要是每一

5、個子系統(tǒng)專門添加代碼用的框架，沒有任何技術與業(yè)務含量。四 ChildForm.pas 最主要的方法是系統(tǒng)子窗口基類procedure TfrmChildForm.LoadFormStream;1 把所有的Dcom置上 gv_Appserver2 把與錄入控件關聯(lián)的Dcom.Connected := True3 如果保存過界面，把界面取出放到ChildStage上 ,ChileStage是一個可運行期設計的面板五 ChildPrintForm.pas系統(tǒng)普通打印子窗口這里有幾個ClientDataSet承攬報表的恢復和cdsUpdateSQL,報表 SQL和格式cdsSQLParams 報表參數(shù)

6、cdsReportDataSet報表數(shù)據(jù)SQL，參數(shù)，數(shù)據(jù)的管理cdsReportStoreProcDataSet用存儲過程做成的報表的數(shù)據(jù)Function GetReport(iReport_code : Integer):boolean; /把報表根據(jù)報表號從rt_report_data,rt_reprot_params取報表信息中取出，放到cdsUpdateSQL, cdsSQLParamsFunction GetData:boolean;把數(shù)據(jù)放到cdsReportDataSetFunction PrintReport:boolean;或/cdsReportStoreProcDataS

7、et/取數(shù)據(jù)打印打印報表Function PreviewReport:boolean;/打印預覽用“大白板”顯示報表Procedure InitPrintForm;為了運行期恢復控件，運行期注冊類procedure AddReportParams;無用，本來這個函數(shù)在unit QRExpbld， QRExpbld 只為運行期設計QuickRep 表達式Procedure RepData_SaveAS;把報表數(shù)據(jù)保存到txt文件中六 ChildPrintFormCube.pas系統(tǒng)交叉表打印子窗口由于對交叉表沒有使用過，所以無法描述，請經(jīng)驗豐富者填寫這部分用戶管理及驗證由以下數(shù)據(jù)結構構成了用戶管

8、理的基礎xt_subsys子系統(tǒng)表 , 每個子系統(tǒng)的許可證就放在此xt_group哪個子系統(tǒng)有哪些用戶組CHISC.NET -全國醫(yī)療信息化聯(lián)盟,為全國醫(yī)療信息化人員提供最全面的資料下載平臺xt_func每個子系統(tǒng)的每個用戶組具有什么功能xt_user_group每個子系統(tǒng)的每個用戶組有哪些用戶xt_user每個子系統(tǒng)的每一個用戶組的每個用戶的關聯(lián)信息，這是整個用戶管理的核心，重點字段有： subsys_id,user_group,user_name,pass_word,user_mixt_user_interface如果某個子系統(tǒng)在運行期設計并保存了某個Form, 就在此表有一條記錄在主程序

9、中專門有一個線程在探測用戶是否在線，用戶是否達到了使用的上限。報表生成器設計原理1生成 SQL，與 Delphi中寫 SQL一樣，參數(shù)也是 : 開頭2運行驗證 SQL，配置參數(shù)類型，初始值，字典編號應該是這個參數(shù)所對應的TagSQL3拖控件，連接數(shù)據(jù)源 選 cdsReportDataSet ，連接數(shù)據(jù)字段 選 cdsReportDataSet 中的字段 ，或做表達式計算，或用系統(tǒng)信息4 預覽，保存報表5 找到報表號，在程序中，通過 GetReport( 報表號 ) ，把報表從數(shù)據(jù)庫 Blob 字段中調出，恢復到 dsnstage,GetData ，獲得數(shù)據(jù)，打印。整個系統(tǒng)最關鍵的技術就是DSN

10、，QuickRep ，一個用于運行期設計，一個用于打印，打印的技術全部可以參考QuickRep，運行器設計就是充分利用RTTI 和 windows 的拖動消息，這Delphi 比較中級的技術， 可以參考 <Delphi 高級程序指南 >一書，有詳細介紹， 核心思想就是流與類信息。設計報表的難點就是弄清楚幾個BAND的作用Data 層與 Logic 層的分層思想站在層次模型的角度上分為：業(yè)務表示層多種業(yè)務表示方式業(yè)務邏輯層多種業(yè)務組合，流程實體映射層對多個異構數(shù)據(jù)庫的屏蔽和統(tǒng)一數(shù)據(jù)服務層數(shù)據(jù)視圖，數(shù)據(jù)操作 增刪改，外鍵，存儲過程，觸發(fā)器，備份，復制，恢復的處理我們目前欠缺通信安全層每

11、一層根據(jù)抽象和聚合又可細分為多個層次，不可簡單認為兩層或三層或N層，未來軟件是在層次模型基礎上的分布協(xié)作式計算的組件環(huán)境，高內聚，低耦合，異步連接，對等計算是未來的發(fā)展方向Data 層專門放置實體數(shù)據(jù)集entry DataSet， Data 層是對數(shù)據(jù)結構的一個映射，Logic 層專門放置事務數(shù)據(jù)集transaction DataSet,Logic層是對業(yè)務規(guī)則的一個映射，客戶端 Client是站在客戶角度上數(shù)據(jù)與業(yè)務的一個結合表示Data 層專用于表中記錄的增刪改數(shù)據(jù)查詢，與具體業(yè)務規(guī)格無關。Logic 層專用于業(yè)務流程與業(yè)務算法，具體寫表操作交給Data 層，這是設計的初衷?？蛻舳酥还茌斎?/p>