【正文】 = 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用戶欠費表。*From用戶欠費表WHERE用戶號’ ″amp。amp?！濉?sql1If =1 ThenMsgBox(″該用戶還有欠費，不能刪除″)ElseIf 1 ThenIf MsgBox(″真的要刪除該用戶嗎？″，vbYesNo+32, ″提示″)=vbYes Then(″用戶號″)=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(″確實要修改該用戶的資料嗎″，vbYesNo+32)=vbYes Then=FalseEnd IfElseMsgBox(″請將用戶數(shù)據(jù)填寫完整″)End If=True=True=True=TrueIf =False And =False Then=（″用戶號″）=（″用戶姓名″）=（″家庭住址″）=（″聯(lián)系電話″）=（″身份證號碼″）=（″安裝時間″）End IfEnd Sub“退出”按鈕Private Sub Command9_Click()Enload MeEnd Sub八、交費管理窗體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″用戶號″Sql1=″SELECT用戶資料表.*From用戶資料表WHERE用戶號=’ ″amp。 amp?！濉?sql1If 1 ThenMsgBox(″沒有此用戶！″)=″″ElseIf = 1 ThenSq12=″SELECT用戶資料表.*From用戶資料表WHERE用戶號=’″amp。 amp?！濉?sql1If 1 ThenMsgBox(″沒有此用戶！″) 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?！濉?sql3If 1 ThenMsgBox(″沒有該用戶″)=″″ElseIf = 1 Then=(″用戶號″)=（″用戶姓名″）=（″身份證號碼″）=（″上次交費時間″）=（″交費總額″）=（″交費期限″）Sql4=″select用戶資料表.*from用戶欠費表where用戶號=’″amp。 amp?！濉錓f =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。amp?！濉?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。amp?！濉?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參考文獻(xiàn)1． 《Visual Basic 程序設(shè)計》 主編：劉新，萬朝陽，李樹東 出版社：電子工業(yè)出版社2． 《數(shù)據(jù)庫系統(tǒng)教程》 主編：史嘉權(quán) 出版社：清華大學(xué)出版社3． 《Visual Basic 程序開發(fā)寶典》 主編：姜小銘 出版社：冶金工業(yè)出版社4． 《軟件工程》 主編：史濟(jì)民 出版社：高等教育出版社5． 《面向?qū)ο蟪绦蛟O(shè)計》 主編：劉振安 出版社：經(jīng)濟(jì)科技出版社49