【正文】 If =″″Then MsgBox（″請(qǐng)輸入系統(tǒng)密碼″）End IfIf =″″Then MsgBox（″請(qǐng)輸入要注銷的管理員姓名″） Exit SubEnd Ifspl2=″select 系統(tǒng)密碼表.*from 系統(tǒng)密碼表where系統(tǒng)密碼=’″amp。amp。″’″ = sp12If 1 ThenMsgBox（″系統(tǒng)密碼不正確，您不能刪除管理員″） =″″ =″″Else If = 0 Then MsgBox（″該表已為空表″） = ″″ = ″″Elsesql1 = ″SELECT 管理員表.*From 管理員表 WHERE =’ ″amp。 amp?！濉?″ = sql1 If 1 ThenMsgBox（″該管理員不存在″） = ″″Else If MsgBox（″真的要?jiǎng)h除該管理員嗎？″, vbYesNo + 32, ″提示″）= vbYes Then MsgBox（″該管理員已刪除″） = ″″ Exit Sub End If End IfEnd IfEnd IfEnd Sub“取消”按鈕代碼Private Sub Command2 Click()Unload MeEnd Sub五、修改密碼frmkey窗體代碼Option ExplicitDim sql1 As Integer修改系統(tǒng)密碼—“確定“按鈕Private Sub Command1 Click()If = ″″Then MsgBox（″請(qǐng)輸入舊密碼″） Exit subEnd IfIf ″″And = ″″ ThenMsgBox（″請(qǐng)輸入新密碼″）Exit SubEnd IfIf ″″And ″″And = ″″ Then MsgBox（″請(qǐng)確認(rèn)新密碼″） Exit SubEnd IfIf Then MsgBox（″確認(rèn)密碼不一致，請(qǐng)重新確認(rèn)″） = ″″ Exit SubEnd Ifsql1 =″select 系統(tǒng)密碼表.* from 系統(tǒng)密碼表where系統(tǒng)密碼=’″amp。 amp?！濉?= sql1If 1 ThenMsgBox（″該系統(tǒng)密碼不存在，請(qǐng)重新輸入系統(tǒng)密碼″） = ″″ElseIf MsgBox（″真的要修改系統(tǒng)密碼嗎？″，vbYesNo + 32，″提示″）= vbYes Then（″系統(tǒng)密碼″）= MsgBox（″修改成功″） = ″″ = ″″ = ″″End IfExit SubEnd IfEnd Sub修改系統(tǒng)密碼—“取消”按鈕Private Sub Command2 Click()Unload meEnd Sub修改個(gè)人密碼—“確定”按鈕Private Sub Command3 click()If = ″″ Then MsgBox（″請(qǐng)輸入管理員姓名″） Exit SubEnd IfIf ″″ And = ″″ Then MsgBox（″請(qǐng)輸入舊密碼″） Exit SubEnd IfIf ″″ And ″″ And = ″″ Then MsgBox（″請(qǐng)輸入新密碼″） Exit SubEnd IfIf ″″ And ″″ And ″″ And =″″ Then MsgBox（″請(qǐng)確認(rèn)新密碼″） Exit SubEnd IfIf Text3. Text Then MsgBox（″確認(rèn)密碼不一致，請(qǐng)重新確認(rèn)″） = ″″ Exit SubEnd IfSql1 =″select 管理員表.* from 管理員表where管理員姓名=’″amp。 amp。 ″’″ = sql1If 1 ThenMsgBox（″該管理員不存在，請(qǐng)重新輸入管理員姓名″） = ″″ = ″″ = ″″ = ″″ElseIf MsgBox（″真的要修改個(gè)人密碼嗎？″， vbYesNo + 32, ″提示″）= vbYes Then.（″個(gè)人密碼″）= MsgBox（″修改成功″） = ″″: = ″″: =″″: Text4. Text = ″″End IfExit Sub: End If: End Sub修改個(gè)人密碼“取消”按鈕Pivate Sub Command4 Click()Unload MeEnd Sub六． 添加客戶窗體Option ExplicitDim totalrecord As IntegerDim number, statu As String“添加”按鈕代碼Private Sub Command1 Click()totalrecord = ‘統(tǒng)計(jì)用戶資料表中的總記錄數(shù)’ If totalrecord = 1 And totalrecord 10 Then ‘根據(jù)記錄數(shù)產(chǎn)生新號(hào)碼’number = Left((″用戶號(hào)″)，8)totalrecord = totalrecord + 1number = number + ″0″ + totalrecordElseIf totalrecord = 10 And totalrecord 100 Thennumber = Left((″用戶號(hào)″)，7)totalrecord = totalrecord + 1number = number + ″00″ + totalrecordElseIf totalrecord = 100 And totalrecord 1000 Thennumber = Left((″用戶號(hào)″)，6)totalrecord = totalrecord + 1number = number + ″000″ + totalrecordElseIf totalrecord = 1000 And totalrecord 10000 Thennumber = Left((″用戶號(hào)″)，5)totalrecord = totalrecord + 1number = number + ″0000″ + totalrecordElseIf totalrecord = 10000 And totalrecord 100000 Thennumber = Left((″用戶號(hào)″)，4)totalrecord = totalrecord + 1number = number + ″00000″ + totalrecordEnd IfIf 1 Then ‘若用戶資料表中無記錄，則使用新號(hào)碼為342900001’ = ″342900001″ElseIf = 1 Then ‘若刪除號(hào)碼表中有記錄，則從中產(chǎn)生新記錄’If = 1 Then = number Statu= ″add″ElseIf = 1 Then = (″用戶號(hào)″) Statu = ″insert″End IfEnd If = ″″ ‘使各文本框處于“添加”狀態(tài)’ = ″″: = ″″: = ″″ = ″″: = ″″: = ″″ = ″″End Sub“取消”按鈕Private Sub Command2 Click() = ″″: = ″″: = ″″ = ″″ = ″″: = ″″: = ″″ = ″″: = ″″End Sub“確定”按鈕Private Sub Command4 Click()If ″″And ″″ And ″″ And ″″And ″″And ″″ And ″″ And ″″ Then If MsgBox(″要添加此用戶嗎？″， vbYesNo + 32, ″提示″) = vbYes Then Do Until = False Loop ‘若確認(rèn)添加，則刷新數(shù)據(jù)庫’ (″用戶名″) = (″用戶姓名″) = (″家庭住址″) = (″聯(lián)系電話″) = (″身份證號(hào)碼″) = (″安裝時(shí)間″) = (″上次交費(fèi)時(shí)間″) = (″交費(fèi)總額″) = (″交費(fèi)期限″) = (″是否可用″) = 1 If statu = ″insert″ ThenEnd IfMsgBox(″此用戶已經(jīng)被添加到數(shù)據(jù)庫中″)Exit SubEnd IfElse MsgBox(″請(qǐng)將用戶數(shù)據(jù)填寫完整″)End IfEnd Sub“退出”按鈕Private Sub Command3 Click()Unload MeEnd Sub七． 修改，刪除客戶資料窗體代碼Dim sql1, sql2 As StringDim statu, statu1 As String窗體啟動(dòng)代碼Private Sub Form Load() = True″用戶名″″身份證號(hào)碼″ = False = FalseEnd Sub系統(tǒng)密碼—“確定”按鈕Private Sub Command10_Click()If ″″ ThenSql1 =″ 系統(tǒng)密碼表，系統(tǒng)密碼From 系統(tǒng)密碼表″ = sql1If = (″系統(tǒng)密碼″) Then = True ‘若系統(tǒng)密碼正確，則數(shù)據(jù)處于可編輯狀態(tài)’ = True = True = True = True = True = True = True Elself (″系統(tǒng)密碼″)Then MsgBox (″系統(tǒng)密碼不正確，您不能對(duì)客戶資料進(jìn)行編輯″) =″″End IfEnd IfEnd Sub“提交”按鈕Private Sub Command11_Click()Select Case Case ″用戶號(hào)″ ‘確定是根據(jù)用戶號(hào)查詢’Sql1 = ″SELECT 用戶資料表.*From 用戶資料表WHERE = ’″amp。 amp?！濉?= sql1 ‘用sql語句進(jìn)行查詢’If = 1 Then = (″用戶號(hào)″) = (″用戶姓名″) = (″家庭住址″) = (″聯(lián)系電話″) = (″身份證號(hào)碼″) = (″安裝時(shí)間″) = False = False = False = False = False = False = True = True = True = True = True = TrueStatu1 = ″select″ElseIf 1 Then MsgBox(″沒有此用戶！″) = ″″End IfCase″身份證號(hào)碼″ ‘確定是根據(jù)身份證號(hào)碼查詢’Sq12 =select 用戶資料表.* from 用戶資料表 where 用戶資料表。身份證號(hào)碼=’″amp。amp。″’″ = sq12If = 1 Then = (″用戶號(hào)″) = (″用戶姓名″) = (″家庭住址″) = (″聯(lián)系電話″) = (″身份證號(hào)碼″) = (″安裝時(shí)間″) = 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