userform.vb

vb.net+sql进销存管理系统

        Me.lbOper.Text = "增加"

        Me.tbPwd_New.ReadOnly = True
        Me.tbPwd_New.Text = String.Empty

        Me.SetEnable(New Int16() {1, 1})
    End Sub

    Private Sub mItem_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mItem_Del.Click
        If (Me.lbUser.SelectedIndex = -1) Then
            MessageBox.Show("未选定任何用户")
        Else
            Try
                Dim id As String = Me.lbUser.SelectedItem.ToString().Trim()

                If Not Me.CheckUser(id.Trim()) Then
                    MessageBox.Show("用户不存在")
                ElseIf MessageBox.Show("确认删除？", "删除确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = DialogResult.OK Then
                    If Me.DelUser(id.Trim()) Then
                        MessageBox.Show("删除成功")
                        Me.BindLb()
                    Else
                        MessageBox.Show("删除失败")
                    End If
                End If
            Catch ex As Exception
                Sample02.WriteErr(ex)
            End Try
        End If
    End Sub

    Private Sub mItem_Mod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mItem_Mod.Click
        
        If (Me.lbUser.SelectedIndex = -1) Then
            MessageBox.Show("未选定任何用户")
        Else
            Me.Oper = "Mod"
            Me.lbOper.Text = "修改"

            Me.tbPwd_New.ReadOnly = False

            Try
                Dim id As String = Me.lbUser.SelectedItem.ToString().Trim()
                Me.GetUser(id.Trim())
                Me.SetEnable(New Int16() {1, 1})
            Catch ex As Exception
                Sample02.WriteErr(ex)
            End Try
        End If
    End Sub

    Private Sub btOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOK.Click
        If Me.Oper.Trim() <> String.Empty Then

            If Me.Oper.Trim() = "Add" Then
                If Me.CheckUser(Me.tbId.Text.Trim()) Then
                    MessageBox.Show("用户已经存在")
                    Me.tbId.Focus()
                ElseIf Me.tbId.Text.Trim() = String.Empty Then
                    MessageBox.Show("用户ID不能为空")
                    Me.tbId.Focus()
                ElseIf Me.tbName.Text.Trim() = String.Empty Then
                    MessageBox.Show("用户名不能为空")
                    Me.tbName.Focus()
                ElseIf Me.tbPwd.Text.Trim() = String.Empty Then
                    MessageBox.Show("密码不能为空")
                    Me.tbPwd.Focus()
                Else
                    If Me.AddUser() Then
                        MessageBox.Show("增加成功")
                        Me.SetEnable(New Int16() {0, 0})
                        Me.SetDefault()
                        Me.BindLb()
                    Else
                        MessageBox.Show("增加失败")
                    End If
                End If

            ElseIf Me.Oper.Trim() = "Mod" Then
                If Not Me.CheckUser(Me.tbId.Text.Trim()) Then
                    MessageBox.Show("用户不存在")
                    Me.tbId.Focus()
                ElseIf Me.tbId.Text.Trim() = String.Empty Then
                    MessageBox.Show("用户ID不能为空")
                    Me.tbId.Focus()
                ElseIf Me.tbName.Text.Trim() = String.Empty Then
                    MessageBox.Show("用户名不能为空")
                    Me.tbName.Focus()

                Else
                    If Me.tbPwd_New.Text.Trim() <> String.Empty Then
                        If Me.tbPwd.Text.Trim() = String.Empty Then
                            MessageBox.Show("密码不能为空")
                            Me.tbPwd.Focus()
                        ElseIf Not Me.CheckPwd() Then
                            MessageBox.Show("密码不正确")
                            Me.tbPwd.Focus()
                        Else
                            If Me.ModUser(1) Then
                                MessageBox.Show("修改成功")
                                Me.SetEnable(New Int16() {0, 0})
                                Me.SetDefault()
                                Me.BindLb()
                            Else
                                MessageBox.Show("修改失败")
                            End If
                        End If

                    Else
                        If Me.ModUser(0) Then
                            MessageBox.Show("修改成功")
                            Me.SetEnable(New Int16() {0, 0})
                            Me.SetDefault()
                            Me.BindLb()
                        Else
                            MessageBox.Show("修改失败")
                        End If

                    End If
                End If
            End If
        End If
    End Sub

    Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
        Me.SetDefault()
        Me.SetEnable(New Int16() {0, 0})
    End Sub

    Private Sub btQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btQuit.Click
        Me.Close()
    End Sub

    Private Sub BindLb()
        Me.lbUser.Items.Clear()

        Dim sql = "SELECT * FROM [USER] ORDER BY USERID"
        Dim dt As DataTable = Sample02.GetDataTable(sql)
        Try
            For Each dr As DataRow In dt.Rows
                Me.lbUser.Items.Add(dr("USERID"))
            Next
        Catch ex As Exception
            Sample02.WriteErr(ex)
        End Try
    End Sub

    Private Sub SetEnable(ByVal s As Int16())
        Me.btOK.Enabled = (s(0) = 1)
        Me.btCancel.Enabled = (s(1) = 1)
    End Sub

    Private Function GetCheck() As String
        Dim pur As String = String.Empty

        If Me.cbAdmin.Checked Then
            pur += ",A"
        End If

        If Me.cbOrder.Checked Then
            pur += ",0"
        End If

        If Me.cbIn.Checked Then
            pur += ",1"
        End If

        If Me.cbOut.Checked Then
            pur += ",2"
        End If

        If Me.cbSeek.Checked Then
            pur += ",3"
        End If

        If pur.Trim() <> String.Empty Then
            pur = pur.Substring(1)
        End If

        Return pur
    End Function

    Private Sub SetCheck(ByVal pur As String)

        Me.cbAdmin.Checked = (pur.IndexOf("A") <> -1)
        Me.cbOrder.Checked = (pur.IndexOf("0") <> -1)
        Me.cbIn.Checked = (pur.IndexOf("1") <> -1)
        Me.cbOut.Checked = (pur.IndexOf("2") <> -1)
        Me.cbSeek.Checked = (pur.IndexOf("3") <> -1)

    End Sub

    Private Sub SetDefault()
        Me.Oper = String.Empty
        Me.lbOper.Text = "无"

        Me.tbId.Text = String.Empty
        Me.tbName.Text = String.Empty
        Me.tbPwd.Text = String.Empty
        Me.tbPwd_New.ReadOnly = False
        Me.tbPwd_New.Text = String.Empty

        Me.cbAdmin.Checked = False
        Me.cbOrder.Checked = False
        Me.cbIn.Checked = False
        Me.cbOut.Checked = False
        Me.cbSeek.Checked = False
    End Sub

    Private Function CheckUser(ByVal id As String) As Boolean
        Return (Sample02.GetDataTable("SELECT * FROM [USER] WHERE USERID = '" + id.Trim() + "'").Rows.Count <> 0)
    End Function

    Private Function CheckPwd() As Boolean
        Dim Id As String = Me.tbId.Text.Trim()
        Dim Pwd As String = Me.tbPwd.Text.Trim()

        Try
            Dim sql As String = "SELECT * FROM [USER] WHERE USERID = '" + Id.Trim() + "' AND PWD = '" + Pwd.Trim() + "'"
            Dim dt As DataTable = Sample02.GetDataTable(sql)

            If dt.Rows.Count = 0 Then
                Return False
            Else
                Return True
            End If
        Catch
            Return False
        End Try
    End Function

    Private Sub GetUser(ByVal id As String)
        Dim sql As String = "SELECT * FROM [USER] WHERE USERID = '" + id.Trim() + "'"

        Dim dt As DataTable = Sample02.GetDataTable(sql)

        If dt.Rows.Count <> 0 Then
            Try
                Dim dr As DataRow = dt.Rows(0)

                Me.tbId.Text = dr("USERID").ToString().Trim()
                Me.tbName.Text = dr("USERNAME").ToString().Trim()
                Me.SetCheck(dr("PURVIEW").ToString().Trim())

            Catch ex As Exception
                Sample02.WriteErr(ex)
            End Try

        End If
    End Sub

    Private Function AddUser() As Boolean
        Dim flag As Boolean = True

        Dim Id As String = Me.tbId.Text.Trim()
        Dim Name As String = Me.tbName.Text.Trim()
        Dim Pwd As String = Me.tbPwd.Text.Trim()
        Dim Pur As String = Me.GetCheck()

        Dim sql As String = "INSERT INTO [USER] VALUES('" + Id.Trim() + "','" + Name.Trim() + "','" + Pwd.Trim() + "','" + Pur.Trim() + "')"
        Dim SqlCmd As New SqlCommand(sql, Sample02.SqlCon)

        Try
            Sample02.SqlCon.Open()
            SqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            Sample02.WriteErr(ex)
            flag = False
        Finally
            Sample02.SqlCon.Close()
        End Try


        Return flag
    End Function


    Private Function DelUser(ByVal id As String) As Boolean

        Dim flag As Boolean = True

        Try
            Dim sql As String = "DELETE FROM [USER] WHERE USERID = '" + id.Trim() + "'"
            Dim SqlCmd As New SqlCommand(sql, Sample02.SqlCon)
            Sample02.SqlCon.Open()
            SqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            Sample02.WriteErr(ex)
            flag = False
        Finally
            Sample02.SqlCon.Close()
        End Try

        Return flag

    End Function

    Private Function ModUser(ByVal i As Int16) As Boolean

        Dim flag As Boolean = True

        Dim Id As String = Me.tbId.Text.Trim()
        Dim Name As String = Me.tbName.Text.Trim()
        Dim Pwd As String = Me.tbPwd.Text.Trim()
        Dim Pwd_New As String = Me.tbPwd_New.Text.Trim()
        Dim Pur As String = Me.GetCheck()

        Dim sql As String = String.Empty

        If i = 0 Then
            sql = "UPDATE [USER] SET USERNAME='" + Name.Trim() + "', PURVIEW='" + Pur.Trim() + "' WHERE USERID ='" + Id.Trim() + "'"
        ElseIf i = 1 Then
            sql = "UPDATE [USER] SET USERNAME='" + Name.Trim() + "',PWD = '" + Pwd_New.Trim() + "', PURVIEW='" + Pur.Trim() + "' WHERE USERID ='" + Id.Trim() + "'"
        End If

        Dim SqlCmd As New SqlCommand(sql, Sample02.SqlCon)

        Try
            Sample02.SqlCon.Open()
            SqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            Sample02.WriteErr(ex)
            flag = False
        Finally
            Sample02.SqlCon.Close()
        End Try

        Return flag

    End Function
End Class