<SPAN style="FONT-SIZE: 18px">基於Delphi的條碼打印系統設計與實現
2008-7-15 18:03:26
摘 要 介紹了如何在Delphi開發環境下實現條碼打印，並結合示例詳細介紹了條碼打印系統的 設計思路及主要技術實現代碼。
引言
隨著社會的不斷發展，條形碼技術以其可靠性高、輸入速度快、采集信息量大、靈活使用等優點為各行業帶來了良好的經濟效益和管理效益。如今條碼倉庫管理不只適用於商業商品庫存的管理，同樣適用於工廠產品和原料庫存管理，通過倉庫管理（盤存）電子化的實現，使產品、原料信息資源得到充分利用。條碼打印系統是整個條碼倉庫管理系統中一個重要組成部分，准確的條碼打印是正確盤點出庫、入庫及庫存數據信息的前提和基礎。本文以為北京XX廠倉庫設計的條碼打印系統為例，重點介紹了條碼打印系統的設計思路和實現代碼，希望為日後類似系統開發有借鑒意義。
條碼打印系統設計思路
1、制定條碼編制規則
北京XX廠倉庫擔負全廠零部件、電子元器件的存儲和管理任務，經過對倉庫結構和所存放物品的分析，條碼的碼制采用EAN128條碼，EAN128條碼是由國際物品編碼協會(EAN lnternational)和美國統一代碼委員會(UCC)聯合開發、共同采用的一種特定的條碼符號。它是一種連續型、非定長有含義的高密度代碼，能夠代表整個ASCII字符集，用以表示生產日期、批號、數量、規格、保質期、收貨地等更多的信息。
圖1 條碼打印系統——條碼形成界面
2、條碼格式實現
根據制定的條碼規則來手工錄入產品零部件數據信息形成條碼。條碼格式形成窗體如圖1所示。
3、運行環境
本系統將以Microsoft Windows 98 簡體中文版和Microsoft Windows 2000為基本的開發平台，使用SQL SERVER2000數據庫管理系統。
條碼打印系統主要技術實現
條碼打印系統的關鍵在於如何將條碼信息准確的傳送到條碼打印機中打印，這些信息主要包括：查詢數據庫信息、打印標簽設置、原打印標簽提取等。
（1）變量設置（條碼標簽設置），條碼打印設置見圖2。
Print_Outport：string； //輸出連接口
Print_Tf：textfile； //存盤時INI聲明
Print_Height：string； //標簽高度
Print_Refx：string； //X參考坐標
Print_Port：integer； //連接口
……
圖2 條碼打印系統——條碼打印設置界面
（2）打開輸出端口，將輸出地址指向連接的通訊端口。
Procedure print_open_port；
Var
C：comm；
Begin
If port=0 then outport：=’com1’；
If port=1 then outport：=’com2’；
C：=comm.create(print)；
//先使用232組件，將輸出端口打開
c.commname：=outport；
c.startcomm；
c.stopcomm；
end；
（3）存儲標簽機變量，將當前所用到的變量值存入INI文件中。
Procedure print_write_ini；
Begin
If fileexists(filepath)=true then
Begin
File_rewrit(filepath)；
If formexists(‘frclever’)=true then change_variable；
Ini_save_str(filepath Print_，’ed_height’，Print_height)；
……
（4）測試（打印）條形碼。
procedure tprint.BARCODEClick(Sender：TObject)；
var
str：string；
begin
open_port；
str：=’^xa’+#13#10；
str：=str+’^ll’+width+#13#10；
str：=str+’^lho，10’+ #13#10；
str：=str+’^fo’refx+'，'+refy +'^bcn，'+bcheight+'，y，n，n，a^fd' +barcode.text+
'^fs'+#13#10；
Str：=str+ '^xz'；
If formexists('print' )=true then
begin
print.memo.Lines.Clear；
print.memo.Lines.Add( str )；
end；
comport_outln(outport，str )；
end；
結語
Delphi是一個強大的開發語言工具，通過對其編程細節的把握，對條碼打印機系統的理解，可以利用Delphi中barcodectrl條碼控件與數據信息相連接，將形成的條碼信息通過端口傳輸到條碼打印機打印，該條碼打印系統已成功地應用於北京XX廠庫存管理系統分系統近1年時間，應用表明，系統運行穩定、可靠，操作方便。 </SPAN>
