新版车辆标准管理系统.doc

社区地下车库管理系统设计

摘要:本文设计了无人管理停车场车库管理进出系统。在车库门口设立用来扫描车辆扫描仪，通过扫描仪扫描车辆车牌号码，再通过计算机连接把扫描到车牌号码与电脑里面已经存在数据库对比，如果存在该车辆号码则显示对的，放行刚车辆。如果该车辆车牌号码不存在该车库中，则显示不对的该车辆则不能放行，不能进入车库。该车库控制系统使用VB编程，简洁明了，使地下车库管理无纸化，有序化，规范化，智能化。该系统操作简朴、迅速，使用以便，安全可靠，维护量小，为顾客提供一种安全简易使用环境。

核心词：VB;车库;车辆进出系统

The Design of Management System of Apartment Garage

Abstract：This paper designs the entering and leaving management system of the garage in the parking site which is lacking people’s management. We’ll equip the scanning device which is used to scan the vehicles in the garage door. We can use the scanning device to scan the numbers of the vehicles and then compare the numbers with database which has been existed in the computer through the combination of computers. If the number exists in the computer，it will show correct. In this case，the vehicle is allowed to get into the garage. If the number of the vehicle doesn’t exist in the database，it will show wrong. As a result，the vehicle will not be allowed to get into the garage. The garage control system uses VB program which enjoys the advantage of conciseness. It realizes the computerization，orderliness，standardization and intelligence of garage management. The system is featured in simplicity，promptness，convenience and dependability. We can seldom offer maintenance of it and in return，it provides us a safe and simple using environment.

Key Words：VB,garage，vehicles entering and leaving system

目录
序 言 5
第1章 Visual Basic程序设计概述 8
1.1 VB选用和简介 8
1.2 VB功能特点 9
1.3 集成开发环境 10
1.3.1 窗体（Form）窗口 10
1.3.2 属性（Properties）窗体 11
1.3.3代码(Code)窗口 11
1.3.4及时（Immediate）窗口 11
1.3.5窗体布局(Form Layout)窗口 11
第2章 图像辨认控制原理某些 12
2.1车辆牌照辨认系统原理 13
2.1.1图像预解决 13
2.1.2图像转换及压缩 13
2.1.3图像增强 14
2.1.4图像水平校正 14
第3章 进出原理 17
第4章 程序某些 19
4.1程序流程图 19
4.2主程序 20
第5章 结论 30
参照文献 31
致 谢 33

