form1.vb

来自「一个数据库程序,实现的数据的连接绑定,及GridView等的使用.各数据的控制」· VB 代码 · 共 44 行

Public Class Form1
    Dim sNumber, sPassword As String
    Dim court As Int32
    Dim std As Form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sNumber = tnumber.Text
        sPassword = tPassword.Text
        If court < 3 Then
            If sNumber = "Administrator" And sPassword = "admin" Then
                std = New student()
                std.Show()




            Else
                MsgBox("请输入正确的名称和密码", 65, "错误提示")
            End If
        Else
            MsgBox("你的输入次数超过了三次，系统将退出", 65, "错误提示")
            Close()

        End If
        court = court + 1
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        court = 1

        tnumber.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tnumber.Text = ""
        tPassword.Text = ""
        tnumber.Focus()



    End Sub
End Class