条形码生成与打印

孤心人

调用锐浪报表吧，功能丰富强大，随便哪种标签内容都可以打印

花间一壶酒

你这种需求 生成出来没用啊  扫码枪识别不了  

花间一壶酒

  

窗口程序集名	保 留	保 留	备 注
条码生成, , 公开
变量名	类 型	数组	备 注
A类编码	节点
B类编码	节点
C类编码	节点
左右护线	文本型	3
中护线	文本型	5
_背景色	整数型
_前景色	整数型
_画板	画板
_高度	整数型
_线宽	整数型
总文本	文本型	0

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

变量名	类 型	静态	数组	备 注
n	整数型
a	文本型

左右护线 ＝ { “1”, “0”, “1” }
中护线 ＝ { “0”, “1”, “0”, “1”, “0” }
A类编码.加入属性 (“0”, “0001101”)
A类编码.加入属性 (“1”, “0011001”)
A类编码.加入属性 (“2”, “0010011”)
A类编码.加入属性 (“3”, “0111101”)
A类编码.加入属性 (“4”, “0100011”)
A类编码.加入属性 (“5”, “0110001”)
A类编码.加入属性 (“6”, “0101111”)
A类编码.加入属性 (“7”, “0111011”)
A类编码.加入属性 (“8”, “0110111”)
A类编码.加入属性 (“9”, “0001011”)
B类编码.加入属性 (“0”, “0100111”)
B类编码.加入属性 (“1”, “0110011”)
B类编码.加入属性 (“2”, “0011011”)
B类编码.加入属性 (“3”, “0100001”)
B类编码.加入属性 (“4”, “0011101”)
B类编码.加入属性 (“5”, “0111001”)
B类编码.加入属性 (“6”, “0000101”)
B类编码.加入属性 (“7”, “0010001”)
B类编码.加入属性 (“8”, “0001001”)
B类编码.加入属性 (“9”, “0010111”)
C类编码.加入属性 (“0”, “1110010”)
C类编码.加入属性 (“1”, “1100110”)
C类编码.加入属性 (“2”, “1101100”)
C类编码.加入属性 (“3”, “1000010”)
C类编码.加入属性 (“4”, “1011100”)
C类编码.加入属性 (“5”, “1001110”)
C类编码.加入属性 (“6”, “1010000”)
C类编码.加入属性 (“7”, “1000100”)
C类编码.加入属性 (“8”, “1001000”)
C类编码.加入属性 (“9”, “1110100”)

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
设置
参数名	类 型	参考	可空	数组	备 注
条码画板	画板
背景色	整数型				可以使用常量，默认白色
前景色	整数型				可以使用常量，默认黑色色
线宽	整数型				条码单线的宽度，单位像素,默认为1
高度	整数型				条码的高度，默认为80,护线自动加5

_画板 ＝ 条码画板
如果 (背景色 ＝ 0)
_背景色 ＝ #白色
_背景色 ＝ 背景色

如果 (前景色 ＝ 0)
_前景色 ＝ #黑色
_前景色 ＝ 前景色

如果 (线宽 ＝ 0)
_线宽 ＝ 2
_线宽 ＝ 线宽

如果 (高度 ＝ 0)
_高度 ＝ 80
_高度 ＝ 高度

_画板.绘画单位 ＝ 0
_画板.画笔类型 ＝ 1
_画板.字体.加粗 ＝ 真
_画板.字体.字体大小 ＝ 11

子程序名	返回值类型	公开	备 注
画条码
参数名	类 型	参考	可空	数组	备 注
条码	文本型				共13位数，只需输入12位，最后一位校验自动生成

变量名	类 型	静态	数组	备 注
n	整数型
x	整数型
左资料码	文本型
右资料码	文本型
校验	整数型
校验码	文本型

_画板.画笔粗细 ＝ _线宽
x ＝ 10
计次循环首 (3, n)
如果 (左右护线 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度 ＋ 7)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度 ＋ 7)
x ＝ x ＋ _线宽