社区地下车库管理系统设计
序 言
近年来,随着国内都市化进程加快,城乡居民收入提高,私人汽车拥有量不断升高。都市人口规模不断膨胀,可供建设使用土地越来越少,都市土地资源变得日趋短缺。而与都市居民生活水平提高相伴而生是私家车数量急剧增长,导致都市居民对居住区停车用地大量需求[1~2]。在当今国内以密集型多层或高层为主居住社区，随着私家车日益增多，据测算，在以中高层为主居住社区，若容积率达2.5、车户比为1:1且考虑车辆所有入库，按3.5平方米/车位计算，车库建筑面积占到所有居住用地面积70%左右，而在深圳等地有项目车户比达1.5:1甚至还高，停车难问题自然也就在所难免。
为节约用地,停车用地向地下发展,在住区建造地下停车库实行地下停车成为住区停车方式主流。当前在住宅社区规划设计中,普通考虑采用设立地下车库办法加以解决。普通状况下，居住区地下室不会超过2层，这其中布置有楼（电）梯间、设备顾客和蓄水池等，尚有开发商必然在地下安排某些功能不太重要物业、商业用房。这样既可有效提高车库率,又可减少车辆进出对社区住户影响,节约了社区用地,改进了社区绿化环境,并且还可以运用地下车库作为社区人防区域,并布置配电间、水池等社区附属配套设施,还能起到防盗监控等效果，起到一库多用目。如何适应当代社会迅速发展，在建设居民社区和社区管理中更好地为广大客户服务，是咱们广大建设者其实，世界各国大都市建设成功经验证明，运用都市地下空间建设公共设施以及都市立体交通体系，是实现都市可持续发展必由之路。
本研究分三大某些，第一是简介VB有关知识作为数据库开发，VB是一种非常抱负选取。VB因简朴易学、功能强大、编译速度快而从众多软件开发工具中脱颖而出。它提供了灵活可视化设计工具，将可视化界面与面向对象技术完善、紧密地结合起来，并封装了Windows编译复杂性。程序规模小到简朴个人数据库应用，大到复杂公司多层次分布式系统，都可以VB进行开发，其和谐集成开发界面，可视化双向开发模式，良好数据库应用支持高效程序开发和程序运营，备受广大程序开发人员好评。特别是VB对数据库应用强大支持，大大提高了数据库应用软件开发效率，缩短了开发周期，深受广大数据库应用程序设计人员爱慕。VB为数据库应用开发人员提供了丰富数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后程序运营速度更快。
第二是图象辨认某些，既有图象辨认采用先进图像压缩技术，保存10万张进出摄像图片仅需要1.5GB存储空间。完全能满足系统对于长时期大流量进出监控查询规定。图象辨认装置普通配备于进出口，采用视频分派方式，一方面将视频信号传给保安监控系统，另一方面将抓拍到车辆重要特性信息，存储到系统数据库中，待车辆出库时与存储信息资料作比较。采用品体方式如下：出入口彩色摄像机通过视频电缆与视频分派器相连，视频分派器一路连接CCTV（闭路电视）子系统，一路经视频切换器接至收费亭管理工作站。彩色摄像机选WV-CP464，视频分派器选PIH-6002,视频切换器选DS-4002-001,彩色监视器选WV-CK型。当车辆到达入口处时，系统通过车辆检测器自动触发入口摄像机及辅助光源设备拍摄下图像，送至入口车辆辨认工作站进行数字化编码解决，通过专用软件自动辨认出车牌号码，并记录下该车辆头部外形特性图像，然后由车辆辨认工作站将提取车牌号码和该车辆头部外形特性图像作为一组关联数据，通过以太网(TCP/IP合同)传播至图像解决服务器备案存档。当车辆到达出口时，系统同样通过车辆检测器自动触发出口处摄像设备，拍摄下图像送至出口车辆辨认工作站进行解决，通过软件辨认车牌号，而后通过以太网(TCP/IP合同)，将车辆头部外形特性图像及所提取车牌号传播至图像解决服务器，并由其自动依照该车辆在出、入口两处分别被提取车牌号进行对比，成果一致正常放行，成果不一致时系统给出警示提示，并即时在控制室管理电脑上显示出该车辆在出、入口由摄像系统拍下两幅车辆头部外形特性图像，以供人工进行干预解决。
第三是重点进出系统某些，司机驾驶车到该车库门口时系统会自动扫描该车辆车牌号码，系统把扫描到车牌号码传播到计算机。计算机把收集到数据与数据库对比，如果数据库中存在该车辆车牌号码，车门将自动打开，汽车顺利通过。如果计算机中不存在此车辆出牌号码，计算机则显示这辆车报错信息，车门则不能打开。
结合当前实际来解决车辆进入车库详细问题。该车库控制系统重要为了便于该社区居民使用同步外来车辆则有车库监控系统回绝入内。该地下车库投入使用大大节约了人力成本，使地下车库实行了全自动化管理。通过该项目研究，能为无人管理停车场提供一套以便停车管理计费系统。该系统操作简朴、迅速，使用以便，安全可靠，维护量小，为顾客提供一种安全、简易使用环境。采用智能卡管理系统，使管理无纸化，有序化，规范化，智能化。停车设备运营状况，车辆存储交费状况，出库，入库等信息均可通过传送到智能化控制中心，通过智能化控制中心运算解决，达到提前发布有关控制、管理信息，从而所有实现智能化管理。

