在添加和删除用户窗体中有一些逻辑问题如果没有注意就会造成错误。下面将对这些错误进行总结,罗列。
总体思路
通过下面的流程图进行思路整理。
正在登陆的用户不能删除
如果把数据库全清之后,以后系统该如何进入呢?所以在删除用户的时候就要进行限制。
If myflexgrid.Row = 0 Then '不能删除第一行文本
MsgBox "这一行不能删除!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'判断要删除的是不是正在登陆的窗口
If myflexgrid.TextMatrix(myflexgrid.RowSel, 0) = Trim(UserName) Then
MsgBox "正在登陆的用户不能删除!", vbOKOnly + vbExclamation, "警告"
Else
txtSQL = "select * from User_Info where UserID= '" & Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
'移除要删除的项目
myflexgrid.RemoveItem myflexgrid.Row
mrc.Delete
mrc.Update
mrc.Close
End If
添加用户的默认值的问题
添加用户一般是因为观看这一类用户,缺少才会添加。所以添加用户的用户类型为自己观看的值。
添加用户窗口的清空问题
添加用户的用户类型combo窗口中设置为类型3即不能手动输入,这样造成了一个问题,不能进行清空。我的解决方法为在窗体的load事件中对上面控件添加空项目。清空的时候对控件的tablist属性设置为0.就不会有不能清空的问题。