基于条码与端口打印的板卡测试登记系统

《基于条码与端口打印的板卡测试登记系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于条码扫描与端口打印的板卡测试登记系统（河南许昌许继大道1706号许继电气中试部河南许昌4610000）摘要：条形码扫描与端口打印技术广泛存在于我们的日常生活中，本文通过我们前不久研发的板卡自动测试系统的一个模块■板卡测试登记系统的实现，来对条码扫描处理及端口打印做一个介绍。关键词：条码扫描、端口打印、数据库DesigncustomcontrolinDelphiDengqingchuangzhangdanjixinaliguojie(IntermediateTestDPT.XJElectricCo.,Ltd.XuChangCity,HenanProvince461000

2、)[Abstract]thispapergivesasystematicanddetailedintroductionofhowtodesigncustomcontrolinDelphithoughanexampleprogram0Thecodeofthiscustomcontrolisnottechnicallydifficult。it'sintendedtoillustratehowtodesignusercontrolinDelphi,inckidinghowit'screatedbyappwizard>codedesign>icondesignandtheissu

3、eofthecontrol0[Keywords]control、customcontrol、Delphicontrol1、概述板卡测试登记系统主要是对每一个测试后的板卡做个记录，同吋给板卡生产单位打印一个该板卡测试结果的小票格式的回执单。本系统用delphi7开发，釆用Access数据库。2、系统流程图3、设计数据表建立Access数据库表：bkxx.mdb,包含编码（文本类型）、口期（口期/时间）、类别（文本类型）、测试人员（文本类型）、结果（文本类型）五个字段。4、建立delphi应用程序该程序使用TAdoConnection控件动态连接数据库，用AdoQuery控件

4、连接数据库屮的表。本文对程序的全部实现细节不做一一描述，这里只列出核心代码并进行讲解。4.1、动态连接数据库在程序的窗体创建函数屮动态的连接木地access数据库，初始化主界面和该工程的标题，其中数据库的名称和该程序的标题存在于配置文件Sys.ini中。实现代码如下：procedureTMainF・FormCreate(Sender:TObject);varacname:string;//存放数据库的绝对路径str:string;beginconfigdir:=ExtractFileDir(application.Exename)Sys.ini'；//获得配置文件路径T

5、ryacname:^ExtractFileDir(Application.ExeName);〃连接数据库Str:=Copy(acname,Length(acname),1);//判断str最后是不是'，IfStr=，'ThenDelete(acname,Length(acname),1);〃从配置文件中读取数据库的名称acname:=acname+PublicUnit.Ini_ReadString(configdi「1SoftWareSet1,1acname，);//连接本地目录数据库adocon.ConnectionString:=，Provider=Microso

6、ft・Jet・OLEDB・4.0;JetOLEDB:DatabasePassword二八八;DataSource二'+acname+，;PersistSecurityInfo二False';adocon.Connected:=true;ExceptEnd;〃从配置文件读取界面标题和工程名称MainF.Caption:=PublicUnit.iniReadString(configdir,'SoftWareSet，,'title，);application.Title:=Main_F・Caption;end;4.2、釆集板卡的编码信息通过打描枪采集板卡的条形码相当于用手工通

7、过键盘录入条形码后再按下回车键，所以采集条形码的处理可以放到条形码录入编辑框的OnKeyDown函数中。如下：procedureTMain_F.e_codeKeyPress(Sender:TObject;varKey:Char);begin//由于考虑手工录入板卡编码情况，所以需要判别按键Ifnot(keyin[#46,#48..#57,#8,#13])then〃#8是退格键，也可以加上#13回车键beginshowmessage('只能输入数字');key:=#0;//什么也不录入end;if(Key=#13)then//按