【文章內(nèi)容簡(jiǎn)介】 行界面： 1．實(shí)現(xiàn)過(guò)程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到窗體上。如下圖： N Y 開(kāi)始 繳納水費(fèi) 是否繼續(xù) 退出 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，同上一小結(jié)。 其它屬性和控件的設(shè)置方法類(lèi)似。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過(guò)程中編寫(xiě)代碼： 窗體的 load 事件為： Private Sub Form_Load() = 7350 = 7395 ( ) / 2, ( ) / 4 = Date End Sub 作用：使窗體居中顯示。 的代碼如下： Private Sub Command2_Click() SQL = select * from 用戶(hù)管理 where 總戶(hù)號(hào) =39。 amp。 Trim(Text1(0).Text) amp。 39。 = SQL If Then MsgBox 沒(méi)有此總戶(hù)號(hào)！請(qǐng)重新輸入 [總戶(hù)號(hào) ]！ , , 提示 Text1(0).Text = Text1(0).SetFocus Else For i = 1 To 9 Label1(i).Visible = True Next i For i = 1 To 6 Text1(i).Visible = True Next i = True Text1(7) = Text6 Text1(1) = Text3 Text1(2) = Text4 Text1(4) = Text2 Text1(6).Text = Date$ Text1(3).SetFocus Text8 = Text7 End If End Sub 作用：先判斷用戶(hù)表中有沒(méi)有此總戶(hù)號(hào)，如有就收費(fèi)，沒(méi)有就提示用戶(hù) 。界面如下： 的代碼如下： Private Sub Command1_Click() MsgBox 已入庫(kù)！ , , 提示 = Val() + Val(Text1(5).Text) Text1(0).SetFocus Text1(0).Text = For i = 1 To 9 Label1(i).Visible = False Next i For i = 1 To 6 Text1(i).Visible = False Next i = False End Sub 作用：收費(fèi)入庫(kù)，并提示收費(fèi)員相關(guān)信息。 此窗體上用了 3個(gè) data控件， data1與水費(fèi)管理表相連， data2與用戶(hù)管理表相連， data3 與當(dāng)前價(jià)格表相連，連接方法同前一節(jié)，這邊不再重復(fù)。 5． 3． 2 查詢(xún)繳費(fèi)情況模塊的實(shí)現(xiàn) 1．運(yùn)行界面： 2．實(shí)現(xiàn)過(guò)程： 界面的實(shí)現(xiàn)方法同上，下面主要看關(guān)鍵代碼： 單選按鈕組的代碼為： Private Sub Option1_Click(Index As Integer) For i = 0 To 2 If Option1(0).Value = True Or Option1(1).Value = True Then = True = False Else If Option1(2).Value = True Then = False = True Else MsgBox 請(qǐng)選擇查詢(xún)的項(xiàng)！ , , 提示 End If End If Next i = True End Sub 主要選擇查詢(xún)的項(xiàng)。 “查詢(xún)“的主要代碼為： Private Sub Command1_Click() If Option1(0).Value = True Then SQL = select * from 水費(fèi)管理 where 總戶(hù)號(hào) =39。 amp。 Trim() amp。 39。 Else If Option1(1).Value = True Then SQL = select * from 水費(fèi)管理 where 戶(hù)名 =39。 amp。 Trim() amp。 39。 Else If Option1(2).Value = True Then SQL = select * from 水費(fèi)管理 where 繳費(fèi)日期 =39。 amp。 Format(, yyyymmdd) amp。 39。 End If End If End If = SQL If Then MsgBox 沒(méi)有您要查詢(xún)的繳納水費(fèi)情況！ , , 提示 End If End Sub 主要作用：根據(jù)用戶(hù)的選擇，通過(guò) SQL 語(yǔ)句查詢(xún)并顯示結(jié)果。 其中，日期采用 dtpicker 控件實(shí)現(xiàn)，如下： 5． 4用戶(hù)管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 3．實(shí)現(xiàn)過(guò)程： 8個(gè)按紐組的代碼如下： N Y 開(kāi)始 增加 /修改用戶(hù)信息 是否繼續(xù) 保存入表 Private Sub Command1_Click(Index As Integer) If Index = 0 Then Command1(2).Enabled = False Command1(1).Enabled = True End If If Index = 1 Then Command1(2).Enabled = True If Then Command1(1).Enabled = False End If End If If Index = 2 Then Command1(1).Enabled = True If Then Command1(2).Enabled = False End If End If If Index = 3 Then Command1(1).Enabled = False Command1(2).Enabled = True End If If Index = 4 Then 首條 下一條 前一條 末條 增加 Text1(0) = + 1 Text1(1).SetFocus Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 5 Then If Then Command1(1).Enabled = False End If End If If Index = 6 Then Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 7 Then Command1(1).Enabled = False Command1(2).Enabled = True Command1(4).Enabled = True Command1(5).Enabled = True Command1(6).Enabled = True End If 刪除 修改 刷新記錄 End Sub 5． 5瀏覽用戶(hù)模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 3．實(shí)現(xiàn)過(guò)程： 界面的設(shè)計(jì)方法同上，在這不再重復(fù)。 現(xiàn)將控件的相應(yīng)代碼說(shuō)明如下： “查詢(xún)”的代碼如下： Private Sub Command1_Click() If = True Then N Y 開(kāi)始 設(shè)定查詢(xún)信息 是否繼續(xù) 結(jié)果 SQL = select * from 用戶(hù)管理 where 總戶(hù)號(hào) =39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒(méi)有此總戶(hù)號(hào)！ , , 提示 End If End If If = True Then SQL = select * from 用戶(hù)管理 where 戶(hù)名 =39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒(méi)有此戶(hù)名！ , , 提示 End If End If If = False And = False Then MsgBox 請(qǐng)選擇查詢(xún)的項(xiàng)目后再進(jìn)行查詢(xún)！ , , 提示 End If End Sub 作用：瀏覽用戶(hù)信息，也可根據(jù)總戶(hù)號(hào)或姓名查詢(xún)用戶(hù)信息。 5． 6打印 管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 當(dāng)日繳費(fèi)情況打印界面： 3．實(shí)現(xiàn)過(guò)程： 先通過(guò) DataEnvironment1 建立連接。如下： N Y 開(kāi)始 打印服務(wù)的項(xiàng)目 是否繼續(xù) 退出 然后通過(guò) SQL 設(shè)置查詢(xún)語(yǔ)句： 最后再通過(guò) DataReport1 調(diào)用： 5． 7環(huán)境設(shè)置模塊的實(shí)現(xiàn) 運(yùn)行界面： 通過(guò)直接寫(xiě)入 data 數(shù)據(jù)庫(kù)的方法實(shí)現(xiàn)。同前。 5． 8幫助模塊的實(shí)現(xiàn) 1．運(yùn)行界面： 設(shè)置打印界面 數(shù)據(jù)來(lái)源 2．實(shí)現(xiàn)過(guò)程 主要通過(guò)文本框?qū)崿F(xiàn)，使用了文本框的兩個(gè)屬性： 5． 9用戶(hù)管理模塊的實(shí)現(xiàn) 界面如下圖： 多行文本框 垂直滾動(dòng)條 數(shù)據(jù)庫(kù)的連接方法同上。 Text3 的權(quán)限說(shuō)明： 各權(quán)限級(jí)別具有的權(quán)限如下： 超級(jí)用戶(hù) [一切功能可用 ]、管理員 [不可添加系統(tǒng)用戶(hù)、修改用戶(hù)密 碼、收費(fèi)員 [僅可查詢(xún)信息、收費(fèi)功能 ]。 第六章 系統(tǒng)使用說(shuō)明 6． 1使用說(shuō)明 運(yùn)行于 Windows 98 以上操作系統(tǒng)。 建議分辨率 1024*768。 水費(fèi)數(shù)據(jù)庫(kù)的默認(rèn)路徑： C:\水費(fèi)管理系統(tǒng) \ 用戶(hù)數(shù)據(jù)庫(kù)的默認(rèn)路徑： C:\水費(fèi)管理系統(tǒng) \ 系統(tǒng)默認(rèn)用戶(hù)名、密碼、權(quán)限如下： 用戶(hù)名 密碼 權(quán)限 111 111 1 222 222 2 333 333 3 6． 2運(yùn)行環(huán)境 運(yùn)行環(huán)境： Windows 98 以上操作系統(tǒng)。 JET 數(shù) 據(jù)引擎、 ADO 數(shù)據(jù)引擎。 第七章 設(shè)計(jì)心得 經(jīng)過(guò)二個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，水費(fèi)管理系統(tǒng)基本開(kāi)發(fā)完畢。 在此期間本人閱讀了大量 VB 及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對(duì) DATA 及 ADOBC 控件不熟悉，通過(guò)這次畢業(yè)設(shè)計(jì)，我能熟練的操作這兩個(gè)控件；再比如說(shuō)在用 COMBO 控件時(shí)不知道如何向其中添加列表項(xiàng)，走了許多彎路，查詢(xún)了眾多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計(jì)中的一大難題。 因此，在本次的畢業(yè)設(shè)計(jì)中，為搞清控件的使用方法、編程的各個(gè)難點(diǎn)、掌握面向?qū)ο蟮木幊趟枷?，本人查過(guò)相關(guān)的教材、查詢(xún)過(guò)相 關(guān)的網(wǎng)站、請(qǐng)教過(guò)指導(dǎo)教師。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計(jì)的方法。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶(hù)界面不夠美觀，出錯(cuò)處理不完善等多方面問(wèn)題。這些都有待進(jìn)一步改善。 參考文獻(xiàn) 1.《數(shù)據(jù)庫(kù)系統(tǒng)原理與應(yīng)用》 閃四清 清華大學(xué)出版社 1999 年 2.《 Visual Basic 程序設(shè)計(jì)》 劉世峰 中央廣播電大出版社 2021 年 3.《 Visual Basic 程序設(shè) 計(jì)》 陳 明 中央廣播電大出版社 2021 年 4.《軟件工程》 楊文龍 電子工業(yè)出版社 2021 年 5.《管理信息系統(tǒng)》 薛華成 清華大學(xué)出版社 1996 年 水電費(fèi)管理系統(tǒng) 目 錄