如题,请哪位大师帮忙指点一下,谢谢?
源代码程序太大,超出限制,上传不了。
我是按帮助文档,自定义设置的登录窗口。
AfterOpenProject事件
'''
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
If User.Type <> UserTypeEnum.Developer
'TableCaptionVisible = False
'Tables("系统导航").Visible = False
End If
Forms("系统首页").Show()
Forms("系统导航").open()
forms("系统导航").Visible = False
MainTable = Tables("系统导航")
'解锁非正常退出时被锁定的记录
DataTables("客户").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("客户").Save()
Tables("客户").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
'设置数据表相应的下拉窗口
Tables("外销报价单").Cols("CustCode客户代码").DropForm = "下拉窗口-客户模糊查询"
============================================
登录窗口-AfterLoad事件
'''
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
If User.Type <> UserTypeEnum.Developer
'TableCaptionVisible = False
'Tables("系统导航").Visible = False
End If
Forms("系统首页").Show()
Forms("系统导航").open()
forms("系统导航").Visible = False
MainTable = Tables("系统导航")
'解锁非正常退出时被锁定的记录
DataTables("客户").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("客户").Save()
Tables("客户").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
'设置数据表相应的下拉窗口
Tables("外销报价单").Cols("CustCode客户代码").DropForm = "下拉窗口-客户模糊查询"
[此贴子已经被作者于2015/8/25 17:22:34编辑过]