算法設計與分析詳細設計說明書

1、高校醫(yī)務收費管理系統(tǒng)研究項目詳細設計高校醫(yī)務收費管理系統(tǒng)研究項目詳細設計第一部分、引言1.1編寫目的本說明在概要設計的基礎上，對高校醫(yī)務收費管理系統(tǒng)研究項目的各模塊、程序、子系統(tǒng)分別進行了實現(xiàn)層面上的要求和說明。根據(jù)概要設計說明書中的設計內(nèi)容，編寫詳細設計說明書，為開發(fā)過程提供系統(tǒng)處理過程的詳細說明，使系統(tǒng)開發(fā)各類技術人員對整個系統(tǒng)所需實現(xiàn)的功能以及系統(tǒng)的功能模塊的劃分、實現(xiàn)和數(shù)據(jù)庫的表結(jié)構清楚的認識，為整個系統(tǒng)的開發(fā)、測試、評定和移交的提供基礎，本報告一旦確認后將成為系統(tǒng)開發(fā)各類技術人員共同遵守的準則，并為以后的編程工作提供依據(jù)。軟件開發(fā)小組的產(chǎn)品實現(xiàn)成員應該閱讀和參考本說明進行代碼的編寫、

2、測試。1.2背景說明：A、 軟件系統(tǒng)的名稱： 高校醫(yī)務收費管理系統(tǒng)研究項目B、 任務提出者：高校醫(yī)務人員開發(fā)者：醫(yī)務收費系統(tǒng)開發(fā)小組實現(xiàn)完成的系統(tǒng)將在高校醫(yī)務收費的診斷室、門診、住院部使用，所應用的網(wǎng)絡系統(tǒng)是該系統(tǒng)的內(nèi)部局域網(wǎng)。C、 本系統(tǒng)將是獨立的系統(tǒng)，目前不與高校醫(yī)務收費的財務系統(tǒng)和其他資料系統(tǒng)提供接口，所產(chǎn)生的輸出都是獨立的。本系統(tǒng)將使用SQL Server 2000作為數(shù)據(jù)庫存儲系統(tǒng)，SQL Server 2000企業(yè)版將由高校醫(yī)務收費自行購買。1.3定義IPO圖 輸入/處理/輸出圖，一般用來描述一個程序的功能和機制；VB語言：1991年，美國微軟公司推出了Visual Basic(可

3、簡稱VB），目前的最新版本是VB 2005(VB8)中文版。Visual 意即可視的、可見的，指的是開發(fā)像windows操作系統(tǒng)的圖形用戶界面（Graphic User Interface,GUI）的方法，它不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立好的對象拖放到屏幕上相應的位置即可。SQL全稱是“結(jié)構化查詢語言(Structured Query Language)”，最早的是IBM的圣約瑟研究實驗室為其關系數(shù)據(jù)庫管理系統(tǒng)SYSTEM R開發(fā)的一種查詢語言，它的前身是SQUARE語言。SQL語言結(jié)構簡潔，功能強大，簡單易學，所以自從IBM公司1981年推出以來，SQL語言，得

4、到了廣泛的應用。醫(yī)務收費系統(tǒng)：醫(yī)務收費是幫助醫(yī)務人員、醫(yī)務工作人員對醫(yī)務收費管理軟件。1.4參考資料相關的文件包括：A、 高校醫(yī)務收費高校醫(yī)務收費管理系統(tǒng)研究項目可行性研究報告；B、 高校醫(yī)務收費高校醫(yī)務收費管理系統(tǒng)研究項目概要設計；參考資料： 楊晶 VB程序設計教程與實訓北京-科學出版社 2006 張海潘 軟件工程北京清華大學出版版社 2003 李昭原 數(shù)據(jù)庫原理與應用科學出版社 2002 徐蘭芳, 彭冰 數(shù)據(jù)庫設計與實現(xiàn)上海-上海交通大學出版社 2006 (美)Wendy Boggs UML與Rational Rose 2002從入門到精通 邱仲潘 等 譯 北京-電子工業(yè)出版社 2002金

5、華市發(fā)達裝配廠庫存管理系統(tǒng)KCGL的可行性分析中華人民共和國國家標準UDC 6813計算機軟件產(chǎn)品開發(fā)文件編制指南GB 8567-88第二部分、程序系統(tǒng)的結(jié)構2.1系統(tǒng)結(jié)構在概要設計中，系統(tǒng)的在結(jié)構描述縱向上劃分為三個層次，橫向上劃分為九個相對獨立的模塊，如圖1和圖2。數(shù)據(jù)訪問對象ADO連接對象MS SQL SERVER醫(yī)生管理藥品管理病人管理主界面如：啟動窗口、菜單等工具欄狀態(tài)欄登錄窗口查詢窗口藥品集合對象醫(yī)生集合對象病人集合對象醫(yī)生對象描述藥品對象描述病人對象描述界面層數(shù)據(jù)處理層數(shù)據(jù)訪問層帳單對象描述帳單管理帳單集合對象圖1：系統(tǒng)邏輯結(jié)構的縱向劃分ActiveX 登錄控件ActiveX 數(shù)

6、據(jù)訪問組件9數(shù)據(jù)訪問ADOSQL Server5醫(yī)生管理6病人管理7藥品管理8帳單管理3數(shù)據(jù)查詢4主界面2登錄驗證和安全1登錄子系統(tǒng) 圖2：系統(tǒng)橫向模塊劃分2.2 UML系統(tǒng)建模對于本系統(tǒng)，主要使用UML中的用例圖、時序圖和協(xié)作圖來進行系統(tǒng)分析，幫助開發(fā)人員了解系統(tǒng)功能與系統(tǒng)流程。2.2.1 UML用例視圖描述首先確定醫(yī)務收費系統(tǒng)中的角色。1角色（Actors）的確定在醫(yī)務收費系統(tǒng)中，可以歸納出來的主要問題是：（1）病人要看?。唬?）掛號操作員提供掛號服務； （3）醫(yī)生提供病人看病服務；（4）收費操作員提供門診病人劃價收費服務，并將信息輸入到系統(tǒng)；（5）取藥員負責取藥給病人；（6）住院登記操作

7、員提供住院登記服務，并將信息輸入到系統(tǒng)；（7）系統(tǒng)維護員提供系統(tǒng)相關的維護服務。由于醫(yī)生與病人打交道，給病人診斷病情、開藥方等服務，并沒有直接與系統(tǒng)發(fā)生交互，與系統(tǒng)的交互是通過劃價收費操作員來進行的，因此可以將醫(yī)生與劃價收費操作員這兩個對象用一個操作員的角色代替，即認為劃價收費操作員在所有病人看病的過程中直接向病人提供服務，并根據(jù)服務業(yè)務流程對系統(tǒng)進行操作。這樣不妨礙系統(tǒng)的功能實現(xiàn)。同樣，取藥操作員并沒有直接和系統(tǒng)發(fā)生交互，可以不用一個單獨的角色。從以上的分析中，可以創(chuàng)建以下角色：（1）病人；（2）掛號操作員；（3）收費操作員；（4）藥品管理員；（5）系統(tǒng)維護員。在Rational Rose的

8、Use Case View中建立角色如圖3所示。 圖3 在Use Case View中創(chuàng)建角色2創(chuàng)建用例（Use Cases)醫(yī)院信息系統(tǒng)根據(jù)業(yè)務流程可以分為以下的幾個用例：（1）病人掛號；（2）掛號服務；（3）病人看??；（4）病人交費取藥；（5）病人按處方配藥；（6）收費操作員劃價扣費配藥；（7）分發(fā)藥品；（8）維護基本信息；（9）用戶注冊；（10）登錄驗證。在Rational Rose的Use Case View中創(chuàng)建用例（Use Cases)如圖4所示。圖4 在Use Case View中創(chuàng)建用例3創(chuàng)建角色（Actor)與用例（Use Case)關系圖Actor和Use Case之間存在

