- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 默认账户 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111221)
-- 发布时间：2017/12/18 10:04:00
--
如果是做自定义用户登录管理的，不能使用这种模式的用户表：http://www.foxtable.com/webhelp/scr/2723.htm
要使用这种模式的用户表：http://www.foxtable.com/webhelp/scr/2048.htm
-- 发布时间：2017/12/18 11:55:00
--
你希望进入系统的时候不出现登陆窗口？
AfterOpenProject事件代码这样写。
本来是这样的
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return \'这个要加上，因为既然要退出，就不应该再执行后面的初始化代码了，否则会出错
End If
改成
_UserName = "张三"
_UserGroup = "默认用户"
-- 发布时间：2017/12/18 15:15:00
--
代码改成这样
For Each dr As DataRow In DataTables("权限设置").Select("用户名 = \'" & _username & "\' And 窗口名 = \'" & e.form.Name & "\'")
e.form.Controls(dr("按钮权限")).Visible = Not dr("不可见")
e.form.Controls(dr("按钮权限")).Enabled = Not dr("不可编辑")
Next
同时，afterOpenProject事件，这句代码去掉 Forms("用户登录").Open()
-- 发布时间：2017/12/18 15:52:00
--
以下是引用nuoyan88在2017/12/18 15:45:00的发言：
老师，能把测试好的实例发我看看吗？我改了不行
老师，能把测试好的实例发我看看吗？我改了不行
如果提示【不存在某某控件】，请去修改你表格的数据，把控件名称写正确来。
-- 发布时间：2017/12/18 15:56:00
--
你表格里面写的是错的。请修改成【工序记录表】
-- 发布时间：2017/12/18 16:41:00
--
1、设置默认用户
http://www.foxtable.com/webhelp/scr/1796.htm
2、我测试没问题，不会弹出你自己的登陆窗口。
-- 发布时间：2017/12/18 16:52:00
--
已经叫你把这句代码删除了 Forms("用户登录").Open
-- 发布时间：2017/12/18 16:53:00
--
设置默认用户啊
http://www.foxtable.com/webhelp/scr/1796.htm
-- 发布时间：2017/12/18 16:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:条码扫描系统1217.foxdb |
-- 发布时间：2017/12/18 17:15:00
--
以下是引用nuoyan88在2017/12/18 17:12:00的发言：
老师，我那个是外部数据表的用户管理，所以默认账户设置不了
老师，我那个是外部数据表的用户管理，所以默认账户设置不了
把【用户数据表】的勾选去掉即可，你自己做了用户管理，就不需要再用原来那个。