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

1、CHISC.NET -全國醫(yī)療信息化聯(lián)盟,為全國醫(yī)療信息化人員提供最全面的資料下載平臺(tái)系統(tǒng)總框架設(shè)計(jì)思想申明：僅針對(duì)chis5.0系統(tǒng) 2001-9-1本手冊僅限于程序員使用或最新的日期版本北京眾邦慧智計(jì)算機(jī)系統(tǒng)集成公司保留最終解釋權(quán)利未取得所有者許可，任何人或團(tuán)體不得以任何形式傳播目錄：系統(tǒng)基類組成用戶管理及驗(yàn)證報(bào)表生成器設(shè)計(jì)原理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;動(dòng)態(tài)把數(shù)據(jù)集中的所有字段建立成字段對(duì)象procedure ShowLineedt(stgReport:TDsnS

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

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

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

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

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

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

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

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

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