【正文】 Else flag = 0 39。定義變量 ql_flag存放用戶權(quán)限字段 Dim flag As String 39。 圖 B28 操作員授權(quán)窗體 ? 630 ? 該窗體主要實(shí)現(xiàn)對用戶授權(quán)，用戶的授權(quán)是采用 0， 1 編碼 來 實(shí)現(xiàn)的。檢查是否連接數(shù)據(jù)庫，如果連接了則放棄，否則連接 If = 1 Then 39。添加 treeview的孩子 = (user_name) 39。記錄往后移動(dòng)一條 Loop Else Exit Sub End If 39。清除 TreeView中節(jié)點(diǎn)的內(nèi)容 = True 39。 下面學(xué)習(xí)窗體的核心代碼。 狀態(tài)欄主要是為了提示用戶所做的操作， 其 代碼分散在各個(gè)菜單項(xiàng)和工具欄按鈕的程序處理事件中，示例如下： Private Sub sysjsq_Click() ?單擊系統(tǒng)計(jì)算器菜單項(xiàng) (1).Text=狀態(tài)：系統(tǒng)計(jì)算器 ?顯示狀態(tài)：系統(tǒng)計(jì)算器 Shell , vbNormalFocus ?顯示操作系統(tǒng)所帶的計(jì)數(shù)器 End sub 以上介紹了主窗體的主要代碼，在該窗體中，主要是 對 界面及程序?qū)Ш?進(jìn)行 設(shè)計(jì)，沒附錄 B 醫(yī)務(wù)收費(fèi)系統(tǒng) ? 627 ? 有涉及到具體的數(shù)據(jù)庫設(shè)計(jì)，在后面的窗體分析中主要 是 數(shù)據(jù)庫的設(shè)計(jì) ， 以及其他數(shù)據(jù)庫的設(shè)計(jì)。 由于系統(tǒng)涉及到權(quán)限問題，因此每次進(jìn)行菜單處理程序前，應(yīng)該對該用戶的權(quán)限進(jìn)行檢查，判斷該用戶是否具有該項(xiàng)操作的權(quán)利。在本例中創(chuàng)建 5 個(gè)按鈕和 4 個(gè)分隔條。為命令選項(xiàng)增加快捷鍵（ Shortcut Key），可在菜單編輯器中的 “ 快捷鍵（ S） ” 列表框中為該命令項(xiàng)分配一個(gè) 。 接下來就是針對重要模塊和代碼進(jìn)行的分析。 frmquerycheck（查詢帳單窗體）： 該窗體 為了查詢具體數(shù)據(jù)，統(tǒng)計(jì)某位醫(yī)生某個(gè)月的會(huì)診數(shù)據(jù)或是某位病員某個(gè)月的就診情況，是對查 詢報(bào)表窗體的補(bǔ)充。具體程序窗體信息如下 。 本例使用的后端數(shù)據(jù)庫是客戶 /服務(wù)器型數(shù)據(jù)庫 SQL Server 2021。 （ 1） 病人看病過程時(shí)序圖如圖 B20 所示 。 在 Rational Rose 的 Use Case View 中 創(chuàng) 建用例（ Use Cases)如圖 A14 所示 。 UML 用例視圖描述 首先確定醫(yī)務(wù)收費(fèi)系統(tǒng)中的角色 。 圖 A12 系統(tǒng)維護(hù)包括的功能模塊需求框圖 系統(tǒng)維護(hù)包括數(shù)據(jù)備份、數(shù)據(jù)還原、系統(tǒng)計(jì)算器和導(dǎo)出每月數(shù)據(jù)等功能模塊 ， 基本滿足 了 系統(tǒng) 運(yùn)行時(shí)所需的功能。 這樣不但 提高了工作效率， 而且 減少了輸入過程中因人為導(dǎo)致 的 錯(cuò)誤 的 發(fā)生。同時(shí)醫(yī)生信息的改變也會(huì)影響收費(fèi)系統(tǒng)中數(shù)據(jù)的改變。在本系統(tǒng)中，由于人員類型繁多，人數(shù)多的特點(diǎn)。 （ 4） 修改密碼用戶 名，如圖 A6 所示。 1． 權(quán)限管理 權(quán)限管理功能圖如圖 A3 所示。收費(fèi)管理系統(tǒng)主要為系統(tǒng) 輸入數(shù)據(jù)，并根據(jù)所 輸 入的數(shù)據(jù)進(jìn)行匯總，統(tǒng)計(jì)打印各種報(bào)表 。 系統(tǒng)總體功能需求 在經(jīng)過對學(xué)校醫(yī)院正常運(yùn)行的流程進(jìn)行詳細(xì)了解與分析后，一個(gè)功能完 善 的醫(yī)務(wù)收費(fèi)系統(tǒng)必 須包括以下幾個(gè)子系統(tǒng)： （ 1） 操作人員管理系統(tǒng) 。 醫(yī)務(wù)收費(fèi)系統(tǒng) 隨著我國醫(yī)療衛(wèi)生體制改革的深化，計(jì)算機(jī)技術(shù)與應(yīng)用的發(fā)展，計(jì)算機(jī)信息化管理已成為各醫(yī)院提高生存力，加強(qiáng)管理，增 加 效益的重要保障，作為一般高校的后勤醫(yī)務(wù)室亦不例外。 這個(gè)管理系統(tǒng)包括用戶的注冊、用戶密碼的修改、用戶權(quán)限的設(shè)置、更換操作人員 4個(gè)功能模塊組成。 同時(shí)該子系統(tǒng)還提供報(bào)表和賬 單的查詢，用戶可以很方便的 對 各項(xiàng)數(shù)據(jù)和報(bào)表 進(jìn)行 查詢。 圖 A2 操作人員管理系統(tǒng)包括的功能模塊需求框圖 圖 A3 權(quán)限管理的功能框圖 此功能 主要是面向管理人員對操作人員的操作進(jìn)行管理， 滿足 不同 層次的人員對系統(tǒng)不同的需求，使得系統(tǒng)的敏感數(shù)據(jù)不公開，同時(shí)實(shí)現(xiàn)了系統(tǒng)的安全性。 圖 A6 修改密碼功能 這 兩項(xiàng)功能可以集成到權(quán)限管理中，滿足用戶對用戶名和密碼的修改 。 人員代碼采用 8 位代碼表示。 5． 醫(yī)藥費(fèi)率調(diào)整 根據(jù)國家的政策，適當(dāng)?shù)膶υ摴M(fèi)醫(yī)療的費(fèi)率進(jìn)行修改和調(diào)整。 2． 報(bào)表打印管理 報(bào)表打印管理的功能需求框圖如圖 A9 所示。 （ 1） 數(shù)據(jù)恢復(fù)功能需求 。 1． 角色 （ Actors） 的確定 在醫(yī)務(wù)收費(fèi)系統(tǒng)中，可以歸納出來的主要問題是： （ 1） 病人要看?。? （ 2） 掛號(hào)操作員提供掛號(hào)服務(wù)； （ 3） 醫(yī)生提供病人看病服務(wù)； （ 4） 收費(fèi)操作員提供門診病人劃價(jià)收費(fèi)服務(wù)，并將信息輸入到系統(tǒng)； （ 5） 取藥員負(fù)責(zé)取藥給病人； （ 6） 住院登記操作員提供住院登記服務(wù)，并將信息輸入到系統(tǒng)； （ 7） 系統(tǒng)維護(hù)員提供系統(tǒng)相關(guān) 的 維護(hù)服務(wù) 。 圖 A14 在 Use Case View 中創(chuàng)建用例 3． 創(chuàng)建角色（ Actor)與用例（ Use Case)關(guān)系圖 Actor 和 Use Case之間存在 的 關(guān)聯(lián)關(guān)系通常涉及到 Actor 和 Use Case之間的通信關(guān)聯(lián)關(guān)系。 圖 A20 病人看病 過程時(shí)序 圖 （ 2） 病人看病過程協(xié)作圖如圖 A21 所示 。單機(jī)版文件共享型數(shù)據(jù)庫 ACCESS 可以跳過此配置。 mainform（程序的主窗體）：程序的主窗體，方便用戶進(jìn)行各種功能操作 。 frmdataback（數(shù)據(jù)備份、還原窗體）：為了提高系統(tǒng)數(shù)據(jù)的安全性， 可 將數(shù)據(jù)備份到 U盤或其他主機(jī)的硬盤上 。 在后面的具體程序?qū)崿F(xiàn)中，由于篇幅的限制，并不一定對所有的代碼都進(jìn)行詳細(xì)的分析，而是針對關(guān)鍵的模塊和技術(shù)進(jìn)行說 名 ，其他代碼都在本書的附贈(zèng)光盤中。 列表中一個(gè)快捷鍵只能被分配一次，否則系統(tǒng)會(huì)拒絕接受。 3． 狀態(tài)條控件設(shè)計(jì) StatusBar 控件由若干個(gè)面板構(gòu)成，主要用來顯示應(yīng)用程序的運(yùn)行狀態(tài)。其具體實(shí)現(xiàn)如下所示： 39。 操作人員管理 操作人員管理系統(tǒng)主要是用來管理對該軟件進(jìn)行操作的工作人員，同時(shí)系統(tǒng)所提供的用戶權(quán)限設(shè)置能夠提高系統(tǒng)的安全性，并對不同性質(zhì)的人員 給予 不同的權(quán)限，滿足了不同人員對 該軟件的需求。 ? 628 ? 該窗體主要實(shí)現(xiàn)增加用戶、刪除用戶、對用戶進(jìn)行授權(quán)，主要是面向管理人員對操作人員的操作進(jìn)行管理， 滿足 不同層次的人員對系統(tǒng)不同的需求。設(shè)置 sorted屬性為真 Set mnode = () = 操作員姓名 39。將用戶數(shù)據(jù) 庫 表中的用戶名加載到 treeview控件中 Private SubPrivate Sub loadtreeview() = True 39。使其文本為 rspsw字段中的用戶名 = 1 39。是根節(jié)點(diǎn) nodename = 39。如果該用戶擁有某項(xiàng)權(quán)限，則該權(quán)限為 1；反之，則 為 0。定義變量 flag值為 0、 1的字符變量 For i = 0 To 4 If Check1(i).Value = 1 Then 39。否則為 0 End If ql_flag = ql_flag amp。 Private Sub Form_Load() 39。, , adOpenStatic, _ adLockPessimistic If (ql_flag).ValueThen?如果該用戶的權(quán)限字段不為空，運(yùn)行 ql_flag = (ql_flag).Value 39。對復(fù)選框賦值 Else Check1(i).Value = 0 39。截取第 i+11個(gè)字符 If temp 0 Then 39。 這個(gè)強(qiáng)大的功能使你可以 方便地 瀏覽或編輯數(shù)據(jù) 庫 表或查詢結(jié)果。Integrated Security=SSPI。設(shè)置 ADODC的記錄源屬性為 SqlStr Set = adodc39。也可以使用代碼的進(jìn)行 ADODC 的初始化，具體實(shí)現(xiàn)如下： ? 634 ? 39。設(shè)置 ADODC的連接屬性 .CommandType = adCmdText 39。 Private Sub Command1_Click () 39。如果選擇的是按字段任何部分查詢 strfind = select * from rmk where 號(hào)碼 like 39。 amp。 % amp。 amp。 39。如果選中了顯示全部記錄 strfind = select * from rmk 39。定義一字符串變量，用于存放 ADODC鏈接的字段 39。設(shè)置 ADODC的 CommandTye屬性為命令字 SqlStr = select * from rmk 39。連接數(shù)據(jù)庫 Set rsrmkpcl = New 39。顯示成功增加工齡對話框 MsgBox 完成增加工齡操作！ , vbOKOnly + vbExclamation, 注意了 :) Case 增加補(bǔ)償金 39。 amp。 39。 where 號(hào)碼 like 39。TX%39。, , adOpenStatic, adLockPessimistic ElseIf = True Then 39。對學(xué)生進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。對 msg進(jìn)行賦值 t = MsgBox(msg, vbOKCancel + vbExclamation, 注意了 :)) 39。進(jìn)行刪除操作，直到記錄集的末尾 39。顯示出錯(cuò)描述對話框 End Sub 收費(fèi)管理功能模塊設(shè)計(jì) 在這個(gè)模塊中，包括藥費(fèi)數(shù)據(jù)輸入、打印日報(bào)表、打印日明細(xì)表、打印月報(bào)表、打印月明細(xì)報(bào)表、打印年報(bào)表、報(bào)表查詢、帳單查詢 8 個(gè)功能模塊。 圖 A34 創(chuàng)建新的水晶報(bào)表 界面 選擇 “ Standard” ，彈出 “ Create Report Expert”對話框 ，然后點(diǎn)擊 “ SQL/ODBC” 按鈕進(jìn)行數(shù)據(jù)源的設(shè)置，選擇登 陸服務(wù)器的類型，如圖 A35 所示 。 圖 A36 收費(fèi)管理模塊 程序說明：收費(fèi)管理 模塊； 程序模塊名稱： frmlrsj 等 ； 重要控件： DataGrid， ADODC 等 ； 相關(guān)數(shù)據(jù)庫表： rmk， leibie， doctor， feiyong等 。Initial _ Catalog=YAOFEI。數(shù)據(jù)庫連接的字符串 With rs_adodc ?對 ADODC進(jìn)行賦值 .ConnectionString = Str 39。該窗體在數(shù)據(jù)輸入過程中需對各類人員的醫(yī)療費(fèi)率進(jìn)行查詢，并 將其 添加到每日醫(yī)藥費(fèi)用數(shù)據(jù)表中去。保存完報(bào)表后，即可以在 Visual Basic中對該報(bào)表進(jìn)行調(diào)用了，首先在需要打印報(bào)表的窗體上加載 Crystal Reoprt 控件，然后在運(yùn)行報(bào)表打印的事件中添加如下代碼： = amp。 同時(shí)該子系統(tǒng)還提供報(bào)表和帳單的查詢，用戶可以很方便 地 查詢各項(xiàng)數(shù)據(jù)和報(bào)表的。記錄集往后移一條 Loop 39。 amp。 where 號(hào)碼 like 39。 39。 amp。 amp。顯示完成操作對話框 MsgBox 完成增加補(bǔ)償金操作！ , vbOKOnly + vbExclamation, 注意了 :) Case 增加定額 39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。9%39。 39。對所有類別的人員進(jìn)行操作 update rmk set 補(bǔ)償金 =39。處理 SSTab1的第一個(gè)頁面 “增加基本信息 ” Select Case 39。設(shè)置 ADODC的記錄源屬性為 SqlStr End With End Sub 其他功能比較簡單，讀者參考光盤代碼。Integrated Security=SSPI。如果 rsrmk的記錄集不為空 ? 636 ? Set = rsrmk 39。 amp。 39。 39。 39。 % amp。如果文本框的字段為空 MsgBox 請輸入您想查詢的數(shù)據(jù)內(nèi)容！ , vbOKOnly + vbExclamation, 注意了： ) 39。選擇數(shù)據(jù)庫 中的某個(gè)表 .RecordSource = SqlStr 39。對 Str進(jìn)行賦值操作 Str= Provider=。它被用來設(shè)計(jì)同新的數(shù)據(jù)訪問層 OLE DB Provider 一起協(xié)同工作，以提供通用數(shù)據(jù)訪問 (Uni