用水晶报表做条码打印

不知道各位有没有直接在WORD或EXCEL里直接设置过条码,然后打印出来? 如果直接把内容设置为条码字体,打印出来后是扫描枪是无法读取的. 我们都知道要在内容前后加上"*"(这里和""只起引用,实际不用). 当然,这种只是39码的起始字符. 但在实际应用途中,39码往往不能够满足要求,需要打印成CODE128码,但这时候就不能简单的在打印内容前后加入"*"后设置为CODE128字体就可以了. 这需要通过算法添加不同的起始符. 下面结合我在实际的应用中,讲一下这两种方法(实际上是一种),

1. 是直接在SQL里取出相应的内容就已经添加.

2. 如果数据是在画面生成,但不需经过数据库获取的话,就只能在报表里直接实现了.

把函数放到SQL里

ALTER FUNCTION [dbo].[StrToCode128B](
 @Str NVARCHAR(200)=‘GetonJew‘)--128B码：ChrW(204)
 RETURNS NVARCHAR(200)
AS  --  by GetonJew
BEGIN
 DECLARE @checkB INT
 DECLARE @i INT ,@j INT
 DECLARE @str2 NVARCHAR(2)
 SET @i=1  

 SET @checkB = 1  --开始位的码值为104 mod 103 =1
                  --
 WHILE @i <= LEN(@Str)
 BEGIN
  SET @str2 = SUBSTRING(@Str,@i,1)
  SET @j = ASCII(@str2) --不过滤无效字符,比如汉字
  IF @j<135
  BEGIN
   SET @j=@j-32
  END
  ELSE IF @j>134
  BEGIN
   SET @j=@j-100
  END
  SET @checkB = (@checkB + @i * @j) % 103   --计算校验位
  SET @i=@i+1
 END    

 IF @checkB<95 AND @checkB>0 --有的资料直接求103的模,解说不充分,因为有的校验位超过127时,系统会"吃"掉它们(连带休止符).
 BEGIN
  SET @checkB = @checkB + 32
 END
 ELSE IF @checkB > 94  -- ‘字体设置时,字模被定义了2个值.观察字体文件时能发现.
 BEGIN
  SET @checkB = @checkB + 100
 END  

     RETURN NCHAR(204) + @Str + CASE WHEN @checkB>0 THEN NCHAR(@checkB) ELSE NCHAR(32) END + NCHAR(206)  

END 

在报表中的【自定义函数】新建一个函数保存为Code128，名字随便定义，在代码框中输入如下代码（Basic语法）：

Function Code128  ( strIn As string ) As String  

Dim intLoop As Number
Dim intPosition as Number
Dim intTotalVal as Number
Dim strOut as String
Dim strSpChr as String
Dim strEndChr as String
Dim intEndNo as Number
strOut = ""
for
intLoop = 0 to Len(strIn) - 1
intPosition = intLoop + 1
strSpChr = Mid(strIn, intPosition, 1)
intTotalVal = intTotalVal + (Asc(strSpChr) - 32) * intPosition
next 

intTotalVal = intTotalVal + 104 

intTotalVal = intTotalVal mod 103 

If intTotalVal >= 95 Then 

Select Case intTotalVal
Case 95
strEndChr = "Ã"
Case 96
strEndChr = "Ä"
Case 97
strEndChr = "Å"
Case 98
strEndChr = "Æ"
Case 99
strEndChr = "Ç"
Case 100
strEndChr = "È"
Case 101
strEndChr = "É"
Case 102
strEndChr = "Ê"
End Select
Else
intTotalVal = intTotalVal + 32
strEndChr = Chr(intTotalVal)
End If
Code128 = "Ì" + strIn + strEndChr + "Î"   

End Function 

下面是水晶报表设计,为显示添加起始符后的数据,这里的数量就特意不以条码字体显示

下图是调出来的结果.