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

最新推荐文章于 2025-12-01 02:11:37 发布

最新推荐文章于 2025-12-01 02:11:37 发布 · 143 阅读

文章标签：

本文介绍如何使用MSHFlexGrid控件实现行选择功能，并通过删除按钮触发删除当前选中行及其对应的数据库记录。具体步骤包括定义模块级变量、在MouseDown和MouseUp事件中设置选中行及列，最后在删除按钮点击事件中实现记录的删除。

'定义模块级变量
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 With
End 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 With
End 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