在机房收费系统中有一个删除用户窗体,我们要实现单击MSFlexGrid中的数据,点击删除。即可实现表和数据库里的数据同时删除。以下是详细代码,及注释。
<span style="font-size:14px;">Private Sub cmdDelete_Click() '删除用户(保留正在登陆的用户)
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
Dim mrcc As ADODB.Recordset
myflexgrid.SelectionMode = flexSelectionByRow '单击的时候选择的是整行
myflexgrid.FocusRect = flexFocusNone '在当前单元的周围画一个焦点框
myflexgrid.HighLight = flexHighlightWithFocus '该值决定了所选定的单元是否突出显示
txtSQL = "select *from User_Info where userID='" & Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) = Trim(UserName) Then
x = MsgBox("该用户正在登陆,不能删除!", vbOKCancel, "警告")
Else
txtSQL = "delete from User_Info where userID = '" & Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
'删除选中行,对应数据库中的数据
myflexgrid.RemoveItem myflexgrid.Row
'删除MSFlexGrid选中的行
MsgBox "删除成功!"
End If
End Sub</span>