第1章 Visual Basic程序设计概述
1.1 VB选用和简介[6~9]
当前，市场上可以选购应用开发产品诸多，流行也有树十种。当前在国内市场上最为流行、使用最多、最为先进可用作公司级开发工具产品有：
Microsoft公司Visual Basic
Microsoft公司Visual C
Borland公司Delphi
Sun公司Java等等
在当前市场上这些众多程序开发工具中，有些强调程序语言弹性与执行效率；有些则偏重于可视化程序开发工具所带来便利性与效率提高，各有各长处和特色，也满足了不同顾客需求。然而，语言弹性和工具便利性是密不可分，只有便利工具，却没有弹性语言作支持，许多特殊化解决动作必须要耗费数倍工夫来解决，使得本来所标榜效率提高长处失去了作用；相反，如果只强调程序语言弹性，却没有便利工具作配合，会使某些虽然非常简朴界面解决动作，也会严重地挥霍程序设计师宝贵时间。
作为数据库开发，VB是一种非常抱负选取。VB因简朴易学、功能强大、编译速度快而从众多软件开发工具中脱颖而出。它提供了灵活可视化设计工具，将可视化界面与面向对象技术完善、紧密地结合起来，并封装了Windows编译复杂性。程序规模小到简朴个人数据库应用，大到复杂公司多层次分布式系统，都可以VB进行开发，其和谐集成开发界面，可视化双向开发模式，良好数据库应用支持高效程序开发和程序运营，备受广大程序开发人员好评。特别是VB对数据库应用强大支持，大大提高了数据库应用软件开发效率，缩短了开发周期，深受广大数据库应用程序设计人员爱慕。VB为数据库应用开发人员提供了丰富数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后程序运营速度更快。

1.2 VB功能特点
1. 具备面向对象可视化设计工具
在VB中，应用面向对象程序设计办法（OPP），把程序和数据库封装起来视为一种对象，每个对象都具备可视。程序员在设计时只需要既有工具依照界面设计规定，直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型对象，并为每个对象设立属性。程序员编程工作仅编写针对对象要完毕哪些功能程序，因而程序设计效率可提供更多。
2. 事件驱动编程机制
事件驱动是非常适合图形顾客界面编程方式。老式编程方式是一种面向过程，按程序事先设计流程运营。但在图形顾客界面应用程序中，顾客动作即事件掌握着程序运营流向，每个事件都能驱动一段程序运营。程序员只要编写响应顾客动作代码，各个动作之间不一定有联系。这样应用程序代码较短，使得程序既易于编写又易于维护。
3. 提供了易学易用应用程序集成开发环境
在VB集成开发环境中，顾客可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文献，在Windows中运营，使顾客在和谐开发环境中工作。
4. 构造化程序设计语言
VB具备丰富数据类型、众多内部函数和构造化程序构造，并且简朴易学。
5. 支持各种数据库系统访问
运用数据控件或ODBC可以访问数据库系统，Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和 Paradox 等，也可访问Microsoft Excel、Lotus1-2-3等各种电子表格。
6. OLE技术
VB核心就是其对对象链接与嵌入（OLE）支持，运用OLE，VB可以开发集声音、图象、动画、字解决等对象于一体应用程序。
7. Active技术
Active技术发展了原有OLE技术，它使开发人员挣脱了特定语言束缚。可以便地使用原则Active部件，调用原则接口，实现特定功能。
8. 完备Help联机协助功能
与Windows环境下软件同样，在VB中，运用协助菜单和F1功能键，顾客可随时以便地得到所需协助信息；VB协助窗口中显示了关于示例代码，通过复制、粘贴操作可获得大量示例代码，为顾客学习和使用提供了捷径。