9、的關聯(lián)關系通常涉及到Actor和Use Case之間的通信關聯(lián)關系。（1）病人的Use Cases關系圖如圖5所示。病人看?。╢rom User Cases）病人交費取藥（from User Cases）病人掛號（from User Cases）病人按處方配藥（from User Cases）病人（from Actors）圖5 病人的用例關系圖（2）掛號操作員的Use Cases關系圖如圖6所示。掛號服務（from User ases）掛號操作員（from Actors）圖6 掛號操作員的用例關系圖（3）收費操作員用例的Use Cases關系圖如圖7所示。收費操作員劃價扣費配藥（from Us

10、er Cases）收費操作員（from Actors）圖7 收費操作員用例關系圖（4）藥品管理員的Use Cases關系圖如圖8所示。分發(fā)藥品（from User Cases）退貨（from User Cases）進貨（from User Cases）藥品管理員（from Actors）圖8 藥品管理員的用例關系圖（5）系統(tǒng)維護員的Use Cases關系圖如圖9所示。維護基本信息（from User Cases）系統(tǒng)維護員（from Actors）用戶注冊（from User Cases）登錄驗證（from User Cases）圖9 系統(tǒng)維護員的用例關系圖系統(tǒng)采用Visual Basic 6

11、.0的標準EXE工程來進行開發(fā)，實現(xiàn)標準包括：1：主程序A、工程類型：標準EXE；B、工程名稱：醫(yī)務收費系統(tǒng).vbpC、編譯生成文件：醫(yī)務收費系統(tǒng).EXED、引用的組件：ADO 2.5E、引用的控件：RichEditBox 富文本框；CommanDialogBox 共用對話框；MSFlexGrid 網(wǎng)格；frmLogin 登錄組件；Microsoft Windows Comman Controls 6.0 SP4 Windows通用組件SP4；Microsoft Windows Comman Controls-2 6.0 SP3 Windows通用組件第二版SP3；2、登錄控件A、 工程類型：

