在水晶报表中使用Code128条形码

0

本文作者:xjtudll  发布于:2020-5-1  分类:技术心得  点击:


核心重点:字符串如果直接用code128字体显示,是无法扫描出来的

1.将code128条码字体拷贝到C:\Windows\fonts下

2 .在水晶报表里的【字段资源管理器】的【公式字段】中新建一个公式字段例如我命名为Code128

3.在新建的字段单击鼠标右键 选择编辑 在报表自定义函数中新建函数如下图所示

20160305134424755

代码如下所示

Function GetCode128B( inputData As string ) As String  
  Dim checksum    as  Number 
  Dim intPosition as  Number
  Dim ii          as  Number
  Dim strSpChr    as  String
  checksum = 104
    for  ii = 0 to Len(inputData)-1   
        intPosition = ii + 1  
        strSpChr = Mid(inputData, intPosition, 1)  
        if Asc(strSpChr) >= 32 then
          checksum = checksum + (Asc(strSpChr) - 32) * intPosition
        else
          checksum = checksum + (Asc(strSpChr) + 64) * intPosition
        end if
    next
    checksum = checksum mod 103
       if checksum < 95 then
          checksum = checksum + 32
       else
          checksum = checksum + 100
       end if
    GetCode128B ="Ì" +inputData+chr(checksum) +"Î"
End Function

4.选中公式字段Code128 在函数参数中值 选择数据库字段

20160305134622277

5.然后将字段Code128插入到报表中,并把报表中的字段修改为Code128即可

20160307081616122

0 Comments

Write a comment ?