Foxtable(狐表)用户栏目专家坐堂 → 三层架构加载表与行


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

主题:三层架构加载表与行

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:915 积分:8259 威望:0 精华:0 注册:2013/5/30 11:27:00
三层架构加载表与行  发帖心情 Post By:2025/3/21 11:53:00 [显示全部帖子]

老师,三层架构中加载表与行速度慢,二层比三层感受上快很多,请问老师有什么办法可以加速吗?

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:915 积分:8259 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2025/3/21 15:32:00 [显示全部帖子]

老师,再问个问题,我在本机做服务器时,根据帮助文档写了代码:
HttpServer.Prefixes.Add("http://127.0.0.1:112/")
HttpServer.WebPath = "d:\web"
HttpServer.Start()  
网络监视器也写了代码
Select Case e.Path
    Case "DataServer.htm"
        e.AsDataServer("database")  '将一个本地数据源公开为Web数据源
End Select
本机连本机可以连接上,但放在服务器上(另外一台电脑,同局域网下),开启服务后,再用我本机连服务器,就显示连接不上,啥原因?
本机代码:
Dim sb As New StringBuilder
Dim Err As String
sb.AppendLine("http://127.0.0.1:112/DataServer.htm")
'sb.AppendLine("-FormData-")
'sb.AppendLine("UserName:张三")
'sb.AppendLine("Password:888")
If Connections.TryConnect(sb.Tostring, Err) = False Then
    MessageBox.Show(err,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error) '显示错误信息
Else
    MessageBox.Show("数据源可以正常连通!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:915 积分:8259 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2025/3/21 15:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250321153218.png
图片点击可在新窗口打开查看

 回到顶部