12、ActiveX 控件；B、 工程名稱：frmLogin；C、 編譯生成文件：Login.OCX；D、 引用的組件：prjDBAccess；E、 引用的控件：3、數(shù)據(jù)訪問控件：A、 工程類型：ActiveX DLL；B、 工程名稱：prjDBAccess；C、 編譯生成文件：DBAccess.DLL；D、 引用的組件：ADO 2.5；E、 引用的控件：第三部分、登錄組件設計說明登錄組件的界面設計如圖10：圖10：登錄組件界面設計3.1程序描述A、目的和意義：該部分以組件的方式來提供，向數(shù)據(jù)庫執(zhí)行指定姓名、密碼的查詢驗證，很多系統(tǒng)都具有登錄驗證的要求，因此，該組件具有一定的可重用性。B、特點說明：

13、用戶（醫(yī)生）輸入管理員告知的姓名和密碼，啟動程序后將首先顯示登錄組件組成的登錄界面，一生輸入的姓名、密碼信息，通過上圖11的數(shù)據(jù)流程圖進行檢驗，并且在出現(xiàn)非法登錄的情況下，以對話框的形式予以信息輸出。該組件非常駐內(nèi)存，可重用，無覆蓋要求，順序處理登錄驗證，但登錄事務在數(shù)據(jù)庫端屬于并發(fā)事務，由數(shù)據(jù)庫本身進行協(xié)調(diào)。3.2功能輸入-處理-輸出采用IPO圖表示如下：輸 出1、驗證正確，進入系統(tǒng)；2、根據(jù)不同的情況，在屏幕上給出錯誤提示信息；處 理1、根據(jù)輸入信息執(zhí)行查詢2、根據(jù)查詢結(jié)果進行核對密碼和用戶名是否符合；輸 入1、用戶名稱字符信息2、密碼字符信息圖11：登錄組件：IPO3.3性能精 度：對在

14、文本框內(nèi)輸入的大小寫敏感，姓名和密碼都區(qū)分大小寫；靈 活 性：用戶輸入按回車鍵可以進行確認，按ESC鍵表示關閉當前窗口；時間特性：用戶輸入后的驗證時間在1.5秒之內(nèi)；3.4輸人項用戶輸入的姓名，密碼字符信息；這些信息由系統(tǒng)管理員管理，存儲在數(shù)據(jù)庫表中。3.5輸出項輸入情況輸出情況輸入正確的密碼和口令程序進入到系統(tǒng)的主界面系統(tǒng)沒有任何用戶程序直接退出輸入姓名正確，密碼錯誤提示信息“請輸入正確的密碼，請注意密碼的大小寫”輸入姓名錯誤，密碼正確或者錯誤提示信息，“請輸入正確的用戶名，請注意用戶名的大小寫”；提示信息為信息符號，參考的輸出結(jié)果如圖12，在屏幕上顯示一個對話框：圖12：一個顯示密碼非法的

