- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 解决加载慢的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121601)
-- 发布时间：2018/7/10 10:17:00
-- 解决加载慢的问题
登录窗口按确定到打开主窗口要8秒钟，这8秒钟一直都显示
此主题相关图片如下：111.png
可以有什么方法解决，要么减少到3妙以内，要么，不要显示这么难看的加载画面
-- 发布时间：2018/7/10 10:53:00
--
1、你点击登陆后，执行了什么耗时的代码了吗？能否减少那些耗时代码？
2、可以隐藏登陆窗口、关闭登陆窗口，如登陆按钮，加入代码
e.Form.BaseForm.Opacity = 0
e.Form.Close
-- 发布时间：2018/7/10 11:12:00
--
1、检查了，开发版只有20个openqq账号，如果openqqsever有对应用户允许登录，点登陆后进入主窗口就快，如果openqqsever没有有对应用户，登录不到openqq，点登陆后进入主窗口就快
2、加入这个代码e.Form.BaseForm.Opacity = 0后，进入主窗口后报错，提示对象未定义
[此贴子已经被作者于2018/7/10 11:13:15编辑过]
-- 发布时间：2018/7/10 11:54:00
--
1、普通开发版，只可以添加20个好友。你openqq的登陆是怎么做的？贴出所写代码。
2、代码是添加在登陆按钮那里。
-- 发布时间：2018/10/8 9:16:00
--
登录按钮的代码是这些，现在加载还是很慢从点登陆到主窗口要15秒，我已经将部分表限制加载了还是一样。
Dim tx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim user As String=tx1.text
Dim sss As String=e.Form.Controls("ComboBox2").text
Dim dept As String=e.Form.Controls("ComboBox3").text
Dim tx2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim pows As String=tx2.text
Dim dl As WinForm.Button = e.Form.Controls("Button1")
Dim dt As DataTable=DataTables("用户表")
Dim dr As DataRow
If user="" Then
MessageBox.show("请输入用户名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return
Else
dr=dt.find("用户名称=\'" & user & "\'")
If dr IsNot Nothing Then
If pows=dr("密码") Then
PopMessage("登陆成功","提示",PopIconEnum.Infomation,1)
dr("登陆时间")=Date.Now
dr("登陆账套")=sss
dr.Save()
usna=user
pwsd = pows
dpt = dept
syscmd.project.open(ProjectFile,sss)
e.Form.Close
Return
Else
MessageBox.show("密码错误","提示")
Return
End If
Else
MessageBox.show("用户不存在!","提示")
Return
End If
End If
-- 发布时间：2018/10/8 11:12:00
--
把afterOpenProject事件代码删除以下测试。