Foxtable(狐表)用户栏目专家坐堂 → [求助]发布后的程序,启动和关闭都特别慢,而且提示错误!


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

主题:[求助]发布后的程序,启动和关闭都特别慢,而且提示错误!

美女呀,离线,留言给我吧!
rophy0952
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
[求助]发布后的程序,启动和关闭都特别慢,而且提示错误!  发帖心情 Post By:2022/2/9 17:09:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下:360截图16751031524343.png
图片点击可在新窗口打开查看
老师,新年好!请教下使用中的发布软件,打开和关闭时变得很慢,而且提示出错,没有做任何改变,请问是何原因?谢谢!

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2022/2/9 17:11:00 [只看该作者]

刚才搜索别人的求助贴子,说是需要把共享目录设置开放所有权限,因为我没做过任何调整,现在共享文件夹的设置和之前没有区别,不知是什么原因呢?

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/9 17:20:00 [只看该作者]

必需把共享目录设置开放所有权限,如果没有做过调整,更应该去做。这个东西是操作系统本身的原因,不是foxtable可以控制的。有时候就算开放所有权限,有些电脑就是访问不了,没有办法。如果可以个人建议尽量不要使用局域网共享,一来不安全,二来会受到电脑系统、网络等影响导致访问异常。如果是共享文件列文件,可以考虑使用ftp替代;如果是共享数据库,可以考虑使用SqlServer替代。

另外上面提示错误的2个事件代码发上来看

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2022/2/9 17:23:00 [只看该作者]

老师,我指的没做过调整的意思是,之前所有的权限都是开放的,现在也是一样,没有修改过


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2022/2/9 17:31:00 [只看该作者]

AfterOpenProject事件:
Functions.Execute("更新表结构")
BaseMainForm.Text = "XXX公司【ERP管理系统】"

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

If _Username = "张三" OrElse _Username = "黎"  Then
    Dim dt As Date = Date.Today
    Dim dr As DataRow = DataTables("生产入库明细表").SQLFind("提醒日期 <= '" & dt & "' and 已出货 = 0 " )
    If dr IsNot Nothing Then
        MessageBox.Show("有产品逾期未出货!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("出货提醒").open
    End If
End If

If _Username = "陈" OrElse _Username = "李"  Then
    Dim dr As DataRow = DataTables("订单明细表").SQLFind("变更 = 1 and 已阅 = 0 " )
    If dr IsNot Nothing Then
        MessageBox.Show("有客户订单变更!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("订单变更提醒").open
    End If
End If

If _Username = "张三" Then
    Dim dr As DataRow = DataTables("物料信息表").SQLFind("物料类型 <> 原材料 and 加工价格 = 0 " )
    If dr IsNot Nothing Then
        MessageBox.Show("有新规格,请及时录入加工单价!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("加工单价新增").open
    End If
End If


Forms("主界面").Open()
MainTable = Tables("物料信息表")
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = 0
End If
Forms("导航栏").Open()
Forms("标题栏").Open()
Output.Logs("登录日志").Add(_UserName & ":" & Date.Now )
Output.Logs("登录日志").Save("\\MSSQLSERVER\Users\Public\Documents\log.txt",1)
Output.Logs("登录日志").Clear



BeforCloseProject事件
Output.Logs("删除日志").Save("\\MSSQLSERVER\Users\Public\Documents\Delete.txt",True)

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/9 17:32:00 [只看该作者]

如果确定是共享的问题:
1、服务器的系统环境发生了变化
2、服务器的用户和密码发生了变化
3、网络环境发生了变化

如果不是共享导致的问题,把代码发上来看看

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2022/2/9 17:34:00 [只看该作者]


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

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/9 17:47:00 [只看该作者]

确实是共享的问题,按6楼检查一下。

另外建议在D盘新建一个目录作为共享,不要共享系统默认的文件夹,特别是我的文档之类的

 回到顶部