15、對話框信息3.6算法本部分沒有采用自定義的算法。3.7流程邏輯登錄組件的邏輯流程如下：YN=0密碼不正確>0無此姓名的醫(yī)生=-1開始結(jié)束顯示登錄窗體輸入醫(yī)生姓名、登錄密碼clsLogin>3次顯示主窗口圖13：登錄組件：數(shù)據(jù)流程圖3.8接口接口設計包括組件提供給外部的接口和對數(shù)據(jù)訪問組件的調(diào)用接口，這些接口構成了該ActiveX 控件實現(xiàn)的內(nèi)容：A、 提供給外部的接口：屬性：UserName：登錄的用戶名稱，字符數(shù)據(jù)類型，可讀寫；UserPWD：登錄的用戶密碼，字符數(shù)據(jù)類型，可讀寫；方法：Login（Byval strDBName As String,byVal TableName

16、,Byval DBType AS Long） As Long功 能：提供登錄驗證；參數(shù)描述：StrDBName 數(shù)據(jù)庫的名稱或者數(shù)據(jù)庫物理文件位置；TableName 存儲用戶信息的表名稱；DBType 數(shù)據(jù)庫的類型，例如是Access數(shù)據(jù)庫還是SQL Server數(shù)據(jù)庫；返 回 值：0 錯誤的用戶名稱；1 正確的用戶名稱和錯誤的密碼；2 正確的用戶名稱和用戶密碼，登錄成功；4 用戶表中無任何記錄；事件：LogError（Byval strError String As Long）：觸發(fā)時間：登錄完成后觸發(fā)；參數(shù)描述：strError 錯誤描述信息；空表示無錯，登錄成功；說明：提供事件和Log

17、in方法的返回值，便于用戶在使用控件的時候，可以自定義錯誤信息和使用控件提供的錯誤信息。B、 數(shù)據(jù)訪問層的接口：屬性：DBNAME、TABLENAME、DBTYPE屬性的設置；方法：OPENDB、QUERY事件：ONOPENDB、ONQUERY以上的屬性、方法，全部在控件的Login事件中調(diào)用，屬性、方法和事件的參數(shù)說明，在prjDBACCESS組件設計中有詳細的描述；3.9存儲分配本程序在高級語言Visual Basic進行編碼，直接的內(nèi)存分配由VB運行時分配。本組件內(nèi)所依賴的變量、結(jié)構要求全部在組件元素內(nèi)申明。3.10注釋設計注釋設計請參考Visual Basic 可視化程序設計的附錄部分

18、。本部分代碼的實現(xiàn)，應按照該注釋規(guī)范來進行。3.11限制條件控件所依賴的的ActriveX DLL prjDBACCESS必須存在。該控件在使用的時候，必須經(jīng)過注冊，并且在運行時，客戶端程序必須安裝有VB運行時的動態(tài)連接庫。在運行時，所輸入的用戶名稱不能超過32個字母或者16個漢字；所輸入的用戶密碼也不能超過32個字母，不允許輸入漢字信息。3.12測試計劃本模塊在單元測試時候使用到的測試用例包括：ZS_MA_Login_1、ZS_MA_Login_2、ZS_MA_Login_3所規(guī)定的內(nèi)容及步驟；組合測試用例包括：ZS_MA_Login_1、ZS_MA_Login_2、ZS_MA_Login_

19、3、ZS_MA_ZH_1、ZS_ZH_Login_2、ZS_ZH_Login_3；所規(guī)定的內(nèi)容及步驟；系統(tǒng)測試用例包括：ZS_MA_Login_1、ZS_MA_Login_2、ZS_MA_Login_3、ZS_MA_INTERFACE_1、ZS_XT_Login_1、ZS_ XT _Login_2、ZS_MA_ XT _3；測試日期、測試人員安排請參考測試計劃，測試用例的具體內(nèi)容，請參考測試用例說明。3.13尚未解決的問題本組件聚集性不強，驗證的模塊可以改善為包括數(shù)據(jù)訪問的獨立代碼，而不依賴于數(shù)據(jù)訪問組件。在組件的屬性增加的時候，應提供屬性袋、屬性頁面這些設置工具。第四部分、主界面設計說明在圖

20、14中很容易看清楚整個程序的結(jié)構，用戶也可以很方便的從菜單和工具欄各小項功能模塊及工具欄很快的進入各個模塊。圖14 主界面窗體設計包括菜單欄設計、工具欄設計、狀態(tài)條設計，下面就分別進行簡單的說明。4.1程序描述主窗體的代碼不是很復雜，主要是對各個功能的導航和顯示狀態(tài)條導航信息，具體有菜單點擊處理程序、工具條快捷按鈕處理程序、狀態(tài)度顯示處理程序。程序說明：主窗體代碼；程序模塊名稱：mainform.frm；重要控件：Toolbar、狀態(tài)欄StatusBar、圖像列表Imagelist、CrystalReport控件。 （1）菜單處理代碼。由于系統(tǒng)涉及到權限問題，因此每次進行菜單處理程序前，應該對

