如题，请哪位大师帮忙指点一下，谢谢？

源代码程序太大，超出限制，上传不了。

我是按帮助文档，自定义设置的登录窗口。

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 = "下拉窗口-客户模糊查询"

自己做的登陆窗口还是系统自带的？

你打开foxtable后，如果点击了其它地方，焦点肯定不在登陆窗口里。

是根据帮助文档自定义的，代码我贴在1楼里了。

登录过程中，我特意连鼠标键盘都不碰，还是会出现这个现像。

1、如果双击打开以后，不要乱点鼠标，就一定能获取得焦点；

2、生成快捷方式试试。

1、双击未动鼠标键盘，还是不显示。必须打开其它应用程序窗口再并闭或最小化其它窗口，项目登录窗口才能显示出来，且要再窗口中点击一下，才能输入密码。

2、用快捷方式试过了，问题依旧。

汗啊！

另，多谢谢大师这么及时回复。

Post By：2015/8/25 18:03:00 [只看该作者]

感谢袍大师的回复，

是我没把情况说清楚，

第1种情况，

在项目文件夹中双击后，双手离开什么都不碰。

先是出现Foxtable的Loading画面，消失后再等10分钟，再什么都没弹出。这时把项目文件窗口关闭或隐藏，就能看到我定义的登录窗口，原来早出现在刚才的窗口背后了。些时直接输入密码，无响应，说明焦点仍不在登录窗口，必须在窗口中点击一下才能输入密码。

第2种情况，

点击“显示桌面”，隐藏所有窗口返回window桌面，双击桌面上该项目的快捷图标，双手离开什么都不碰。多次反复试验。

先是出现Foxtable的Loading画面，消失后，有2种无规律结果，

a，有时登录窗口很快能看到，但不能直接输入密码，说明登录窗口不是活动窗口未获得焦点，必须在窗口中点击一下才能输入密码。

b，有时等待10分钟甚至更久，除了空空如也的桌面，什么都没弹出。必须点击打开任何其它窗口或程序，再隐藏其它窗口或程序，这时才能看到登录窗口。

我有些客户很介意这个细节。。。。。。哎！

 汗，启动后，项目就弹出登录窗口啊，不弹出还会弹出什么。

 如果有问题，就是电脑的问题。弄个快捷方式放到桌面运行。