Foxtable(狐表)用户栏目专家坐堂 → [求助][原创]开发者退出后无法进入开发界面


  共有4914人关注过本帖树形打印复制链接

主题:[求助][原创]开发者退出后无法进入开发界面

帅哥哟,离线,有人找我吗?
dahai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
[求助][原创]开发者退出后无法进入开发界面  发帖心情 Post By:2019/11/25 12:01:00 [显示全部帖子]

在我做的软件中,主窗口时间aftercolse,设置为Syscmd.Project.Exit(False)后,无法进入开发界面,用先打开软件,用软件打开项目也不行。着急啊!求解决办法

 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/25 13:09:00 [显示全部帖子]

在afterclose事件,写了如下代码:

if  user.type = UserTypeEnum.Developer Then

Syscmd.Project.Exit()

end if
忘了写的是=还是<>了,现在又登录不上去了图片点击可在新窗口打开查看。先打开软件,然后按住ctrl,输入密码,按住cntl也进不去,提示入下:

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看





[此贴子已经被作者于2019/11/25 13:10:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/25 14:12:00 [显示全部帖子]

试了以下几种方式,还是不行

1、按住Ctrl键打开项目,松开Ctrl输入密码后,先按住Ctrl键,再使用鼠标点击确定,按住Ctrl键等待1分钟,无法打开项目;
2、输入密码后,先按住Ctrl键,再使用鼠标点击确定,按住Ctrl键等待1分钟,无法打开项目;
3、删除Bin文件,按住Ctrl键打开项目,松开Ctrl输入密码后,先按住Ctrl键,再使用鼠标点击确定,按住Ctrl键等待1分钟,无法打开项目;


 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/25 14:18:00 [显示全部帖子]

不是直接打开这个项目,而是直接打开软件是可以,试着用软件打开项目不行(打开过程中也一直按着Ctrl。)

 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/25 14:24:00 [显示全部帖子]

papapa也是不行啊

 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/25 14:29:00 [显示全部帖子]

软件卸载后,重新安装了,也不行

 回到顶部
帅哥哟,离线,有人找我吗?
dahai
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:725 威望:0 精华:0 注册:2019/1/9 15:59:00
  发帖心情 Post By:2019/11/26 9:23:00 [显示全部帖子]

项目自动备份到上周五的,周末加班算是白费了。但是有个问题我还是不清楚,关于窗口事件afterload:
问题1:
我执行如下两种代码,出现的结果是不一样的,也就是说developer还有另外的一种退出方式吗?
If user.Type = usertypeenum.developer Then
    syscmd.project.Exit()
Else
    syscmd.project.Exit(False)
End If


If user.Type <> usertypeenum.developer Then
    syscmd.project.Exit(False)
End If

问题2:
另外,如果我执行如下代码,在项目发布后,普通用户登录,并且进行了数据录入,没有保存的情况下,直接关闭软件,会弹出messagebox,提示“是”,“否”,“取消”,此时点击取消,会直接打开foxtable,虽然不能进行窗口管理等操作,但是仍旧可以看到各个表的信息。这样一来所有表的信息就完全公开给所有人了。真是太危险了,这个弹出的messagebox是否可以编辑?

If user.Type <> usertypeenum.developer Then
    syscmd.project.Exit() ’括弧内没有false
End If


 回到顶部