主题：为什么远程登录非常慢？

各位老师，

 

为什么远程登陆时很慢，有时要5、6钟才出现用户登录的窗口，出现用户登陆窗口后登陆就很快了，而且登陆后操作数据速度也还可以。在afteropenproject 中只用了如下代码，

 

'自动升级,没有新版本不提示
Syscmd.Project.Update(False,True)

'让所有表不可见
For Each t As Table In Tables
    t.Visible = False
    t.AllowEdit = False
    For Each c As Col In t.Cols
        c.Visible = False
        c.AllowEdit = False
    Next
Next
'非开发者用户登录时显示"用户登录"窗口.
If User.Type <> UserTypeEnum.Developer
    '非开发者禁用以下菜单项目
    '清除所有程序菜单选项
    ApplicationMenu.LeftItems.Clear
    ApplicationMenu.RightItems.Clear
    ApplicationMenu.BottomItems.Clear
   
    TableCaptionVisible = False '让表标题不可见
    RibbonTabs("Table").Visible = False '禁用数据表功能区
    RibbonTabs("Project").Visible = False '禁用管理项目功能区
    RibbonTabs("Other").Visible = False '禁用其他功能区
    RibbonTabs("Print")("Advanced").Visible = False '禁用打印功能区
    RibbonTabs("Print")("Excel")("Event").Visible = False
    RibbonTabs("Common")("Aggregate").Visible = False '常用工具的计算功能组不可见
    RibbonTabs("Common")("Window").Visible = False '常用工具的窗口不可见
    QAT("系统设置").Visible = False '禁用快速启动系统设置
    QAT("开发设置").Visible = False '禁用快速启动开发设置
   
    Forms("用户登录").open
 
Else
    '开发者登录时所有表列均可编辑
    For Each t As Table In Tables
        t.Visible = True
        t.AllowEdit = True
        For Each c As Col In t.Cols
            c.Visible = True
            c.AllowEdit = True
        Next
    Next
RibbonTabs("Common")("Aggregate").Visible = False '常用工具的计算功能组不可见
End If

 

在BeforeConnectOuterDataSource也只有下面这句代码

If e.Name = "EI" Then
    '如果第一个IP接通则用其连接,否则显示提示并用替代的IP或域名连接.
   ' If Network.Ping("192.168.0.108",1000) = False Then
        e.C
  '  End If
End If

上面判断内外网的代码如果不注释掉，登录就更慢了。起码要8分种以上

 

请问是哪里出了问题？

谢谢！

关键是数据库在我电脑上，用户是远程登陆。奇怪的是偶尔一次又是几十秒就可以登陆了。好吧，我联系客服看一下。谢谢