资源描述：
《vb在id智能卡停车场管理系统中的开发和应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB在ID智能卡停车场管理系统中的开发和应用《工业控制计算机}2007年20卷第2期9VB在ID智能卡停车场管理系统中的开发和应用ExploitationandApplicationofVBinParkManageSystemofIDIntelligentCard陈国平李波(武汉工程大学电气信息学院,湖北武汉430074)摘要论述了利用VB计算机语言开发ID智能卡停车场管理系统软件,介绍了PC与ID停车场控制机之间的通讯和连接,在VB中使用SQL语句进行数据库的查询和存储以及实时显示视屏图像和抓拍视屏图像功能.关键词:VB,ID卡,串口,SOL语
2、言,数据库,视频AbstrBctThispaperdiscusseswithUsingVisualBasictoexploitparkmanagesystemsoftwareofIDintelligentcard,andintro'ducestheconnectionandcommunicationofPCandIDparkmachine;usingSOLsentencetoqueryandmemorizedatabase;andthefunctionofshowingtheactivevideoandshootingimageKeywords:
3、VB,IDCard,serialport,SOLlanguage,database,video目前智能卡技术发展非常迅速,智能卡分为IC卡和ID卡两种,IC卡有唯一的序列号,同时里面有存储区可以存储和读写数据,所以广泛的应用于银行,校园一卡通,停车场等方面,ID卡和IC卡的区别在于ID卡不能存储数据,但是ID卡同样也有唯一的序列号,我们可以利用这一特点结合数据库技术开发ID卡的应用系统软件.本文开发的JD卡停车场管理系统软件,是利用JD停车场控制机读取用户的ID卡卡号,同时将读取的ID卡号传给上位机,然后上位机结合后台数据库进行分析和判断,最后进
4、行开闸,语音提示以及图像抓拍等处理.本ID停车场的系统框图如图1所示.图1系统框图本系统中涉及到利用VB访问数据库并进行存储和删除记录,还有PC机与出/入I:1控制机之间的连接和通讯,以及利用VB实现现场图像实时显示和抓拍等技术,下面就具体每个技术分别进行介绍.1VB访问数据库在VB的开发环境中,可以使用三种数据库对象访问方式,它们分别是:数据访问对象(DAO,DataAccessObject),远程数据对象(RDO,RemoteDataObject)和ADO对象模型(A—DO,ActiveXDataObject).在VB6.0中,提供了强大的数
5、据库访问技术,可以通过ADO,DAO,RDO,ODBC,RDC,JET连接数据库,本文使用ODBC作为访问数据库的接IZl来访问SQL建立的数据库.1.1建立数据库使用ID停车场之前要先在后台建立一个停车场的数据库,本项目是通过执行SQL语言编写的建立数据库的脚本来建立数据库,比如～段用SQL语言编写的建立一个ID停车场的系统参数数据表的脚本.CREATETABLE[dbo].[DataSet]([RecordNo】【int]IDENTITY(1,1)NOTNULL,[company】【varchar](100)COLLATEChinese—PR
6、CCl_ASNOTNULL.[computerNo][varchar](4)COLLATEChinese—PRC_ClASNOTNULL[computerName][varchar](50)COLLATEChi?nese—PRCCI—_ASN0TNULL,[pictureDir][varchar](50)COLLATEChinese—PRCCLASNOTNULL.)ON[PRIMARY]GO我们一般可以利用MicrosoftSQL2000软件中的查询分析器进行操作,但是现在我们利用VB编写一段程序执行操作,部分代码如下所示:(1)注册文件程序代码
7、部分OpenIoginfileNameForOutputAs#1//打开注册文件Write#1,comServer,txtUsr,~tPwd//将服务器名,用户名,密码写入注册文件Close#1//关闭注册数据文件(2)执行SQL脚本程序部分DimfiteContAsStringDimlinStrAsStringDimoDatabaseAsNewSQLDMO.databaseOpenApp.Path&&sqlpark.txtForInputAs#1//打开名为sqlpark.txt的SQL脚本文件DoWhileNotEOF(1)/
8、/循环至文件尾.LineInput#1,linStr//读入一行数据并将其赋予某变量.IflinStr=GOThenoDatabase.
