【導(dǎo)讀】高校醫(yī)務(wù)收費(fèi)系統(tǒng)的主要目標(biāo)是支持醫(yī)務(wù)室的日常收入賬務(wù)處理業(yè)務(wù)，減輕事務(wù)。本章以某高校醫(yī)務(wù)收費(fèi)系統(tǒng)為實(shí)例，詳細(xì)講述整個(gè)醫(yī)務(wù)收費(fèi)系統(tǒng)的實(shí)施過(guò)程，需求分析、系統(tǒng)框架、系統(tǒng)建模、數(shù)據(jù)庫(kù)建模、程序?qū)崿F(xiàn)、系統(tǒng)維護(hù)等方面展開(kāi)分析。發(fā)出滿足客戶需求的管理信息系統(tǒng)，也才能夠讓整個(gè)系統(tǒng)真正發(fā)揮其相應(yīng)的作用?？赡苡行┽t(yī)院在某些管理方面有其特殊的需求，讀者在實(shí)際開(kāi)發(fā)過(guò)程中，可以在本。操作人員管理系統(tǒng)主要是用來(lái)管理對(duì)該軟件進(jìn)行操作的工作人員，同時(shí)。醫(yī)藥費(fèi)率調(diào)整5個(gè)功能模塊。集中的管理，為其他幾個(gè)管理系統(tǒng)提供基本信息，以提高工作效率。入數(shù)據(jù)，并根據(jù)所輸入的數(shù)據(jù)進(jìn)行匯總，統(tǒng)計(jì)打印各種報(bào)表。綜上所述，系統(tǒng)總體的功能需求可用圖A-1簡(jiǎn)要表示。如99222024，第1位表示學(xué)生，其余表示學(xué)生學(xué)號(hào)，具。根據(jù)國(guó)家的政策，適當(dāng)?shù)膶?duì)該公費(fèi)醫(yī)療的費(fèi)率進(jìn)行修改和調(diào)整。據(jù)的錄入產(chǎn)生影響，因此該功能是數(shù)據(jù)輸入的基礎(chǔ)。

　　

