资源描述:
《在delphi中条码条码处理方法》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、在Delphi中打印条码的方法步骤如下1通过菜单”Component”下的”ImportActiveX”将“MicrosoftAccessBarcodeControl9.0”控件引入。这个控件(msbcode9.occx)随同Office一起安装到系统中。2在“ActiveX”下可以看到该控件,可以直接拖放到窗体上。通过属性设置,可以设置条码类型,内容,宽度、高度等等。 条码的数据是通过”Value”属性设置,也通过Datasource等设置引用数据库字段。高度和宽度通过控件的高度宽度设置,空白区域没有找到办法缩减。3代码在已经插入一个控件后,可以通过以下的处
2、理进行打印。我试过,打印、识读都没有问题。有关不显示在界面上就进行打印的方法,希望用户自己查询。procedureTForm1.Button1Click(Sender:TObject);var bmp:TBitmap; sR,tR:TRect;begin //记录图像 bmp:=TBitmap.Create; sR:=Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left+BarCodeCtrl1.Width, BarCodeCtrl1.Top+BarCodeCtrl1
3、.Height); tR:=Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height); bmp.Width:=BarCodeCtrl1.Width; bmp.Height:=BarCodeCtrl1.Height; bmp.Canvas.CopyRect(tR,Canvas,sR);// bmp.SaveToFile('c:1.bmp'); //打印 printer.BeginDoc; printer.Canvas.Font.Size:=15; printer.Canvas.TextOut(10,10,
4、'Barcodestrldemo'); printer.Canvas.Draw(20,100,bmp); printer.EndDoc; //释放资源 bmp.free;end;procedureTForm1.FormCreate(Sender:TObject);begin //产生条码 BarCodeCtrl1.Value:='012345678'; BarCodeCtrl1.Width:=400; BarCodeCtrl1.Height:=100; end;如果用键盘口的条码枪,只用一个edit,就可以了,把focus放到edit控件上,然
5、后判断回车..你用一个cmd窗口,然后拿条码枪去扫条码,就知道是怎么回事了.基于Delphi的条码打印系统设计与实现2007-10-2509:15作者:王若平出处:计算机与信息技术责任编辑:方舟 摘要介绍了如何在Delphi开发环境下实现条码打印,并结合示例详细介绍了条码打印系统的设计思路及主要技术实现代码。 引言 随着社会的不断发展,条形码技术以其可靠性高、输入速度快、采集信息量大、灵活使用等优点为各行业带来了良好的经济效益和管理效益。如今条码仓库管理不只适用于商业商品库存的管理,同样适用于工厂产品和原料库存管理,通过仓库管理(盘存)电子化的实现,使产品
6、、原料信息资源得到充分利用。条码打印系统是整个条码仓库管理系统中一个重要组成部分,准确的条码打印是正确盘点出库、入库及库存数据信息的前提和基础。本文以为北京XX厂仓库设计的条码打印系统为例,重点介绍了条码打印系统的设计思路和实现代码,希望为日后类似系统开发有借鉴意义。 条码打印系统设计思路 1、制定条码编制规则 北京XX厂仓库担负全厂零部件、电子元器件的存储和管理任务,经过对仓库结构和所存放物品的分析,条码的码制采用EAN128条码,EAN128条码是由国际物品编码协会(EANlnternational)和美国统一代码委员会(UCC)联合开发、共同采用的一
7、种特定的条码符号。它是一种连续型、非定长有含义的高密度代码,能够代表整个ASCII字符集,用以表示生产日期、批号、数量、规格、保质期、收货地等更多的信息。图1条码打印系统——条码形成界面 2、条码格式实现 根据制定的条码规则来手工录入产品零部件数据信息形成条码。条码格式形成窗体如图1所示。 3、运行环境 本系统将以MicrosoftWindows98简体中文版和MicrosoftWindows2000为基本的开发平台,使用SQLSERVER2000数据库管理系统。 条码打印系统主要技术实现 条码打印系统的关键在于如何将条码信息准确的传送到条码打印机中
8、打印,这些信息主要包括: