- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]发布后的程序，启动和关闭都特别慢，而且提示错误！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=174858)
-- 发布时间：2022/2/9 17:09:00
-- [求助]发布后的程序，启动和关闭都特别慢，而且提示错误！
此主题相关图片如下：360截图17860603105140139.png
此主题相关图片如下：360截图16751031524343.png
老师，新年好！请教下使用中的发布软件，打开和关闭时变得很慢，而且提示出错，没有做任何改变，请问是何原因？谢谢！
-- 发布时间：2022/2/9 17:11:00
--
刚才搜索别人的求助贴子，说是需要把共享目录设置开放所有权限，因为我没做过任何调整，现在共享文件夹的设置和之前没有区别，不知是什么原因呢？
-- 发布时间：2022/2/9 17:20:00
--
必需把共享目录设置开放所有权限，如果没有做过调整，更应该去做。这个东西是操作系统本身的原因，不是foxtable可以控制的。有时候就算开放所有权限，有些电脑就是访问不了，没有办法。如果可以个人建议尽量不要使用局域网共享，一来不安全，二来会受到电脑系统、网络等影响导致访问异常。如果是共享文件列文件，可以考虑使用ftp替代；如果是共享数据库，可以考虑使用SqlServer替代。
另外上面提示错误的2个事件代码发上来看
-- 发布时间：2022/2/9 17:23:00
--
老师，我指的没做过调整的意思是，之前所有的权限都是开放的，现在也是一样，没有修改过
-- 发布时间：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)
-- 发布时间：2022/2/9 17:32:00
--
如果确定是共享的问题：
1、服务器的系统环境发生了变化
2、服务器的用户和密码发生了变化
3、网络环境发生了变化
如果不是共享导致的问题，把代码发上来看看
-- 发布时间：2022/2/9 17:34:00
--
此主题相关图片如下：微信图片_20220209173311.jpg
-- 发布时间：2022/2/9 17:47:00
--
确实是共享的问题，按6楼检查一下。
另外建议在D盘新建一个目录作为共享，不要共享系统默认的文件夹，特别是我的文档之类的