主题：默认账户

如果是做自定义用户登录管理的，不能使用这种模式的用户表：http://www.foxtable.com/webhelp/scr/2723.htm

 你希望进入系统的时候不出现登陆窗口？

 

 AfterOpenProject事件代码这样写。

 

本来是这样的

 

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上，因为既然要退出，就不应该再执行后面的初始化代码了，否则会出错
End If

 

改成

 

_UserName = "张三"
_UserGroup = "默认用户"

代码改成这样

 

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()

 

如果提示【不存在某某控件】，请去修改你表格的数据，把控件名称写正确来。

你表格里面写的是错的。请修改成【工序记录表】