Foxtable(狐表) → 用户栏目 → 专家坐堂 → 发布后的项目打开很慢，怎么办？


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

主题：发布后的项目打开很慢，怎么办？
帅哥哟，离线，有人找我吗？
xvkewen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00 		发布后的项目打开很慢，怎么办？  发帖心情 Post By：2014/4/7 22:24:00 [只看该作者]

我用开发版将我开发的程序发布出来后，打开的速度简直超慢，首次打开慢也就算了，后面再打开还是很慢，应该怎样来优化呢？

有商业版或试用版，打开的时间为1分种左右；
用开发版首次打开的时间为10分左右，再次打开的时间为4—5分钟，这也太慢了，请大师们支支招，怎么针对打开速度来进行优化呢？
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2014/4/7 22:30:00 [只看该作者]

先看看电脑配置吧，不要太老旧的电脑了。

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2014/4/7 22:31:00 [只看该作者]

怎么支招法？

 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/4/7 22:40:00 [只看该作者]

你们发布的程序不会也打开这么慢吧？如果要提高程序的运行速度，可以从哪些方面入手去优化呢？

 回到顶部
帅哥哟，离线，有人找我吗？
jspta
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1732 积分：11266 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2014/4/7 22:55:00 [只看该作者]

应该是网络问题吧，还有就是机器比较老，你项目打开加载的数据可能太多了，比如数十万行等，具体原因要看你的项目了

 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2014/4/7 22:56:00 [只看该作者]

加载的数据要尽量的少，beforeopenprojiect 中的代码要简略····

 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/4/7 23:08:00 [只看该作者]

1、请看以下电脑配置，应该也不算差了吧；
2、加载的数据最多也不会超过2万行；
3、Beforeopenproject事件中也没有任何代码；

图片点击可在新窗口打开查看此主题相关图片如下：系统信息.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：项目属性.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
e-png
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00 		  发帖心情 Post By：2014/4/7 23:33:00 [只看该作者]

另外，启动后随项目开启的必须打开的窗口要简单些（按钮少、代码简）。

 回到顶部
帅哥哟，离线，有人找我吗？
xvkewen
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00 		  发帖心情 Post By：2014/4/7 23:45:00 [只看该作者]

以下是我AfterOpenproject事件中的代码，好像也没有太耗时的代码吧！

'开启全局表的KEYDOWN事件
For Each dt As DataTable In DataTables
    dt.GlobalHandler.KeyDown = True
Next
'打开用户登录窗口
Forms("Login").show()
'对开发者以外的其他用户隐藏表标题;
Dim dtb As new DataTableBuilder("finished_sample","已完成样办")
dtb.Build()
If User.Type <> UserTypeEnum.Developer  Then
    For Each dt As Table In Tables
        If dt.Name <> "scheduling" And dt.Name <> "finished_sample" Then
            dt.Visible = False
        End If
    Next
End If

'自动判断当前用户的角色,并筛选指定的内容显示;
Dim dr As DataRow = DataTables("User_info").Find("User_Name= '" & _username & "'")   '分开查询,防注入登录