21、該用戶的權限進行檢查，判斷該用戶是否具有該項操作的權利。4.2功能輸入-處理-輸出采用IPO圖表示如下：輸 出1、驗證權利，進入子系統(tǒng)；2、根據(jù)不同的情況，在屏幕上給出錯誤提示信息；處 理根據(jù)相應的輸入鏈接到相應的模塊輸 入1、人員管理2、收費管理.圖15：主界面組件：IPO4.3性能精 度：通過鼠標點擊或快捷鍵進入子模塊靈 活 性：用戶鼠標點擊可以進行確認，按ESC鍵表示關閉當前窗口；時間特性：用戶輸入后的驗證時間在1秒之內(nèi)；4.4輸人項通過鼠標點擊或快捷鍵，無輸入項4.5輸出項提示信息為信息符號，參考的輸出結(jié)果如圖16，在屏幕上顯示一個對話框：圖16：一個顯示限制權利的對話框信息4.6算法

22、本部分沒有采用自定義的算法。4.7流程邏輯登錄組件的邏輯流程如下：開始顯示主界面點擊相應欄無權限權限判斷=-1進入子模塊圖17：登錄組件：數(shù)據(jù)流程圖4.8接口接口設計包括組件提供給外部的接口和對數(shù)據(jù)訪問組件的調(diào)用接口，這些接口構成了該ActiveX 控件實現(xiàn)的內(nèi)容：'作為檢查操作員使用權限的函數(shù)，該函數(shù)通過截取user_load表中的ql_flag字段來判斷該操作員所具有的權限和使用范圍'ql_flag字段的設置Public Function check_qx(qx_flag As String, i As Integer) As BooleanDim temp As Inte

23、gerIf qx_flag <> "" Then temp = Mid(qx_flag, i, 1) If temp = 0 Then MsgBox "您無權限使用該功能！", vbOKOnly + vbExclamation, "注意了:)" check_qx = False Else check_qx = True End IfElse MsgBox "未經(jīng)管理員授權，您無權限使用所有功能！", vbOKOnly + vbExclamation, "注意了:)" check_qx

24、 = FalseEnd IfEnd Function檢查權限后，如果該用戶擁有該項權限的話，則進入菜單處理程序：Private Sub sjlr_Click()'調(diào)用函數(shù)判斷是否擁有權限使用各種功能t = check_qx(czry_flag, 6)If t = True Then 如果用戶擁有該權限，則進入菜單處理程序，否則出現(xiàn)警告信息。 mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 藥費輸入" frmlrsj.ShowEnd IfEnd Sub（2）工具欄處理代碼。工具欄上的快捷按鈕用來打開醫(yī)務收費系統(tǒng)軟件中某個特定的窗體。

25、通過工具欄，用戶可以方便地直接打開經(jīng)常使用的功能，工具欄的實現(xiàn)代碼示例如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key 判斷所按下的工具欄按鈕的名稱 Case "query" 如果是查詢編輯人員 t = check_qx(czry_flag, 1)檢查當前用戶是否擁有操作權限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 查詢編輯人員" frmqu

26、eryperson.Show 顯示frmqueryperson窗體 End If Case "input" 如果是數(shù)據(jù)輸入 t = check_qx(czry_flag, 6) 檢查當前用戶是否擁有操作權限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 藥費輸入" frmlrsj.Show 顯示frmlrsj窗體 End If Case "drdc" 如果是每月數(shù)據(jù)導出 t = check_qx(czry_flag, 17)檢查當前用戶是否擁有操作權限 If t

27、= True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 每月數(shù)據(jù)導出" frmimport.Show vbModal顯示frmimport窗體 End If Case "book" 如果是查詢報表 t = check_qx(czry_flag, 13) 檢查當前用戶是否擁有操作權限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 查詢報表" frmquerybook.Show 顯示frmquerybook窗體 En

