引言
隨著社會的不斷發展條形碼技術以其可靠性高輸入速度快采集信息量大靈活使用等優點為各行業帶來了良好的經濟效益和管理效益如今條碼倉庫管理不只適用於商業商品庫存的管理同樣適用於工廠產品和原料庫存管理通過倉庫管理（盤存）電子化的實現使產品原料信息資源得到充分利用條碼打印系統是整個條碼倉庫管理系統中一個重要組成部分准確的條碼打印是正確盤點出庫入庫及庫存數據信息的前提和基礎本文以為北京XX廠倉庫設計的條碼打印系統為例重點介紹了條碼打印系統的設計思路和實現代碼希望為日後類似系統開發有借鑒意義
條碼打印系統設計思路
制定條碼編制規則
北京XX廠倉庫擔負全廠零部件電子元器件的存儲和管理任務經過對倉庫結構和所存放物品的分析條碼的碼制采用EAN條碼EAN條碼是由國際物品編碼協會（EAN lnternational）和美國統一代碼委員會（UCC）聯合開發共同采用的一種特定的條碼符號它是一種連續型非定長有含義的高密度代碼能夠代表整個ASCII字符集用以表示生產日期批號數量規格保質期收貨地等更多的信息
圖 條碼打印系統——條碼形成界面
條碼格式實現
根據制定的條碼規則來手工錄入產品零部件數據信息形成條碼條碼格式形成窗體如圖所示
運行環境
本系統將以Microsoft Windows 簡體中文版和Microsoft Windows 為基本的開發平台使用SQL SERVER數據庫管理系統
條碼打印系統主要技術實現
條碼打印系統的關鍵在於如何將條碼信息准確的傳送到條碼打印機中打印這些信息主要包括查詢數據庫信息打印標簽設置原打印標簽提取等
（）變量設置（條碼標簽設置）條碼打印設置見圖
Print_Outportstring //輸出連接口
Print_Tftextfile //存盤時INI聲明
Print_Heightstring //標簽高度
Print_Refxstring //X參考坐標
Print_Portinteger //連接口
……
圖 條碼打印系統——條碼打印設置界面
（）打開輸出端口將輸出地址指向連接的通訊端口
Procedure print_open_port
Var
Ccomm
Begin
If port= then outport=com
If port= then outport=com
C=commcreate(print)
//先使用組件將輸出端口打開
mname=outport
cstartcomm
cstopcomm
end
（）存儲標簽機變量將當前所用到的變量值存入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_heightPrint_height)
……
（）測試（打印）條形碼
procedure tprintBARCODEClick(SenderTObject)
var
strstring
begin
open_port
str=^xa+##
str=str+^ll+width+##
str=str+^lho+ ##
str=str+^forefx++refy +^bcn+bcheight+ynna^fd +barcodetext+
^fs+##
Str=str+ ^xz
If formexists(print )=true then
begin
moLinesClear
moLinesAdd( str )
end
comport_outln(outportstr )
end
結語
Delphi是一個強大的開發語言工具通過對其編程細節的把握對條碼打印機系統的理解可以利用Delphi中barcodectrl條碼控件與數據信息相連接將形成的條碼信息通過端口傳輸到條碼打印機打印該條碼打印系統已成功地應用於北京XX廠庫存管理系統分系統近年時間應用表明系統運行穩定可靠操作方便
From:http://tw.wingwit.com/Article/program/Delphi/201311/8388.html
