users.vb

来自「本文件为进销存管理系统的代码 在VB的环境下运行 用比较简单的结构完成的」· VB 代码 · 共 151 行

Imports System.Data.SqlClient

Public Class Users
    '显示用户名 (也用来显示货品父类,货品，4个业务员，仓库)
    Public Shared Sub ShowAdmin(ByVal cmb As ComboBox)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader
            While reader.Read
                cmb.Items.Add(Trim(reader(0)))
            End While
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '用户登陆验证
    Public Shared Function CheckUsers(ByVal username As String, ByVal pwd As String) As Boolean
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("CheckUsers", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@UserName", username)
            con.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader
            While reader.Read
                If Trim(reader(0)) = pwd Then
                    ID = reader(1)
                    Return True
                Else
                    Return False
                End If
            End While
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Function

    '显示用户信息(也用来显示仓库，客户，货品，库存的信息)
    Public Shared Sub ShowInfo(ByVal dg As DataGrid)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            dg.DataSource = ds.Tables(0)
            dtTemp = ds.Tables(0)
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '显示用户类型
    Public Shared Sub UsersGroup(ByVal cmb As ComboBox)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("ShowUserGroup", con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader
            While reader.Read
                cmb.Items.Add(reader(0))
            End While
            reader.Close()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub


    '添加用户
    Public Shared Sub AddUsers(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("insert_bssTable_Users_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@UserName", a(0).Trim)
            cmd.Parameters.Add("@UserGroup", a(1).Trim)
            cmd.Parameters.Add("@PassWord", a(2).Trim)
            cmd.Parameters.Add("@UserRemark", a(3).Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '修改用户
    Public Shared Sub ModUsers(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("update_bssTable_Users_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@UserID", Temp(0))
            cmd.Parameters.Add("@UserName", a(0).Trim)
            cmd.Parameters.Add("@UserGroup", a(1).Trim)
            cmd.Parameters.Add("@UserRemark", a(2).Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '删除用户
    Public Shared Sub DelUsers(ByVal ID As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("delete_bssTable_Users_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@UserID", ID)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '修改密码
    Public Shared Sub ChangePWD(ByVal userid As String, ByVal pwd As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("update_bssTable_Users_2", con)
            cmd.CommandType = CommandType.StoredProcedure
            '必须要用主键来做参数
            cmd.Parameters.Add("@UserID", userid)
            cmd.Parameters.Add("@PassWord", pwd)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub
End Class