正在与基本VB.net进行斗争。可变加法_Vb.net_Variables

正在与基本VB.net进行斗争。可变加法

vb.net variables

正在与基本VB.net进行斗争。可变加法,vb.net,variables,Vb.net,Variables,我正在尝试设置我的表单程序，因此如果用户登录3次失败（链接到数据库），它将关闭该程序。然而，我在编程方面有点差劲，我不能让变量实际容纳我试图使用的加法 Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click Dim uname, pass As String Dim attempt As Integer = 0 ' Warns the user if they have m

我正在尝试设置我的表单程序，因此如果用户登录3次失败（链接到数据库），它将关闭该程序。然而，我在编程方面有点差劲，我不能让变量实际容纳我试图使用的加法

Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
    Dim uname, pass As String
    Dim attempt As Integer = 0
    ' Warns the user if they have missed out login information.
    If UserNameBox.Text = "" Or PasswordBox.Text = "" Then
        MessageBox.Show("Please ensure you have entered your username and password", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Else
        uname = UserNameBox.Text
        pass = PasswordBox.Text
        GetFilteredData("username = '" & uname & "' AND password = '" & pass & "'")
        If CountRecords() = 1 Then
            MsgBox("Logged In!")
        Else
            MsgBox("Incorrect Credentials!")
            attempt = attempt + 1 ' <-- Main Issue is here
            If attempt = 4 Then
                Application.Exit()
            End If
        End If
    End If
End Sub

Private子登录\u单击（发送者作为对象，e作为事件参数）处理登录。单击
Dim uname，作为字符串传递
尝试将Dim设置为整数=0
'如果用户错过了登录信息，则警告用户。
如果UserNameBox.Text=“”或PasswordBox.Text=“”则
MessageBox.Show（“请确保您输入了用户名和密码”，“身份验证错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
uname=UserNameBox.Text
pass=PasswordBox.Text
GetFilteredData（“用户名=”&uname&“'和密码=”&pass&“'））
如果CountRecords（）=1，则
MsgBox（“已登录！”）
其他的
MsgBox（“不正确的凭据！”）
尝试=尝试+1'您正在登录\u单击事件处理程序中的尝试变量上声明。因此，每次引发Login\u Click
事件时，您都将其初始化为0
Dim attempt As Integer = 0

尝试将其移动到外部范围，例如使其成为类的成员。
您在登录\u单击事件处理程序内的尝试变量上声明。因此，每次引发Login\u Click
事件时，您都将其初始化为0
Dim attempt As Integer = 0

尝试将其移动到外部范围，例如使其成为类的成员。
您在登录\u单击事件处理程序内的尝试变量上声明。因此，每次引发Login\u Click
事件时，您都将其初始化为0
Dim attempt As Integer = 0

尝试将其移动到外部范围，例如使其成为类的成员。
您在登录\u单击事件处理程序内的尝试变量上声明。因此，每次引发Login\u Click
事件时，您都将其初始化为0
Dim attempt As Integer = 0

尝试将其移动到外部作用域，例如使其成为类的成员。
这应该有效。若你们想让变量可以从所有子类中访问，只需把它从类的根中去掉即可
Private attempt As Integer = 0

Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
Dim uname, pass As String

' Warns the user if they have missed out login information.
If UserNameBox.Text = "" Or PasswordBox.Text = "" Then
    MessageBox.Show("Please ensure you have entered your username and password", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    uname = UserNameBox.Text
    pass = PasswordBox.Text
    GetFilteredData("username = '" & uname & "' AND password = '" & pass & "'")
    If CountRecords() = 1 Then
        MsgBox("Logged In!")
    Else
        MsgBox("Incorrect Credentials!")
        attempt = attempt + 1 ' <-- Main Issue is here
        If attempt = 4 Then
            Application.Exit()
        End If
    End If
End If
End Sub

作为整数的私有尝试=0
私有子登录\单击（发送者作为对象，e作为事件参数）处理登录。单击
Dim uname，作为字符串传递
'如果用户错过了登录信息，则警告用户。
如果UserNameBox.Text=“”或PasswordBox.Text=“”则
MessageBox.Show（“请确保您输入了用户名和密码”，“身份验证错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
uname=UserNameBox.Text
pass=PasswordBox.Text
GetFilteredData（“用户名=”&uname&“'和密码=”&pass&“'））
如果CountRecords（）=1，则
MsgBox（“已登录！”）
其他的
MsgBox（“不正确的凭据！”）
尝试=尝试+1'这应该有效。若你们想让变量可以从所有子类中访问，只需把它从类的根中去掉即可
Private attempt As Integer = 0

Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
Dim uname, pass As String

' Warns the user if they have missed out login information.
If UserNameBox.Text = "" Or PasswordBox.Text = "" Then
    MessageBox.Show("Please ensure you have entered your username and password", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    uname = UserNameBox.Text
    pass = PasswordBox.Text
    GetFilteredData("username = '" & uname & "' AND password = '" & pass & "'")
    If CountRecords() = 1 Then
        MsgBox("Logged In!")
    Else
        MsgBox("Incorrect Credentials!")
        attempt = attempt + 1 ' <-- Main Issue is here
        If attempt = 4 Then
            Application.Exit()
        End If
    End If
End If
End Sub

作为整数的私有尝试=0
私有子登录\单击（发送者作为对象，e作为事件参数）处理登录。单击
Dim uname，作为字符串传递
'如果用户错过了登录信息，则警告用户。
如果UserNameBox.Text=“”或PasswordBox.Text=“”则
MessageBox.Show（“请确保您输入了用户名和密码”，“身份验证错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
uname=UserNameBox.Text
pass=PasswordBox.Text
GetFilteredData（“用户名=”&uname&“'和密码=”&pass&“'））
如果CountRecords（）=1，则
MsgBox（“已登录！”）
其他的
MsgBox（“不正确的凭据！”）
尝试=尝试+1'这应该有效。若你们想让变量可以从所有子类中访问，只需把它从类的根中去掉即可
Private attempt As Integer = 0

Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
Dim uname, pass As String

' Warns the user if they have missed out login information.
If UserNameBox.Text = "" Or PasswordBox.Text = "" Then
    MessageBox.Show("Please ensure you have entered your username and password", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    uname = UserNameBox.Text
    pass = PasswordBox.Text
    GetFilteredData("username = '" & uname & "' AND password = '" & pass & "'")
    If CountRecords() = 1 Then
        MsgBox("Logged In!")
    Else
        MsgBox("Incorrect Credentials!")
        attempt = attempt + 1 ' <-- Main Issue is here
        If attempt = 4 Then
            Application.Exit()
        End If
    End If
End If
End Sub

作为整数的私有尝试=0
私有子登录\单击（发送者作为对象，e作为事件参数）处理登录。单击
Dim uname，作为字符串传递
'如果用户错过了登录信息，则警告用户。
如果UserNameBox.Text=“”或PasswordBox.Text=“”则
MessageBox.Show（“请确保您输入了用户名和密码”，“身份验证错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
uname=UserNameBox.Text
pass=PasswordBox.Text
GetFilteredData（“用户名=”&uname&“'和密码=”&pass&“'））
如果CountRecords（）=1，则
MsgBox（“已登录！”）
其他的
MsgBox（“不正确的凭据！”）
尝试=尝试+1'这应该有效。若你们想让变量可以从所有子类中访问，只需把它从类的根中去掉即可
Private attempt As Integer = 0

Private Sub Login_Click(sender As Object, e As EventArgs) Handles Login.Click
Dim uname, pass As String

' Warns the user if they have missed out login information.
If UserNameBox.Text = "" Or PasswordBox.Text = "" Then
    MessageBox.Show("Please ensure you have entered your username and password", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
    uname = UserNameBox.Text
    pass = PasswordBox.Text
    GetFilteredData("username = '" & uname & "' AND password = '" & pass & "'")
    If CountRecords() = 1 Then
        MsgBox("Logged In!")
    Else
        MsgBox("Incorrect Credentials!")
        attempt = attempt + 1 ' <-- Main Issue is here
        If attempt = 4 Then
            Application.Exit()
        End If
    End If
End If
End Sub

作为整数的私有尝试=0
私有子登录\单击（发送者作为对象，e作为事件参数）处理登录。单击
Dim uname，作为字符串传递
'如果用户错过了登录信息，则警告用户。
如果UserNameBox.Text=“”或PasswordBox.Text=“”则
MessageBox.Show（“请确保您输入了用户名和密码”，“身份验证错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
其他的
uname=UserNameBox.Text
pass=PasswordBox.Text
GetFilteredData（“用户名=”&uname&“'和密码=”&pass&“'））
如果CountRecords（）=1，则
MsgBox（“已登录！”）
其他的
MsgBox（“不正确的凭据！”）
尝试=尝试+1'尝试在退出条件为trunt>=4
（失败）或连接成功的循环中包装代码。当CountRecords（）=1
时，可以使用设置为True
的布尔值。请尝试在退出条件为trunt>=4
（失败）或连接成功的循环中包装代码。当CountRecords（）=1
时，可以使用设置为True
的布尔值。请尝试在退出条件为trunt>=4
（失败）或连接成功的循环中包装代码。你可以用一个布利亚