其他语言

位置:IT落伍者 >> 其他语言 >> 浏览文章

基于Delphi的条码打印系统设计与实现


发布日期:2019年10月07日
 
基于Delphi的条码打印系统设计与实现

引言

随着社会的不断发展条形码技术以其可靠性高输入速度快采集信息量大灵活使用等优点为各行业带来了良好的经济效益和管理效益如今条码仓库管理不只适用于商业商品库存的管理同样适用于工厂产品和原料库存管理通过仓库管理(盘存)电子化的实现使产品原料信息资源得到充分利用条码打印系统是整个条码仓库管理系统中一个重要组成部分准确的条码打印是正确盘点出库入库及库存数据信息的前提和基础本文以为北京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厂库存管理系统分系统近年时间应用表明系统运行稳定可靠操作方便

上一篇:后台调用外部程序的完美实现(Delphi)

下一篇:Delphi的两个实用技巧(1)播放Flash