報表生成器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），我們很高興為您提供查詢和咨詢。