以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  二维码 如何实现扫码后 自动回车呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184635)

--  作者:cnsjroom
--  发布时间:2022/12/19 9:28:00
--  二维码 如何实现扫码后 自动回车呢?

二维码 如何实现扫码后  自动回车呢?

 

 Dim doc As New PrintDoc() \'定义一个报表
    doc.PageSetting.Width = cint(dr11("纸张宽度")) \'纸张宽度
    doc.PageSetting.Height = cint(dr11("纸张高度")) \'纸张高度
    Doc.PrinterName = dr11("二维码打印机")    \'设定打印机为当前选择的打印机\'
    Dim img As C1.C1Preview.RenderImage   \'定义一个图像\'
    Dim Bar As New BarCodeBuilder
    Bar.Symbology=Neodynamic.WinControls.BarcodeProfessional.Symbology.QRCode
    Bar.BarWidth = cint(dr11("二维码宽度"))
    Bar.BarHeight = cint(dr11("二维码高度"))
    Bar.QuietZoneWidth = cint(dr11("二维码静区"))
    Bar.QRCodeModuleSize = dr11("模组尺寸")
    Doc.Stacking = C1.C1Preview.StackingRulesEnum.InlineLeftToRight
    cmd.CommandText = "sele ct * from {办案装备_管理台账} where guid=\'" & guid & "\'"
    Dim dt111 As DataTable = cmd.ExecuteReader()
    Dim dr111 As DataRow = dt111.DataRows(0)
    If dt111.datarows.count > 0 Then
        fl = ProjectPath & "Reports\\" & dr111("编号") & "二维码.jpg"
   fl1 = ProjectPath & "Reports\\" & dr111("编号") & "二维码.pdf"
        Bar.Code = dr111("编号")
    End If
    img = new C1.C1Preview.RenderImage
    img.Image = bar.GetImage
    img.X=cint(dr11("图片x"))
    img.y=cint(dr11("图片Y"))
    img.Width = cint(dr11("图片高度")) \'宽度等于页面宽度
    img.Height = cint(dr11("图片宽度"))\'\'高度由图片大小自动决定
    Doc.Body.Children.Add(img)
    If dr11("打印或预览")="打印"  Then
        doc.Print
    Else
  doc.SavePDF(fl1) \'保存为PDF文件
        e.WriteString("\\Reports\\" & dr111("编号") & "二维码.PDF")

End If


--  作者:有点蓝
--  发布时间:2022/12/19 9:38:00
--  
没看懂,代码是生成一个报表,和扫码回车有什么关系?
--  作者:cnsjroom
--  发布时间:2022/12/19 9:46:00
--  回复:(有点蓝)没看懂,代码是生成一个报表,和扫码...

我想在bs端的文本输入框中   实现扫码直接回车

1、是不是二维码中要添加回车按钮字符

2、还是直接指定文本输入框默认为英文输入法呢?


--  作者:有点蓝
--  发布时间:2022/12/19 9:50:00
--  
回车的目的是做什么?
--  作者:cnsjroom
--  发布时间:2022/12/19 10:40:00
--  回复:(有点蓝)回车的目的是做什么?

有些码扫描后会自动回车确认数据  有些码带有字母  不会自动回车确认数据

想不管是否带有字母 都自动回车确认数据


--  作者:有点蓝
--  发布时间:2022/12/19 10:41:00
--  
扫码功能怎么做的,具体代码?
--  作者:cnsjroom
--  发布时间:2022/12/29 10:03:00
--  回复:(有点蓝)扫码功能怎么做的,具体代码?

扫码功能就是一个页面放了一个文本框  然后利用扫码枪直接读取二维码


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

--  作者:有点蓝
--  发布时间:2022/12/29 10:13:00
--  
扫码枪硬件本身就可以设置扫码后增加一个回车符的,不需要代码