【正文】 versal Data Access)。Initial _ Catalog=YAOFEI。 用鼠標 右 鍵單 擊該控件，選擇 DataGrid 屬性，彈出 DataGrid 控件 的屬性頁，具體如圖 A29 所示 。對復選框賦值 Else Check3(k).Value = 0 39。對第一個 sstab頁面的復選框賦值 temp = Mid(ql_flag, j + 6, 1) 39。按照用戶的權限，分別對各復選框賦值 End If End Sub （ 3） 自定義子過程，按照用戶的權限，分別對各復選框賦值 ，過程名為 load_check。連接數據庫 Label1(1).Caption = nodename 39。判斷 =2時的符號 flag = 1 39。如果有選擇復選框的值，則 flag為 1 Else flag = 0 39。 程序說明：操作人員管理窗體 ； 程序模塊名稱： frmczql； 重要控件： SSTab 控件 等 ； 相關數據庫表： user_load。獲得該節(jié)點的用戶名的所有 資料 select * from user_load where user_name=39。記錄往后移動一條 Loop End Sub Private Sub Form_Load() 39。節(jié)點顯示 “操作員姓名 ” = 2 39。設置節(jié)點的圖表為 imagelist1中的圖 2 Set rspsw = New select*from user_load,adOpenStatic,adLockPessimistic Do Until 39。刪除操作人員的命令按鈕 39。具體實現(xiàn)代碼如下： Public Sub condatabase() Set = New = sqloledb (Data Source).Value = SQLServerName 39。ql_flag字段的設置 Public Function check_qx(qx_flag As String, i As Integer) As Boolean Dim temp As Integer If qx_flag Then temp = Mid(qx_flag, i, 1) If temp = 0 Then MsgBox 您無權限使用該功能！ , vbOKOnly + vbExclamation, 注 意了 :) check_qx = False Else check_qx = True End If Else MsgBox 未經管理員授權，您無權限使用所有功能！ , vbOKOnly + vbExclamation, 注意了 :) check_qx = False End If End Function 檢查權限后，如果該用戶擁有該項權限的話，則進入菜單處理程序： Private Sub sjlr_Click() 39。例如 ， 顯示數據庫表的有關情況（記錄總數 ， 以及當前記錄在數據庫中的位置等），顯示關于 RichTextBox控件的文本和字體狀態(tài)的信息，顯示鍵盤的狀態(tài)（如 Caps Lock 或 Number Lock），顯示當前日期或時間等。這只要在需要進行分組的命令之間插入一個特殊的命令條， 將 該命令條的 “ 標題 ”插入“ － ” ，而 “ 名 稱 ” 任意，因為程序中一般不會引用此命令的名稱。采用菜單、工具欄、狀態(tài)條相結合的方法，使用戶能夠在主界面上快速的進入自己想要的程序模塊，具體的程序運行 主 界面如圖 B23 所示。 以上介紹的是程序的重要窗體，用戶登陸窗體來進行更換用戶的操作，這樣大大減少了窗體的使用數量。 frmsq（用戶授權、增加和刪除窗體）：該窗體將用戶修改和授權集成在一起，方便管理員增加用戶后對該用戶進行授權。以上的 SQL 語 句已經保存為文件，也可以用查詢分析器直接運行一下本例源程序目錄下 SQL 目錄里的 ，不需要在企業(yè)管理器新建數據 庫 表。 （ 1） 描述收費單信息的表 。 圖 A15 病人的用例關系圖 （ 2） 掛號操作員的 Use Cases 關系圖如圖 A16 所示 。這樣不妨礙系統(tǒng)的功能實現(xiàn)。 （ 2） 數據恢復功能需求 。日報表和月報表分別是對每日數據和每月數據進行匯總、統(tǒng)計而生成的，日明細表、月明細表和年明細表則是分別對每日數據、每月數據和每年數據進行匯總而生成， 它們 并不對原始數據進行處理。 收費管理系統(tǒng) 這個管理系統(tǒng)包括的具體功能模塊 需求框圖如 圖 A8 所示。 表 A1 人員編碼 前兩位代碼 表示人員類別 備 注 00 教 工 如果教工退休則 轉為退休人員 TX 退 休 TC 統(tǒng) 籌 表示學院教職工子女 9x 學 生 x表示在校生的入學年份 2． 批處理人員信息 伴隨著國家政策的改變，公費對象的定額和補償金 都 將發(fā)生改變，為了快速地對所有數據進行修改，本系統(tǒng)提供了批處理模塊。 基本人員管理系統(tǒng) 這個管理系統(tǒng)包括的具體功能模塊 需求 可以用圖 A7 說明 。 醫(yī)務收費系統(tǒng) 操作人員管理系統(tǒng) 基本人員管理系統(tǒng) 收費管理 系統(tǒng)維護 權限管理 更換用戶 修改密碼 修改用戶 操作人員管理 增加用戶 刪除用戶 修改權限 權限管理 附錄 B 醫(yī)務收費系統(tǒng) ? 613 ? （ 1） 增加用戶的需求分析 ，如圖 A4 所示。 這個管理 信息 系統(tǒng)包括數據備份、數據還原、計算器、導出每月數據 4 個功能模塊。 （ 2） 基本人員管理系統(tǒng) 。本章以某高校醫(yī)務收費系統(tǒng)為實例，詳細講述整個醫(yī)務收費系統(tǒng)的實施過程，需求分析、系統(tǒng)框架、系統(tǒng)建模、數據庫建模、程序實現(xiàn)、系統(tǒng)維護等 方面 展開分析。接下來就針對某高校醫(yī)務收費系統(tǒng)的總體需求做分析 。 （ 3） 收費管理系統(tǒng) 。 圖 A1 系統(tǒng)總體功能需求框圖 操作人員管理系統(tǒng) 操作人員 管理系統(tǒng)包括的具體功能模塊可以用圖 A2 說明 。 由于該軟件的操作人員并非 惟一 ，當另一個操作員在同一臺機器上需對系統(tǒng)進行操作時，就需要該操作人員重新登陸，獲得該操作人員的權限后，再對系統(tǒng)進行操作。 在管理信息系統(tǒng)中，代碼是人與計算機的共同語言， 是 著人與計算機溝通的 橋梁 。 而且 目前的高校招生 大多采 才用網上招生，肯定有學生基本信息的數據庫， 通過該模塊可以很好的利用這些數據，同時減少了重復勞動和輸入過程 中 所出現(xiàn)的錯誤。 1． 藥費數據輸入 藥費數據輸入模塊完成病員看病時一些基本信息的登記，病員從醫(yī)生處獲得處方后，交由交費人員進行數據的輸入。 4．報表查詢 報表查詢功能如圖 A11 所示。 該功能實現(xiàn)打開操作系統(tǒng)提供計算器，用它可以進行一些簡單的計費操作，方便用戶進行計費操作。 在 Rational Rose 的 Use Case View 中建立 角色 如圖 A13 所示 。 圖 A18 藥品管理員的用例關系圖 （ 5） 系統(tǒng)維護員的 Use Cases 關系圖如圖 A19 所示 。 圖 A22 描述收費單 信息的表 （ 2） 其他數據庫表 。 系統(tǒng)實現(xiàn) 系統(tǒng)設計概況 本程序是一個較完整的應用程序，能夠實現(xiàn)醫(yī)務收費管理的相關功能 。 frmquerybook（查詢報表窗體）：該功能 是 為了更好地查詢日報表和月報表， 并 方便管理層對實時數據的掌握。 數據備份（ ）：為 frmdataback的實現(xiàn)提供服務， 它 提供了基本的 API 函數的聲明和調用 、 變量的定義等。 1． 菜單 欄 設計 進入菜單編輯器，設計界面如圖 A24 所示 。 工具欄設計 界面如圖A25 所示 。 程序說明：主窗體代碼 ； 程序模塊名稱： ； 重要控件： Toolbar、狀態(tài)欄 StatusBar、圖像列表 Imagelist、 CrystalReport 控件 。 工具欄上 的 快捷按鈕用來打開醫(yī)務收費系統(tǒng)軟件中某個特定的窗體 。 圖 A27 操作人員維護模塊的運行界面 界面設計主要是利用了樹型控件來實現(xiàn)的，讀者可以參考前面章節(jié) 。判斷是否有記錄，如果沒有 記 錄，則提示選擇操作人員 If = True Or = True Then t = MsgBox(請選擇操作員姓名！ , vbOKOnly, 無記錄 ) Else 39。使其文本為 rspsw字段中的用戶名 = 1 39。打開 rspsw記錄集 附錄 B 醫(yī)務收費系統(tǒng) ? 629 ? select * from user_load, , adOpenStatic, adLockPessimistic Do Until 39。處理 nodeclick事件 If = 1 Then 39。 39。 Private SubCommand3_Click () 39。將連續(xù)變量連接起來 Next i For j = 0 To 7 If Check2(j).Value = 1 Then 39。 flag Next k (ql_flag)=ql_flag39。 amp。對第一個 sstab頁面的復選框賦值 temp = Mid(ql_flag, i + 1, 1) 39。對復選框賦值 Else Check2(j).Value = 0 39。 窗體設計包括 DataGrid 控件設計、 ADODC控件設 計，下面就分 別 進行簡單的說明 。對 ADODC控件進行初始化操作 Dim Str As String 39。設置 ADODC的連接屬性 .CommandType = adCmdText 39。用鼠標 右 鍵單 擊該控件，選擇 ADODC屬性，彈出 ADODC 的屬性頁，具體如圖 A30 所示 。Initial _ Catalog=YAOFEI。 圖 A32 人員基本信息管理模塊界面 下面學習窗體的核心代碼。定義一字符串變量，用于存放 sql語句 If = True Then 39。 39。如果選擇的是按字段開頭部分查詢 strfind = select * from rmk where 號碼 like 39。如果選中了按 “姓名 ”條件查詢 Select Case Case 字段任何部分 strfind = select * from rmk where 姓名 like 39。 amp。 39。加載添加 Text和 Combo的內容 Else strfind = select * from rmk 39。Data Source=LOCALHOST 39。 圖 A33 批處理人員信息 界面 程序說明： 批處理數據； 程序模塊名稱： frmpcl； 重要控件： DataGrid， ADODC 等 ； 附錄 B 醫(yī)務收費系統(tǒng) ? 637 ? 相關數據庫表： rmk 等 。使 Text1不能用 = False 39。 39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then v對學生進行操作 update rmk set 補償金 =39。 amp。 amp。 amp。 where 號碼 like 39。9%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。顯示完成對話框 End Select ElseIf = 1 Then 39。 39。退出子過程 End If End If 附錄 B 醫(yī)務收費系統(tǒng) ? 639 ? Exit Sub 39。 VB 集成 的 報表處理工具功能不是很強，但只要加上市面上功能完備的這一報表處理工具 就 使工作變得很容易，下面介紹在 VB 環(huán)境中利用 Seagate 公司的 Crystal report(水晶報表 )來實現(xiàn)報表的顯示 與打印。調用方法打印報表 = crptToWindow 39。該函數主要是根據 sql語句對 datagrid進行賦值 Dim Str As String ?定義字符串變量 附錄 B 醫(yī)務收費系統(tǒng) ? 641 ? Str = Provide