以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- HttpRequest点击应用的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98520) |
-- 作者:douglas738888 -- 发布时间:2017/3/31 11:10:00 -- HttpRequest点击应用的问题 请教老师,之前我的项目是采用自定义登录与现在的移动开发无关,现在学习编写完HttpRequest的代码后,点击应用或确定,会跳出原来已设计好的自定义登录窗口,如果关闭此窗口,FOXTABLE的系统就闪退,需要重新打开项目,这个问题怎样在AfterOpenProject处理 [此贴子已经被作者于2017/3/31 11:10:45编辑过]
|
-- 作者:有点色 -- 发布时间:2017/3/31 11:24:00 -- 你是不是在AfterOpenProject事件写了 Forms("窗口1").Open ? 去掉那句代码呗。 |
-- 作者:douglas738888 -- 发布时间:2017/3/31 11:57:00 -- 老师,去掉Forms("窗口1").Open ,项目发布后客户端无法登录,怎样解决客户端能正常登录,又能使用移动功能
我试了,去掉上述代码也闪退,不在HTTPREQUEST写代码点击应用也闪退 [此贴子已经被作者于2017/3/31 12:09:41编辑过]
|
-- 作者:有点色 -- 发布时间:2017/3/31 12:09:00 -- 那闪退和你的登陆窗口无关。
如果你httprequest不写代码,或者只写一两句代码是否也有问题? |
-- 作者:douglas738888 -- 发布时间:2017/3/31 12:10:00 -- 一句代码都不写,点击应用也闪退 |
-- 作者:douglas738888 -- 发布时间:2017/3/31 12:28:00 -- 经测试,AfterOpenProject如下代码取消就不闪退
环境:连接了阿里云服务器,也设置了FTP;在用户管理里面设置了一个默认
Forms("用户登录").Open() \'(仅这句代码不会闪退)
以下代码是自定义登录使用的,如果使用会闪退 If _UserName = "" Then If User.Type <> UserTypeEnum.Developer Forms("主窗口").Open() Dim fl As String = "F:\\WJY\\控制管理.Foxdb" |
-- 作者:有点色 -- 发布时间:2017/3/31 12:37:00 -- 6楼的代码,逐句删除测试。确定是哪句代码有问题。
再有,为什么写 Syscmd.Project.Open(fl) ?这句代码你要重新打开某一个项目? |
-- 作者:douglas738888 -- 发布时间:2017/3/31 21:05:00 -- 老师,黄色部分的代码导致闪退,其他正常
Dim cmd As New SQLCommand Forms("用户登录").Open()
If User.Type <> UserTypeEnum.Developer Forms("主窗口").Open() |
-- 作者:有点蓝 -- 发布时间:2017/3/31 21:26:00 -- 这不叫闪退,这句代码就是正常的退出。说明用户登录代码有问题,没有给_UserName赋值 |
-- 作者:douglas738888 -- 发布时间:2017/3/31 22:09:00 -- 老师说的对,不是闪退,是系统的正常退出,但是网络监视器的应用和确定按钮为什么会触发启动登录窗口,如果不使用网络监视器,自定义的登录系统是正常的。请教老师怎样赋值。 [此贴子已经被作者于2017/3/31 22:12:02编辑过]
|