frmusermanage.vb

师生情况管理系统

        'TxtPassWord
        '
        Me.TxtPassWord.Location = New System.Drawing.Point(70, 54)
        Me.TxtPassWord.Name = "TxtPassWord"
        Me.TxtPassWord.TabIndex = 11
        Me.TxtPassWord.Text = ""
        '
        'GroupBoxUserType
        '
        Me.GroupBoxUserType.Controls.Add(Me.RabOrdinarily)
        Me.GroupBoxUserType.Controls.Add(Me.RabAdministrator)
        Me.GroupBoxUserType.Location = New System.Drawing.Point(346, 20)
        Me.GroupBoxUserType.Name = "GroupBoxUserType"
        Me.GroupBoxUserType.Size = New System.Drawing.Size(92, 58)
        Me.GroupBoxUserType.TabIndex = 4
        Me.GroupBoxUserType.TabStop = False
        Me.GroupBoxUserType.Text = "用户类型"
        '
        'RabOrdinarily
        '
        Me.RabOrdinarily.Location = New System.Drawing.Point(8, 18)
        Me.RabOrdinarily.Name = "RabOrdinarily"
        Me.RabOrdinarily.Size = New System.Drawing.Size(72, 16)
        Me.RabOrdinarily.TabIndex = 13
        Me.RabOrdinarily.Text = "普通用户"
        '
        'RabAdministrator
        '
        Me.RabAdministrator.Location = New System.Drawing.Point(8, 40)
        Me.RabAdministrator.Name = "RabAdministrator"
        Me.RabAdministrator.Size = New System.Drawing.Size(64, 16)
        Me.RabAdministrator.TabIndex = 14
        Me.RabAdministrator.Text = "管理员"
        '
        'TxtUserID
        '
        Me.TxtUserID.Location = New System.Drawing.Point(238, 20)
        Me.TxtUserID.Name = "TxtUserID"
        Me.TxtUserID.TabIndex = 12
        Me.TxtUserID.Text = ""
        '
        'LabUserID
        '
        Me.LabUserID.Location = New System.Drawing.Point(180, 20)
        Me.LabUserID.Name = "LabUserID"
        Me.LabUserID.Size = New System.Drawing.Size(48, 16)
        Me.LabUserID.TabIndex = 2
        Me.LabUserID.Text = "编  号"
        '
        'GroupBoxUser
        '
        Me.GroupBoxUser.Controls.Add(Me.TxtPassWord)
        Me.GroupBoxUser.Controls.Add(Me.GroupBoxUserType)
        Me.GroupBoxUser.Controls.Add(Me.LabUserID)
        Me.GroupBoxUser.Controls.Add(Me.LabUserName)
        Me.GroupBoxUser.Controls.Add(Me.TxtUserName)
        Me.GroupBoxUser.Controls.Add(Me.LabPassWord)
        Me.GroupBoxUser.Controls.Add(Me.TxtUserID)
        Me.GroupBoxUser.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBoxUser.Enabled = False
        Me.GroupBoxUser.Location = New System.Drawing.Point(0, 180)
        Me.GroupBoxUser.Name = "GroupBoxUser"
        Me.GroupBoxUser.Size = New System.Drawing.Size(464, 85)
        Me.GroupBoxUser.TabIndex = 5
        Me.GroupBoxUser.TabStop = False
        Me.GroupBoxUser.Text = "用户"
        '
        'FrmUserManage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(464, 265)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.GroupBoxUser)
        Me.Name = "FrmUserManage"
        Me.Text = "用户管理"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGridUserList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.PanelOK.ResumeLayout(False)
        Me.PanelEdit.ResumeLayout(False)
        Me.GroupBoxUserType.ResumeLayout(False)
        Me.GroupBoxUser.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private DaUser As SqlClient.SqlDataAdapter
    Private DsUser As New DataSet

    Private Sub FrmUserManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DsUser.Clear()
        Dim Con As New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
        Try
            Dim sql As String = "select TID,Uname,Upassword,Utype from UserInfo"
            DaUser = New SqlClient.SqlDataAdapter(sql, Con)
            Con.Open()
            DaUser.Fill(DsUser, "user")
            Dim MyCommandBuilder As New SqlClient.SqlCommandBuilder(DaUser)
            DataGridUserList.DataSource = DsUser.Tables(0)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
        End Try
    End Sub

    Private Sub BtnAddUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddUser.Click
        GroupBoxUser.Enabled = True
        PanelEdit.Enabled = False
        PanelOK.Enabled = True
        GroupBoxUser.Text = "添加用户"
    End Sub

    Private Sub BtnDelUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelUser.Click
        If MsgBox("你真的要删除当前所选定的用户吗？", 48 + 4, "删除") <> 6 Then
            Exit Sub
        End If
        Try
            DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Delete()
            DaUser.Update(DsUser, "user")
        Catch ex As Exception
            MsgBox("删除失败" & vbCrLf & ex.Message)
        End Try
    End Sub

    Private Sub BtnEditUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditUser.Click
        GroupBoxUser.Enabled = True
        PanelEdit.Enabled = False
        PanelOK.Enabled = True
        GroupBoxUser.Text = "修改用户"
        TxtUserID.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(0)
        TxtUserName.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(1)
        TxtPassWord.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(2)
        If Trim(DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(3)) = "Administrator" Then
            RabAdministrator.Checked = True
        Else
            RabOrdinarily.Checked = True
        End If
    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If GroupBoxUser.Text = "添加用户" Then
            Dim MyDataRow As DataRow = DsUser.Tables(0).NewRow
            MyDataRow(0) = TxtUserID.Text
            MyDataRow(1) = TxtUserName.Text
            MyDataRow(2) = TxtPassWord.Text
            If RabAdministrator.Checked = True Then
                MyDataRow(3) = "Administrator"
            Else
                MyDataRow(3) = "Ordinarily"
            End If
            DsUser.Tables(0).Rows.Add(MyDataRow)
        End If
        If GroupBoxUser.Text = "修改用户" Then
            DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(0) = TxtUserID.Text
            DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(1) = TxtUserName.Text
            DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(2) = TxtPassWord.Text
            If RabAdministrator.Checked = True Then
                DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(3) = "Administrator"
            Else
                DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(3) = "Ordinarily"
            End If
        End If
        PanelEdit.Enabled = True
        PanelOK.Enabled = False
        GroupBoxUser.Text = "用户信息"
        GroupBoxUser.Enabled = False
        Try
            DaUser.Update(DsUser, "user")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        GroupBoxUser.Enabled = False
        PanelEdit.Enabled = True
        PanelOK.Enabled = False
        GroupBoxUser.Text = "用户信息"
    End Sub

    Private Sub DataGridUserList_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridUserList.CurrentCellChanged
        TxtUserID.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(0)
        TxtUserName.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(1)
        TxtPassWord.Text = DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(2)
        If Trim(DsUser.Tables(0).Rows(DataGridUserList.CurrentCell.RowNumber).Item(3)) = "Administrator" Then
            RabAdministrator.Checked = True
        Else
            RabOrdinarily.Checked = True
        End If
    End Sub
End Class