在delphi中条码条码处理方法

《在delphi中条码条码处理方法》由会员分享，可在线阅读，更多相关《在delphi中条码条码处理方法（12页珍藏版）》请在金锄头文库上搜索。

1、在 Delphi 中打印条码的方法步骤如下 1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同 Office 一起 安装到系统中。 2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设 置，可以设置条码类型，内容，宽度、高度等等。条码的数据是通过”Value”属性设置，也通过 Datasource 等设置引用数 据库字段。高度和宽度通过控件的高度宽度设置，空白区域没有找到办法缩减。3 代码 在已经插入一个控件后，可以通过以下

2、的处理进行打印。 我试过，打印、识读都没有问题。 有关不显示在界面上就进行打印的方法，希望用户自己查询。 procedure TForm1.Button1Click(Sender: TObject); varbmp:TBitmap;sR,tR:TRect; begin/记录图像bmp := TBitmap.Create;sR := Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left + BarCodeCtrl1.Width,BarCodeCtrl1.Top + BarCodeCtrl1.Height);tR := Rect(0,0

3、,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,Barcodestrl demo);printer.Canvas.Draw(20,100,bmp);pr

4、inter.EndDoc;/释放资源bmp.free; end; procedure TForm1.FormCreate(Sender: TObject); begin/产生条码BarCodeCtrl1.Value := 012345678;BarCodeCtrl1.Width := 400;BarCodeCtrl1.Height := 100; end;如果用键盘口的条码枪, 只用一个 edit,就可以了, 把 focus 放到 edit控件上, 然后判断回车. 你用一个 cmd 窗口, 然后拿条码枪去扫条码, 就知道是怎么回事了.基于基于 DelphiDelphi 的的条码条码打印系统设计

5、与实打印系统设计与实 现现2007-10-25 09:15 作者： 王若平 出处： 计算机与信息技术 责任编辑：方舟 摘摘 要要 介绍了如何在 DelphiDelphi 开发环境下实现条码条码打印，并结合示例详细介 绍了条码条码打印系统的 设计思路及主要技术实现代码。引言引言随着社会的不断发展，条形码技术以其可靠性高、输入速度快、采集信息 量大、灵活使用等优点为各行业带来了良好的经济效益和管理效益。如今条码条码 仓库管理不只适用于商业商品库存的管理，同样适用于工厂产品和原料库存管 理，通过仓库管理（盘存）电子化的实现，使产品、原料信息资源得到充分利 用。条码条码打印系统是整个条码条码仓库管理系

6、统中一个重要组成部分，准确的条码条码 打印是正确盘点出库、入库及库存数据信息的前提和基础。本文以为北京 XX 厂 仓库设计的条码条码打印系统为例，重点介绍了条码条码打印系统的设计思路和实现代 码，希望为日后类似系统开发有借鉴意义。条码条码打印系统设计思路打印系统设计思路1、制定条码条码编制规则北京 XX 厂仓库担负全厂零部件、电子元器件的存储和管理任务，经过对仓 库结构和所存放物品的分析，条码条码的码制采用 EAN128 条码条码，EAN128 条码条码是由 国际物品编码协会(EAN lnternational)和美国统一代码委员会(UCC)联合开发、 共同采用的一种特定的条码条码符号。它是一

7、种连续型、非定长有含义的高密度代 码，能够代表整个 ASCII 字符集，用以表示生产日期、批号、数量、规格、保 质期、收货地等更多的信息。图 1 条码条码打印系统条码条码形成界面2、条码条码格式实现根据制定的条码条码规则来手工录入产品零部件数据信息形成条码条码。条码条码格式 形成窗体如图 1 所示。3、运行环境本系统将以 Microsoft Windows 98 简体中文版和 Microsoft Windows 2000 为基本的开发平台，使用 SQL SERVER2000 数据库管理系统。条码条码打印系统主要技术实现打印系统主要技术实现条码条码打印系统的关键在于如何将条码条码信息准确的传送到

8、条码条码打印机中打印， 这些信息主要包括：查询数据库信息、打印标签设置、原打印标签提取等。（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；VarC：comm；Be

9、ginIf port=0 then outport：=com1；If port=1 then outport：=com2；C：=comm.create(print)；/先使用 232 组件，将输出端口打开mname：=outport； c.startcomm；c.stopcomm； end；（3）存储标签机变量，将当前所用到的变量值存入 INI 文件中。Procedure print_write_ini；BeginIf fileexists(filepath)=true thenBeginFile_rewrit(filepath)；If formexists(frclever)=true th

10、en change_variable；Ini_save_str(filepath Print_，ed_height， Print_height)；（4）测试（打印）条形码。procedure tprint.BARCODEClick(Sender：TObject)； varstr：string； beginopen_port；str：=xa+#13#10；str：=str+ll+width+#13#10；str：=str+lho，10+ #13#10；str：=str+forefx+，+refy +bcn，+bcheight+，y，n，n，afd +barcode.text+ fs+#13#10