计次循环尾 ()
左资料码 ＝ 取左资料码 (到整数 (取文本左边 (条码, 7)))
分割资料码 (左资料码)
计次循环首 (取数组成员数 (总文本), n)
如果 (总文本 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽

计次循环尾 ()
计次循环首 (5, n)
如果 (中护线 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度 ＋ 5)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度 ＋ 5)
x ＝ x ＋ _线宽

计次循环尾 ()
右资料码 ＝ 取右资料码 (到整数 (取文本右边 (条码, 5)))
分割资料码 (右资料码)
计次循环首 (取数组成员数 (总文本), n)
如果 (总文本 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽

计次循环尾 ()
校验 ＝ 计算校验 (条码)
C类编码.取文本值 (到文本 (校验), 校验码)
分割资料码 (校验码)
计次循环首 (取数组成员数 (总文本), n)
如果 (总文本 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度)
x ＝ x ＋ _线宽

计次循环尾 ()
计次循环首 (3, n)
如果 (左右护线 [n] ＝ “1”)
_画板.画笔颜色 ＝ _前景色
_画板.画直线 (x, 30, x, _高度 ＋ 5)
x ＝ x ＋ _线宽
_画板.画笔颜色 ＝ _背景色
_画板.画直线 (x, 30, x, _高度 ＋ 5)
x ＝ x ＋ _线宽

计次循环尾 ()
x ＝ 0
_画板.定位写出 (x, _高度, 取文本左边 (条码, 1))
如果 (_线宽 ＜ 2)
x ＝ 30 ＋ 3 × _线宽
x ＝ 30 ＋ 5 × _线宽

计次循环首 (6, n)
_画板.定位写出 (x, _高度, 取文本中间 (条码, n ＋ 1, 1))
x ＝ x ＋ 7 × _线宽
计次循环尾 ()
如果 (_线宽 ＜ 2)
x ＝ x ＋ 4
如果 (_线宽 ＞ 2)
x ＝ x ＋ 15
x ＝ x ＋ 7


计次循环首 (5, n)
_画板.定位写出 (x, _高度, 取文本中间 (条码, n ＋ 7, 1))
x ＝ x ＋ 7 × _线宽
计次循环尾 ()
_画板.定位写出 (x, _高度, 校验)

子程序名	返回值类型	公开	备 注
计算校验	整数型
参数名	类 型	参考	可空	数组	备 注
条码	文本型

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	整数型
条码序列	整数型		0
临时文本	文本型
d	整数型
n	整数型

临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码))
加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))
计次循环首 (取文本长度 (条码) － 1, n)
临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码) － n)
加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))
计次循环尾 ()
a ＝ 条码序列 [1] ＋ 条码序列 [3] ＋ 条码序列 [5] ＋ 条码序列 [7] ＋ 条码序列 [9] ＋ 条码序列 [11]
b ＝ 条码序列 [2] ＋ 条码序列 [4] ＋ 条码序列 [6] ＋ 条码序列 [8] ＋ 条码序列 [10] ＋ 条码序列 [12]
b ＝ b × 3
c ＝ a ＋ b
d ＝ 10 － 到整数 (取文本右边 (到文本 (c), 1))
如果 (d ＝ 10)
d ＝ 0
返回 (d)
返回 (d)

子程序名	返回值类型	公开	备 注
取左资料码	文本型
参数名	类 型	参考	可空	数组	备 注
编码	整数型

变量名	类 型	静态	数组	备 注
导入码	文本型
分割码	文本型		0
n	整数型
临时文本	文本型
返回编码	文本型
临时编码	文本型

导入码 ＝ 取文本左边 (到文本 (编码), 1)
计次循环首 (取文本长度 (到文本 (编码)) － 1, n)
临时文本 ＝ 取文本右边 (到文本 (编码), 取文本长度 (到文本 (编码)) － n)
加入成员 (分割码, 取文本左边 (临时文本, 1))
计次循环尾 ()
判断 (导入码 ＝ “1”)
计次循环首 (取数组成员数 (分割码), n)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
计次循环尾 ()
判断 (导入码 ＝ “2”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 2 或 n ＝ 4)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 3 或 n ＝ 5 或 n ＝ 6)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码




