世俱杯 2025

报表生成器FastReport VCL是用于在软件中集成商务智能的现代解决方案。它提供了可视化模板设计器，可以访问最受欢迎的数据源，报告引擎，预览，将过滤器导出为30多种格式，并可以部署到云，Web，电子邮件和打印中。

点击下载最新版FastReport VCL

Fastreport年终钜惠在线下单立享85折起！赶紧加入购物清单吧！

关于条形码的一些理论

很难想象没有条形码的生活，尤其是现在我们在每一步都遇到了条形码。我们去电影院，门票上有这张“黑白条形图”，我们去了超市，每种产品都有条形码形式的信息。我们只能想象如果收银员在不使用扫描仪的情况下手动输入产品标识符，那么队列将是什么。此外，输入数字序列时很可能会犯错误。今天，我们将考虑各种条形码的一小部分。

ITF（五分之二的交错）或“ 5分之二”的条形码是双频带数字代码，或者是只能编码成对数字的高密度数字条形码（条形码必须具有偶数个数字！）。每个条形码图案都将条形图案中的奇数位编码，并将条形之间的间隔图案中的偶数位编码。要对奇数个数字进行编码，必须将最左边（最高有效）数字填充零。

条形码可以是可变长度的，通常不使用校验和，尽管在某些特殊情况下会使用模10校验字符。由于交错条形码Code 5 of 2不能自我检查，因此可以进行部分扫描，并且经常使用固定长度的数据字段来避免此问题。

简而言之：

• 编码纯数字数据；
• 长度是可变的，但必须具有偶数个数字；
• 校验和是可选的。

• 标签尺寸可以小于具有相同数字的其他代码的尺寸。在狭小的空间内打印条形码非常有效。
• 如果标签大小相同，则与其他代码相比，可以包含更多数据。（位数可以增加。）
• 如果标签尺寸和位数相同，则条形宽度可以更宽。

FastReport VCL允许您使用所有三种类型的条形码。让我们看看如何做。
在FastReport VCL设计器中，将obCatBarcode组件添加到报告中，然后从列表中选择条形码的类型：

代码–条形码数值的区域；

条形码类型–条形码类型可以在编辑器中立即更改，而无需在报告中添加新组件；
Calc CheckSum 校验，所有线性条形码都具有此属性。还记得“略读”吗？我们必须以某种方式与之抗争！此属性确定是否应自动计算校验和。如果禁用，则校验和必须出现在对象文本中；
缩放–设置条形码的缩放比例，仅与“自动调整大小”属性结合使用；
文字–启用/禁用条形码下的文字显示；
旋转–允许您将对象的旋转设置为固定角度之一– 0、90、180、270度。

从Delphi / Lazarus代码创建条形码

uses frxBarcod;
 
procedure TForm1.Button1Click(Sender: TObject);
var bc: TfrxBarcodeView;
begin
bc :=TfrxBarcodeView(frxReport1.FindObject('BarCode1'));
{Set the type of the barcode}
bc.BarType := bcCode_2_5_interleaved;
{Set the fixed barcode value}
bc.Text := '123456';
{Set the calculated barcode value}
//bc.Expression := '<YourDatasetName."FieldName1"> + <YourDatasetName."FieldName2">';
{Set whether it is necessary 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 angle of the barcode rotation. Can take the following values: 0, 90, 180, 270}
bc.Rotation := 0;
{Set whether to set the width of the barcode depending on its content.}
{If set to False, Zoom will be set to keep the barcode width fixed}
bc.AutoSize := True;
{Set the barcode background color}
bc.Color := clNone;
{Set the barcode lines color}
bc.ColorBar := clBlack;
{Set whether to display the text at the bottom of the barcode}
bc.ShowText := True;
frxReport1.ShowReport();
end;

还想要更多吗？您可以点击阅读【FastReport 报表2020最新资源盘点】，查找需要的教程资源。如果您有任何疑问或需求，请随时加入FastReport技术交流群（783996712），我们很高兴为您提供查询和咨询。