【正文】 nfo=False。Initial _ Catalog=YAOFEI。Data Source=LOCALHOST 39。對(duì) ADODC控件進(jìn)行初始化 With adodc .ConnectionString = St 39。設(shè)置 ADODC的連接屬性 .CommandType = adCmdText 39。設(shè)置 ADODC的 CommandTye屬性為命令字 SqlStr = select * from rmk 39。選擇數(shù)據(jù)庫(kù)中的某個(gè)表 .RecordSource = SqlStr 39。設(shè)置 ADODC的記錄源屬性為 SqlStr End With End Sub 其他功能比較簡(jiǎn)單，讀者參考光盤(pán)代碼。 4． 批處理 數(shù)據(jù)模塊 對(duì)公費(fèi)醫(yī)療對(duì)象的工齡、定額、補(bǔ)償金等字段進(jìn)行批處理，并能夠定期的刪除畢業(yè)學(xué)生的基本信息，減輕了操作人員 的 勞動(dòng)強(qiáng)度，減少了 因 輸入過(guò)多數(shù)據(jù)而導(dǎo)致的錯(cuò)誤。批處理人員信息界面如圖 A33 所示 。 圖 A33 批處理人員信息 界面 程序說(shuō)明： 批處理數(shù)據(jù)； 程序模塊名稱： frmpcl； 重要控件： DataGrid， ADODC 等 ； 附錄 B 醫(yī)務(wù)收費(fèi)系統(tǒng) ? 637 ? 相關(guān)數(shù)據(jù)庫(kù)表： rmk 等 。 （ 1）“確定”按鈕單擊事件代碼 Private Sub Command1_Click() On Error GoTo err 39。如果出現(xiàn)錯(cuò)誤跳到 err Call condatabase 39。連接數(shù)據(jù)庫(kù) Set rsrmkpcl = New 39。定義 rsrmkpcl為進(jìn)行批處理的記錄集 If = 0 Then 39。處理 SSTab1的第一個(gè)頁(yè)面 “增加基本信息 ” Select Case 39。選擇下拉列 表的內(nèi)容 Case 增加工齡 39。如果是 “增加工齡 ” = False 39。使 Text1不能用 = False 39。使 Frame1不能用 update rmk set 工齡 =工齡 +1, , adOpenStatic, adLockPessimistic 39。打開(kāi) 記 錄集，并對(duì)記錄集進(jìn)行更新操作，使每個(gè)人的工齡都加 1 39。顯示成功增加工齡對(duì)話框 MsgBox 完成增加工齡操作！ , vbOKOnly + vbExclamation, 注意了 :) Case 增加補(bǔ)償金 39。如果是 “增加補(bǔ)償金 ” = True ?使 Text1能用 If = True Then 39。對(duì)所有類別的人員進(jìn)行操作 update rmk set 補(bǔ)償金 =39。 amp。 amp。 39。, adOpenStatic,adLockPessimistic ElseIf = True Then 39。對(duì)教工進(jìn)行增加補(bǔ)償金操作 update rmk set 補(bǔ)償金 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。00%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then v對(duì)學(xué)生進(jìn)行操作 update rmk set 補(bǔ)償金 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。9%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)統(tǒng)籌人員進(jìn)行操作 update rmk set 補(bǔ)償金 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。TC%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)退休人員進(jìn)行操作 update rmk set 補(bǔ)償金 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。TX%39。, , _ adOpenStatic, adLockPessimistic End If 39。顯示完成操作對(duì)話框 MsgBox 完成增加補(bǔ)償金操作！ , vbOKOnly + vbExclamation, 注意了 :) Case 增加定額 39。如果下拉列表為 “增加定額 ” = True ?使 Text1可用 ? 638 ? If = True Then 39。對(duì)全部人員進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。 39。, , adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)教工人員進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。00%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)學(xué)生進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。9%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)統(tǒng)籌人員進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。TC%39。, , _ adOpenStatic, adLockPessimistic ElseIf = True Then 39。對(duì)退休人員進(jìn)行操作 update rmk set 定額 =39。 amp。 amp。 39。 where 號(hào)碼 like 39。TX%39。, ,_ adOpenStatic, adLockPessimistic End If MsgBox 完成增加定額操作！ , vbOKOnly + vbExclamation, 注意了 :) 39。顯示完成對(duì)話框 End Select ElseIf = 1 Then 39。如果是 “刪除畢業(yè)學(xué)生 ”時(shí) Dim msg As String 39。定義 msg為字符串變量 msg = 是否刪除所有畢業(yè)生紀(jì)錄 ! 39。對(duì) msg進(jìn)行賦值 t = MsgBox(msg, vbOKCancel + vbExclamation, 注意了 :)) 39。顯示對(duì)話 框 If t = 1 Then v如果確定刪除該選中的學(xué)生 select * from rmk where 號(hào)碼 like 39。 amp。 amp。 % amp。 39。, , adOpenStatic, _ adLockPessimistic 39。選擇某年級(jí)的學(xué)生的記錄集 Do Until 39。進(jìn)行刪除操作，直到記錄集的末尾 39。對(duì)記錄集進(jìn)行刪除 39。記錄集往后移一條 Loop 39。循環(huán)操作 ,直到記錄集的末尾 39。顯示成功刪除畢業(yè)生對(duì)話框 MsgBox 完成刪除畢業(yè)生操作！ , vbOKOnly + vbExclamation, 注意了 :) Else Exit Sub 39。退出子過(guò)程 End If End If 附錄 B 醫(yī)務(wù)收費(fèi)系統(tǒng) ? 639 ? Exit Sub 39。退出子過(guò)程 err: 39。出 錯(cuò)處理 MsgBox , vbOKOnly + vbCritical, 錯(cuò)誤 39。顯示出錯(cuò)描述對(duì)話框 End Sub 收費(fèi)管理功能模塊設(shè)計(jì) 在這個(gè)模塊中，包括藥費(fèi)數(shù)據(jù)輸入、打印日?qǐng)?bào)表、打印日明細(xì)表、打印月報(bào)表、打印月明細(xì)報(bào)表、打印年報(bào)表、報(bào)表查詢、帳單查詢 8 個(gè)功能模塊。收費(fèi)管理系統(tǒng)主要為系統(tǒng)輸 入數(shù)據(jù)，并根據(jù)所 輸 入的數(shù)據(jù)進(jìn)行匯總，統(tǒng)計(jì)打印各種報(bào)表 。 同時(shí)該子系統(tǒng)還提供報(bào)表和帳單的查詢，用戶可以很方便 地 查詢各項(xiàng)數(shù)據(jù)和報(bào)表的。 窗體設(shè)計(jì)包括 DataGrid 控件設(shè)計(jì) 、 CrystalReport 報(bào)表控件設(shè)計(jì)、 ADODC控件設(shè)計(jì)等，下面對(duì) CrystalReport 報(bào)表控件設(shè)計(jì)進(jìn)行簡(jiǎn)單的說(shuō)明。 1． CrystalReport 報(bào)表控件設(shè)計(jì) VB 專業(yè)版中包含一個(gè)報(bào)表制作軟件 Crystal Report簡(jiǎn)版，該軟件是一個(gè)功能強(qiáng)大的報(bào)表制作系統(tǒng)，使報(bào)表的顯示與打印成為此類軟件必備的功能。 VB 集成 的 報(bào)表處理工具功能不是很強(qiáng)，但只要加上市面上功能完備的這一報(bào)表處理工具 就 使工作變得很容易，下面介紹在 VB 環(huán)境中利用 Seagate 公司的 Crystal report(水晶報(bào)表 )來(lái)實(shí)現(xiàn)報(bào)表的顯示 與打印。 首先安裝好 Visual Basic 自帶的 Crystal Reports For Visual Basic ，然后單擊菜單【工程】 ｜ 【部件】，選擇 Crystal Reoprt Control， 將其 添加到工具箱中。打開(kāi) Crystal Report的界面，選擇 “ 新建 ”進(jìn)入創(chuàng)建新的水晶報(bào)表界面 ，如圖 A34 所示 。 圖 A34 創(chuàng)建新的水晶報(bào)表 界面 選擇 “ Standard” ，彈出 “ Create Report Expert”對(duì)話框 ，然后點(diǎn)擊 “ SQL/ODBC” 按鈕進(jìn)行數(shù)據(jù)源的設(shè)置，選擇登 陸服務(wù)器的類型，如圖 A35 所示 。 圖 A35 選擇 登陸 服務(wù)器的類型 ? 640 ? 配置完服務(wù)器后可以進(jìn)行數(shù)據(jù) 庫(kù) 表的選擇， 并 根據(jù)需要合理的選取表、表中的字段、排序、總和等功能后，自動(dòng)生成報(bào)表，讀者只需稍加修改就能使用。保存完報(bào)表后，即可以在 Visual Basic中對(duì)該報(bào)表進(jìn)行調(diào)用了，首先在需要打印報(bào)表的窗體上加載 Crystal Reoprt 控件，然后在運(yùn)行報(bào)表打印的事件中添加如下代碼： = amp。 \rep\39。設(shè)置報(bào) 表的路徑 39。調(diào)用方法打印報(bào)表 = crptToWindow 39。在屏幕上顯示報(bào)表 = 139。設(shè)置 Action屬性為 1 2．收費(fèi)管理模塊 收費(fèi)管理模塊如圖 A36 所示。 圖 A36 收費(fèi)管理模塊 程序說(shuō)明：收費(fèi)管理 模塊； 程序模塊名稱： frmlrsj 等 ； 重要控件： DataGrid， ADODC 等 ； 相關(guān)數(shù)據(jù)庫(kù)表： rmk， leibie， doctor， feiyong等 。 該窗體主要用于每日醫(yī)藥費(fèi)數(shù)據(jù)的 輸 入，同時(shí)進(jìn)行日?qǐng)?bào)表的打印等功能。該窗體在數(shù)據(jù)輸入過(guò)程中需對(duì)各類人員的醫(yī)療費(fèi)率進(jìn)行查詢，并 將其 添加到每日醫(yī)藥費(fèi)用數(shù)據(jù)表中去。 下面進(jìn)行核心代碼分析。 （ 1） DataGrid 加載數(shù)據(jù)函數(shù)，由于該模塊中多次需要加載數(shù)據(jù)到 DataGrid 控件中，故寫(xiě) 成 函數(shù) 的形式，函數(shù)名為 Adodc_Server： Public Function Adodc_Server(conString As String) 39。該函數(shù)主要是根據(jù) sql語(yǔ)句對(duì) datagrid進(jìn)行賦值 Dim Str As String ?定義字符串變量 附錄 B 醫(yī)務(wù)收費(fèi)系統(tǒng) ? 641 ? Str = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial _ Catalog=YAOFEI。Data Source=LOCALHOST 39。數(shù)據(jù)庫(kù)連接的字符串 With rs_adodc ?對(duì) ADODC進(jìn)行賦值 .ConnectionString = Str 39。對(duì) ADODC的連接賦值 .CommandType = adCmdText 39。設(shè)定其命令字類型為 a