系統(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)子窗口基類
ChildPrintForm.pas 系統(tǒng)普通打印子窗口
ChildPrintFormCube.pas 系統(tǒng)交叉表打印子窗口
一 Unit_global_varrant.pas 系統(tǒng)全局變量
functionSelectMessageBox(Text:string;CaptionNum:integer;Flags:integer):Integer
MessageBox的取代
Function _AddAllFields(DestClientDataSet: TClientDataSet):Boolean;
動態(tài)把數(shù)據(jù)集中的所有字段建立成字段對象
procedure ShowLineedt(stgReport:TDsnStage;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(iNum: Integer):String;
Function NBGetAdapterAddress(ino:Integer) : String;
獲得第幾張網卡的物理地址
function GetMac:string;
獲得網卡號
二 Unit_RootMainForm.pas 系統(tǒng)主窗口基類
主要是針對運行期動態(tài)設計FORM，對業(yè)務系統(tǒng)沒有影響。技術涉及到Delphi的RTTI和Windows 流技術，如果了解Delphi的RTTI，這部分很好了解。
三 Unit_frmMainBase.pas 系統(tǒng)主窗口
主要是每一個子系統(tǒng)專門添加代碼用的框架，沒有任何技術與業(yè)務含量。
四 ChildForm.pas 系統(tǒng)子窗口基類
最主要的方法是
procedure TfrmChildForm.LoadFormStream;
1 把所有的Dcom置上gv_Appserver
2 把與錄入控件關聯(lián)的Dcom.Connected := True
3 如果保存過界面，把界面取出放到ChildStage上,ChileStage是一個可運行期設計的面板
五 ChildPrintForm.pas 系統(tǒng)普通打印子窗口
這里有幾個ClientDataSet承攬報表的恢復和SQL，參數(shù)，數(shù)據(jù)的管理
cdsUpdateSQL, 報表SQL和格式
cdsSQLParams 報表參數(shù)
cdsReportDataSet 報表數(shù)據(jù)
cdsReportStoreProcDataSet 用存儲過程做成的報表的數(shù)據(jù)
Function GetReport(iReport_code : Integer):boolean; //取報表信息
把報表根據(jù)報表號從rt_report_data,rt_reprot_params中取出，放到
cdsUpdateSQL, cdsSQLParams
Function GetData:boolean; //取數(shù)據(jù)
把數(shù)據(jù)放到cdsReportDataSet或cdsReportStoreProcDataSet
Function PrintReport:boolean; //打印
打印報表
Function PreviewReport:boolean; //打印預覽
用“大白板”顯示報表
Procedure InitPrintForm;
為了運行期恢復控件，運行期注冊類
procedure AddReportParams;
無用，本來這個函數(shù)在unit QRExpbld，QRExpbld只為運行期設計QuickRep表達式
Procedure RepData_SaveAS;
把報表數(shù)據(jù)保存到txt文件中
六 ChildPrintFormCube.pas 系統(tǒng)交叉表打印子窗口
由于對交叉表沒有使用過，所以無法描述，請經驗豐富者填寫這部分
用戶管理及驗證
由以下數(shù)據(jù)結構構成了用戶管理的基礎
xt_subsys 子系統(tǒng)表,每個子系統(tǒng)的許可證就放在此
xt_group 哪個子系統(tǒng)有哪些用戶組
xt_func 每個子系統(tǒng)的每個用戶組具有什么功能
xt_user_group 每個子系統(tǒng)的每個用戶組有哪些用戶
xt_user 每個子系統(tǒng)的每一個用戶組的每個用戶的關聯(lián)信息，這是整個用戶管理的核心，重點字段有：subsys_id,user_group,user_name,pass_word,user_mi
xt_user_interface 如果某個子系統(tǒng)在運行期設計并保存了某個Form,就在此表有一條記錄
在主程序中專門有一個線程在探測用戶是否在線，用戶是否達到了使用的上限。
報表生成器設計原理
1 生成SQL，與Delphi中寫SQL一樣，參數(shù)也是:開頭
2 運行驗證SQL，配置參數(shù)類型，初始值，字典編號應該是這個參數(shù)所對應的TagSQL
3 拖控件，連接數(shù)據(jù)源[選cdsReportDataSet]，連接數(shù)據(jù)字段[選cdsReportDataSet中的
字段]，或做表達式計算，或用系統(tǒng)信息
4 預覽，保存報表
5 找到報表號，在程序中，通過GetReport(報表號)，把報表從數(shù)據(jù)庫Blob字段中調出，恢復到dsnstage,GetData，獲得數(shù)據(jù)，打印。
整個系統(tǒng)最關鍵的技術就是DSN，QuickRep，一個用于運行期設計，一個用于打印，打印的技術全部可以參考QuickRep，運行器設計就是充分利用RTTI和windows的拖動消息，這Delphi比較中級的技術，可以參考一書，有詳細介紹，核心思想就是流與類信息。
設計報表的難點就是弄清楚幾個BAND的作用
Data層與Logic層的分層思想
站在層次模型的角度上分為：
業(yè)務表示層 多種業(yè)務表示方式
業(yè)務邏輯層 多種業(yè)務組合，流程
實體映射層 對多個異構數(shù)據(jù)庫的屏蔽和統(tǒng)一
數(shù)據(jù)服務層 數(shù)據(jù)視圖，數(shù)據(jù)操作[增刪改，外鍵，存儲過程，觸發(fā)器，備份，復制，恢復]的處理
我們目前欠缺通信安全層
每一層根據(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層，這是設計的初衷。
客戶端只管輸入輸出，與Logic無關
|
|
資源大小：8.98 KB 
