Foxtable(狐表)用户栏目专家坐堂 → 点扫描可以扫二维码,但点统计不出来查询表


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

主题:点扫描可以扫二维码,但点统计不出来查询表

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
点扫描可以扫二维码,但点统计不出来查询表  发帖心情 Post By:2020/10/27 8:01:00 [只看该作者]

如题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:html5-qrcode.min.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/27 8:43:00 [只看该作者]

贴出自己的代码

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2020/10/27 8:48:00 [只看该作者]

附件中有代码,便于测试。
[此贴子已经被作者于2020/10/27 8:49:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/27 8:52:00 [只看该作者]

附件是别人组件的代码,没有意义,请贴出自己的代码

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2020/10/27 8:57:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI

wb.AddForm("","form1","test")
wb.AppendHTML("<script src='./lib/html5-qrcode.min.js'></script>",True) '引入脚本文件

With wb.AddInputGroup("form1","ipg1","销售统计")
    .AddInput("cp","产品","text")
End With
With wb.AddButtonGroup("form1","btg1",False)
    .Add("scan", "扫码", "button").Attribute= "" '调用开始扫码的js函数
    .Add("btn2", "统计", "button").Attribute= ""
End With
wb.InsertHTML("<div id=""reader"" width=""300px""></div>")
wb.InsertHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的查询结果
wb.AppendHTML("<script src='./lib/scan.js'></script>") '引入脚本文件
'wb.AppendHTML("<script>let html5QrcodeScanner = new Html5QrcodeScanner('reader', { fps: 10, qrbox: 250 } , true);</script>" ) '引入脚本文件
wb.AppendHTML("<script>const html5QrCode = new Html5Qrcode( ""reader"");</script>" ) '初始化二维码对象,绑定id为"reader"的div控件
e.WriteString(wb.Build)

 回到顶部
客人(61.175.*.*)
  6楼


  发帖心情 Post By:2020/10/27 8:59:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
MessageBox.Show(1)
If e.PostValues.ContainsKey("cp") Then
        Dim cmd As new sqlco\mmand
    cmd.commandtext="sel\ect 第一列 from {表A} where 第一列='" & e.PostValues("cp") & "'"
    Dim dt As DataTable = cmd.Ex\ecuteReader()
    wb.AddTable("","Table1").Crea\teFromDataTable(dt)
Else
    wb.InsertHTML("产品!")
End If
e.WriteString(wb.Build)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/27 9:06:00 [只看该作者]

代码不完整

With wb.AddButtonGroup("form1","btg1",False)
    .Add("scan", "扫码", "button").Attribute= "" '调用开始扫码的js函数
    .Add("btn2", "统计", "button").Attribute= ""
End With

另外请贴出scan.js代码

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2020/10/27 9:17:00 [只看该作者]

scan.js代码不能上传,附件中的代码很完整的。
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/27 9:26:00 [只看该作者]

直接把scan.js文件发上来,1楼附件没看到有scan.js和您自己的代码

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2020/10/27 9:39:00 [只看该作者]

还有,哪个代码调用内部函数test?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


 回到顶部
总数 63 1 2 3 4 5 6 7 下一页