frmlogin.vb

vfp开发的进销存管理系统,运行相应系统的Setup安装程序

Imports System.Data
Imports System.Data.SqlClient
Public Class frmLogin
    Inherits System.Windows.Forms.Form
    '用于返回登陆结果
    Public bResult As Boolean = False
    '登陆用户的ID
    Public UserId As String = ""
    '登陆的用户名
    Public UserName As String = ""
    '登陆的用户密码
    Private UserPwd As String = ""
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

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

        '在 InitializeComponent() 调用之后添加任何初始化
        Me.txbUserId.Focus()
    End Sub

    '窗体重写 dispose 以清理组件列表。
    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 lblName As System.Windows.Forms.Label
    Friend WithEvents lblPwd As System.Windows.Forms.Label
    Friend WithEvents txbPwd As System.Windows.Forms.TextBox
    Friend WithEvents btnSubmit As System.Windows.Forms.Button
    Friend WithEvents btnClear As System.Windows.Forms.Button
    Friend WithEvents lblUserId As System.Windows.Forms.Label
    Friend WithEvents txbUserId As System.Windows.Forms.TextBox
    Friend WithEvents txbName As System.Windows.Forms.TextBox
    Friend WithEvents lblText As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblName = New System.Windows.Forms.Label
        Me.txbName = New System.Windows.Forms.TextBox
        Me.lblPwd = New System.Windows.Forms.Label
        Me.txbPwd = New System.Windows.Forms.TextBox
        Me.btnSubmit = New System.Windows.Forms.Button
        Me.btnClear = New System.Windows.Forms.Button
        Me.lblUserId = New System.Windows.Forms.Label
        Me.txbUserId = New System.Windows.Forms.TextBox
        Me.lblText = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'lblName
        '
        Me.lblName.Location = New System.Drawing.Point(63, 64)
        Me.lblName.Name = "lblName"
        Me.lblName.Size = New System.Drawing.Size(49, 16)
        Me.lblName.TabIndex = 11
        Me.lblName.Text = "用户名"
        '
        'txbName
        '
        Me.txbName.Location = New System.Drawing.Point(113, 56)
        Me.txbName.Name = "txbName"
        Me.txbName.Size = New System.Drawing.Size(64, 21)
        Me.txbName.TabIndex = 1
        Me.txbName.Text = ""
        '
        'lblPwd
        '
        Me.lblPwd.Location = New System.Drawing.Point(69, 96)
        Me.lblPwd.Name = "lblPwd"
        Me.lblPwd.Size = New System.Drawing.Size(36, 16)
        Me.lblPwd.TabIndex = 12
        Me.lblPwd.Text = "密码"
        '
        'txbPwd
        '
        Me.txbPwd.Location = New System.Drawing.Point(113, 88)
        Me.txbPwd.Name = "txbPwd"
        Me.txbPwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.txbPwd.Size = New System.Drawing.Size(64, 21)
        Me.txbPwd.TabIndex = 2
        Me.txbPwd.Text = ""
        '
        'btnSubmit
        '
        Me.btnSubmit.Location = New System.Drawing.Point(64, 128)
        Me.btnSubmit.Name = "btnSubmit"
        Me.btnSubmit.Size = New System.Drawing.Size(49, 23)
        Me.btnSubmit.TabIndex = 3
        Me.btnSubmit.Text = "确定"
        '
        'btnClear
        '
        Me.btnClear.Location = New System.Drawing.Point(128, 128)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.Size = New System.Drawing.Size(48, 23)
        Me.btnClear.TabIndex = 4
        Me.btnClear.Text = "取消"
        '
        'lblUserId
        '
        Me.lblUserId.Location = New System.Drawing.Point(65, 32)
        Me.lblUserId.Name = "lblUserId"
        Me.lblUserId.Size = New System.Drawing.Size(48, 16)
        Me.lblUserId.TabIndex = 10
        Me.lblUserId.Text = "用户号"
        '
        'txbUserId
        '
        Me.txbUserId.Location = New System.Drawing.Point(113, 24)
        Me.txbUserId.Name = "txbUserId"
        Me.txbUserId.Size = New System.Drawing.Size(64, 21)
        Me.txbUserId.TabIndex = 1
        Me.txbUserId.Text = ""
        '
        'lblText
        '
        Me.lblText.Location = New System.Drawing.Point(43, 168)
        Me.lblText.Name = "lblText"
        Me.lblText.Size = New System.Drawing.Size(160, 16)
        Me.lblText.TabIndex = 13
        Me.lblText.Text = "初始用户为:1  密码为sys"
        '
        'frmLogin
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(246, 195)
        Me.Controls.Add(Me.lblText)
        Me.Controls.Add(Me.txbUserId)
        Me.Controls.Add(Me.lblUserId)
        Me.Controls.Add(Me.btnClear)
        Me.Controls.Add(Me.btnSubmit)
        Me.Controls.Add(Me.txbPwd)
        Me.Controls.Add(Me.lblPwd)
        Me.Controls.Add(Me.txbName)
        Me.Controls.Add(Me.lblName)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.MaximizeBox = False
        Me.Name = "frmLogin"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "登录"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub btnSubmit_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSubmit.Click
        '判断用户输入密码的合法性
        If Me.UserPwd.Trim() = Me.txbPwd.Text.Trim() _
        And UserPwd <> "" Then
            '合法用户
            bResult = True
            UserName = Me.txbName.Text.Trim()
            Me.Close()
        Else
            '密码错误
            bResult = False
            MessageBox.Show("请确认你的用户名或密码是否正确")
        End If
    End Sub
    Private Sub btnClear_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnClear.Click
        '关闭登陆对话框
        Me.Close()
        '关闭整个程序
        Application.Exit()
    End Sub

    Private Sub txbPwd_KeyPress(ByVal sender As Object, _
    ByVal e As KeyPressEventArgs) Handles txbPwd.KeyPress
        '判断是否是回车键
        If e.KeyChar = Microsoft.VisualBasic.ChrW(13) _
        And UserId <> "" Then
            '是回车键并调用【确定】按钮的单击事件响应函数
            Me.btnSubmit_Click(Nothing, Nothing)
        End If
    End Sub
    Private Sub txbUserId_KeyPress(ByVal sender As Object, _
    ByVal e As KeyPressEventArgs) Handles txbUserId.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
            '将焦点移到txbPwd
            Me.txbPwd.Focus()
        End If
    End Sub
    Private Sub txbUserId_LostFocus(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles txbUserId.LostFocus
        '定义一个数据访问类的对象
        Dim db As DataBase = New DataBase
        '根据输入的用户ID进行查询
        Dim dv As DataView = _
        db.RunSelectSQL _
        ("select 密码,姓名 from 用户清单 where 用户编号 = '" _
        + Me.txbUserId.Text.Trim() + "'")
        '判断用户ID是否存在
        If dv.Count = 0 Then
            '用户ID不存在
            Me.txbUserId.Text = ""
            Me.txbPwd.Text = ""
            Me.txbName.Text = ""
        Else
            '用户ID存在
            UserId = Me.txbUserId.Text.Trim()
            '获得用户的密码级用户名
            Me.UserPwd = dv.Item(0)("密码")
            Me.txbName.Text = dv.Item(0)("姓名")
        End If
        '释放数据访问类的占用资源
        db.Dispose()
    End Sub
End Class