28、d If Case "exit" 如果是退出 End 退出系統(tǒng)End SelectEnd Sub4.9存儲分配本程序在高級語言Visual Basic進行編碼，直接的內(nèi)存分配由VB運行時分配。本組件內(nèi)所依賴的變量、結(jié)構要求全部在組件元素內(nèi)申明。4.10注釋設計本部分代碼的實現(xiàn)，應按照該注釋規(guī)范來進行。4.11限制條件控件所依賴的的ActriveX DLL prjDBACCESS必須存在。該控件在使用的時候，必須經(jīng)過注冊，并且在運行時，客戶端程序必須安裝有VB運行時的動態(tài)連接庫。在運行時，用戶端的計算機必須有鼠標或觸摸板等點輸入設備。4.12測試計劃本模塊的輸入基本有鼠標點擊

29、來完成，不需要特殊的測試用例4.13尚未解決的問題本模塊的快捷鍵還不完善。第五部分、操作人員管理設計說明操作人員維護模塊的運行界面如圖18所示圖18 操作人員維護界面操作人員管理系統(tǒng)主要是用來管理對該軟件進行操作的工作人員，同時系統(tǒng)所提供的用戶權限設置能夠提高系統(tǒng)的安全性，并對不同性質(zhì)的人員給予不同的權限5.1程序描述主窗體的代碼不是很復雜，界面設計主要是利用了樹型控件來實現(xiàn)的程序模塊名稱：frmsq；重要控件：TreeView、圖像列表Imagelist等；相關數(shù)據(jù)庫表：user_load。該窗體主要實現(xiàn)增加用戶、刪除用戶、對用戶進行授權，主要是面向管理人員對操作人員的操作進行管理，滿足不同

30、層次的人員對系統(tǒng)不同的需求。5.2功能操作人員管理系統(tǒng)主要是用來管理對該軟件進行操作的工作人員，同時系統(tǒng)所提供的用戶權限設置能夠提高系統(tǒng)的安全性，并對不同性質(zhì)的人員給予不同的權限，為了方便集中管理數(shù)據(jù)庫表和數(shù)據(jù)源，我們把數(shù)據(jù)庫的連接放到Global.bas模塊中，應用ADO接口技術直接和SQL Server 2000數(shù)據(jù)庫服務器建立連接。5.3性能精 度：通過鼠標點擊或快捷鍵進入子模塊，對在文本框內(nèi)輸入的大小寫敏感，姓名和密碼都區(qū)分大小寫靈 活 性：用戶鼠標點擊可以進行確認，按E鍵表示關閉當前窗口；時間特性：用戶輸入后的驗證時間在1秒之內(nèi)；5.4輸人項通過鼠標點擊或快捷鍵。用戶輸入的姓名，密碼

31、字符信息；這些信息由系統(tǒng)管理員管理，存儲在數(shù)據(jù)庫表中5.5輸出項提示信息為信息符號，參考的輸出結(jié)果如圖19，在屏幕上顯示一個對話框：圖19：一個顯示刪除管理員的對話框信息5.6算法該窗體主要實現(xiàn)對用戶授權，用戶的授權是采用0，1編碼來實現(xiàn)的。如果該用戶擁有某項權限，則該權限為1；反之，則為0。5.7流程邏輯登錄組件的邏輯流程如下：開始進入新增授權刪除關閉退出圖20：操作人員維護模塊數(shù)據(jù)流程圖5.8接口接口設計包括組件提供給外部的接口和對數(shù)據(jù)訪問組件的調(diào)用接口，這些接口構成了該ActiveX 控件實現(xiàn)的內(nèi)容，該窗體主要實現(xiàn)增加用戶、刪除用戶、對用戶進行授權，主要是面向管理人員對操作人員的操作進行

32、管理，滿足不同層次的人員對系統(tǒng)不同的需求。Private SubCommand3_Click () '刪除操作人員的命令按鈕'顯示對話框，是否刪除操作人員t = MsgBox("你是否確定刪除該操作員！", vbOKCancel, "確定嗎？")If t = 1 Then '如果返回1,則進行刪除操作 '判斷是否有記錄，如果沒有記錄，則提示選擇操作人員 If rsdel.BOF = True Or rsdel.EOF = True Then t = MsgBox("請選擇操作員姓名！", vbOKOnl

33、y, "無記錄") Else '否則進行刪除，并顯示成功刪除操作人員對話框 rsdel.Delete t = MsgBox("成功刪除操作員姓名！", vbOKOnly, "成功") End If tvwdb.Nodes.Clear '清除TreeView中節(jié)點的內(nèi)容 tvwdb.Sorted = True '設置sorted屬性為真 Set mnode = tvwdb.Nodes.Add() mnode.Text = "操作員姓名"'節(jié)點顯示“操作員姓名” mnode.Image

