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

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

FastReport.VCL官方版下载https://www.evget.com/product/233/download

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 条码”的相关内容就到这里了，更多教程进入慧都官网查看。