Visual Basic 2010 数据库开发之超市管理系统02登录窗体

登录窗体各控件及主要属性设置表

控  件	属性性名	属性值	功能
	Name	Frmlogin	提供登录窗口
	Text	超市管理系统
Forml	FormBorderStyle	FixedDialog	不允许调整窗体体大小
	MaximizeBox	False
	AcceptButton	btnlogin	按回车键相当于单击“确定”
	CancelButton	btnclose	按Esc键相当于单击“取消”
Button	Name	btnlogin
	Text	确定
Buiton	name	btnclose
	Text	取消
ComboBox	Name	cmbName	提供用户选择
	DropDownStyle	DropDownlist	用户只能选择不能输入
TextBox	Namc	Txtpwd
Label	Text	用户名:
Labcl	Text	密码:

添加Module模块

Imports System.Data.SqlClient
Module Module1
    Public username As String
    Public userpassword As String

    Public Function GetConnection() As SqlConnection
        Return New SqlConnection(My.Settings.csglxtConnectionString)
    End Function

    '检查输入是否为空
    Friend Function CheckEmpty(ByVal str As String) As Boolean
        If str.Trim = "" Then
            MessageBox.Show("数据输入不完整，请重新输入！", "错误提示信息", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
            Return False
        Else
            Return True
        End If
    End Function
End Module

添加一个用户表的类

Public Class user
        Private mName As String
        Private mPassword As String
        Public Property name As String
            Get
                Return mName
            End Get
            Set(ByVal value As String)
                mName = value
            End Set
        End Property
        Public Property Password As String
            Get
                Return mPassword
            End Get
            Set(ByVal value As String)
                mPassword = value
            End Set
        End Property
        Public Function GetAllUser() As DataTable
            Dim conn As SqlConnection = GetConnection()
            conn.Open()
            Dim strSql As String = "Select * from usertable"
            Dim da As New SqlDataAdapter(strSql, conn)
            Dim dt As New DataTable
            da.Fill(dt)
            conn.Close()
            Return dt
        End Function

        Public Function GetByValue(ByVal strName As String, ByVal strpwd As String) As DataTable
            Dim conn As SqlConnection = GetConnection()
            conn.Open()
            Dim strSql As String = "Select * from usertable where name='{0}' and password='{1}'"
            strSql = String.Format(strSql, strName, strpwd)
            Dim da As New SqlDataAdapter(strSql, conn)
            Dim dt As New DataTable
            da.Fill(dt)
            Return dt
        End Function
    End Class

窗体代码

Imports System.Data.SqlClient
Public Class frmLogin
    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim us As New user
        Dim dt As New DataTable
        dt = us.GetAllUser
        For Each trow As DataRow In dt.Rows
            cmbUserName.Items.Add(trow.Item(0))
        Next
        cmbUserName.Text = cmbUserName.Items(0)
        txtpwd.Text = "123"
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If CheckEmpty(cmbUserName.Text) Then
            cmbUserName.Focus()
        Else
            If CheckEmpty(txtpwd.Text) Then
                txtpwd.Focus()
            Else
                Dim us As New user
                Dim dt As New DataTable
                dt = us.GetByValue(cmbUserName.Text, txtpwd.Text)
                If dt.Rows.Count = 0 Then
                    MsgBox("密码错误")
                Else
                    username = cmbUserName.Text.Trim
                    userpassword = txtpwd.Text.Trim
                    Me.Hide()
                    Dim newFrmMain As New FrmMain
                    newFrmMain.Show()
                End If
            End If
        End If

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class