Visual Basic 2010 数据库开发之人事管理系统03登录窗体

添加数据源 rsglst.mdf

添加Module模块

Imports System.Data.SqlClient
Imports 人事管理系统.rsglxtDataSetTableAdapters
Module ModuleGlobal
    Public username As String
    Public userpassword As String

    Public Function GetConnetion() As SqlConnection
        Return New SqlConnection(My.Settings.rsglxtConnectionString)
    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

    '判断窗体是否已经打开
    Public Function IsMdiChi(ByVal ChiFrmName As String) As Boolean
        Dim chifrm As Form
        For Each chifrm In frmMain.MdiChildren
            If chifrm.Name = ChiFrmName Then
                If chifrm.Visible Then
                    chifrm.Activate()
                Else
                    chifrm.Show()
                End If
                Return True
            End If
        Next
        Return False
    End Function

    
End Module

窗体代码：

Imports System.Data.SqlClient
Public Class frmLogin
    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ‘调试程序用的
        txtUserName.Text = "张三"
        txtPassWord.Text = "123"
    End Sub
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        If CheckEmpty(txtUserName.Text) = False Then
            txtUserName.Focus()
        ElseIf CheckEmpty(txtPassWord.Text) = False Then
            txtPassWord.Focus()
        Else
            Dim strSql As String =
                    "Select * From 用户表 " _
                  & "Where 用户名='{0}' and 密码='{1}'"
            strSql = String.Format(strSql, txtUserName.Text, txtPassWord.Text)
            'MsgBox(strSql),找语法错误用的
            Dim userda As New SqlDataAdapter(strSql, GetConnetion)
            Dim userdt As New DataTable
            userda.Fill(userdt)

            If userdt.Rows.Count <> 0 Then
                username = txtUserName.Text
                userpassword = txtPassWord.Text
                frmMain.Show()
                Me.Hide()
            Else
                MsgBox("用户名或密码错误")
            End If
        End If


    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Application.Exit()
    End Sub
End Class