以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  部署后,访问都特别慢,卡顿  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129224)

--  作者:susu312
--  发布时间:2018/12/24 15:57:00
--  部署后,访问都特别慢,卡顿
老师,您好, 我给部署后,访问都特别慢,卡顿,一点就卡顿
--  作者:有点甜
--  发布时间:2018/12/24 15:58:00
--  

1、没有部署的时候,是否慢?

 

2、访问什么的时候慢?具体怎么慢,怎么卡顿?


--  作者:susu312
--  发布时间:2018/12/24 16:04:00
--  
以下是引用有点甜在2018/12/24 15:58:00的发言:

1、没有部署的时候,是否慢?

 

2、访问什么的时候慢?具体怎么慢,怎么卡顿?

在自己的机子上登录、点击各个模块都行,但是我部署到服务器上后,

 

1、登录慢

2、点击各个模块,反应都很慢,一点不流畅


--  作者:有点甜
--  发布时间:2018/12/24 16:06:00
--  

你是如何部署的?

 

你点击各个功能的时候,列举一个功能,执行了什么代码(代码贴出来),本来是多久响应,现在是多久响应?


--  作者:susu312
--  发布时间:2018/12/24 16:11:00
--  
以下是引用有点甜在2018/12/24 16:06:00的发言:

你是如何部署的?

 

你点击各个功能的时候,列举一个功能,执行了什么代码(代码贴出来),本来是多久响应,现在是多久响应?

我们是内部的局域网,,我先暂时部署到一个单机上,把publish文件夹发给用户,其他用户在访问这个的时候,登录很慢,个人报表也很慢 ,就是每个环节都特别慢


--  作者:有点甜
--  发布时间:2018/12/24 16:15:00
--  

你把sqlserver数据库部署在某个电脑上,然后各个电脑都连接这个sqlserver服务器,这样部署?

 

如果是打开的时候慢,看看 http://www.foxtable.com/webhelp/scr/2730.htm

 

如果里面的各个功能都慢,看看是不是你每次都重新加载了表数据进来了,如果加载的数据量大的话,慢是正常的。


--  作者:susu312
--  发布时间:2018/12/24 16:21:00
--  
以下是引用有点甜在2018/12/24 16:15:00的发言:

你把sqlserver数据库部署在某个电脑上,然后各个电脑都连接这个sqlserver服务器,这样部署?

 

如果是打开的时候慢,看看 http://www.foxtable.com/webhelp/scr/2730.htm

 

如果里面的各个功能都慢,看看是不是你每次都重新加载了表数据进来了,如果加载的数据量大的话,慢是正常的。

老师,您说的很有道理啊 ,后面的功能,我确实大部分都重新加载数据了,那这个如何优化呀?

 

2、我做了专业报表,然后,这个报表打开的时候也特别慢?这个如何优化呀


--  作者:有点甜
--  发布时间:2018/12/24 16:25:00
--  

1、为什么都重新加载数据?不能一次性把数据加载进入,然后直接操作?

 

那你为什么每次都重新加载了数据?从局域网那里加载数据,和在本机加载数据,速度有差别的。

 

2、单独讨论一个功能吧,执行了什么代码(代码贴出来),本来是多久响应,现在是多久响应?


--  作者:susu312
--  发布时间:2018/12/25 9:06:00
--  
以下是引用有点甜在2018/12/24 16:25:00的发言:

1、为什么都重新加载数据?不能一次性把数据加载进入,然后直接操作?

 

那你为什么每次都重新加载了数据?从局域网那里加载数据,和在本机加载数据,速度有差别的。

 

2、单独讨论一个功能吧,执行了什么代码(代码贴出来),本来是多久响应,现在是多久响应?

 

 

 

比如, 这个是单位管理的afterload事件代码:

\'\'面包的锚定
e.form.Controls("Panel1").basecontrol.BringToFront
e.form.Controls("Panel2").basecontrol.BringToFront
e.form.Controls("Panel3").basecontrol.BringToFront
e.form.Controls("Panel4").basecontrol.BringToFront
e.form.Controls("Panel5").basecontrol.BringToFront
e.form.Controls("SplitContainer1").basecontrol.BringToFront
e.form.Controls("SplitContainer2").basecontrol.BringToFront

\'\'字体颜色
For i As Integer = 1 To 1
       e.Form.Controls("Label" & i).ForeColor=color.darkblue
       e.Form.Controls("Label" & i).BorderStyle=BorderStyle.FixedSingle
       e.Form.Controls("Label" & i).TextAlign=ContentAlignment.MiddleCenter
Next


\'\'设置窗口中表中列的高度和标题的高度
Tables("organList").AllowResizeRow=False
Tables("organList").SetHeaderRowHeight(28)

 

\'\'设置加载条件
If _UserRole = "查询员" Then
    DataTables("organList").LoadFilter = ""
Else
    DataTables("organList").LoadFilter = "organName = \'" & _UserOrgan & "\' or superName = \'" & _UserOrgan & "\'"
End If
DataTables("organList").LoadTop = Nothing
DataTables("organList").load


\'\'生成辅助列,并依据辅助列排序
Dim dt1 As DataTable = DataTables("organList")
For Each dr1 As DataRow In dt1.datarows
    If dr1.IsNull("superName") Then
        dr1("fuZhu") = format(dr1("_Identify"), "00000")
        Functions.Execute("AddChildren1",dr1,dt1)
    End If
Next
Tables("organList").sort = "fuZhu"

\'\'查询,并设置显示列的排序条件
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("organList").GetComboListString("organName","","fuZhu")


\'\'目录树
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()\'\'停止绘制目录树
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
   \'If dr.IsNull("superName") Then
   If dr("organName") = _UserOrgan Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() \'\'恢复绘制目录树
\'\'


此主题相关图片如下:1.png
按此在新窗口浏览图片

 

这就是单位管理的窗口,我新增时、更改时、删除时,都会重新加载数据,展开,折叠时也会重新加载数据,这个如何优化呀


--  作者:有点甜
--  发布时间:2018/12/25 9:10:00
--  

1、你要加载的数据量有多大?

 

2、去掉加载的代码,如 DataTables("organList").load 之后,速度是否正常?