机房收费系统之选中MSHFlexGrid中的某条记录进行删除

来源：互联网发布：0桩号的右侧无数据编辑：程序博客网时间：2024/04/29 05:36

'定义模块级变量Dim NowRow As Integer

第一步：在MSHFlexGrid的MouseDown事件中添加如下代码

Private Sub mfgAddDeleteUser_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)    With mfgAddDeleteUser        .Row = .MouseRow        NowRow = .Row        .Col = 0        .ColSel = .Cols - 1    End WithEnd Sub

第二步：在MSHFlexGrid的MouseUp事件中添加如下代码

Private Sub mfgAddDeleteUser_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)    With mfgAddDeleteUser        .RowSel = NowRow        .ColSel = .Cols - 1    End WithEnd Sub

第三步：在“删除”按钮下添加如下代码

Private Sub cmdDelete_Click()    Dim rstMrc As ADODB.Recordset    Dim strSQL As String    Dim strMsg As String        '在数据库中删除选中记录    strSQL = "delete from  User_Info where UserID= '" & Trim(mfgAddDeleteUser.TextMatrix(mfgAddDeleteUser.Row, 0)) & "'"    Set rstMrc = ExecuteSQL(strSQL, strMsg)            '在mfgAddDeleteUser中删除选中记录    mfgAddDeleteUser.RemoveItem mfgAddDeleteUser.Row    End Sub