- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义用户管理实例中，删除全部用户后无法新增用户的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86865)
-- 发布时间：2016/6/28 9:08:00
-- 自定义用户管理实例中，删除全部用户后无法新增用户的问题？
CaseStudy目录下“自定义用户管理之二”，这个例子的用户全部被删除后，用开发者登陆后，用户管理重新增加用户增加不了，新增用户时出现下面对话框，新增不了用户，不知道什么原因？
-- 发布时间：2016/6/28 9:18:00
--
建议在用户.mdb里新增一个用户admin,进行锁定不被删除，并在“删除用户”按钮里进行代码设置
-- 发布时间：2016/6/28 9:22:00
--
此主题相关图片如下：qq图片20160628090857_副本.jpg
-- 发布时间：2016/6/28 9:23:00
--
汗，删除所有以后，你根本就无法再登陆进去。
-- 发布时间：2016/6/28 9:25:00
--
删除用户的时候，你可以判断，如果是某某用户，或者如果用户数等于1的时候，不允许再删除。
-- 发布时间：2016/6/28 9:29:00
--
请问老师，在哪里设置和判断，怎样写代码
-- 发布时间：2016/6/28 9:30:00
--
在用户.mdb里新增一个用户admin,进行锁定，用户不能删除admin，怎么设置？
-- 发布时间：2016/6/28 9:34:00
--
看5楼，比如
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=1 Then
Dim UserName As String = lst.SelectedItem
_UserTable.SQLDeleteFor("[Name] = \'" & UserName & "\'")
lst.Items.RemoveAt(lst.SelectedIndex)
lst.Select()
End
If
-- 发布时间：2016/6/28 9:39:00
--
“用户管理”窗口中"删除用户“按钮的代码为：
若用户名为admin，则不允许删除该用户，如何完善代码？
-- 发布时间：2016/6/28 9:42:00
--
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
Dim UserName As String = lst.SelectedItem
If UserName = "admin" Then
msgbox("不能删除")
Else
_UserTable.SQLDeleteFor("[Name] = \'" & UserName & "\'")
lst.Items.RemoveAt(lst.SelectedIndex)
lst.Select()
End If
End If