【文章內(nèi)容簡介】 是 合法用戶 Unload Me 查詢 .Show F = True Exit Do End If 39?！?39。 登錄成功 Loop Close 1 If F = False Then 39?！欠ㄓ脩魰r運行 counter = counter + 1 If counter 3 Then 39。39。39。39。 jia ru msg$ = 用戶不存在或密碼錯誤！是否注冊？注冊 單擊 是 + vbCrLf + 否則 單擊 否 Title$ = 操作進程確認 x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then = True ElseIf x = 7 Then MsgBox 請重新輸入！ MsgBox 您總共有三次操作機會！ = = 員工登錄 .Show End If End If If counter = 3 Then MsgBox 重試次數(shù)已到，即將退出本系統(tǒng) ! End Exit Sub End If End If 39。39。39。39。添加 沈陽理工大學課程設(shè)計專用紙 No 沈陽理工大學 11 End If If = True Then 39?！? Open + \ For Random As 2 i = 0 G = False While Not EOF(2) i = i + 1 Get 2, i, U If z = Then MsgBox 該用戶名已存在！ 請重新選擇！ G = True End If Wend Close 2 Open + \ For Random As 2 If G = False Then = z = m Put 2, , U MsgBox 注冊成功 End If Close 2 End If End Sub Private Sub Command2_Click() Unload Me 歡迎使用 .Show End Sub Private Sub Command3_Click() = = End Sub 用戶合法時，運行結(jié)果見圖 所示 ： 登錄后，直接進入查詢窗體。 沈陽理工大學課程設(shè)計專用紙 No 沈陽理工大學 12 圖 合法用戶登錄 用戶不合法時，運行結(jié)果見圖 示。 圖 不合法用戶登錄 沈陽理工大學課程設(shè)計專用紙 No 沈陽理工大學 13 單擊“是”按鈕時，運行結(jié)果如圖 示 ： 圖 注冊操作 如果已注冊則出現(xiàn)提示如圖 示： 圖 已注冊提示 重新輸入多次提示如圖 示： 圖 錯誤提示 沈陽理工大學課程設(shè)計專用紙 No 沈陽理工大學 14 管理員登錄 管理員登錄窗體如圖 示： 圖 管理員登錄 代碼實現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean Private Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim() m = Trim() If = True Then F = False Open + \ For Random As 1 i = 0 Do While Not EOF(1) i = i + 1 Get 1, i, U 沈陽理工大學課程設(shè)計專用紙 No 沈陽理工大學 15 If z = And m = Then MsgBox 你是合法用戶 Unload Me 檔案存入與轉(zhuǎn)出 .Show F = True Exit Do End If 39。’’ 39。 登錄成功 Loop Close 1 If F = False Then 39?！欠ㄓ脩魰r運行 counter = counter + 1 If counter 3 Then 39。39。39。39。 jia ru msg$ = 用戶不存在或密碼錯誤！是否注冊？注冊 單擊 是 + vbCrLf + 否則 單擊 否 Title$ = 操作進程確認 x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then = True ElseIf x = 7 Then MsgBox 請重新輸入！ MsgBox 您總共有三次操作機會！ = = 管理員登錄 .Show End If End If If counter = 3 Then MsgBox 重試次數(shù)已到，即將退出本系統(tǒng) ! End Exit Sub End If End If 39。39。39