If dr IsNot Nothing Then
    Select Case _Userroles
        Case "QA","QAM"
            DataTables("scheduling").LoadFilter= "[QA_team] = '" & _usergroup & "' and ( [sample_state] <> '已出办' and [sample_state] <> '取消' ) "
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            If _usergroup = "GD2" Then
                Tables("scheduling").setcolvisiblewidth("input_date|115|Season|100|series|100|Customer|95|Inside_SRS|90|SRS_No|100|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|Follow_QA|60|Sewing_Team|50|sample_readydate|115|PA_feedback|115|排单顺序|115|sample_state|70|QA_team|50|PttnFinishDate|80|Cup_readydate|80|Other_readydate|80|Remark|245|Revise_Log|130|Last_update|115")
            Else
                Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|SRS_No|100|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|Follow_QA|60|Sewing_Team|50|sample_readydate|115|PA_feedback|115|排单顺序|115|sample_state|70|QA_team|50|PttnFinishDate|80|Cup_readydate|80|Other_readydate|80|Remark|245|Revise_Log|130|Last_update|115")
            End If
            With Tables("scheduling")
                Dim i As Integer
                i = .FindRow("PA_feedback IS NULL and 排单顺序 < #" & Cdate(Date.Today) & "# and Follow_QA = '" & dr("FullName") & "'" )
                If i >= 0 Then
                    Forms("Updating").show
                End If
            End With
            ' *****************************
        Case "PA"
            RibbonTabs("Sample_Manage").Visible = False
            DataTables("scheduling").LoadFilter=  "[Sewing_Team] = '" & _usergroup & "' and ( [sample_state] <> '已出办' and [sample_state] <> '取消' ) "
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            ' 判断当前PA用户是否有排期需要更新,如果有的话,弹出更新窗口并列出需要更新的数据,更新完毕后,再进行后面的排期工作
            Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|Follow_QA|60|Sewing_Team|50|sample_readydate|115|PA_feedback|115|排单顺序|115|sample_state|70|QA_team|50|PttnFinishDate|80|Cup_readydate|80|Other_readydate|80|Remark|245|Revise_Log|130|Last_update|115")
            
            With Tables("scheduling")
                Dim i As Integer
                i = .FindRow("PA_feedback is not null and 排单顺序 < #" & Cdate(Date.Today) & "# and Sewing_Team = '" & dr("user_group") & "'" )
                If i >= 0 Then
                    Forms("Updating").show
                End If
            End With
            ' *****************************
        Case "PAM"
            RibbonTabs("Sample_Manage").Visible = False
            DataTables("scheduling").LoadFilter=  " [sample_state] <> '已出办' and [sample_state] <> '取消' "
            
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|Follow_QA|60|Sewing_Team|50|sample_readydate|115|PA_feedback|115|排单顺序|115|sample_state|70|QA_team|50|PttnFinishDate|80|Cup_readydate|80|Other_readydate|80|Remark|245|Revise_Log|130|Last_update|115")
            
        Case "纸样经理"
            RibbonTabs("Sample_Manage").Visible = False
            DataTables("scheduling").LoadFilter=  "[PttnType] <> '已有纸样' and  [PttnState] <> '已完成' and [sample_state] <> '取消'  "
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            ' 判断当前PA用户是否有排期需要更新,如果有的话,弹出更新窗口并列出需要更新的数据,更新完毕后,再进行后面的排期工作
            Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|Style_No|125|Size|50|Mold_ID|100|cup_style|100|patten_ID|100|Pattener|60|PttnType|60|PttnFinishDate|115|PttnState|100|Follow_QA|60|Sewing_Team|50|排单顺序|115|sample_state|70|QA_team|50|Remark|245|Revise_Log|130|Last_update|115")
            
            With Tables("scheduling")
                Dim i As Integer
                i = .FindRow("PttnState <> '已完成' And PttnFinishDate < #" & Cdate(Date.Today) & "# and PttnFinishDate is not null " )
                If i >= 0 Then
                    Forms("Updating").show
                End If
            End With
        Case "定型经理"
            RibbonTabs("Sample_Manage").Visible = False
            DataTables("scheduling").LoadFilter=  "[CupType] <> '无需做棉杯' and [Cupstate] <> '已完成' and CupTeam like '%定型%' and [sample_state] <> '取消' "
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            ' 判断当前PA用户是否有排期需要更新,如果有的话,弹出更新窗口并列出需要更新的数据,更新完毕后,再进行后面的排期工作
            Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|product_type|50|Mold_ID|100|cup_style|100|CupType|60|Cupstate|100|CupTeam|100|Cup_readydate|115|Follow_QA|60|排单顺序|115|sample_state|70|QA_team|50|Remark|245|Revise_Log|130|Last_update|115")
            With Tables("scheduling")
                Dim i As Integer
                i = .FindRow("Cupstate <> '已完成' And Cup_readydate < #" & Cdate(Date.Today) & "# and Cup_readydate is not null " )
                
                If i >= 0 Then
                    Forms("Updating").show
                End If
            End With
        Case "FCQA"
            RibbonTabs("Sample_Manage").Visible = False
            DataTables("scheduling").LoadFilter=  "[CupType] <> '无需做棉杯' and [CupTeam] like '*FC*' "
            DataTables("scheduling").LoadOrder= "[排单顺序]"
            DataTables("scheduling").Load()
            ' 判断当前PA用户是否有排期需要更新,如果有的话,弹出更新窗口并列出需要更新的数据,更新完毕后,再进行后面的排期工作
            Tables("scheduling").setcolvisiblewidth("input_date|115|Customer|95|Inside_SRS|90|Style_No|125|Size|50|Color|95|Customer_Qty|40|Keep_Qty|40|sample_use|70|product_type|50|Mold_ID|100|cup_style|100|CupType|60|Cupstate|100|CupTeam|100|Cup_readydate|115|Follow_QA|60|排单顺序|115|sample_state|70|QA_team|50|Remark|245|Revise_Log|130|Last_update|115")
            With Tables("scheduling")
                Dim i As Integer
                i = .FindRow("Cupstate <> '已完成' And Cup_readydate < #" & Cdate(Date.Today) & "# and Cup_readydate is not null " )
                
                If i >= 0 Then
                    Forms("Updating").show
                End If
            End With
    End Select
    
    MainTable = Tables("scheduling")
    Tables("scheduling").Sort = "排单顺序"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/8 8:24:00 [只看该作者]

检查一下是否这个问题http://www.foxtable.com/help/topics/2730.htm

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询