frmuser.vb

本系统利用vb.net做为前台开发工具

    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(88, 24)
    Me.Label1.TabIndex = 14
    Me.Label1.Text = "密    码："
    '
    'txtID
    '
    Me.txtID.Location = New System.Drawing.Point(119, 28)
    Me.txtID.Name = "txtID"
    Me.txtID.Size = New System.Drawing.Size(177, 26)
    Me.txtID.TabIndex = 0
    Me.txtID.Text = ""
    '
    'frmUser
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
    Me.CancelButton = Me.btnExt
    Me.ClientSize = New System.Drawing.Size(680, 480)
    Me.Controls.Add(Me.dgdUser)
    Me.Controls.Add(Me.btnDel)
    Me.Controls.Add(Me.grbUser)
    Me.Controls.Add(Me.btnAdd)
    Me.Controls.Add(Me.btnExt)
    Me.Controls.Add(Me.btnSav)
    Me.Controls.Add(Me.btnEdt)
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.MaximizeBox = False
    Me.Name = "frmUser"
    Me.Text = "用户管理"
    CType(Me.dgdUser, System.ComponentModel.ISupportInitialize).EndInit()
    Me.grbUser.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub

#End Region
    '标志变量，用于标志是对增加进行保存还是对编辑进行保存
    Dim SavAsAdd As Boolean
    Dim odb As New DB.DB
    Dim sqlSel As String
    Private Sub frmUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlSel = "select id as 用户帐号,pwd as 用户密码,role as 用户权限 from users"
        Me.WindowState = FormWindowState.Maximized
        Dim m, n As Integer
        m = Me.Height
        n = Me.Width
        Me.WindowState = FormWindowState.Normal
        Me.Width = n
        Me.Height = m - 25
        Me.Top = 0
        Me.Left = 0
        dgdUser.Left = 0
        dgdUser.Top = 25
        dgdUser.Width = Me.Width
        dgdUser.Height = 2 * Me.Height / 5
        dgdUser.RowHeaderWidth = 5
        dgdUser.PreferredColumnWidth = (Me.Width - 10) / 3
        grbUser.Left = 20
        grbUser.Top = dgdUser.Height + 50
        grbUser.Width = Me.Width - 40
        grbUser.Height = 2 * Me.Height / 5
        btnAdd.Left = 250
        btnAdd.Top = dgdUser.Height + grbUser.Height + 70
        btnAdd.Height = 40
        btnAdd.Width = 80
        btnDel.Left = 350
        btnDel.Top = dgdUser.Height + grbUser.Height + 70
        btnDel.Height = 40
        btnDel.Width = 80
        btnEdt.Left = 450
        btnEdt.Top = dgdUser.Height + grbUser.Height + 70
        btnEdt.Height = 40
        btnEdt.Width = 80
        btnSav.Left = 550
        btnSav.Top = dgdUser.Height + grbUser.Height + 70
        btnSav.Height = 40
        btnSav.Width = 80
        btnExt.Left = 650
        btnExt.Top = dgdUser.Height + grbUser.Height + 70
        btnExt.Height = 40
        btnExt.Width = 80
        dgdUser.DataSource = odb.CreateDataTable(sqlSel)
        FreshFrm(0)
    End Sub

    Private Sub FreshFrm(ByVal n As Integer)
        btnAdd.Enabled = True
        btnSav.Enabled = False
        txtID.ReadOnly = True
        txtPwd.ReadOnly = True
        cmbRole.Enabled = False
        btnDel.Enabled = True
        btnEdt.Enabled = True
        txtID.Text = dgdUser.Item(n, 0)
        txtPwd.Text = dgdUser.Item(n, 1)
        cmbRole.Text = IIf(dgdUser.Item(n, 2) = "admi", "管理人员", "标准用户")
    End Sub



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


    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        txtID.ReadOnly = False
        txtID.Text = ""
        txtPwd.ReadOnly = False
        txtPwd.Text = ""
        cmbRole.Enabled = True
        cmbRole.Text = "标准用户"
        btnAdd.Enabled = False
        btnDel.Enabled = False
        btnEdt.Enabled = False
        btnSav.Enabled = True
        SavAsAdd = True
    End Sub

    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
        If MsgBox("删除的记录不能恢复，确定要删除么？", _
MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            '  请用户确认是否删除，如果用户选择Yes，则接着向下处理；否则，不进行任何操作
            Try
                Dim strDel As String = "delete from users where ID = '" & Trim(txtID.Text) & "'"
                odb.UpdateDataBase(strDel)
                dgdUser.DataSource = odb.CreateDataTable(sqlSel)
                MsgBox("删除成功！", MsgBoxStyle.Information)
            Catch mm As Exception
                MsgBox(mm.Message)
                Exit Sub
            End Try
        End If
        FreshFrm(0)
    End Sub


    Private Sub btnEdt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdt.Click
        txtPwd.ReadOnly = False
        cmbRole.Enabled = True
        btnAdd.Enabled = False
        btnDel.Enabled = False
        btnEdt.Enabled = False
        btnSav.Enabled = True
        SavAsAdd = False
    End Sub

    Private Sub btnSav_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSav.Click
        If SavAsAdd = True Then              '''''''''''''''''''''对增加进行保存
            If txtID.Text = "" Then
                MsgBox("用户帐号是需要要输入的！", MsgBoxStyle.Exclamation)
                txtID.Focus()
                Exit Sub
            Else
                If txtPwd.Text = "" Then
                    MsgBox("用户密码是需要要输入的！", MsgBoxStyle.Exclamation)
                    txtPwd.Focus()
                    Exit Sub
                Else
                    '  输入检测无误后可以提交数据
                    Try
                        Dim strSql = "insert into Users  " & _
                        "values ('" & Trim(txtID.Text) & "','" & Trim(txtPwd.Text) & "','" _
                        & IIf(cmbRole.Text = "管理人员", "admi", "user") & "')"
                        '  按照顺序将用户输入的数据插入到相应的字段中
                        odb.UpdateDataBase(strsql)
                        dgdUser.DataSource = odb.CreateDataTable(sqlSel)
                        MsgBox("增加操作成功！", MsgBoxStyle.Information)

                    Catch mm As Exception
                        '  捕捉异常
                        MsgBox(mm.Message)
                        Exit Sub
                    End Try
                End If
            End If
        Else                                ''''''''''''''''''''''对编辑进行保存  
            If txtPwd.Text = "" Then
                MsgBox("用户密码是需要要输入的！", MsgBoxStyle.Exclamation)
                txtPwd.Focus()
                Exit Sub
            Else
                '  输入检测无误后可以提交数据
                Try
                    Dim strSql As String = "update  Users set Pwd='" _
                    & Trim(txtPwd.Text) & "',Role='" & IIf(cmbRole.Text = "管理人员", "admi", "user") _
                    & "'  where ID='" & Trim(txtID.Text) & "'"
                    '  按照顺序将用户输入的数据插入到相应的字段中
                    odb.UpdateDataBase(strsql)
                    dgdUser.DataSource = odb.CreateDataTable(sqlSel)
                    MsgBox("编辑操作成功！", MsgBoxStyle.Information)
                Catch mm As Exception
                    '  捕捉异常
                    MsgBox(mm.Message)
                    Exit Sub
                End Try
            End If
        End If
        FreshFrm(dgdUser.CurrentRowIndex)
    End Sub
    Private Sub dgdUser_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdUser.CurrentCellChanged
        FreshFrm(dgdUser.CurrentCell.RowNumber)
    End Sub
End Class