用户添加与删除窗体主要用到的是MSHFlexGrid控件,感觉这个控件很重要耶,后面查询的窗体很多都用到了这个控件,没关系,我们慢慢来梳理,日积月累的就对它熟悉了,这次先简单的分享一下吧,用户添加与删除窗体里面还包含了一个添加用户的窗体,这次有两个流程图哦^_^
一、流程图
①、用户添加删除窗体流程图
②、添加用户流程图
二、查询集
①、myflexgrid控件的使用
②、myflexgrid.cellAlignment 属性
'常数 值 描述
'flexAlignLeftTop 0 单元内容顶部左对齐。
'flexAlignLeftCenter 1 单元内容中间左对齐。对字符串的缺省设置值。
'flexAlignLeftBottom 2 单元内容底部左对齐。
'flexAlignCenterTop 3 单元内容顶部居中。
'flexAlignCenterCenter 4 单元内容中间居中。
'flexAlignCenterBottom 5 单元内容底部居中。
'flexAlignRightTop 6 单元内容顶部右对齐。
'flexAlignRightCenter 7 单元内容中间右对齐。对数字的缺省设置值。
'flexAlignRightBottom 8 单元内容底部右对齐。
'flexAlignGeneral 9 单元内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。
③、如何获取myflexgrid所选中的行数,删除选中内容
三、此窗体中用到的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
以上便是用户添加与删除窗体的梳理部分,下一站修改密码窗体走起^_^