登陆.vb

银行帐户管理系统

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class 登陆
    Dim i As Integer = 3
    Dim strsql As String
    Dim strconn As String
    Dim objcommand As SqlClient.SqlCommand
    Dim objdr As SqlClient.SqlDataReader
    Dim str1, str2, str3 As String

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

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        strconn = "data source=.;initial catalog=weboy;user id=sa;password=;"


        strsql = "select name,password,power from users "
        objcommand = New SqlClient.SqlCommand(strsql, New SqlClient.SqlConnection(strconn))
        objcommand.Connection.Open()
        objdr = objcommand.ExecuteReader(CommandBehavior.CloseConnection)
        With objdr
            Do While .Read = True
                str1 = .GetString(0)
                str2 = .GetString(1)
                str3 = .GetString(2)
                If Trim(MaskedTextBox1.Text) = Trim(str1) And Trim(MaskedTextBox2.Text) = Trim(str2) And Trim(ComboBox1.Text) = Trim(str3) And Trim(ComboBox1.Text) = Trim("管理员") Then
                    MessageBox.Show("恭喜您登录成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    主窗体.Show()
                    MaskedTextBox1.Text = ""
                    MaskedTextBox2.Text = ""
                    Me.Visible = False
                    Exit Sub
                End If
                If Trim(MaskedTextBox1.Text) = Trim(str1) And Trim(MaskedTextBox2.Text) = Trim(str2) And Trim(ComboBox1.Text) = Trim(str3) And Trim(ComboBox1.Text) = Trim("普通用户") Then
                    'If Trim(MaskedTextBox3.Text) = Trim(str1) And Trim(MaskedTextBox4.Text) = Trim(str2) Then
                    MessageBox.Show("恭喜您登录成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    主窗体2.Show()
                    Me.Visible = False
                    Exit Sub
                End If

            Loop
        End With
        i = i - 1
        If i = 0 Then
            MessageBox.Show("您已经没有登录机会了，再见！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Hand)
            Me.Close()
        Else
            MessageBox.Show("登录失败！" + "您还有" + Str(i) + "次登录机会！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
            MaskedTextBox1.Text = ""
            MaskedTextBox2.Text = ""
            MaskedTextBox1.Focus()


        End If


    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        Me.Close()

    End Sub


    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        修改密码.Show()
    End Sub
End Class