34、= 2 '設置節(jié)點的圖表為imagelist1中的圖2 Set rspsw = New ADODB.Recordset rspsw.open"select*from user_load",cn,adOpenStatic,adLockPessimistic Do Until rspsw.EOF '用rspsw中的記錄對treeview進行加載 Set mnode = tvwdb.Nodes.Add(1, tvwChild) '添加treeview的孩子 mnode.Text = rspsw.Fields("user_name") &

35、#39;使其文本為rspsw字段中的用戶名 mnode.Image = 1 '設置節(jié)點的圖表為imagelist1中的圖1 rspsw.MoveNext '記錄往后移動一條 LoopElse Exit SubEnd If'將用戶數(shù)據(jù)庫表中的用戶名加載到treeview控件中Private SubPrivate Sub loadtreeview() tvwdb.Sorted = True '將treeview的排序設為真Set mnode = tvwdb.Nodes.Add() mnode.Text = "操作員姓名"'節(jié)點顯示“操作員

36、姓名” mnode.Image = 2 '設置節(jié)點的圖表為imagelist1中的圖2If cn.State = 1 ThenElse Call condatabase '連接數(shù)據(jù)庫End If Set rspsw = New ADODB.Recordset '打開rspsw記錄集 rspsw.open "select * from user_load", cn, adOpenStatic, adLockPessimistic Do Until rspsw.EOF '用rspsw中的記錄對treeview進行加載 Set mnode = tv

37、wdb.Nodes.Add(1, tvwChild) '添加treeview的孩子 mnode.Text = rspsw.Fields("user_name") '使其文本為rspsw字段中的用戶名 mnode.Image = 1 '設置節(jié)點的圖表為imagelist1中的圖1 rspsw.MoveNext '記錄往后移動一條 LoopEnd SubPrivate Sub Form_Load() '窗體加載過程 Call loadtreeview '調(diào)用loadtreeview過程End SubPrivate Sub tvwd

38、b_NodeClick(ByVal Node As MSComctlLib.Node) '處理nodeclick事件If Node.Index = 1 Then '如果只有一個根節(jié)點，則退出程序 Exit SubEnd IfCall check_condatabase '檢查是否連接數(shù)據(jù)庫，如果連接了則放棄，否則連接If Node.Parent.Index = 1 Then '是根節(jié)點 nodename = Node.Text '將刪除的變量賦值給nodename Set rsdel = New ADODB.Recordset '獲得該節(jié)點的用戶

39、名的所有資料 rsdel.open "select * from user_load where user_name='" & nodename & "'", cn, _ adOpenStatic, adLockPessimisticEnd IfEnd Sub5.9存儲分配本程序在高級語言Visual Basic進行編碼，直接的內(nèi)存分配由VB運行時分配。本組件內(nèi)所依賴的變量、結(jié)構要求全部在組件元素內(nèi)申明。5.10注釋設計本部分代碼的實現(xiàn)，應按照該注釋規(guī)范來進行。5.11限制條件控件所依賴的的ActriveX DLL prj

40、DBACCESS必須存在。該控件在使用的時候，必須經(jīng)過注冊，并且在運行時，客戶端程序必須安裝有VB運行時的動態(tài)連接庫。在運行時，用戶端的計算機必須有鼠標或觸摸板等點輸入設備。5.12測試計劃本模塊的輸入基本有鼠標點擊來完成，不需要特殊的測試用例，在增加管理員是具體的測試用例和登錄測試用例相同，這里不再一一例舉。5.13尚未解決的問題本模塊的沒有尚未解決的問題。第六部分、人員基本信息管理模塊設計說明人員基本信息管理模塊的運行界面如圖21所示圖21人員基本信息管理模塊界面基本人員信息管理主要實現(xiàn)了人員信息的編輯、批處理人員信息、醫(yī)生信息維護和醫(yī)療費率調(diào)整4個模塊。6.1程序描述程序說明：基本人員信

