login.vb

公司的人事变动,人事基本信息,人事的管理

Public Class Login
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Edit用户名 As System.Windows.Forms.TextBox
    Friend WithEvents Edit密码 As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Btn登录 As System.Windows.Forms.Button
    Friend WithEvents Btn取消 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Edit用户名 = New System.Windows.Forms.TextBox()
        Me.Edit密码 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Btn登录 = New System.Windows.Forms.Button()
        Me.Btn取消 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(32, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(54, 14)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "用户名："
        '
        'Edit用户名
        '
        Me.Edit用户名.Location = New System.Drawing.Point(96, 16)
        Me.Edit用户名.Name = "Edit用户名"
        Me.Edit用户名.TabIndex = 1
        Me.Edit用户名.Text = ""
        '
        'Edit密码
        '
        Me.Edit密码.Location = New System.Drawing.Point(96, 56)
        Me.Edit密码.Name = "Edit密码"
        Me.Edit密码.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.Edit密码.TabIndex = 3
        Me.Edit密码.Text = ""
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(32, 64)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(54, 14)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "密  码："
        '
        'Btn登录
        '
        Me.Btn登录.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Btn登录.Location = New System.Drawing.Point(40, 112)
        Me.Btn登录.Name = "Btn登录"
        Me.Btn登录.TabIndex = 4
        Me.Btn登录.Text = "登  录"
        '
        'Btn取消
        '
        Me.Btn取消.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Btn取消.Location = New System.Drawing.Point(120, 112)
        Me.Btn取消.Name = "Btn取消"
        Me.Btn取消.TabIndex = 5
        Me.Btn取消.Text = "取  消"
        '
        'Login
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(232, 157)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Btn取消, Me.Btn登录, Me.Edit密码, Me.Label2, Me.Edit用户名, Me.Label1})
        Me.MaximizeBox = False
        Me.Name = "Login"
        Me.Text = "Login"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Btn登录_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn登录.Click
        Dim i As Integer
        '定义变量i，在循环中用于计数
        Dim UserName, UserPwd As String
        '这三个字符串变量分别用来存储用户名、用户密码、用户权限
        Dim flag As Boolean
        flag = False

        UserName = Me.Edit用户名.Text
        UserPwd = Me.Edit密码.Text
        '将在窗体的“用户名”、“密码”文本框中输入的字符保留到
        '字符串变量UserName和UserPwd中

        MyCnn = New ADODB.Connection()
        MyRs = New ADODB.Recordset()
        '创建Connection对象、Recordset对象

        strCnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=f:\人事管理.mdb"
        MyCnn.Open(strCnn)
        MyRs.Open("Select * From 用户信息", MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        '获取数据库中“用户信息”表的记录
        MyRs.MoveFirst()
        '将记录指针移动到第一条记录

        For i = 0 To MyRs.RecordCount - 1
            If UserName = MyRs.Fields(1).Value Then
                If UserPwd = MyRs.Fields(2).Value Then
                    MessageBox.Show("登录成功!")
                    flag = True
                    User权限 = MyRs.Fields(3).Value.ToString
                    Exit For
                End If
            End If
            MyRs.MoveNext()
        Next
        '在记录集中查找所输入的用户名和用户密码
        '如果有，显示登录成功信息，并将该用户的权限报存在全局变量User权限中
        '并设置flag变量为True

        If Not flag Then
            MessageBox.Show("登录失败!")
        Else
            '如果登录失败，显示“登录失败！”
            Dim f As MainForm
            f = New MainForm()
            f.Show()
            Me.Hide()
            '如果登录成功，显示窗体MainForm
            '隐藏窗体Login
        End If
    End Sub

    Private Sub Edit用户名_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Edit用户名.KeyUp
        If e.KeyCode = Keys.Enter Then
            Me.Btn登录_Click(sender, e)
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Btn取消_Click(sender, e)
        End If
    End Sub

    Private Sub Btn取消_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn取消.Click
        End
        '如果单击“取消”按钮
        '结束程序
    End Sub

    Private Sub Edit密码_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Edit密码.KeyUp
        If e.KeyCode = Keys.Enter Then
            Me.Btn登录_Click(sender, e)
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Btn取消_Click(sender, e)
        End If
    End Sub

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

    End Sub
End Class