1.3 集成开发环境
1.3.1 窗体（Form）窗口
窗体是建立VB应用程序重要某些，顾客通过与窗体上控制部件交互可得到成果。每个窗体窗口必要有一种唯一窗体名字，建立窗体时缺省名为Form1,Form2,……。
在设计状态，窗体是可见，窗体网格点间距可以通过“工具”菜单“选项”命令，在“通用”标签“窗体设立网络”中输入“宽度”和“高度”来变化；运营是可通过属性控窗体可见性（窗体网格始终不显示）。一种应用程序至少有一种窗体窗口，顾客可在应用程序中拥有多哥窗体窗口。
除了普通窗体外，尚有一种MDI(Multiple Document Interface)多文档窗体，它可以包括子窗体，每个子窗体都是独立。

1.3.2 属性（Properties）窗体
属性窗体中所有窗体或控件属性，如颜色、字体、大小等，可以通过属性窗体来修改。属性窗口由如下某些构成：
对象列表框 单击其右边下拉按钮可打开所选窗体所含对象列表。
属性显示排列方式 有“按字母序”和“按分类序”两个按钮。
属性列表框 列出所选对象在设计模式可更改属性及缺省值，对于不同对象所列出属性也不同。属性列表由中间一条线把其分为两某些，左边列出是各种属性；右边列出则是相应属性值。顾客可以选定某一属性，然后对该属性值进行设立或修改。
属性含义阐明 当在属性列表框选用某属性时，在该区显示所选属性含义。

1.3.3代码(Code)窗口
代码窗口专门用来进行程序设计窗口，显示和编辑程序代码。顾客可以打开多哥代码窗口，查看不同窗体、原则模块中代码，并可在各个窗口间复制代码。打开代码窗口有如下三种办法：
（1）从工程窗口中选取一种窗体或原则模块，并选取“查看代码”按钮；
（2）从窗体窗口中打开代码窗口，并用鼠标双击一种控件或窗体自身；
（3）从“视图”菜单中选取“代码窗体”命令。
代码窗口重要涉及：“对象列表框”、“过程列表框”、“代码框”、“过程查看按钮”和“全模块查看按钮”。

1.3.4及时（Immediate）窗口
为调试应用程序提供，在IDE之中运营应用程序才有效。顾客可直接在该窗口运用Print办法或直接在程序中用Debug.Print显示所关怀表达式值。

1.3.5窗体布局(Form Layout)窗口
“窗体布局”窗口用于指定程序运营时初始位置，重要为使所开发应用程序能在各个不同辨别率屏幕上正常运营，在多窗体应用程序中较有用。窗体在屏幕右下脚。

第2章 图像辨认控制原理某些
20世纪90年代以来,国内在基本设施建设上加快了步伐,相比之下,道路管理监控以及科学收费软件等设施建设却显得相对滞后.针对这种状况,管理部门已着手进行诸如交通信号自适应控制系统、智能交通监控系统、GPS车辆管理及导航系统、不断车自动收费系统等智能化交通管理系统研制,其中高速公路不断车自动收费系统是基于非接触式(也称RF射频技术)IC卡和车辆牌照字符辨认技术车辆缴费信息综合管理系统。该系统基本工作原理为:1)当车辆驶入路卡天线感应区,收费系统自动检测随车IC卡中记录牌照号码、预存款项金额、车辆及车主信息,车型辨认子系统同步对车辆车型、吨位等进行鉴别；2)系统依照接受到IC卡内容以及车型辨认信息计算通行费用,并将成果回写于射频IC内;由于牌照是机动车辆管理惟一标记符号,因而车辆牌照辨认系统要具备较高辨认率,同步对环境光照条件、拍摄位置和车辆行驶速度等因素影响也应有较大鲁棒性,并能满足实时性规定[11~13]。
车辆牌照辨认系统是一种基于图像解决、模式辨认等技术高度智能自动化系统。它可以广泛地应用在公路和桥梁自动收费管理系统,公路流量观测系统,都市车辆安全监控系统,智能交通系统,门卫系统等各种场合,对智能交通自动化管理具备重要意义。对各种颜色系统变换办法进行了阐述,对数学形态学基本办法进行了分析,结合图像分割基本理论,提出了一种针对车辆牌照颜色信息颜色变换办法和基于数学形态学解决办法,用于对车辆牌照提取。详细地讨论了灰度图像二值化算法和字符切分算法,分析车牌先验信息,运用最大类间方差二值化算法和基于先验信息投影算法对牌照区域进行二值化和字符切分.在对脱机印刷体字符辨认研究基本上,运用方向线素特性(Directional Element Feature)提取办法对字符特性进行提取;运用各种距离分类器结合办法对字符分类辨认;并引入置信度函数,对辨认成果进行置信度分析;基于上述研究,建立了字符辨认系统,用于对车辆牌照中字符辨认。算法对光照不均匀和复杂背景不敏感,对牌照区域提取精确、迅速,对一幅图像解决限制在1秒钟之内,可以满足实时辨认规定,较好地保证了辨认精确率和鲁棒性,获得了预期效果。

