報(bào)表生成器FastReport VCL是用于在軟件中集成商務(wù)智能的現(xiàn)代解決方案。它提供了可視化模板設(shè)計(jì)器，可以訪(fǎng)問(wèn)最受歡迎的數(shù)據(jù)源，報(bào)告引擎，預(yù)覽，將過(guò)濾器導(dǎo)出為30多種格式，并可以部署到云，Web，電子郵件和打印中。

點(diǎn)擊下載最新版FastReport VCL

Fastreport年終鉅惠在線(xiàn)下單立享85折起！趕緊加入購(gòu)物清單吧！

關(guān)于條形碼的一些理論

很難想象沒(méi)有條形碼的生活，尤其是現(xiàn)在我們?cè)诿恳徊蕉加龅搅藯l形碼。我們?nèi)ル娪霸海T(mén)票上有這張“黑白條形圖”，我們?nèi)チ顺校糠N產(chǎn)品都有條形碼形式的信息。我們只能想象如果收銀員在不使用掃描儀的情況下手動(dòng)輸入產(chǎn)品標(biāo)識(shí)符，那么隊(duì)列將是什么。此外，輸入數(shù)字序列時(shí)很可能會(huì)犯錯(cuò)誤。今天，我們將考慮各種條形碼的一小部分。

ITF（五分之二的交錯(cuò)）或“ 5分之二”的條形碼是雙頻帶數(shù)字代碼，或者是只能編碼成對(duì)數(shù)字的高密度數(shù)字條形碼（條形碼必須具有偶數(shù)個(gè)數(shù)字！）。每個(gè)條形碼圖案都將條形圖案中的奇數(shù)位編碼，并將條形之間的間隔圖案中的偶數(shù)位編碼。要對(duì)奇數(shù)個(gè)數(shù)字進(jìn)行編碼，必須將最左邊（最高有效）數(shù)字填充零。

條形碼可以是可變長(zhǎng)度的，通常不使用校驗(yàn)和，盡管在某些特殊情況下會(huì)使用模10校驗(yàn)字符。由于交錯(cuò)條形碼Code 5 of 2不能自我檢查，因此可以進(jìn)行部分掃描，并且經(jīng)常使用固定長(zhǎng)度的數(shù)據(jù)字段來(lái)避免此問(wèn)題。

簡(jiǎn)而言之：

• 編碼純數(shù)字?jǐn)?shù)據(jù)；
• 長(zhǎng)度是可變的，但必須具有偶數(shù)個(gè)數(shù)字；
• 校驗(yàn)和是可選的。

• 標(biāo)簽尺寸可以小于具有相同數(shù)字的其他代碼的尺寸。在狹小的空間內(nèi)打印條形碼非常有效。
• 如果標(biāo)簽大小相同，則與其他代碼相比，可以包含更多數(shù)據(jù)。（位數(shù)可以增加。）
• 如果標(biāo)簽尺寸和位數(shù)相同，則條形寬度可以更寬。

FastReport VCL允許您使用所有三種類(lèi)型的條形碼。讓我們看看如何做。
在FastReport VCL設(shè)計(jì)器中，將obCatBarcode組件添加到報(bào)告中，然后從列表中選擇條形碼的類(lèi)型：

代碼–條形碼數(shù)值的區(qū)域；

條形碼類(lèi)型–條形碼類(lèi)型可以在編輯器中立即更改，而無(wú)需在報(bào)告中添加新組件；
Calc CheckSum 校驗(yàn)，所有線(xiàn)性條形碼都具有此屬性。還記得“略讀”嗎？我們必須以某種方式與之抗?fàn)帲〈藢傩源_定是否應(yīng)自動(dòng)計(jì)算校驗(yàn)和。如果禁用，則校驗(yàn)和必須出現(xiàn)在對(duì)象文本中；
縮放–設(shè)置條形碼的縮放比例，僅與“自動(dòng)調(diào)整大小”屬性結(jié)合使用；
文字–啟用/禁用條形碼下的文字顯示；
旋轉(zhuǎn)–允許您將對(duì)象的旋轉(zhuǎn)設(shè)置為固定角度之一– 0、90、180、270度。

從Delphi / Lazarus代碼創(chuàng)建條形碼

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;

還想要更多嗎？您可以點(diǎn)擊閱讀【FastReport 報(bào)表2020最新資源盤(pán)點(diǎn)】，查找需要的教程資源。如果您有任何疑問(wèn)或需求，請(qǐng)隨時(shí)加入FastReport技術(shù)交流群（783996712），我們很高興為您提供查詢(xún)和咨詢(xún)。