机房收费系统之用户添加删除（MSHFlexGrid控件的使用）

      用户添加与删除窗体主要用到的是MSHFlexGrid控件，感觉这个控件很重要耶，后面查询的窗体很多都用到了这个控件，没关系，我们慢慢来梳理，日积月累的就对它熟悉了，这次先简单的分享一下吧，用户添加与删除窗体里面还包含了一个添加用户的窗体，这次有两个流程图哦^_^ 

一、流程图

①、用户添加删除窗体流程图

②、添加用户流程图

 

二、查询集

 ①、myflexgrid控件的使用

https://blog.csdn.net/wangtopcool/article/details/721809

②、myflexgrid.cellAlignment 属性

'常数   值   描述 

'flexAlignLeftTop                0   单元内容顶部左对齐。 

'flexAlignLeftCenter           1   单元内容中间左对齐。对字符串的缺省设置值。 

'flexAlignLeftBottom          2   单元内容底部左对齐。 

'flexAlignCenterTop           3   单元内容顶部居中。 

'flexAlignCenterCenter      4   单元内容中间居中。 

'flexAlignCenterBottom     5   单元内容底部居中。 

'flexAlignRightTop             6   单元内容顶部右对齐。 

'flexAlignRightCenter        7   单元内容中间右对齐。对数字的缺省设置值。 

'flexAlignRightBottom       8   单元内容底部右对齐。 

'flexAlignGeneral               9   单元内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。

③、如何获取myflexgrid所选中的行数，删除选中内容

https://blog.csdn.net/wrs120/article/details/51926267/

 

三、此窗体中用到的myflexgrid控件属性

①、myflexgrid表格中内容的添加

myflexgrid.textMatrix(行数，列数)=“添加的内容”

②、myflexgrid总行数

.Rows

③、循环添加内容

do while ......mrc.movenext ......loop

.Rows=.Rows+1

④、选中的行数

myflexgrid.RowSel

⑤、读取表格中内容

myflexgrid.text

 

四、代码片段

①、从数据库中加载数据至myflexgrid控件内

Private Sub combotype_Click()           '组合控件的单击事件
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    '从数据库内搜索组合控件内的用户类型，并进行查询显示
    txtSQL = "select * from User_Info where Level='" & combotype.Text & "' "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        
    With myflexgrid
        .Rows = 1                        '设置总行数为1，这是的总行数默认为0
        .CellAlignment = 4               '单元格内容中间居中
        .TextMatrix(0, 0) = "用户名"      '将内容添加是标题行，0行
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "开户人"
        Do While Not mrc.EOF             '非标题行的内容循环添加
            .Rows = .Rows + 1            '总行数为之前的总行数加1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))  '将数据库内容添加至表格内
            .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
            mrc.MoveNext                 '光标下移
        Loop
    End With
       
End Sub

②、获取myflexgrid控件选中的行数

Private Sub myflexgrid_Click() 'flexgrid单击事件
    cmddelete.Enabled = True   '激活删除控件
    n = myflexgrid.RowSel      '将flexgrid中选中行的行数赋值给变量n   
End Sub

③、在数据库中和表格中删除选中行内容

Private Sub cmddelete_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    '从数据库中删除flexgrid控件选中的内容
    txtSQL = "delete from User_Info where userID='" & myflexgrid.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    myflexgrid.RemoveItem n             '在myflexgrid控件中删除选中的行

End Sub

以上便是用户添加与删除窗体的梳理部分，下一站修改密码窗体走起^_^