2.1车辆牌照辨认系统原理
2.1.1图像预解决
摄像机拍摄图像普通是以BMP格式存入计算机,为了便于牌照分割和字符辨认,原始图像应具备恰当亮度和对比度。但由于摄像某些位于户外,车辆牌照不整洁,光照条件不好,摄像头与牌照距离或角度不适当以及车速较快等因素影响,图像也许模糊、歪斜或缺损,因而需要对原始图像进行预解决。
2.1.2图像转换及压缩
BMP格式是以象素为单位记录图像,每个象素点均由红、绿、蓝3色构成,每个色彩通道颜色值均由8位字节表达。然而,除了少数文献提到可借助色彩信息对牌照进行检测与分割外,绝大多数牌照识系统采用不含色彩信息灰度图像,即图像中每个象素仅用1个8位字节表达其亮度值。
要使解决速度达到实时规定,就要对图像进行压缩。实验证明,16pixel×16pixel就足够保持输入字符形状,保证辨认对的性。对图像进行压缩应选取适当压缩比,防止丢失字符信息,导致辨认错误。图像压缩算法较多,行程编码算法(RLC)、滑动窗口压缩算法等在字符辨认系统中运用较多。
2.1.3图像增强
由于车辆牌照辨认系统需全天候工作,自然光照度昼夜变化会引起牌照图像对比度严重局限性,若无抱负补充光,就也许导致图像字符不清,甚至无法辨认。因而,图像增强解决无论对改进牌照图像可辨认度,还是简化字符定位与分割,都是很有必要.增强图像对比度办法有灰度线性变换图像平滑解决和线性滤波器等。
2.1.4图像水平校正
对车辆牌照进行拍摄时,须调节摄像机角度以保持牌照横向边沿倾斜度尽量小,并且让牌照在整幅图像中处在相对居中位置,即图像视觉中心上。但是,摄像机普通安装在路边或高处,这会产生车辆牌照与摄像头成像平面不平行、图像倾斜、图像变形问题,影响牌照检测与分割。普通状况下,图像水平校正放在牌照二值化、分割,甚至是字符切分之后进行,这样可使图像解决运算量大大减少。
图象辨认采用先进图像压缩技术，保存10万张进出摄像图片仅需要1.5GB存储空间。完全能满足系统对于长时期大流量进出监控查询规定。图象辨认装置分自动关联，人工辨认模式。图象辨认装置普通配备于进出口，采用视频分派方式，一方面将视频信号传给保安监控系统，一方面将抓拍到车辆重要特性信息，存储到系统数据库中，待车辆出库时与存储信息资料作比较[20~21]。
采用品体方式如下：
1.图象辨认某些
图象辨认采用先进图像压缩技术，保存10万张进出摄像图片仅需要1.5GB存储空间。完全能满足系统对于长时期大流量进出监控查询规定。图象辨认装置分自动关联，人工辨认模式。图象辨认装置普通配备于进出口，采用视频分派方式，一方面将视频信号传给保安监控系统，一方面将抓拍到车辆重要特性信息，存储到系统数据库中，待车辆出库时与存储信息资料作比较。
采用品体方式如下：
出入口彩色摄像机通过视频电缆与视频分派器相连，视频分派器一路连接CCTV（闭路电视）子系统，一路经视频切换器接至收费亭管理工作站。彩色摄像机选WV-CP464，视频分派器选PIH-6002,视频切换器选DS-4002-001,彩色监视器选WV-CK型。
如下为用到各机器详细参数：
彩色摄像机WV---CP464 选用型号：松下
性能特点：
具备自动亮度控制（ALC）,能自动消除背景强光干扰。有各种外部同步功能，涉及同步锁相功能自动/手动白平衡功能。电子快门功能。提供高质量图像。重要技术参数：
(1). F1.4镜头条件下，最小照度0.8Lux；
(2).信噪比为50dB；　　　　　　
(3).水平辨别率480线。
(4).视频输出：1.0Vp-pPAL复合视频信号。
(5).传播距离：不不大于250米。　　
(6).电源：直流12V/480mA；
(7).温度环境–10℃-- +50℃　　
(8).尺寸：74Wx55Hx123D。
(9).重量：0.4公斤
理由:松下牌彩色摄像机具备抗干扰性能力强，社会上运用广泛，可以提供高质量图像，且价格适中，具备很高性价比。
视频分派器PIH-6002 选用型号：利凌
性能特点：
1路视频输入端，4路视频输出端
重要技术参数：
(1）.视频增益：1dB
(2）.工作电源:AC220V
(3）.消耗功率:2.5W
(4).BNC接口 机体构造：钢铁，黑色烤漆
(5).尺寸:151(宽)×186(深)×56(高)mm
(6).重量:1.25kg
理由：利凌牌视频分派器采用国际最先进技术，结合了咱们国家详细实际研制而成，对地下车库运用及其广泛。性价比高。
DS-4002-001
彩色监视器WV-CK 选用型号:松下
设备类型 ：显示设备
产品类别 ：监视器 
重要技术参数：
（1）.重要性能 ：20寸彩色监视器，500线
（2）.视频输入 ：1路(BNC)
（3）.视频输出 ：1路(BNC)
（4）.音频输入 ：1路(RCA)
（5）.电源 ：220-240V AC,50Hz功耗：大概49W
（6）.CRT尺寸:55厘米(22英寸对角线)有效图像尺寸:51厘米(20英寸对角线)水平清晰度:500线
（7）.最大扬声器输出:0.7W
（8）.输入/输出视频：1路输入（BNC）75Ω1.0V[p-p]复合/75Ω音频：1路输入（RCA）75Ω-8dB/Hi-z TV制式 PAL
（9）.水平清晰度  中心部500线
（10）.最大视频增益 41dB±3dB
（11）.扫描线性 不大于5%
（12）.扫描几何度 不大于2%
（13）.过扫描  8%
（14）.有效图像尺寸（约） 51厘米（20"）对角线
（15）.工作温度 -10℃~+50℃
（16）.工作湿度  不大于90%
（17）.扬声器输出  0.7W(-10dB)
（18）.尺寸 509X467X480毫米
（19）.重量  21公斤[17~20]
理由：松下牌彩色监视器具备图像清晰度高，性能优越，能较好提供监视作用。

第3章 进出原理
作为一种当代化车库进出门监控管理系统，除了能做到防盗监控之外，更重要一点是能管理车辆进出库状况，当车辆进入车库时候，采用图像辨认系统对车牌号码进行扫描，把采集到数据和计算机数据进行对比，该车牌号码在计算机中存在自动门则开起，如不存在则不启动自动门车辆将进入不了车库。作为智能系统一种子系统，车库管理系统应能实行计算机管理。可与门禁，保安巡逻，电梯防盗及火灾报警等系统实行联动监控及综合管理，采用感应式智能卡技术加强车辆出入口控制，优化车流途径，提高车位运用率，给地下车库提供便捷交通。满足各类顾客停车需要，优化收费管理。使用图像辨认技术，防止和杜绝盗车现象。系统运营简朴，维修以便，自动化程序高与智能建筑局域网实行信息资源共享。一方面，通过车库图像辨认系统鉴别该车辆与否使该社区人员拥有，另一方面，如果是该社区则放行，不是该社区则不放行[23~26]。
假设一种司机驾驶汽车驶入该车库门口时系统会通过扫描仪自动扫描该车辆车牌号码，把扫描到车牌号码传播到计算机。计算机把收集到数据与数据库对比，如果数据库中存在该车辆车牌号码，车门将自动打开，汽车顺利通过。如果计算机中不存在此车辆出牌号码，计算机则显示这辆车报错信息，车门则不能打开。

第4章 程序某些
4.1程序流程图
输入顾客名称和密码
判断与否对的
进入主界面
YES
NO
跳出顾客名错误对话框
结束
开 始

图4-1-1 进入系统界面框图
开始
输入车牌号码
判断与否是该车库内车辆
YES
NO
放行，进入该车库
不放行，则不能进入该车库
结 束

图4-1-2 车辆鉴别框图

4.2主程序
VERSION 5.00
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "登录"
ClientHeight = 6780
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 10215
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmLogin.frx":0000
ScaleHeight = 4005.848
ScaleMode = 0 'User
ScaleWidth = 9591.332
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtUserName
Height = 345
Left = 7650
TabIndex = 1
Top = 5295
Width = 2325
End
Begin VB.CommandButton cmdOK
Caption = "拟定"
Default = -1 'True
Height = 390
Left = 6855
TabIndex = 4
Top = 6180
Width = 1140
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 390
Left = 8460
TabIndex = 5
Top = 6180
Width = 1140
End
Begin VB.TextBox txtPassword
Height = 345
IMEMode = 3 'DISABLE
Left = 7650
PasswordChar = "*"
TabIndex = 3
Top = 5685
Width = 2325
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "顾客名称(&U):"
Height = 180
Index = 0
Left = 6540
TabIndex = 0
Top = 5400
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码(&P):"
Height = 180
Index = 1
Left = 6900
TabIndex = 2
Top = 5760
Width = 720
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public LoginSucceeded As Boolean
Dim dbUser As Database
Dim rstUser As Recordset

Private Sub cmdCancel_Click()
'设立全局变量为 false
'不提示失败登录
LoginSucceeded = False
End
End Sub

Private Sub cmdOK_Click()
'检核对的密码
Set rstUser = dbUser.OpenRecordset("select * from User where Username='" + Trim(Me.txtUserName) + "'")
If rstUser.RecordCount = 0 Then
MsgBox "顾客名错误！"，vbCritical，Me.Caption
Exit Sub
Else
If rstUser.Fields("Pwd") <> Trim(Me.txtPassword) Then
MsgBox "密码错误！"，vbCritical，Me.Caption
Else
frmMain.Show
Unload Me
End If

End If
End Sub

Private Sub Form_Load()
'版本号：
Me.Caption = App.Title + "_" + Trim(App.Major) + "." + Trim(App.Minor) + "." + Trim(App.Revision)
'窗口位置：
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2

Set dbUser = OpenDatabase(App.Path + "\车牌号.mdb")
End Sub

VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 6285
ClientLeft = 45
ClientTop = 405
ClientWidth = 9060
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 9060
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame4
Caption = "出库辨认"
Height = 1755
Left = 6000
TabIndex = 8
Top = 2160
Width = 2955
Begin VB.ComboBox Combo2
Height