【正文】 一些簡單的計費操作，方便用戶進行計費操作。 UML 用例視圖描述 首先確定醫(yī)務收費系統(tǒng)中的角色 。 由于醫(yī)生與病人打交道，給病人診斷病情、開藥方等服務，并沒有直接與系統(tǒng)發(fā) 生交互，與系統(tǒng)的交互是通過劃價收費操作員 來 進行 的 ，因此可以將醫(yī)生與劃價收費操作員這兩個對象用一個操作員的角色代替， 即 認為劃價收費操作員在所有病人看病的過程中直接向病人提供服務， 并 根據(jù)服務業(yè)務流程對系統(tǒng)進行操作。同樣，取藥操作員并沒有直接和系統(tǒng)發(fā)生交互，可 以 不用一個單獨的角色。 在 Rational Rose 的 Use Case View 中建立 角色 如圖 A13 所示 。 在 Rational Rose 的 Use Case View 中 創(chuàng) 建用例（ Use Cases)如圖 A14 所示 。 （ 1） 病人的 Use Cases 關系圖如圖 B15 所示 。 病人掛號 （ from User Cases） 病人按處方配藥 （ from User Cases） 病人交費取藥 （ from User Cases） 病人看病 （ from User Cases） 病人 （ from Actors） 附錄 B 醫(yī)務收費系統(tǒng) ? 619 ? 圖 A16 掛號操作員的用例關系圖 （ 3） 收費操作員用例的 Use Cases 關系圖如圖 A17 所示 。 圖 A18 藥品管理員的用例關系圖 （ 5） 系統(tǒng)維護員的 Use Cases 關系圖如圖 A19 所示 。 （ 1） 病人看病過程時序圖如圖 B20 所示 。 圖 B21 病人看病 過程 協(xié)作圖 數(shù)據(jù)庫 設計 本系統(tǒng)采用 SQL Server 2021 作為后臺數(shù)據(jù)庫 ，由于數(shù)據(jù)庫表比較多，以下只列出了幾個比較重要的數(shù)據(jù)表，詳細的數(shù)據(jù)庫建模請參看所附光盤的 “ ” 文件。 描述門診收費單信息的表格一共分為 5 個 ，即 收費表（ feiyong）、收費日報表病人 掛號操作人員 掛號模塊 醫(yī)生診斷 劃價收費 取藥模塊 收費操作員 掛號 瀠？ 返回給病人 病人看病 會診后醫(yī)生開處方給病人 交醫(yī)藥費用 收費發(fā)票和藥品 輸入藥費信息 1：掛號 2：輸入信息 3：掛號號碼 掛號 模塊 4：看病 5：處方 9：藥品 病人 5：處方交費 掛號操作人員 7：輸入藥費 8：收費發(fā)票 收費操作員 劃價收費 取藥模塊 醫(yī)生 會診 附錄 B 醫(yī)務收費系統(tǒng) ? 621 ? （ feiyong_rpt）、醫(yī)生表（ doctor）、人員信息表（ rmk）和類別表（ leibie）。 圖 A22 描述收費單 信息的表 （ 2） 其他數(shù)據(jù)庫表 。 本例使用的后端數(shù)據(jù)庫是客戶 /服務器型數(shù)據(jù)庫 SQL Server 2021。 在 SQL Server 2021 的企業(yè)管理器中新建一個數(shù)據(jù)庫，命名為 YAOFEI，然后打開 SQL Server 2021 的 查詢分析器，輸入數(shù)據(jù) 庫 表、視圖和存儲過程的全部 SQL 語句后執(zhí)行，有關數(shù)據(jù)庫的后臺工作 就 已經(jīng)建立。 在本系統(tǒng)中由于報表是由功能強大的水晶報表所制作，所以需對 ODBC 數(shù)據(jù)源進行設置，具體操作在第 1 章有詳細 的 說明。 系統(tǒng)實現(xiàn) 系統(tǒng)設計概況 本程序是一個較完整的應用程序，能夠?qū)崿F(xiàn)醫(yī)務收費管理的相關功能 。具體程序窗體信息如下 。 記錄號 smallint 編號 nvarchar[8] 姓名 nvarchar[10] 醫(yī)藥費 money 類別 nvarchar[2] 醫(yī)生 nvarchar[2] 自負金 money 日期 smalldatetim feiyong_rpt feiyong 記錄號 smallint 編號 nvarchar[8] 姓名 nvarchar[10] 醫(yī)藥費 money 類別 nvarchar[2] 醫(yī)生 nvarchar[2] 自負金 money 日期 smalldatetim doctor ID nvarchar[ DOCTOR NAME nvarchar[ RMK 號碼 nvarchar[8] 姓名 nvarchar[8] 性別 nvarchar[2] 工齡 float[15] 補償金 float[15] 定額 float[15] leibie ID smallir 人員名稱 nvarch A real B real C real D real ? 622 ? frmlogin（用戶登錄窗體）：為了提高軟件操作安全性，用戶進入系統(tǒng)前，需要進行身份驗證，用戶通過此窗口輸入個人信息用以驗證身份，并從用戶表中獲得用戶的操作權限，為權限管理 提供 服務 。 frmqueryperson（人員基本信息的查詢、修改窗體）：該窗體主要實現(xiàn)對公費醫(yī)療對象的基本信息進行操作，包括增加、刪除、修改等。 frmquerybook（查詢報表窗體）：該功能 是 為了更好地查詢?nèi)請蟊砗驮聢蟊恚?并 方便管理層對實時數(shù)據(jù)的掌握。 frmquerycheck（查詢帳單窗體）： 該窗體 為了查詢具體數(shù)據(jù)，統(tǒng)計某位醫(yī)生某個月的會診數(shù)據(jù)或是某位病員某個月的就診情況，是對查 詢報表窗體的補充。 如果遇到系統(tǒng)數(shù)據(jù)損壞的情況，利用該窗體對備份的數(shù)據(jù)進行還原操作，使系統(tǒng)能夠正常運行。還有一個重要部分即模塊文件， 如下。 數(shù)據(jù)備份（ ）：為 frmdataback的實現(xiàn)提供服務， 它 提供了基本的 API 函數(shù)的聲明和調(diào)用 、 變量的定義等。 接下來就是針對重要模塊和代碼進行的分析。 系統(tǒng)主界面實現(xiàn) 本程序采用流行的界面設計技術，符合商業(yè)化軟件 設計的要求。 在圖 B23 中很容易看清楚整個程序的結(jié)構(gòu)，用戶 也 可以很方便的從菜單和工具欄各小項功能模塊及工具欄很快的進入各個模塊。 1． 菜單 欄 設計 進入菜單編輯器，設計界面如圖 A24 所示 。為命令選項增加快捷鍵（ Shortcut Key），可在菜單編輯器中的 “ 快捷鍵（ S） ” 列表框中為該命令項分配一個 。 為了讓用戶迅速地在菜單中找到要執(zhí)行的命令項，有必要對菜單中相關的命令用分隔條（ Separate Bar）進行分組 例 如文件菜單中，把有關打印輸出的一組命令： “ 頁面設置 ” 、“ 打印預覽 ” 、 “ 打印 ” 等用分隔條醒目地進行分隔。 ? 624 ? 2． 工具欄設計 組合工具欄設計需要兩個控件配合使用，一個是工具欄控件（ Toolbar1） ，另 一個是圖像列表控件（ ImageList1）。 工具欄設計 界面如圖A25 所示 。在本例中創(chuàng)建 5 個按鈕和 4 個分隔條。它既可以節(jié)省界面空間又可包含豐富的信息。 其 設計界面如圖 A26所示 。 程序說明：主窗體代碼 ； 程序模塊名稱： ； 重要控件： Toolbar、狀態(tài)欄 StatusBar、圖像列表 Imagelist、 CrystalReport 控件 。 由于系統(tǒng)涉及到權限問題，因此每次進行菜單處理程序前，應該對該用戶的權限進行檢查，判斷該用戶是否具有該項操作的權利。作為檢查操作員使用權限的函數(shù)，該函數(shù)通過截取 user_load表中的 ql_flag字段來 判斷該操作員所具有的權限和使用范圍 39。調(diào)用函數(shù)判斷是否擁有權限 使用各種功能 t = check_qx(czry_flag, 6) If t = True Then ?如果用戶擁有該權限，則進入菜單處理程序，否則出現(xiàn)警告信息。 工具欄上 的 快捷按鈕用來打開醫(yī)務收費系統(tǒng)軟件中某個特定的窗體 。 狀態(tài)欄主要是為了提示用戶所做的操作， 其 代碼分散在各個菜單項和工具欄按鈕的程序處理事件中，示例如下： Private Sub sysjsq_Click() ?單擊系統(tǒng)計算器菜單項 (1).Text=狀態(tài)：系統(tǒng)計算器 ?顯示狀態(tài)：系統(tǒng)計算器 Shell , vbNormalFocus ?顯示操作系統(tǒng)所帶的計數(shù)器 End sub 以上介紹了主窗體的主要代碼，在該窗體中，主要是 對 界面及程序?qū)Ш?進行 設計，沒附錄 B 醫(yī)務收費系統(tǒng) ? 627 ? 有涉及到具體的數(shù)據(jù)庫設計，在后面的窗體分析中主要 是 數(shù)據(jù)庫的設計 ， 以及其他數(shù)據(jù)庫的設計。 為了方便集中管理數(shù)據(jù) 庫 表和數(shù)據(jù)源，我們把數(shù)據(jù)庫的連接放到 模塊中，應用 ADO 接口技術直接和 SQL Server 2021 數(shù)據(jù)庫服務器建立連接。建立與 SQLServer的連接 (Initial Catalog).Value = DataBaseName 39。 圖 A27 操作人員維護模塊的運行界面 界面設計主要是利用了樹型控件來實現(xiàn)的，讀者可以參考前面章節(jié) 。 下面學習窗體的核心代碼。 Private SubCommand3_Click () 39。顯示對話框，是否刪除操作人員 t = MsgBox(你是否確定刪除該操作員！ , vbOKCancel, 確定嗎？ ) If t = 1 Then 39。判斷是否有記錄，如果沒有 記 錄，則提示選擇操作人員 If = True Or = True Then t = MsgBox(請選擇操作員姓名！ , vbOKOnly, 無記錄 ) Else 39。清除 TreeView中節(jié)點的內(nèi)容 = True 39。節(jié)點顯示 “操作員姓名 ” = 2 39。用 rspsw中的記錄對 treeview進行加載 Set mnode = (1, tvwChild) 39。使其文本為 rspsw字段中的用戶名 = 1 39。記錄往后移動一條 Loop Else Exit Sub End If 39。將 treeview的排序設為真 Set mnode = () = 操作員姓名 39。設置節(jié)點的圖表為 imagelist1中的圖 2 If = 1 Then Else Call condatabase 39。打開 rspsw記錄集 附錄 B 醫(yī)務收費系統(tǒng) ? 629 ? select * from user_load, , adOpenStatic, adLockPessimistic Do Until 39。添加 treeview的孩子 = (user_name) 39。設置節(jié)點的圖表為 imagelist1中的圖 1 39。窗體加載過程 Call loadtreeview 39。處理 nodeclick事件 If = 1 Then 39。檢查是否連接數(shù)據(jù)庫，如果連接了則放棄，否則連接 If = 1 Then 39。將刪除的變量賦值給 nodename Set rsdel = New 39。 amp。 39。 圖 B28 操作員授權窗體 ? 630 ? 該窗體主要實現(xiàn)對用戶授權，用戶的授權是采用 0， 1 編碼 來 實現(xiàn)的。 界面主要是 SSTab 的設計，讀者可以參考前面章節(jié)的設計。 下面學習窗體中的核心代碼。 Private SubCommand3_Click () 39。定義變量 ql_flag存放用戶權限字段 Dim flag As String 39。判斷 =0時的符號 flag = 1 39。否則為 0 End If ql_flag = ql_flag amp。將連續(xù)變量連接起來 Next i For j = 0 To 7 If Check2(j).Value = 1 Then 39。如果有選擇復選框的值，則 flag為 1 Else flag = 0 39。 flag Next j For k = 0 To 3 If Check3(k).Value = 1 Then 39。如果有選擇復選框的值，則 flag為 1 Else flag = 0 39。 flag Next k (ql_flag)=ql_flag39。對該記錄進行更新操作 MsgBox 成功對該操作員 進行授權 !, vbOKOnly + vbExclamation, 完成 ?顯示成功操作對話框 End Sub 附錄 B 醫(yī)務收費系統(tǒng) ? 631 ? （ 2） 窗體加載時 Load 事件代碼 。加載窗體 Call condatabase 39。顯示用戶的姓名 Set rsnodename = New ?定義 rsnodename為 記錄集 39。 amp。 39。獲得用 戶的權限值字段 Call load_c