41、息管理窗體；程序模塊名稱：frmqueryperson；重要控件：DataGrid，ADODC等；相關數(shù)據(jù)庫表：rmk等。6.2功能基本人員信息管理系統(tǒng)主要是用來管理學生、醫(yī)生、教師、退休職工等人員信息?；救藛T管理編輯查詢?nèi)藛T批處理人員學生數(shù)據(jù)導入醫(yī)生信息維護醫(yī)藥費用調(diào)整 圖22基本人員信息管理系統(tǒng)功能為了方便集中管理數(shù)據(jù)庫表和數(shù)據(jù)源，我們把數(shù)據(jù)庫的連接放到Global.bas模塊中，應用ADO接口技術直接和SQL Server 2000數(shù)據(jù)庫服務器建立連接。6.3性能精 度：通過鼠標點擊或快捷鍵進入子模塊，對在文本框內(nèi)輸入的大小寫敏感，姓名和密碼都區(qū)分大小寫靈 活 性：用戶鼠標點擊可以進行

42、確認，按 退出 表示關閉當前窗口；時間特性：用戶輸入后的驗證時間在1秒之內(nèi)；6.4輸人項通過大部分鼠標點擊輸入或快捷鍵。在調(diào)整或增加人員時，用戶輸入的姓名，密碼字符信息；這些信息由系統(tǒng)管理員管理，存儲在數(shù)據(jù)庫表中6.5輸出項在查詢模塊中，“查詢”按鈕單擊事件代碼。以下為對基本人員信息進行查詢的代碼，該查詢功能可以按編號、姓名進行查詢，并實現(xiàn)模糊查詢，即用戶輸入部分字段就可以查到所需的數(shù)據(jù)。查詢相關人員時的輸出結(jié)果如圖23：圖23 一個顯示查詢相關人員信息6.6算法本部分沒有采用自定義的算法。6.7流程邏輯基本人員信息管理組件的邏輯流程如下：開始基本人員管理編輯查詢費調(diào)整信息調(diào)整批處理修改刪出除

43、批調(diào)整增加修改刪除增加刪除退出結(jié)束增加圖24：基本人員信息模塊數(shù)據(jù)流程圖6.8接口接口設計包括組件提供給外部的接口和對數(shù)據(jù)訪問組件的調(diào)用接口，這些接口構成了該ActiveX 控件實現(xiàn)的內(nèi)容，對公費醫(yī)療對象的工齡、定額、補償金等字段進行批處理，并能夠定期的刪除畢業(yè)學生的基本信息，減輕了操作人員的勞動強度，減少了因輸入過多數(shù)據(jù)而導致的錯誤。實現(xiàn)模糊查詢，即用戶輸入部分字段就可以查到所需的數(shù)據(jù)。Private Sub Command1_Click () '查詢按鈕單擊事件If Option3.Value = False Then If Option1.Value = False And Op

44、tion2.Value = False Then MsgBox "請選擇要查詢的數(shù)據(jù)性質(zhì)！", vbOKOnly + vbExclamation, "注意了：)" Exit Sub End If If Text1.Text = "" Then '如果文本框的字段為空 MsgBox "請輸入您想查詢的數(shù)據(jù)內(nèi)容！", vbOKOnly + vbExclamation, "注意了：)" Text1.SetFocus '設置text1為焦點 Exit Sub '退出子過程 End

45、 IfEnd IfDim strfind As String '定義一字符串變量，用于存放sql語句If Option1.Value = True Then '如果選中了按“號碼”條件查詢 Select Case Combo1.Text '獲得按什么方式查詢 Case "字段任何部分" '如果選擇的是按字段任何部分查詢 strfind = "select * from rmk where 號碼 like '" & "%" & Text1. Text & "%&q

46、uot; & "'" 按字段任何部分查找號碼為Text1.text的sql語句 Case "整個字段" '如果選擇的是按整個字段查詢 strfind = "select * from rmk where 號碼='" & Text1.Text & "'" '按整個字段查找號碼=Text1.text的sql語句 Case "字段開頭部分" '如果選擇的是按字段開頭部分查詢 strfind = "select * fro

47、m rmk where 號碼 like '" & Text1.Text & "%" & "'" '按字段開頭部分查找號碼為Text1.text開頭的sql語句 End Select '結(jié)束查找ElseIf Option2.Value = True Then '如果選中了按“姓名”條件查詢 Select Case Combo1.Text Case "字段任何部分" strfind = "select * from rmk where 姓名 like '" & "%" & Text1.Text & "%" & "'" '按字段任何部分查找姓名為Text1.text的sql語句 Cas