计次循环尾 ()
判断 (导入码 ＝ “3”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 2 或 n ＝ 5)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 3 或 n ＝ 4 或 n ＝ 6)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码




计次循环尾 ()
判断 (导入码 ＝ “4”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 3 或 n ＝ 4)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 2 或 n ＝ 5 或 n ＝ 6)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码




计次循环尾 ()
判断 (导入码 ＝ “5”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 4 或 n ＝ 5)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 2 或 n ＝ 3 或 n ＝ 6)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码




计次循环尾 ()
判断 (导入码 ＝ “6”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 5 或 n ＝ 6)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 2 或 n ＝ 3 或 n ＝ 4)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码




计次循环尾 ()
判断 (导入码 ＝ “7”)
计次循环首 (取数组成员数 (分割码), n)
如果 (n ＝ 1 或 n ＝ 5 或 n ＝ 3)
A类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
如果 (n ＝ 2 或 n ＝ 6 或 n ＝ 4)
B类编码.取文本值 (分割码 [n], 临时编码)
返回编

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .程序集 条码生成, , 公开<br /> .程序集变量 A类编码, 节点<br /> .程序集变量 B类编码, 节点<br /> .程序集变量 C类编码, 节点<br /> .程序集变量 左右护线, 文本型, , "3"<br /> .程序集变量 中护线, 文本型, , "5"<br /> .程序集变量 _背景色, 整数型<br /> .程序集变量 _前景色, 整数型<br /> .程序集变量 _画板, 画板<br /> .程序集变量 _高度, 整数型<br /> .程序集变量 _线宽, 整数型<br /> .程序集变量 总文本, 文本型, , "0"<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> .局部变量 n, 整数型<br /> .局部变量 a, 文本型<br /> <br /> 左右护线 ＝ { “1”, “0”, “1” }<br /> 中护线 ＝ { “0”, “1”, “0”, “1”, “0” }<br /> A类编码.加入属性 (“0”, “0001101”)<br /> A类编码.加入属性 (“1”, “0011001”)<br /> A类编码.加入属性 (“2”, “0010011”)<br /> A类编码.加入属性 (“3”, “0111101”)<br /> A类编码.加入属性 (“4”, “0100011”)<br /> A类编码.加入属性 (“5”, “0110001”)<br /> A类编码.加入属性 (“6”, “0101111”)<br /> A类编码.加入属性 (“7”, “0111011”)<br /> A类编码.加入属性 (“8”, “0110111”)<br /> A类编码.加入属性 (“9”, “0001011”)<br /> <br /> B类编码.加入属性 (“0”, “0100111”)<br /> B类编码.加入属性 (“1”, “0110011”)<br /> B类编码.加入属性 (“2”, “0011011”)<br /> B类编码.加入属性 (“3”, “0100001”)<br /> B类编码.加入属性 (“4”, “0011101”)<br /> B类编码.加入属性 (“5”, “0111001”)<br /> B类编码.加入属性 (“6”, “0000101”)<br /> B类编码.加入属性 (“7”, “0010001”)<br /> B类编码.加入属性 (“8”, “0001001”)<br /> B类编码.加入属性 (“9”, “0010111”)<br /> <br /> <br /> C类编码.加入属性 (“0”, “1110010”)<br /> C类编码.加入属性 (“1”, “1100110”)<br /> C类编码.加入属性 (“2”, “1101100”)<br /> C类编码.加入属性 (“3”, “1000010”)<br /> C类编码.加入属性 (“4”, “1011100”)<br /> C类编码.加入属性 (“5”, “1001110”)<br /> C类编码.加入属性 (“6”, “1010000”)<br /> C类编码.加入属性 (“7”, “1000100”)<br /> C类编码.加入属性 (“8”, “1001000”)<br /> C类编码.加入属性 (“9”, “1110100”)<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 设置, , 公开<br /> .参数 条码画板, 画板<br /> .参数 背景色, 整数型, 可空, 可以使用常量，默认白色<br /> .参数 前景色, 整数型, 可空, 可以使用常量，默认黑色色<br /> .参数 线宽, 整数型, 可空, 条码单线的宽度，单位像素,默认为1<br /> .参数 高度, 整数型, 可空, 条码的高度，默认为80,护线自动加5<br /> <br /> _画板 ＝ 条码画板<br /> .如果 (背景色 ＝ 0)<br />     _背景色 ＝ #白色<br /> .否则<br />     _背景色 ＝ 背景色<br /> .如果结束<br /> <br /> .如果 (前景色 ＝ 0)<br />     _前景色 ＝ #黑色<br /> .否则<br />     _前景色 ＝ 前景色<br /> .如果结束<br /> <br /> .如果 (线宽 ＝ 0)<br />     _线宽 ＝ 2<br /> .否则<br />     _线宽 ＝ 线宽<br /> .如果结束<br /> <br /> .如果 (高度 ＝ 0)<br />     _高度 ＝ 80<br /> .否则<br />     _高度 ＝ 高度<br /> .如果结束<br /> <br /> _画板.绘画单位 ＝ 0<br /> _画板.画笔类型 ＝ 1<br /> _画板.字体.加粗 ＝ 真<br /> _画板.字体.字体大小 ＝ 11<br /> <br /> .子程序 画条码, , 公开<br /> .参数 条码, 文本型, , 共13位数，只需输入12位，最后一位校验自动生成<br /> .局部变量 n, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 左资料码, 文本型<br /> .局部变量 右资料码, 文本型<br /> .局部变量 校验, 整数型<br /> .局部变量 校验码, 文本型<br /> <br /> _画板.画笔粗细 ＝ _线宽<br /> x ＝ 10<br /> .计次循环首 (3, n)<br />     .如果 (左右护线 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 7)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 7)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 左资料码 ＝ 取左资料码 (到整数 (取文本左边 (条码, 7)))<br /> <br /> 分割资料码 (左资料码)<br /> <br /> .计次循环首 (取数组成员数 (总文本), n)<br />     .如果 (总文本 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (5, n)<br />     .如果 (中护线 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 5)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 5)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 右资料码 ＝ 取右资料码 (到整数 (取文本右边 (条码, 5)))<br /> 分割资料码 (右资料码)<br /> .计次循环首 (取数组成员数 (总文本), n)<br />     .如果 (总文本 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 校验 ＝ 计算校验 (条码)<br /> C类编码.取文本值 (到文本 (校验), 校验码)<br /> <br /> 分割资料码 (校验码)<br /> <br /> .计次循环首 (取数组成员数 (总文本), n)<br />     .如果 (总文本 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .计次循环首 (3, n)<br />     .如果 (左右护线 [n] ＝ “1”)<br />         _画板.画笔颜色 ＝ _前景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 5)<br />         x ＝ x ＋ _线宽<br />     .否则<br />         _画板.画笔颜色 ＝ _背景色<br />         _画板.画直线 (x, 30, x, _高度 ＋ 5)<br />         x ＝ x ＋ _线宽<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> x ＝ 0<br /> _画板.定位写出 (x, _高度, 取文本左边 (条码, 1))<br /> .如果 (_线宽 ＜ 2)<br />     x ＝ 30 ＋ 3 × _线宽<br /> .否则<br />     x ＝ 30 ＋ 5 × _线宽<br /> .如果结束<br /> <br /> .计次循环首 (6, n)<br />     _画板.定位写出 (x, _高度, 取文本中间 (条码, n ＋ 1, 1))<br />     x ＝ x ＋ 7 × _线宽<br /> .计次循环尾 ()<br /> .如果 (_线宽 ＜ 2)<br />     x ＝ x ＋ 4<br /> .否则<br />     .如果 (_线宽 ＞ 2)<br />         x ＝ x ＋ 15<br />     .否则<br />         x ＝ x ＋ 7<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .计次循环首 (5, n)<br />     _画板.定位写出 (x, _高度, 取文本中间 (条码, n ＋ 7, 1))<br />     x ＝ x ＋ 7 × _线宽<br /> .计次循环尾 ()<br /> _画板.定位写出 (x, _高度, 校验)<br /> <br /> .子程序 计算校验, 整数型<br /> .参数 条码, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 条码序列, 整数型, , "0"<br /> .局部变量 临时文本, 文本型<br /> .局部变量 d, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码))<br /> 加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))<br /> .计次循环首 (取文本长度 (条码) － 1, n)<br />     临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码) － n)<br />     加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))<br /> .计次循环尾 ()<br /> a ＝ 条码序列 [1] ＋ 条码序列 [3] ＋ 条码序列 [5] ＋ 条码序列 [7] ＋ 条码序列 [9] ＋ 条码序列 [11]<br /> b ＝ 条码序列 [2] ＋ 条码序列 [4] ＋ 条码序列 [6] ＋ 条码序列 [8] ＋ 条码序列 [10] ＋ 条码序列 [12]<br /> b ＝ b × 3<br /> c ＝ a ＋ b<br /> d ＝ 10 － 到整数 (取文本右边 (到文本 (c), 1))<br /> <br /> .如果 (d ＝ 10)<br />     d ＝ 0<br />     返回 (d)<br /> .否则<br />     返回 (d)<br /> .如果结束<br /> <br /> <br /> .子程序 取左资料码, 文本型<br /> .参数 编码, 整数型<br /> .局部变量 导入码, 文本型<br /> .局部变量 分割码, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 返回编码, 文本型<br /> .局部变量 临时编码, 文本型<br /> <br /> 导入码 ＝ 取文本左边 (到文本 (编码), 1)<br /> .计次循环首 (取文本长度 (到文本 (编码)) － 1, n)<br />     临时文本 ＝ 取文本右边 (到文本 (编码), 取文本长度 (到文本 (编码)) － n)<br />     加入成员 (分割码, 取文本左边 (临时文本, 1))<br /> .计次循环尾 ()<br /> <br /> .判断开始 (导入码 ＝ “1”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         A类编码.取文本值 (分割码 [n], 临时编码)<br />         返回编码 ＝ 返回编码 ＋ 临时编码<br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “2”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 2 或 n ＝ 4)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 3 或 n ＝ 5 或 n ＝ 6)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编码 ＝ 返回编码 ＋ 临时编码<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “3”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 2 或 n ＝ 5)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 3 或 n ＝ 4 或 n ＝ 6)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编码 ＝ 返回编码 ＋ 临时编码<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “4”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 3 或 n ＝ 4)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 2 或 n ＝ 5 或 n ＝ 6)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编码 ＝ 返回编码 ＋ 临时编码<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “5”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 4 或 n ＝ 5)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 2 或 n ＝ 3 或 n ＝ 6)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编码 ＝ 返回编码 ＋ 临时编码<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “6”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 5 或 n ＝ 6)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 2 或 n ＝ 3 或 n ＝ 4)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编码 ＝ 返回编码 ＋ 临时编码<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .判断 (导入码 ＝ “7”)<br />     .计次循环首 (取数组成员数 (分割码), n)<br />         .如果 (n ＝ 1 或 n ＝ 5 或 n ＝ 3)<br />             A类编码.取文本值 (分割码 [n], 临时编码)<br />             返回编码 ＝ 返回编码 ＋ 临时编码<br />         .否则<br />             .如果 (n ＝ 2 或 n ＝ 6 或 n ＝ 4)<br />                 B类编码.取文本值 (分割码 [n], 临时编码)<br />                 返回编

.版本 2
.支持库 spec

.子程序 _按钮_手动生成_被单击

条码.设置 (画板_条形码, #白色, #黑色, 2, 80)
.如果 (取文本长度 (编辑框_条码编号.内容) ＞ 12 或 取文本长度 (编辑框_条码编号.内容) ＜ 12)
    信息框 (“需输入12位，最后一位校验码自动计算”, 0, )
.否则
    画板_条形码.重画 ()
    延迟 (100)
    条码.画条码 (编辑框_条码编号.内容)

南栀哥哥

传奇 发表于 2024-9-18 09:53
你可以具体描述下，也可以创建模板打印，

你的那个到是可以，就是不能批量插入与打印

别人的勇叔

https://bbs.125.la/forum.php?mod ... rtype=1#pid28891956
应该是你需要的