11、；Str：=str+ xz；If formexists(print )=true thenbeginprint.memo.Lines.Clear；print.memo.Lines.Add( str )；end；comport_outln(outport，str )； end；一、条形码技术概述 1、廉价实用的基础性信息技术 在计算机的应用实践中产生和发展起来的一种自动识别技术 是为实现对信息的自动扫描而设计的。它是实现快速、准确而可靠地采集数据的有效手段 条形码技术的应用解决了数据录入和数据采集和“瓶颈”问题，为供应链管理提供了有力的技术支持 输入速度快 信息量大 准确度高 成本低 可靠性强

12、条码技术为我们提供了一种对物流中的物品进行标识和描述的方法，借助自动识别技术、POS 系统、EDI等现代技术手段，企业可以随时了解有关产品在供应链上的位置，并即时作出反应。 2、条形码的发展 条形码技术作为物流信息系统中的数据自动采集单元技术，是实现物流信息自动采集与输入的重要技术。条形码最早出现于 20 世纪 40 年代，但是得到实际应用和迅速发展还是在近 20 年。美国 20 世纪 50 年代就有关于铁路车辆采用条码的报导，目前美国所有的铁路车厢上都有 ACI（Automatic Car Identification）条码标志。早在 20 世纪 40 年代后期，美国乔伍德兰（Joe Woo

13、d Land）和贝尼西欠弗（Beny Silver）两位工程师就开始研究用代码表示食品项目和相应的自动识别设备，并于 1949 年获得了美国专利。这种代码图案很像微型射箭靶，称为“公牛眼”代码。靶的同心环和空白绘成。在原理上， “公牛眼”代码与后来和条形码符号很相近，遗憾的是当时的商品经济不十分发达，而且工艺上也没有达到印制这种代码的水平。20 年后，乔伍德兰作为 IBM 公司的工程师成为北美地区的统一代码UPC 码的奠基人。吉拉德费伊赛尔（Girad hissel）等人于 1959 年申请了一项专利，将数字 0-9 中的每个数字用七段平行条表示，但是这种代码机器难以阅读，阅读不方便。不过，这

14、一构想促进了条形码的码制产生与发展。不久，EF布林克尔（EFBrinker）获得了将条形码标识在有轨电车上的专利。20 世纪 60 年代后期，西尔韦尼亚（Sylvania）明了一种被北美铁路系统所采纳和条形码系统。 3、条形码在物流信息系统中的作用 条形码作为一种及时、准确、可靠、经济的数据输入手段已被物流信息系统所采用。在工业发达的国家已经普及应用，已成为商品独有的世界通用的“身份证”。 欧美、日本等等国家已经普遍使用条形码技术，而且正在世界各地迅速推广普及，其应用领域还在不断扩大。由于采用了条码，消费者从心理上对商品质量产生了安全感，条码在识别伪劣产品、防假打假中也可起到重要作用。因为条码

15、技术具有先进、适用、容易掌握和见效快等特点，在信息（数据）采集中发挥优势无论在商品的入库、出库、上架还是和顾客结算的过程，都要面对如何将数据量巨大的商品（不论是整包包装还是拆封后单个零售）信息输入计算机中的问题。如果在单个商品的包装上，印制上条码符号，利用条码阅读器，就可以高速、准确、及时地掌握商品的品种（货号） 、数量、单价、生产厂家、出厂日期等信息。这样不仅提高了效率，同时也吸引了更多的顾客，减少或消除顾客购货后结算和付款时出现拥挤排队现象。条形码技术在中国将作为主要的自动识别技术，广泛应用于工业自动化控制和各类管理信息系统中，并将渗透到多技术领域和高新技术的产品中。 条形码技术用于物流信

16、息系统中，完成计算机的信息采集与输入。这将大大提高许多计算机管理系统的实用性。条码的应用和推广首先源于商品管理现代化，即 POS 系统的应用。如美国超级市场商品种类约为22 万多种，每年约有 10，000 种新商品进入市场，10，000 种老商品清除，引新除旧的比例达 50%，如此繁重的工作量，没有条码，没有 POS 系统的应用是难以应付的。当今日本在 POS 系统的应用上走在了世界的前列。目前，日本已有 48，000 个制造厂家约有 1 亿种商品项目采用了 EAN 码标识，有相当一部分商家全用 POS 系统，POS 系统不仅限于食品杂货，一些专业店（如医药、化妆品、烟酒等）也建立了 POS 系统。目前不仅 POS 系统得到广泛的应用，很多国家还建立了市场数据交换中心，沟通产、供、销之间信息，建立贸易数据交换机构，及时搜集汇总各商店，各种商品的销售信息并及时反馈给制造厂家。这样生产厂家可及时、准确地了