[vb版机房] 添加和删除用户

发布时间：2020-12-17 07:44:17 所属栏目：百科来源：网络整理

导读：在添加和删除用户窗体中有一些逻辑问题如果没有注意就会造成错误。下面将对这些错误进行总结，罗列。总体思路通过下面的流程图进行思路整理。正在登陆的用户不能删除如果把数据库全清之后，以后系统该如何进入呢？所以在删除用户的时候就要进行限制。 If

在添加和删除用户窗体中有一些逻辑问题如果没有注意就会造成错误。下面将对这些错误进行总结，罗列。

总体思路

通过下面的流程图进行思路整理。

正在登陆的用户不能删除

如果把数据库全清之后，以后系统该如何进入呢？所以在删除用户的时候就要进行限制。

  If myflexgrid.Row = 0 Then    '不能删除第一行文本
      MsgBox "这一行不能删除！",vbOKOnly + vbExclamation,"警告"
      Exit Sub
   End If
   '判断要删除的是不是正在登陆的窗口
   
   If myflexgrid.TextMatrix(myflexgrid.RowSel,0) = Trim(UserName) Then
      MsgBox "正在登陆的用户不能删除！","警告"
   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.就不会有不能清空的问题。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!