FastReport中国社区FastReport联系电话 联系电话:023-68661681

如何使用 Delphi / Lazarus / C++ Builder 从 FastReport VCL 创建 Code 11 条码?

来源:   发布时间:2022-12-26   浏览:次

Fastreport是目前世界上主流的图表控件,具有超高性价比,以更具成本优势的价格,便能提供功能齐全的报表解决方案,连续三年蝉联全球文档创建组件和库的“ Top 50 Publishers”奖。

FastReport.VCL官方版下载

Code 11,也称为 USD-8,是一种离散的高密度符号体系,主要用于标记电信设备。该符号包括以下元素:

  • 开始角色;
  • 代表数据的符号字符;
  • 可选的校验和数字;
  • 停止字符。

每个字符的第一个和最后一个元素都是一个条形。一个模块的字符间空间被附加在字符之间,以使字符之间相互分离。
这个字符支持数字(0-9)和连字符(-)。代码11的名称来自这11个字符。
由于代码11的自然密度造成的印刷缺陷会导致扫描仪误读字符。为了弥补这一点,代码11支持一个或两个可选的校验数字。少于10个数字字符的数据输入使用一个校验位,10个或更多的数字使用两个校验位。第一个数字是基于Modulo 11算法,第二个数字是基于Modulo 9算法。

如何在 FastReport VCL 设计器中创建 Code 11?

将 obCatBarcode 组件添加到报表中并选择 Code 11。

接下来,我们进入条形码编辑器:

代码 ― 条形码数值区域;条形码类型——您可以在编辑器中更改条形码类型,无需向报表添加新组件;
Calc CheckSum - 这是校验和。所有的线性条码都有这个属性。 这个属性决定了是否有必要自动计算校验和。如果这个属性是关闭的,你应该在文本对象中提供校验和。
缩放 — 设置条码缩放比例,仅与“Autosize”属性一起使用;
文本 ― 启用/禁用条码下方的文本显示;
旋转 — 允许您将对象的旋转设置为固定角度之一 — 0、90、180、270 度。
单击 F(x) 图标将带您进入一个大型表达式编辑器。

转到 obCatBarcode 组件的属性。在代码字段中在条形码编辑器中写入的文本将被传输到表达式字段。如果表达式为空,将显示文本字段中的文本。
换句话说,静态文本写在 Text 中,而 Expression 包含一个计算表达式,包括来自数据源的值。

从 Delphi / Lazarus / C++ Builder 代码创建 Code 11 条码

uses frxBarcod;
procedure TForm1.Button1Click(Sender: TObject);
var bc: TfrxBarcodeView;
begin
 bc := TfrxBarcodeView(frxReport1.FindObject('BarCode1'));
 {Set barcode type}
 bc.BarType := bcCode11;
 {Set a fixed barcode value}
 bc.Text := '123456';
 {Set the calculated barcode value}
 //bc.Expression := '<YourDatasetName."FieldName1"> + <YourDatasetName."FieldName2">';
 {Set whether to calculate the checksum and add it to the end of the barcode}
 bc.CalcCheckSum := False;
 {Set the scale at which the barcode will be displayed}
 bc.Zoom := 2;
 {Set the rotation angle of the barcode. It can take values 0, 90, 180, 270}
 bc.Rotation := 0;
 {Specify whether to set the width of the barcode depending on its content.}
 {If set to False, Zoom property will be set to keep the barcode width fixed}
 bc.AutoSize := True;
{Set the color of the barcode background}
 bc.Color := clNone;
 {Set the color of the barcode lines}
 bc.ColorBar := clBlack;
 {Set whether to display text at the bottom of the barcode}
 bc.ShowText := True;
 frxReport1.ShowReport();
end; 

本次FastReport使用教程中关于“如何使用 Delphi / Lazarus / C++ Builder 从 FastReport VCL 创建 Code 11 条码”的相关内容就到这里了,更多教程进入慧都官网查看。

更多产品授权信息点击查看FastReport VCL价格,或者咨询慧都在线客服。

本站文章除注明转载外,均为本站原创或翻译
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/3430.html

联系我们
  • 重庆总部 023-68661681
购买
  • sales@evget.com
合作
  • business@evget.com


扫码咨询
电话咨询
023-68661681
返回
顶部