以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于 结束登录窗口后项目依旧能自动进去的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116757)

--  作者:lzw001
--  发布时间:2018/3/30 15:31:00
--  关于 结束登录窗口后项目依旧能自动进去的问题
请问一下: 突然发现个问题,就是当我打开项目时,首先弹出一个登录窗,但是当我使用任务管理器结束这个窗口时,依旧会进得了项目,这就尴尬了,如果在登录窗口的afterclose事件中加入代码:syscmd.project.close() 的话,输入账号密码时它又自动关闭项目了,这个有什么办法解决吗
--  作者:有点甜
--  发布时间:2018/3/30 15:36:00
--  

登陆控制,是写在afterOpenProject事件的。

 

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


--  作者:lzw001
--  发布时间:2018/3/31 9:26:00
--  
但是这样写的话,结束这个登录窗口时依然会继续进入项目里去呢。这个跟前面加载这个数据库后台数据应该没有什么关系的吧
--  作者:有点蓝
--  发布时间:2018/3/31 9:44:00
--  
登录窗口afterload设置

_UserName = ""

然后确定按钮才给_UserName赋值

--  作者:lzw001
--  发布时间:2018/3/31 11:45:00
--  
不是很理解,窗口打开后赋空值,那确定按钮这里不是应该直接要设置关闭整个项目了吗?
--  作者:有点蓝
--  发布时间:2018/3/31 12:20:00
--  
确定按钮给_UserName赋值啊,比如张三登录

_UserName = “张三


--  作者:lzw001
--  发布时间:2018/4/2 9:32:00
--  
直接放会显示这个错误,但是_username已经在全局变量中声名了的

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180402093109.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180402093143.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/4/2 10:36:00
--  

在AfterOpenProject事件,你没有给【_userTable】赋值?

 

http://www.foxtable.com/webhelp/scr/2945.htm

 


--  作者:lzw001
--  发布时间:2018/4/2 10:51:00
--  
这样写的:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180402105134.png
图片点击可在新窗口打开查看



--  作者:有点甜
--  发布时间:2018/4/2 10:54:00
--  

那你afterLoad事件的代码,不会报错的,加入msgbox定位出错位置

 

http://www.foxtable.com/webhelp/scr/1485.htm