【正文】 ″″=sq1If 1 Then=0=0MsgBox(″沒有符合該條件的用戶″)ElseDo Entil Num=Val((″應(yīng)交欠費″))+numLoop==numEnd If= False= TrueEnd Sub“顯示所有欠費用戶”按鈕Private Sub Command3_Click()= True= False=″″=″″End Sub“退出”按鈕Private Sub Command2_Click()Enload MeEnd Sub參考文獻1． 《Visual Basic 程序設(shè)計》 主編：劉新，萬朝陽，李樹東 出版社：電子工業(yè)出版社2． 《數(shù)據(jù)庫系統(tǒng)教程》 主編：史嘉權(quán) 出版社：清華大學(xué)出版社3． 《Visual Basic 程序開發(fā)寶典》 主編：姜小銘 出版社：冶金工業(yè)出版社4． 《軟件工程》 主編：史濟民 出版社：高等教育出版社5． 《面向?qū)ο蟪绦蛟O(shè)計》 主編：劉振安 出版社：經(jīng)濟科技出版社49?！濉?sq1If 1 Then=″″=″″MsgBox(″本日無用戶交費″)Else=If =1 ThenDo Entil num=num+(″交費總額″)LoopEnd If=numEnd If=False=TrueEnd Sub“顯示所有用戶信息”按鈕Private Sub Command3_Click()=″″=″″=True=FalseEnd Sub“退出”按鈕Private Sub Command2_Click()Enload MeEnd Sub十、欠費查詢窗體窗體啟動代碼Private Sub Form_Load()=True=FalseEnd Sub“查詢”按鈕Private Sub Command1_Click()Sq1=″select用戶欠費表.*from用戶欠費表where欠費時間=″amp。″’″If =1 Then=(″欠費起始時間″)=(″欠費時間″)=(″應(yīng)交欠費″)ElseIf 1 Then=″″=″0″=″0″End IfEnd SelectEnd Sub“交費”按鈕Private Sub Command1_Click()T3=Val()If MsgBox(″要刷新此用戶的數(shù)據(jù)嗎？″，vbYesNo+32, ″提示″)=vbYes Then(“上次交費時間”)=(“交費總額”)=(“交費期限”)=If t3 6 Then(″是否可用″)=1Else(″是否可用″)=0End IfEnd IfIf =1 ThenIf =″0″ThenElse(″欠費起始時間″)=(″欠費時間″)=(″應(yīng)交欠費″)=End IfEnd IfMsgBox(″交費成功″)End Sub“刷新”按鈕Private Sub Command5_Click()If ″″And ″″And ″″Then===t1=Val()If =1 Thentime1=(″欠費起始時間″)time2=time1+30*t1t2=Datetime2If t2 0 Then=time2=Int(t2/30)+1=Val()*12ElseIf t2 =000=0=0End IfEnd If=True=TrueMsgBox(″請單擊交費按鈕刷新數(shù)據(jù)庫″)End IfEnd Sub“取消”按鈕Private Sub Command2_Click()=″″=″″=″″=(″上次交費時間″)=(″ 交費總額″)=(″ 交費期限″)If =1 Then=(″ 欠費起始時間″)=(″ 交費時間″)=(″ 應(yīng)交欠費″)End IfEnd Sub“清空”按鈕Private Sub Command6_Click()=″″=″″=″″=″″=″″=″″=″″=″″=″″=″″End Sub“退出”按鈕Private Sub Command13_Click()Enload MeEnd Sub九、交費統(tǒng)計窗體窗體啟動代碼Private Sub Form_Load()Num=0=True=FalseEnd Sub“查詢”按鈕Private Sub Command1_Click()Sq1=″select用戶資料表.*from用戶資料表where上次交費時間=″amp?！濉?sql3If 1 ThenMsgBox(″沒有該用戶″)=″″ElseIf = 1 Then=(″用戶號″)=（″用戶姓名″）=（″身份證號碼″）=（″上次交費時間″）=（″交費總額″）=（″交費期限″）Sql4=″select用戶資料表.*from用戶欠費表where用戶號=’″amp。 ″’″=sql2=(″用戶號″)=（″用戶姓名″）=（″身份證號碼″）=（″上次交費時間″）=（″交費總額″）=（″交費期限″）If = 1 ThenIf (″欠費時間″)=6 Then=″否″ElseIf (″欠費時間″)=6 Then=″是″End IfElseIf 1 Then=″是″End IfIf =1 Then=(″欠費起始時間″)=(″欠費時間″)=(″應(yīng)交欠費″)If =1 ThenIf (″是否可用″) =1 Then=″否″ElseIf (″是否可用″)=0 Then=″是″End IfElseIf 1 Then=″″End IfElseIf 1 Then=″否″=″0″=″0″End IfEnd IfCase″身份證號碼″Sql3=″select用戶資料表.*from用戶資料表where身份證號碼=’″amp。 amp。 amp。amp?！濉?= sq12If = 1 Then = (″用戶號″) = (″用戶姓名″) = (″家庭住址″) = (″聯(lián)系電話″) = (″身份證號碼″) = (″安裝時間″) = False = False: = False: = False = False = False: = True: = True = True = True: = True: = TrueStatu1 = ″select″ElseIf 1 Then MsgBox (″沒有該用戶″) = ″″End If End Select End Sub“第一條”按鈕Private Sub Command1_Click() = True ‘將用于瀏覽信息的文本框設(shè)為可視’ = True = True = True = True = True = False = False = False = False = False = FalseIf = 1 Then ‘瀏覽數(shù)據(jù)庫信息’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(″目前無顯示記錄″)End IfSql1=″SELECT用戶欠費表。身份證號碼=’″amp。 amp。 amp。 amp?！濉?″ = sql1 If 1 ThenMsgBox（″該管理員不存在″） = ″″Else If MsgBox（″真的要刪除該管理員嗎？″, vbYesNo + 32, ″提示″）= vbYes Then MsgBox（″該管理員已刪除″） = ″″ Exit Sub End If End IfEnd IfEnd IfEnd Sub″’″ = sp12If 1 ThenMsgBox（″系統(tǒng)密碼不正確，您不能刪除管理員″） =″″ =″″Else If = 0 Then MsgBox（″該表已為空表″） = ″″ = ″″Elsesql1 = ″SELECT 管理員表.*From 管理員表 WHERE =’ ″amp?！薄?= sq1If 1 Then Msgbox (“該管理員不存在，請重新填寫”) =“” =“”Else If = (“個人密碼”) ThenDo Until date1 = (“上次交費時間”)time1 = Data2. Recordset(“交費期限”)time1 = 30*time1date1 = date1 + time1t1 = Date – date1If t1 0 ThenT1 = Va1(t1)Time2 = Int(t1 / 30)(“用戶號”) = (“用戶號”)(“欠費起始時間”) = date1 + 1(“欠費時間”) = time2(“應(yīng)交欠費”) = 12 * Va1(time2)End IfLoop Unload MeElseIf (“個人密碼”) Then MsgBox (“密碼不正確，請重新填寫”) = “” End IfEnd If Exit Sub ElseIf (“管理員姓名”) or ‘管理員或密碼不正確