机房重构---添加删除用户（删除DataGridView选定行，更新数据库）

前言：

我们在添加删除用户这个功能时，有一个选中行删除，下面就让我来告诉你们怎么在DataGridView来实现这个功能吧

内容：

1、绑定数据源

参考这篇博客：http://blog.csdn.net/tgbyn/article/details/74858291

2、代码的展示

（1）窗体加载中添加可选择用户级别

    Private Sub frmAdDeleteAddUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load        'TODO: 这行代码将数据加载到表“LoginDataSet4.Y_User_Info”中。您可以根据需要移动或删除它。        Me.Y_User_InfoTableAdapter.Fill(Me.LoginDataSet4.Y_User_Info)        With cmbSelect            .Items.Add("管理员")            .Items.Add("操作员")            .Items.Add("一般用户")        End With        '隐藏工具栏        FillByToolStrip.Hide()        '清空DataGridView表中数据          While (DataGridView1.RowCount > 0)            DataGridView1.Rows.Remove(DataGridView1.Rows(0))        End While    End Sub

（2）用户级别的选择-控件改变事件，同时根据选择显示相应的信息

 Private Sub cmbSelect_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbSelect.SelectedIndexChanged        LevelToolStripTextBox.Text = cmbSelect.SelectedItem.ToString() '将自己添加的Combo中的内容赋给ToolStripTextBox控件        Try            Me.Y_User_InfoTableAdapter.FillBy(Me.LoginDataSet4.Y_User_Info, LevelToolStripTextBox.Text)        Catch ex As System.Exception            System.Windows.Forms.MessageBox.Show(ex.Message)        End Try    End Sub

（3）删除选中行

  Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click        '判断是否选中        If Me.DataGridView1.SelectedRows.Count > 0 Then            If MessageBox.Show("删除后不可恢复，确定要删除选中的用户吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then                Delete()            End If        Else            MessageBox.Show("请选择要删除的用户！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)            Return        End If    End Sub    Public Sub Delete()        Dim k As Integer = Me.DataGridView1.SelectedRows.Count        Dim user As New Entity.Entity        Dim deleteUser As New Facade.DeleteUserFacade ‘外观层        If DataGridView1.Rows.Count > 0 Then            '从下往上删，避免沙漏效应            For i As Integer = k To 1 Step -1                '获取选中行的列名，并将用户名UserID赋值给userDele                Dim userDele As String = DataGridView1.SelectedRows(i - 1).Cells("UserID").Value.ToString                '如果选中行用户为正在登录的用户，则不能删除                If Form1.txtUserID.Text =userDele  Then                    MsgBox("当前用户不能被删除，请重新选择！", vbOKOnly + vbExclamation, "系统提示")                    Exit Sub                Else                    user.userID = userDele                End If                If deleteUser.deleuserFacade(user) Then                    MsgBox("删除成功", vbOKOnly + vbInformation, "系统提示")                Else                    MessageBox.Show("删除失败！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)                    Return                End If                '将从数据库中删除的信息从Datagridview1中删除                  Me.DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(i - 1).Index)            Next        Else            DataGridView1.Rows.Clear()        End If    End Sub

（4）获取选中行的用户名

 '获取选中行的列名，并将用户名UserID赋值给userDele   Dim userDele As String = DataGridView1.SelectedRows(i - 1).Cells("UserID").Value.ToString

（5）外观层代码 ，后面几层自己写就好

Imports BLLImports EntityPublic Class DeleteUserFacade    Public Function deleuserFacade(user As Entity.Entity)        Dim deleuserBll As New BLL.DeleteUserBLL        Dim dt As Integer        dt = deleuserBll.deleteUser(user)        Return dt    End FunctionEnd Class

（6）D层代码--数据库删除选中行数据

Imports System.Data.SqlClientImports System.DataImports EntityImports IDALImports SQLHelperPublic Class DeleteUserDAL : Implements IDAL.IDeleteAddUser    Public Function Ideleteadduser(ByVal user As Entity.Entity) Implements IDAL.IDeleteAddUser.Ideleteadduser        Dim sqlhelper As New SQLHelper.sqlhelper        Dim Dt As Integer        Dim sqlDelete As String        Dim paras As SqlParameter() = {New SqlParameter("@UserID", user.userID)}        sqlDelete = "delete from Y_User_Info where UserID = @UserID "        Dt = sqlhelper.ExecAddDelUpdate(sqlDelete, CommandType.Text, paras)        Return Dt    End FunctionEnd Class

3、总结：

 这次显示查询到的数据是直接用的DataGridView连接数据源查询的，只有删除选中行是走的七层，感觉挺方便的，没有费多少事。在DataGridView中的添加查询里面，那个查询语句写成删除语句，也是可以执行的。很多东西需要我们去探索。