間支付系統，DataGridView

標籤：

          我們通常看到很多的學習使用控制資料庫和介面串連——DataGridView，在我們的房間，當我們敲開使用第一遍階段似該控制項——MSHFlexGrid，隨著學習的深入，發現我們用到的平台越來越人性化了，如今用的VS2013的控制項——DataGridView能夠直接和資料庫相串連，今天重點說一下DataGridView刪除行並同一時候更新資料庫功能的實現：

        這是刪除前的效果，我們要實現的是的效果，左圖為介面。右圖為資料庫中的資料。可是還須要考慮要刪除的使用者是否正在登入。假設正在登入。則不能刪除。

        

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvd2FuZ2RhbjE5OTExMg==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast" width="300" height="170" >

      刪除後的效果：

        

            實現這個功能主要是在U層加了一個方法，B層、D層和其它刪除時是大相徑庭的，以下看一下代碼實現部分：

            1、D層：   

  Public Function DelUser(enUser As UserInfoEntity) As Integer Implements IUserInfo.DelUser        Dim cmdText As String        Dim sqlParams As SqlParameter()        Dim sqlHelper As New SqlHelper        Dim intResult As Integer        cmdText = "Delete from T_UserInfo where [email protected]"        sqlParams = {New SqlParameter("@UserID", enUser.UserID)}        intResult = sqlHelper.ExecuteAddDelUpdate(cmdText, CommandType.Text, sqlParams)        Return intResult    End Function

          2、B層：    

 Public Function DelUser(ByVal enUser As UserInfoEntity) As Integer        Dim iUserInfo As IUserInfo        Dim intResult As Integer        iUserInfo = factory.CreateSelectUser()        intResult = iUserInfo.DelUser(enUser)        Return intResult    End Function

         3、U層：

              a.定義一個刪除行的過程：

 ‘‘‘ <summary>    ‘‘‘ 刪除使用者的自己定義過程    ‘‘‘ </summary>    ‘‘‘ <remarks></remarks>    Public Sub DelUser()        Dim intRows As Integer = DataGridView1.SelectedRows.Count ‘推斷選中的行數        Dim intDelRow As Integer        Dim enUser As New UserInfoEntity        Dim bllAddDelUser As New AddDelUserBLL        Dim strUserID As String ‘擷取選中資料的第一列值        Dim intResult As Integer        If intRows > 0 Then            ‘從下往上刪除，防止漏行            For intDelRow = intRows To 1 Step -1                strUserID = DataGridView1.SelectedRows(intDelRow - 1).Cells("UserIDDataGridViewTextBoxColumn").Value.ToString()                ‘假設該使用者正在工作，則不能刪除                If pubshare.strUserName = strUserID.Trim() Then                    MsgBox("該使用者正在工作，不能刪除", vbOKOnly + vbExclamation, "提示")                    Exit Sub                Else                    ‘將要刪除的使用者ID傳給實體                    enUser.UserID = strUserID                    ‘同一時候將該實體的資訊從資料庫中刪除                    intResult = bllAddDelUser.DelUser(enUser)                    If intResult > 0 Then                        ‘將資料庫中所刪除的相應的資訊在dataGridview表中也刪除                        DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(intDelRow - 1).Index)                        MsgBox("刪除成功", vbOKOnly + vbExclamation, "提示")                    Else                        MsgBox("刪除失敗", vbOKOnly + vbExclamation, "提示")                    End If                End If            Next        Else            DataGridView1.Rows.Clear()        End If    End Sub

              b.通過點擊刪除button來實現這個過程：

 Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click        If DataGridView1.SelectedRows.Count > 0 Then            If MessageBox.Show("確定要刪除所選資訊嗎？", "提示", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then                DelUser()            End If        Else            MessageBox.Show("請選擇要刪除的使用者！
", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)            Return        End If           End Sub

          不過個人的一點想法，希望和大家交流！
   

著作權聲明：本文部落格原創文章，部落格，未經同意，不得轉載。

間支付系統，DataGridView