【正文】 = True = True = True = True = False = False = False = False = False = FalseIf = 1 Then ‘瀏覽數(shù)據(jù)庫(kù)信息’If = False Then = True = TrueEnd IfElseMsgBox (″該表已為空表″)End IfEnd Sub“上一條”按鈕Private Sub Command2_Click() = True = True = True = True = True = True = False = False = False = False = False = FalseIf = False ThenEnd If = True = TrueIf = True Then = False = GalseEnd If If . RecordCount = 0 ThenMsgBox (″該表已為空表″) = True = TrueEnd IfEnd Sub“下一條”按鈕Private Sub Command3_Click() = True = True = True = True = True = True = False = False = False = False = False = FalseIf = 1 ThenIf = False Then = True = TrueEnd If If = True Then = False = FalseEnd IfElseIf = 0 Then MsgBox（″該表已為空表″） = False = False Exit SubEnd IfEnd Sub“最后一條”按鈕Private Sub Command4 Click() = True = True = True = True=True=True=True=True=True=True=True=TrueIf =1 Then=True=TrueElseMsgBox(″該表已為空表″)End IfEnd Sub“刪除”按鈕Private Sub Command6_Click()=True=True=True=True=True=True=False=False=False=False=False=FalseIf statul= ″select″Then======End IfIf =″″ThenMsgBox(″目前無(wú)顯示記錄″)End IfSql1=″SELECT用戶欠費(fèi)表。*From用戶欠費(fèi)表WHERE用戶號(hào)’ ″amp。amp?！濉?sql1If =1 ThenMsgBox(″該用戶還有欠費(fèi)，不能刪除″)ElseIf 1 ThenIf MsgBox(″真的要?jiǎng)h除該用戶嗎？″，vbYesNo+32, ″提示″)=vbYes Then(″用戶號(hào)″)=MsgBox(″該記錄已經(jīng)被刪除″)End IfEnd IfEnd Sub“修改”按鈕Private Sub Command7_Click()=TrueStatu=″turn″=True=True=True=True=True=True=False=False=False=False=False=FalseIf statul= ″select″Then======End If= False= False= False= False= False= False= FalseEnd Sub修改—“確定”按鈕Private Sub Command12_Click()Select Case statuCase ″turn″If ″″And ″″And ″″And ″″And ″″ThenIf MsgBox(″確實(shí)要修改該用戶的資料嗎″，vbYesNo+32)=vbYes Then=FalseEnd IfElseMsgBox(″請(qǐng)將用戶數(shù)據(jù)填寫完整″)End If=True=True=True=TrueIf =False And =False Then=（″用戶號(hào)″）=（″用戶姓名″）=（″家庭住址″）=（″聯(lián)系電話″）=（″身份證號(hào)碼″）=（″安裝時(shí)間″）End IfEnd Sub“退出”按鈕Private Sub Command9_Click()Enload MeEnd Sub八、交費(fèi)管理窗體Dim sql1 As StringDim sql2 As StringDim sql3 As StringDim sql4 As StringDim time1,time2,time3 As DataDim t1,t2,t3 As IntegerDim number As String“提交”按鈕Private Sub Command4_Click()Select Case Case″用戶號(hào)″Sql1=″SELECT用戶資料表.*From用戶資料表WHERE用戶號(hào)=’ ″amp。 amp。″’″=sql1If 1 ThenMsgBox(″沒(méi)有此用戶！″)=″″ElseIf = 1 ThenSq12=″SELECT用戶資料表.*From用戶資料表WHERE用戶號(hào)=’″amp。 amp。″’″=sql1If 1 ThenMsgBox(″沒(méi)有此用戶！″) amp。 ″’″=sql2=(″用戶號(hào)″)=（″用戶姓名″）=（″身份證號(hào)碼″）=（″上次交費(fèi)時(shí)間″）=（″交費(fèi)總額″）=（″交費(fèi)期限″）If = 1 ThenIf (″欠費(fèi)時(shí)間″)=6 Then=″否″ElseIf (″欠費(fèi)時(shí)間″)=6 Then=″是″End IfElseIf 1 Then=″是″End IfIf =1 Then=(″欠費(fèi)起始時(shí)間″)=(″欠費(fèi)時(shí)間″)=(″應(yīng)交欠費(fèi)″)If =1 ThenIf (″是否可用″) =1 Then=″否″ElseIf (″是否可用″)=0 Then=″是″End IfElseIf 1 Then=″″End IfElseIf 1 Then=″否″=″0″=″0″End IfEnd IfCase″身份證號(hào)碼″Sql3=″select用戶資料表.*from用戶資料表where身份證號(hào)碼=’″amp。 amp?！濉?sql3If 1 ThenMsgBox(″沒(méi)有該用戶″)=″″ElseIf = 1 Then=(″用戶號(hào)″)=（″用戶姓名″）=（″身份證號(hào)碼″）=（″上次交費(fèi)時(shí)間″）=（″交費(fèi)總額″）=（″交費(fèi)期限″）Sql4=″select用戶資料表.*from用戶欠費(fèi)表where用戶號(hào)=’″amp。 amp。″’″If =1 Then=(″欠費(fèi)起始時(shí)間″)=(″欠費(fèi)時(shí)間″)=(″應(yīng)交欠費(fèi)″)ElseIf 1 Then=″″=″0″=″0″End IfEnd SelectEnd Sub“交費(fèi)”按鈕Private Sub Command1_Click()T3=Val()If MsgBox(″要刷新此用戶的數(shù)據(jù)嗎？″，vbYesNo+32, ″提示″)=vbYes Then(“上次交費(fèi)時(shí)間”)=(“交費(fèi)總額”)=(“交費(fèi)期限”)=If t3 6 Then(″是否可用″)=1Else(″是否可用″)=0End IfEnd IfIf =1 ThenIf =″0″ThenElse(″欠費(fèi)起始時(shí)間″)=(″欠費(fèi)時(shí)間″)=(″應(yīng)交欠費(fèi)″)=End IfEnd IfMsgBox(″交費(fèi)成功″)End Sub“刷新”按鈕Private Sub Command5_Click()If ″″And ″″And ″″Then===t1=Val()If =1 Thentime1=(″欠費(fèi)起始時(shí)間″)time2=time1+30*t1t2=Datetime2If t2 0 Then=time2=Int(t2/30)+1=Val()*12ElseIf t2 =000=0=0End IfEnd If=True=TrueMsgBox(″請(qǐng)單擊交費(fèi)按鈕刷新數(shù)據(jù)庫(kù)″)End IfEnd Sub“取消”按鈕Private Sub Command2_Click()=″″=″″=″″=(″上次交費(fèi)時(shí)間″)=(″ 交費(fèi)總額″)=(″ 交費(fèi)期限″)If =1 Then=(″ 欠費(fèi)起始時(shí)間″)=(″ 交費(fèi)時(shí)間″)=(″ 應(yīng)交欠費(fèi)″)End IfEnd Sub“清空”按鈕Private Sub Command6_Click()=″″=″″=″″=″″=″″=″″=″″=″″=″″=″″End Sub“退出”按鈕Private Sub Command13_Click()Enload MeEnd Sub九、交費(fèi)統(tǒng)計(jì)窗體窗體啟動(dòng)代碼Private Sub Form_Load()Num=0=True=FalseEnd Sub“查詢”按鈕Private Sub Command1_Click()Sq1=″select用戶資料表.*from用戶資料表where上次交費(fèi)時(shí)間=″amp。amp?！濉?sq1If 1 Then=″″=″″MsgBox(″本日無(wú)用戶交費(fèi)″)Else=If =1 ThenDo Entil num=num+(″交費(fèi)總額″)LoopEnd If=numEnd If=False=TrueEnd Sub“顯示所有用戶信息”按鈕Private Sub Command3_Click()=″″=″″=True=FalseEnd Sub“退出”按鈕Private Sub Command2_Click()Enload MeEnd Sub十、欠費(fèi)查詢窗體窗體啟動(dòng)代碼Private Sub Form_Load()=True=FalseEnd Sub“查詢”按鈕Private Sub Command1_Click()Sq1=″select用戶欠費(fèi)表.*from用戶欠費(fèi)表where欠費(fèi)時(shí)間=″amp。amp?！濉?sq1If 1 Then=0=0MsgBox(″沒(méi)有符合該條件的用戶″)ElseDo Entil Num=Val((″應(yīng)交欠費(fèi)″))+numLoop==numEnd If= False= TrueEnd Sub“顯示所有欠費(fèi)用戶”按鈕Private Sub Command3_Click()= True= False=″″=″″End Sub“退出”按鈕Private Sub Command2_Click()Enload MeEnd Sub參考文獻(xiàn)1． 《Visual Basic 程序設(shè)計(jì)》 主編：劉新，萬(wàn)朝陽(yáng)，李樹(shù)東 出版社：電子工業(yè)出版社2． 《數(shù)據(jù)庫(kù)系統(tǒng)教程》 主編：史嘉權(quán) 出版社：清華大學(xué)出版社3． 《Visual Basic 程序開(kāi)發(fā)寶典》 主編：姜小銘 出版社：冶金工業(yè)出版社4． 《軟件工程》 主編：史濟(jì)民 出版社：高等教育出版社5． 《面向?qū)ο蟪绦蛟O(shè)計(jì)》 主編：劉振安 出版社：經(jīng)濟(jì)科技出版社49