【正文】 Data Source=LOCALHOST 39。 該窗體主要用于每日醫(yī)藥費數(shù)據(jù)的 輸 入，同時進行日報表的打印等功能。 圖 A35 選擇 登陸 服務(wù)器的類型 ? 640 ? 配置完服務(wù)器后可以進行數(shù)據(jù) 庫 表的選擇， 并 根據(jù)需要合理的選取表、表中的字段、排序、總和等功能后，自動生成報表，讀者只需稍加修改就能使用。收費管理系統(tǒng)主要為系統(tǒng)輸 入數(shù)據(jù)，并根據(jù)所 輸 入的數(shù)據(jù)進行匯總，統(tǒng)計打印各種報表 。對記錄集進行刪除 39。顯示對話 框 If t = 1 Then v如果確定刪除該選中的學(xué)生 select * from rmk where 號碼 like 39。 39。 amp。 amp。對教工人員進行操作 update rmk set 定額 =39。, , _ adOpenStatic, adLockPessimistic End If 39。TC%39。 where 號碼 like 39。 amp。如果是 “增加補償金 ” = True ?使 Text1能用 If = True Then 39。定義 rsrmkpcl為進行批處理的記錄集 If = 0 Then 39。選擇數(shù)據(jù)庫中的某個表 .RecordSource = SqlStr 39。對 Str進行賦值操作 Str= Provider=。查詢整個表 End If If 0 Then 39。按整個字段查找姓名 = sql語句 Case 字段開頭部分 strfind = select * from rmk where 姓名 like 39。 % amp。 39。 amp。 amp。查詢按鈕單擊事件 If = False Then If = False And = False Then 附錄 B 醫(yī)務(wù)收費系統(tǒng) ? 635 ? MsgBox 請選擇要查詢的數(shù)據(jù)性質(zhì)！ , vbOKOnly + vbExclamation, 注意了： ) Exit Sub End If If = Then 39。設(shè)置 ADODC的 CommandTye屬性為命令字 SqlStr = select * from rmk 39。對 ADODC控件進行初始化操作 Dim Str As String ?定義一字符串變量，用于存放 ADODC鏈接的字段 39。設(shè)置 DataGrid1的數(shù)據(jù)源來自 adodc .Refresh End With 2． ADODC 控件的設(shè)計 ActiveX Data Objects (ADO) 是微軟最新的數(shù)據(jù)訪問技術(shù)。Persist Security Info=False。 在 VB 的菜單【工程】 |【對象】對話框中，選擇 “ Microsoft DataGrid Control (OLEDB)” ，這樣就把 DataGrid 控件添加到了工具箱中，選擇該控件添加到窗體上。如果截取的字符非空 Check3(k).Value = 1 39。否則不賦值 End If Next i For j = 0 To 7 39。獲得用 戶的權(quán)限值字段 Call load_check 39。加載窗體 Call condatabase 39。 flag Next j For k = 0 To 3 If Check3(k).Value = 1 Then 39。判斷 =0時的符號 flag = 1 39。 界面主要是 SSTab 的設(shè)計，讀者可以參考前面章節(jié)的設(shè)計。將刪除的變量賦值給 nodename Set rsdel = New 39。設(shè)置節(jié)點的圖表為 imagelist1中的圖 1 39。將 treeview的排序設(shè)為真 Set mnode = () = 操作員姓名 39。節(jié)點顯示 “操作員姓名 ” = 2 39。 Private SubCommand3_Click () 39。 為了方便集中管理數(shù)據(jù) 庫 表和數(shù)據(jù)源，我們把數(shù)據(jù)庫的連接放到 模塊中，應(yīng)用 ADO 接口技術(shù)直接和 SQL Server 2021 數(shù)據(jù)庫服務(wù)器建立連接。作為檢查操作員使用權(quán)限的函數(shù)，該函數(shù)通過截取 user_load表中的 ql_flag字段來 判斷該操作員所具有的權(quán)限和使用范圍 39。它既可以節(jié)省界面空間又可包含豐富的信息。 為了讓用戶迅速地在菜單中找到要執(zhí)行的命令項，有必要對菜單中相關(guān)的命令用分隔條（ Separate Bar）進行分組 例 如文件菜單中，把有關(guān)打印輸出的一組命令： “ 頁面設(shè)置 ” 、“ 打印預(yù)覽 ” 、 “ 打印 ” 等用分隔條醒目地進行分隔。 系統(tǒng)主界面實現(xiàn) 本程序采用流行的界面設(shè)計技術(shù)，符合商業(yè)化軟件 設(shè)計的要求。 如果遇到系統(tǒng)數(shù)據(jù)損壞的情況，利用該窗體對備份的數(shù)據(jù)進行還原操作，使系統(tǒng)能夠正常運行。 記錄號 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)前，需要進行身份驗證，用戶通過此窗口輸入個人信息用以驗證身份，并從用戶表中獲得用戶的操作權(quán)限，為權(quán)限管理 提供 服務(wù) 。 在 SQL Server 2021 的企業(yè)管理器中新建一個數(shù)據(jù)庫，命名為 YAOFEI，然后打開 SQL Server 2021 的 查詢分析器，輸入數(shù)據(jù) 庫 表、視圖和存儲過程的全部 SQL 語句后執(zhí)行，有關(guān)數(shù)據(jù)庫的后臺工作 就 已經(jīng)建立。 圖 B21 病人看病 過程 協(xié)作圖 數(shù)據(jù)庫 設(shè)計 本系統(tǒng)采用 SQL Server 2021 作為后臺數(shù)據(jù)庫 ，由于數(shù)據(jù)庫表比較多，以下只列出了幾個比較重要的數(shù)據(jù)表，詳細的數(shù)據(jù)庫建模請參看所附光盤的 “ ” 文件。 （ 1） 病人的 Use Cases 關(guān)系圖如圖 B15 所示 。 由于醫(yī)生與病人打交道，給病人診斷病情、開藥方等服務(wù)，并沒有直接與系統(tǒng)發(fā) 生交互，與系統(tǒng)的交互是通過劃價收費操作員 來 進行 的 ，因此可以將醫(yī)生與劃價收費操作員這兩個對象用一個操作員的角色代替， 即 認為劃價收費操作員在所有病人看病的過程中直接向病人提供服務(wù)， 并 根據(jù)服務(wù)業(yè)務(wù)流程對系統(tǒng)進行操作。 該功能將數(shù)據(jù)庫數(shù)據(jù)表備份成數(shù)據(jù)庫文件，再進行 二 次備份 將其備份 到 U盤或其他計算機上，便于 在 一些無法避免數(shù)據(jù)破壞的情況下通過數(shù)據(jù)恢復(fù)功能恢復(fù)數(shù)據(jù)， 以 減小損失。 圖 B9 報表打印 管理的 功能需求框圖 報表打印功能模塊也是收費管理系統(tǒng)中的核心，該模塊主要實現(xiàn)了日報表、日明細表、月報表、月明細表和年明細表 的 打印功能。該功能的變化會對數(shù)據(jù)的錄入產(chǎn)生影響，因此該功能是數(shù)據(jù) 輸 入的基礎(chǔ)。如 99222024， 第 1 位表示學(xué)生，其余表示學(xué)生學(xué)號，具體形式如表 A1。 不定期的對系統(tǒng)密碼進行修改，能夠減少密碼的泄露，提高系統(tǒng)的安全性。在進入系統(tǒng)的時候，系統(tǒng)根據(jù)操作人員的權(quán)限自動判斷操作人員是否 可以 對該項功能 進行 操作等。 （ 4） 系統(tǒng)維護 。操作人員管理系統(tǒng)主要是用來管理對該軟件進行操作的工作人員，同時系統(tǒng)所提供的用戶權(quán)限設(shè)置能夠提高系統(tǒng)的安全性，并對不同性質(zhì)的人員 賦予 不同的權(quán)限，滿足了不同人員對該軟件的需求。高校醫(yī)務(wù)收費系統(tǒng)的主要目標是支持醫(yī)務(wù)室的日常收入 賬 務(wù)處理業(yè)務(wù)，減輕事務(wù)處理人員的勞動強度，合理地記錄和管理這些 賬 務(wù)信息，從而提高整個醫(yī)務(wù)室的工作效率和工作質(zhì)量。 可能有些醫(yī)院在某些管理方面有其特殊的需求，讀者在實際開發(fā)過程中，可以在本系統(tǒng)需求分析中繼續(xù)完善。 這個管理系統(tǒng)包括藥費數(shù)據(jù)輸入、打印日報表、打印日明細表、打印月報表、打印月明細報表、打印年報表、報表查詢、帳單查詢 8個功能模塊。 操作人員管理系統(tǒng)包括權(quán)限管理、更換用戶、修改密碼和修改用戶等功能。這樣可以方便多 用戶對系統(tǒng)進行操作。采用代碼，可以使數(shù)據(jù)表達式標準化，簡化程序，加快輸入，減少出錯，提高處理速度。 4． 醫(yī)生信息維護 對某高校校醫(yī)院的醫(yī)生數(shù)據(jù)進行增加、刪除、修改等，以適應(yīng)校醫(yī)院醫(yī)生數(shù)據(jù)的改變。數(shù)據(jù)輸入人員只需進行人員編號、醫(yī)藥費用的輸入即可，其他的都由系統(tǒng)提供數(shù)據(jù)供操作人員進行選擇。 圖 A11 報表查詢功能 該功能完成對日報表和月報表的任意查詢， 并 得到類似于日報表和月報表格式的結(jié)果，能夠讓用戶 系統(tǒng)維護 系統(tǒng)維護 包括的具體功能模塊 需求框圖如 圖 A12 所示。 I：用戶 選擇輸入 日期或月份 F：根據(jù) 用戶選擇 進行查詢 O：顯示用戶查詢的數(shù)據(jù) 系統(tǒng)維護 數(shù)據(jù)備份 數(shù)據(jù)還原 系統(tǒng)計算器 導(dǎo)出每月數(shù)據(jù) 附錄 B 醫(yī)務(wù)收費系統(tǒng) ? 617 ? UML系統(tǒng)建模 對于本例，主要使用 UML 中的用例圖、時序圖和協(xié)作圖來進行系統(tǒng)分析 ， 幫助開發(fā)人員了解系統(tǒng) 功能與系統(tǒng)流程。 圖 A13 在 Use Case View 中創(chuàng)建角色 ? 618 ? 2． 創(chuàng)建用例（ Use Cases) 醫(yī)院信息系統(tǒng)根據(jù)業(yè)務(wù)流程可以分為以下的幾個用例： （ 1） 病人掛號； （ 2） 掛號服務(wù)； （ 3） 病人看病； （ 4） 病人交費取藥； （ 5） 病人按處方配藥； （ 6） 收費操作員劃價扣費配藥； （ 7） 分發(fā)藥品； （ 8） 維護基本信息； （ 9） 用戶注冊； （ 10） 登錄驗證 。 圖 A19 系統(tǒng)維護員的用例關(guān)系圖 掛號操作員 （ from Actors） 掛號服務(wù) （ from User Cases） 收費操作員 （ from Actors） 收費操作員劃價扣費配藥 （ from User Cases） 藥品管理員 （ from Actors） 進貨 （ from User Cases） 退貨 （ from User Cases） 分發(fā)藥品 （ from User Cases） 登錄驗證 （ from User Cases） 用戶注冊 （ from User Cases） 系統(tǒng)維護員 （ from Actors） 維護基本信息 （ from User Cases） ? 620 ? UML 時序與協(xié)作視圖描述 下面介紹收費系統(tǒng)中的時序圖及協(xié)作圖。 其他 數(shù)據(jù)庫 表包括：軟件用戶信息表 User_load、編號計數(shù)表 Count 等，這里就不一一列 舉 了。 為了能夠讓讀者了解本程序，首先列舉出本程序包含的所有窗體和模塊。 同時 用戶 也 可以方便的進行報表數(shù)據(jù)的查詢。 讀者在閱讀下面的具體程序以前，最好弄清楚每個窗體的 大概 功能，這對了解整個程序的開發(fā)實施是非常有益的，要弄清楚一個比較完整的商業(yè)系統(tǒng)是需要花一定時間的。 圖 A24 菜單編輯器 某些菜單命令的右邊 標 有組合鍵，稱為該命令的快捷鍵，可 以不打開菜單而直接按快捷鍵來執(zhí)行此命令。 圖 A25 工具欄的 設(shè)計界面 在工具條位置 單 擊 鼠標 右鍵，在彈出 的 窗體中選擇 “ 按鈕 ” 來添加按鈕，在樣式中，選擇 “ 3tbrSeparator” 添加分隔條。 （ 1） 菜單處理代碼 。 通過工具欄，用 ? 626 ? 戶可以方便 地 直接打開經(jīng)常使用的功能，工具欄的實現(xiàn)代碼示例如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case ?判斷所按下的工具欄按鈕的名稱 C