以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教WeUI有无针对电脑显示器的版本。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111260)
--  作者：lanbor
--  发布时间：2017/12/18 22:03:00
--  请教WeUI有无针对电脑显示器的版本。
请教专家！

我是希望为我的软件增加一个电子看板，以显示器充当输出设备；
并通过浏览器显示必要的：针对当前机台的刀具使用情况等信息；

请问：贵公司这个WeUI框架结构，是否有针对电脑显示器输出模式的什么版本？
        或是说，我在写代码的时候，应该如何开头，才能使所执行的网页表格信息
        可以不受WeUI屏宽限制， 可以直接而简单的在电脑屏幕上以WEB方式显示更多列。

      我并不希望新建一个独立的非Web方式应用项目来调用SQL记录，用WEB输出感觉更好。
      或是：专家对我的预想是否有更好建议？


还请专家指点一下！
先谢谢您！

[此贴子已经被作者于2017/12/18 22:06:42编辑过]
--  作者：有点蓝
--  发布时间：2017/12/18 22:24:00
--  
weui没有专门针对PC的版本。不过weui一样可以在pc浏览器使用，你可以正常开发看效果。

weui就是为了适应屏宽的。如果想显示多列，只能使用其它框架
--  作者：lanbor
--  发布时间：2017/12/18 22:38:00
--  明白了、谢谢你指点！
谢谢你指点！
--  作者：lanbor
--  发布时间：2017/12/19 13:42:00
--  抱歉，楼上的问题是我理解错误！(再请教）
抱歉！楼上的问题是我理解错误！
经过几个小测试，虽然还不懂如何在1行放置2或3个输入栏（如：查询数量从：1  到：10 ) 。
但当前WeUI架构，输出表格内容完全能达到我的目的的。

再请教专家：
如何在当前网页中设置（每30分钟）自动刷新当前网页或自动提交一下？
先谢谢您！
--  作者：有点甜
--  发布时间：2017/12/19 15:02:00
--  

生成页面的时候，加上这句代码即可，意思是20秒后跳转到logon.htm页面

 

wb.AppendHTML("<meta http-equiv=\'Refresh\' content=\'20; url=/logon.htm\'>", true) \'然后直接跳转到登录页面

[此贴子已经被作者于2017/12/19 15:44:10编辑过]
--  作者：lanbor
--  发布时间：2017/12/19 15:32:00
--  感谢专家指点。
才想起在验证用户空闲30分钟后需要重新登记时用过这句，这次肯定不能忘了。
预想中的电子显示板也达到目的了。

感谢专家指点！
--  作者：lanbor
--  发布时间：2017/12/19 16:38:00
--  针对定时提交按钮，再请教！
再请教一下另外一种定时提交途径：

With wb.AddButtonGroup("form1","btg2",False)
    If page > 0 Then
        .Add("btnPrev", "上一页","","consume_Elec_plate9.htm?page=" & page - 1)
        End If
    End If
    If Endrow < count Then
        .Add("btnNext", "下一页","","consume_Elec_plate9.htm?page=" & page + 1)
    End If
End With

如何为以上换页代码加上每2分钟自动提交一次的语句？
我是希望它能从第0页开始，每停留2分钟自动换到下一页，至到最后一页，再将page置为0.
同时也要保证：能让人工强制换页。
先谢谢专家！
--  作者：有点甜
--  发布时间：2017/12/19 17:20:00
--  

wb.AppendHTML("<meta http-equiv=\'Refresh\' content=\'20; url=/logon.htm\'>", true)

 

改成这样即可

 

wb.AppendHTML("<meta http-equiv=\'Refresh\' content=\'20; url=/consume_Elec_plate9.htm?page=" & page + 1 & ">", true) \'下一页

 

当已经是最后一页了，就跳转到第一页

 

wb.AppendHTML("<meta http-equiv=\'Refresh\' content=\'20; url=/consume_Elec_plate9.htm?page=0>", true) \'第一页

[此贴子已经被作者于2017/12/19 17:20:39编辑过]
--  作者：lanbor
--  发布时间：2017/12/19 17:28:00
--  多谢您指教！
多谢专家指教！
--  作者：lanbor
--  发布时间：2017/12/19 22:00:00
--  定时提交，找到原因了。
定时提交，找到原因了。
谢谢了。

[此贴子已经被作者于2017/12/19 22:27:58编辑过]