在Delphi中条码条码处理方法.docVIP

在Delphi中打印条码的方法步骤如下 1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同Office一起安装到系统中。 2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设置，可以设置条码类型，内容，宽度、高度等等。 ??条码的数据是通过”Value”属性设置，也通过Datasource等设置引用数据库字段。高度和宽度通过控件的高度宽度设置，空白区域没有找到办法缩减。 3 代码 在已经插入一个控件后，可以通过以下的处理进行打印。 我试过，打印、识读都没有问题。 有关不显示在界面上就进行打印的方法，希望用户自己查询。 procedure TForm1.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.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,Barcodestrl demo); ?? printer.Canvas.Draw(20,100,bmp); ?? printer.EndDoc; ?? //释放资源 ?? bmp.free; end; procedure TForm1.FormCreate(Sender: TObject); begin ?? //产生条码 ?? BarCodeCtrl1.Value := 012345678; ?? BarCodeCtrl1.Width := 400; ?? BarCodeCtrl1.Height := 100;?? end; 如果用键盘口的条码枪, 只用一个edit,就可以了, 把focus放到edit控件上, 然后判断回车.. 你用一个cmd窗口, 然后拿条码枪去扫条码, 就知道是怎么回事了. 基于Delphi的条码打印系统设计与实现 　　引言　　随着社会的不断发展，条形码技术以其可靠性高、输入速度快、采集信息量大、灵活使用等优点为各行业带来了良好的经济效益和管理效益。如今条码仓库管理不只适用于商业商品库存的管理，同样适用于工厂产品和原料库存管理，通过仓库管理（盘存）电子化的实现，使产品、原料信息资源得到充分利用。条码打印系统是整个条码仓库管理系统中一个重要组成部分，准确的条码打印是正确盘点出库、入库及库存数据信息的前提和基础。本文以为北京XX厂仓库设计的条码打印系统为例，重点介绍了条码打印系统的设计思路和实现代码，希望为日后类似系统开发有借鉴意义。　　条码打印系统设计思路　　1、制定条码编制规则　　北京XX厂仓库担负全厂零部件、电子元器件的存储和管理任务，经过对仓库结构和所存放物品的分析，条码的码制采用EAN128条码，EAN128条码是由国际物品编码协会(EAN lnternational)和美国统一代码委员会(UCC)联合开发、共同采用的一种特定的条码符号。它是一种连续型、非定长有含义的高密度代码，能够代表整个ASCII字符集，用以表示生产日期、批号、数量、规格、保质期、收货地等更多的信息。 图1 条码打印系统——条码形成界面 　　2、条码格式实现　　根据制定的条码规则来手工录入产品零部件数据信息形成条码。条码格式形成窗体如图1所示。　　3、运行环境　　本系统将以Microsoft Windows 98 简体中文版和Microsoft Windows 2000为基本的开发平台，使用SQL SERVER2000数据库管理系统。　　条码打印系统主要技术实现　　条码打印系统的关键