机房收费系统之表格数据与数据库同步

前言

      在你的前方也许有很多荆棘，但是只要你愿意，荆棘也会变成渡你的小船，送你到成功的彼岸。

在机房中，删除数据库中的内容，窗体表格中应该怎么办？

1、清空表格，重新进行遍历，再次显示
例如：机房中增加和删除用户窗体，删除

txtSQL = "Delete from User_Info where userID= '" & Trim(myFlexgrid.TextMatrix(myFlexgrid.RowSel, 0)) & "'"
        Set mrcUser = ExecuteSQL(txtSQL, MsgText)
        
        myFlexgrid.Clear
        myFlexgrid.Rows = 2
        '表格的首行
        With myFlexgrid
                .CellAlignment = 4
                .TextMatrix(0, 0) = "用户名"
                .TextMatrix(0, 1) = "姓名"
                .TextMatrix(0, 2) = "开户人"
        End With
        '判断所选用户级别
        txtSQL = "select *from User_Info where Level='" & Trim(cmbUserClass.Text) & "'"
        Set mrcUser = ExecuteSQL(txtSQL, MsgText)
        myFlexgrid.Rows = myFlexgrid.Rows - 1
                Do While Not mrcUser.EOF
                With myFlexgrid
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrcUser.Fields(0))
                .TextMatrix(.Rows - 1, 1) = Trim(mrcUser.Fields(3))
                .TextMatrix(.Rows - 1, 2) = Trim(mrcUser.Fields(4))

                mrcUser.MoveNext
                End With
                Loop
        mrcUser.Close

2、 MSHFLEXGRID控件的方法：RemoveItem 从网格中清除一行
例如：机房中选择学生下机：

txtSQL = "select * from online_Info where cardno= '" & Trim(myFlexgrid.TextMatrix(myFlexgrid.RowSel, 0)) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        frmmain.Show
        frmmain.txtcardNo = mrc.Fields(0)    '将卡号赋给frmMain窗体中的卡号文本框
        frmmain.cmdOffLine = True    '执行下机操作        
        myFlexgrid.RemoveItem myFlexgrid.RowSel '删除Msflexgrid表中选中的一行

        在第二种解决办法中需要将MSHFLEXGRID控件的固定行取消，否则会报错。（目前没有发现其他的解决办法）

总结

      不经风雨怎能见彩虹，只有跨越了一个一个的坎坷，才能拥有更宝贵的财富，相信自己，也要相信选择，站在巨人的肩膀上不断前行。