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