【文章內容簡介】 39。連接關閉 If mima = And Then MsgBox(您輸入的帳號不存在！ ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。帳號不存在時 Else If = Then MsgBox(請輸入帳號！ ) 39。未輸入帳號時 Else 22 Select Case Case MsgBox(密碼不能為空，請輸入！ ) 39。密碼為空時 Case mima Select Case Case MsgBox(請輸入驗證碼！ ) 39。驗證碼為空時 Case () 39。密碼、驗證碼都正確時，進入下一界面 () 39。 = 39。 = 39。 = Case Else MsgBox(驗證碼輸入錯誤！ ) 39。驗證碼錯誤時 = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密碼錯誤！請重新輸入！ ) 39。密碼錯時 = = = Int(Rnd() * 9000 + 1000) End Select End If End If ElseIf Then Try () Dim mySelectQuery1 As String = select 密碼 from 管理員表 where 帳號 = 39。 amp。 amp。 39。 Dim myCommand1 As New (mySelectQuery1, SqlConnection1) Dim myReader1 As = () While () mima = (0) End While () () Catch ex As Exception End Try 23 39。連接關閉 If mima = And Then MsgBox(您輸入的帳號不存在！ ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。帳號不存在時 Else If = Then MsgBox(請輸入帳號！ ) 39。未輸入帳號時 Else Select Case Case MsgBox(密碼不能為空，請輸入！ ) 39。密碼為空時 Case mima Select Case Case MsgBox(請輸入驗證碼！ ) 39。驗證碼為空時 Case () 39。密碼、驗證碼都正確時，進入下一界面 () 39。 = 39。 = 39。 = Case Else MsgBox(驗證碼輸入錯誤！ ) 39。驗證碼錯誤時 = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密碼錯誤！請重新輸入！ ) 39。密碼錯時 = = = Int(Rnd() * 9000 + 1000) End Select End If End If End If End Sub 24 Private Sub TextBox2_TextChanged(ByVal sender As , ByVal e As ) Handles code = End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) () () End Sub Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As ) Handles snum = End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles = = = () Randomize() = Int(Rnd() * 9000 + 1000) End Sub End Class 2． 4 進入 查詢界面 25 代碼如下： Imports Imports Public Class Form5 Inherits Sub Form5_Load(ByVal sender As , ByVal e As ) Handles Dim gp As GraphicsPath = New GraphicsPath (New Rectangle(0, 0, , )) = New Region(gp) = 200 = True End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () () 26 End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles () () = Int(Rnd() * 9000 + 1000) End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Label1_Click_1(ByVal sender As , ByVal e As ) Handles End Sub Sub MyMove1() = + 5 If Then = 0 End If End Sub Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles Call MyMove1() End Sub End Class 2． 5 單一查詢界面 27 代碼如下： Public Class Form7 Inherits Private Sub Form7_Load(ByVal sender As , ByVal e As ) Handles = = = = False = False = False = False = False = False