（本科论文）停车场管理信息系统的设计与实现 - 图文

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

【摘 要】

随着世界的进步，IT产业产生大量的增值，并在人们的生活中扮演着重要的角色。它也越来越多的用于我们的实际生活中。与此同时我国汽车保有量大大增加，因而如何对停车场进行有效管理提上日程，特别是停车场的信息化管理。该信息管理系统的开发就是为了提高停车场的效率和方便广大停车用户而设计的管理类软件。

通过深入的调研分析，将该系统分为6大模块：系统用户信息、车主信息、车位信息、停车信息、财务信息、其他（维修信息、投诉信息）。其中各个模块都具有相关的添加，删除，查询等功能。在停车信息管理模块中还实现了对停车自动计时，计算停车收费金额的功能。总而言之，该系统是以车场管理者、车辆和停车用户为基础，并将三者充分结合，非常人性化的现代化停车场信息管理系统。

该系统构架于数据库Microsoft Access 2003之上，使用VB 6.0开发。

关键词：停车场，信息管理系统，数据库

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

【Abstract】

As progressive IT industry of the world produces a large number of appreciation, play an important role in people's life. In its more and more too actual life which is used us. Meanwhile the recoverable amount of automobile of our country increases greatly , therefore how to bring to the parking area into schedule effective management, especially the informationization of the parking area is managed. Only for improve efficiency and convenient to park user and management software that design while being the masses of of parking area development of information management system this.

Analyse through deep investigation and research , divide this system into 6 big module : Systematic user information , car owner information , parking stall information , park message , financial message , other (maintain information , complain information). Among them each module has relevant adding , deleted, function of inquiring about etc.. In park information management realize to park the automatic timing also among the module, calculate and park the function which charges the amount of money. In a word, should be systematic and park in users as the foundation with the administrator , vehicle of parking lot, and combine fully three, modernized parking area information management system of ordinary person.

This system framework is on database Microsoft Access 2003, use VB 6. 0 is developed Key words: Parking area, information management system , database

]

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

目录

第一章 绪论 ..................................................................................................................... 4

1.1 引言 ........................................................................................................................ 4 1.2 可行性研究 ........................................................................................................... 4 1.3 需求分析 ............................................................................................................... 6 1.4 开发背景 ............................................................................................................... 6 1.5 工程进程表 ........................................................................................................... 7 第二章 系统总体设计 ..................................................................................................... 8

2.1 功能介绍 ............................................................................................................... 8 2.2 数据库模式 ......................................................................................................... 11 2.3 模块设计结构 ..................................................................................................... 11 2.4 数据流程图 ......................................................................................................... 15 2.5 处理流程 ............................................................................................................. 16 2.6 物理结构设计 ..................................................................................................... 17 2.7 运行设计 ............................................................................................................. 17 2.8 运行控制 ............................................................................................................. 17 2.9 出错处理设计 ..................................................................................................... 17 第三章 详细设计 ........................................................................................................... 18

3.1 系统登陆 ............................................................................................................. 19 3.2 系统用户模块 ..................................................................................................... 20 3.3 车主管理模块 ..................................................................................................... 22 3.4 车位管理模块 ..................................................................................................... 24 3.5 收费管理模块 ..................................................................................................... 27 3.6 财务管理模块 ..................................................................................................... 32 3.7 其他管理模块 ..................................................................................................... 33 第四章 测试报告及开发成果 ....................................................................................... 35

4.1 测试目的 ............................................................................................................. 35 4.2 测试计划 ............................................................................................................. 35 4.3 开发成果 ............................................................................................................. 38 第五章 结束语 ............................................................................................................... 39 致谢 ..................................................................................................................................... 40 参考资料 ............................................................................................................................. 41 附录 部分程序代码 ........................................................................................................... 42

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

第一章 绪论

1.1 引言

最新统计表明，中国私人汽车的拥有量已经突破1000万辆，平均每120多人就拥有一辆私人汽车。汽车业专家认为，这标志着中国度过公务购车、商务购车阶段，迈入私人购车的新时期。私人购车的高速增长，为中国汽车工业的发展注入了动力。汽车制造业首次成为中国工业第五大支柱行业。预计今年中国汽车产量将超过法国，从而在美国、日本、德国之后成为世界第四大汽车生产国。

显而易见，今后20年，汽车产业将是中国最有发展潜力的产业。因此，围绕汽车行业的相关产业链也将迅速起步和发展。俗语说，背靠大树好乘凉。换言之，在当今信息社会的产业大潮中，紧紧围绕汽车行业这棵大树，将带来无限生机。显然IT也将在此产业链中产生大量的增值业务中扮演重要的角色。停车场的智能管理系统是其中之一。

车辆几乎成为每家每户必备的交通工具的今天，其方便快捷给人们带来了极大的便利，节省了很多在路途上浪费的时间。然而随着车辆数量的不断增加，车辆的停放成为了如今不得不解决的重大问题，因此大量的停车场设施不断的涌现。为了方便停车场设施的管理并提高该设施的效率，一套专门用于停车场设施的管理软件显得更加实用。“停车场的信息管理系统”的开发就是为了提高停车场的效率和方便广大停车用户而设计的管理类软件。

1.2 可行性研究

一个这样实用的停车场信息管理软件对于当今社会发展的趋势，面临停车场数量不飞速增加是非常之必要的。其不仅仅为广大的用户和停车场管理者带了极大的便利，还将社会的一些产业带上了自动化管理的新高度。该停车场信息管理系统应该和监控系统联合使用，这样将达到更安全更完善的效果。

1.2.1 编写目的

本报告的编写目的是从技术,经济,操作,效益等方面研究停车场信息系统管理软件是否可行，指出开发软件的环境 , 手段 , 方案 , 并对软件的前景作出简略的分析。

1.2.2 可行性研究前提

功能：实现停车场各类信息的管理,以及在收费及财务管理.实现信息处理,存储,

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

查询 , 打印 ,等功能自动化。确保数据的保密性，同时保证车辆的停放安全。安全性，包括用户注册(Logon)和口令(Password)检验、信息类型核实，信息管理命令和文件存取、信息封套密码检查。生成报表：方便财务结算

性能：能让不同用户进行车辆的停放。具有会员用户特殊优惠功能。会员用户在该停车场停放车辆将会获得8折优惠。同时若车场车位损坏还能将保修记录进行储存记录，若车场出现人员或者物理设施的异常还可供应顾客的投诉进行储存记录。

输出：以表格形式的形式 浏览各类信息；以报表的形式输出各类信息；输出均为文字信息,没有图片,声音,多媒体等格式文件。

输入：均以文字,数字的形式输入,没有图片,多媒体,声音等文件格式。

安全及保密要求：包括用户注册(Logon)和口令(Password)检验、信息类型核实，信息管理命令和文件存取；不同的人员由不同的操作等级 ,操作的权限不同；终端到主机的通讯全部采用加密技术，即使许信息被截获，也无法破译。

开发环境：Visual Basic 6.0 应用程序语言是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，它简单易学、容易掌握，而且效率高，可用于开发Windows 环境下功能强大、图形界面丰富的应用软件系统。总的来说，用该软件开发速度相对快，开发复杂度比较低，开度的进度快，难度比用其他的工具的难度小，开发的信息管理系统性能很稳定。

技术目标：实现停车场各类信息的自动化管理。使用数据库实现信息的存储,处理，备份各个车位数据并可以查询车位当前状态（可用，已停，损坏等）。 经济目标：通过本软件的使用 ,停车场可以节省人力、物力、财力等资源。停车场的工作效率可以大大提高。同时可靠、快捷、先进的服务吸引更多的会员用户。增强停车用户对公司的信任程度。本软件的盈利空间是相当可观的,回报将远远大于投资。计算机管理信息未来信息化时代的必然趋势，必将有广泛的应用。

社会效益：根据当今社会的飞速发展，拥有车辆的人们日益增加，城市面临乱停车影响交通的顺畅问题，用户面临停车场所不专业造成车辆损坏或被偷窃问题。该软件使停车场更加系统化，为城市、用户、和车场管理者带来了极大的方便和安全的保障。

系统的运行限制：系统构架于数据库Microsoft Access 2003之上，使用VB 6.0开发，采用C/S，运行于Lan/Internet 之上。适合于中小型的停车场。系统环境 ：中英文WINDOWS 95/98/2000/NT。

可行性研究方法：本系统可行性研究的策略：主要依靠人工调查及其创建模型。课题负责人对停车场现在营运状况,信息流通速度,覆盖范围进行调查研究。考察停车场的环境，分析当前公司的业务范围,以及工作流程，人员配置,工作环节实现方法，确定系统的主题结构，根据现阶段的分析结果，依托当前高级的语言和开发环境开发

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

型资料。然后点击保存将当前资料储存入数据便于查询。

停车状态删除：删除当前窗体显示停车用户资料，清空车位。 财务管理：

日统计：统计当日停车总量，合计总营业额。并可以查询其他日期停车总量，合计总营业额。

月统计：统计当月停车总量，合计总营业额。并可以查询其他月份停车总量，合计总营业额。

年统计：统计当年停车总量，合计总营业额。并可以查询其他年份停车总量，合计总营业额。 其他：

投诉项目管理：该项目涉及投诉人，投诉时间，投诉内容以及被投诉项目负责人。可以将其内容进行添加，保存，删除功能。

维修项目管理：该项目涉及保修人，保修时间，保修内容以及被维修人，是否维修。可以将其内容进行添加，保存，删除功能。

2.2 数据库模式

数据库模式定义了数据库的结构、表、关系、域和业务规则。数据库模式是一种设计，数据库和应用正是建立在此基础上的。

域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理格式外，还需要确定是否有些域对表来说是唯一的。

数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据库应用程序中的业务活动的约束。业务规则是模式的一个重要部分，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的约束。不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序，DBMS都应该拒绝。

遗憾的是，不同的DBMS产品用不同的方法实施业务规则。在某些情况下，DBMS产品不具备实施必要业务规则的能力，必须以代码形式把它们编入应用程序。

2.3 模块设计结构

将停车场对各种信息管理及各项业务划分为模块,结构清晰，功能明确。本系统

的操作采用人性的可视化界面,贴近用户,操作方便,美观大方.只要经过短时间的适应,就可以使用。

总系统能够统一调配各个子系统，实现了高度的自动化运行。

(1) 分别调用各个子系统，完成停车场工作，子系统和总系统全部在硬盘上运行，速度都比较快。系统的相互调用主要是停车用户、车位信息、停车信息等。数据共享，因为使用了关系数据库,在不同的数据信息之间建立了联系,所以相同性质的数

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

据之间是信息共享的关系,对于它们的操作是在同一组数据上进行。

(2) 数据库的建立，整个信息存在于同一个数据库上的不同表格中，所有的数据均存放于主服务器的硬盘之上。

停车场管理系统功能模块图

总功能模块图如图2.1：

图2.1 总体功能模块图

系统用户管理子系统功能模块如图2.2：

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

图2.2 系统用户管理子系统

车位管理子系统功能模块如图2.3：

图2.3 车位管理子系统

车主管理子系统功能模块如图2.4：

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

图2.4 车主管理子系统

收费管理子系统功能模块如图2.5：

图2.5 收费管理子系统

财务管理子系统功能模块如图2.6：

图2.6 财务管理子系统

其他管理字系统功能模块如图2..7：

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

图2.7 其他管理字系统

2.4 数据流程图

车位数据流程图：

图2.8 车位数据流程图

停车系统流程图：

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

图2.9停车系统流程图

车主数据流程图：

图2.10车主数据流程图

2.5 处理流程

A.系统启动后，激活身份验证模块。

B.通过身份验证后，对系统初始化。根据系统配置文件将数据库导入，并设置各全局变量,记录文件的操作权限。

C.系统进入消息循环状态，等待用户通过事件(点击鼠标)驱动机制激活各功能模块，并执行指定模块。

D.各项功能执行完毕后重新进入消息循环状态,等待用户发出消息。 E.由关闭系统事件激活关闭系统模块，退出系统。

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

2.6 物理结构设计

数据库的各个文件物理结构：采用顺序结构的记录文件。所有的数据没有什么特殊的算法。一切的数据都是通过输入，存储到数据库中，以备将来使用。需要时，是要访问数据库，就可以从中间到处需要的数据。

2.7 运行设计

运行模块的组合：

模块命名方式按照相应模块结合特性和功能特性制定。命名方式x、y其中数字相同的模块即为同类模块。X、相同表示被同一上层模块调用。Y、表示不同的功能，层次图的上层模块，调用下层模块.。

2.8 运行控制

本软件控制流程：想由操作系统启动用户登陆窗体，通过身份验证后，登录系统进入管理菜单，进入主界后，可以通过界面操作，调用各个模块，进入消息驱动模式，由相应的消息分别.其它模块。并通过各个子模块调用更下一层的各个模块，完成需要的操作。

2.9 出错处理设计

●本软件应充分考虑各种系统错误，避免造成数据库系统不一致或损坏。 ●本软件提供撤消机制，避免用户因操作对数据库系统造成破。

●本软件会检查用户出入数据的合法性，当不和法给出提示，系统将不对数据库进行任何修改。

●采用对话框形式为用户提供警告信息。

●一些关键性操作（比如删除或修改记录），都应提供确认机制。

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

第三章 详细设计

该信息管理系统是用开发软件VB 6.0 结合Access 2003 数据库进行开发与设计的，其开发难度，和速度相对较低，开发时间较少，系统功能相对比较稳定。各个模块紧密连接，基本能够实现初步的停车场信息管理。功能还是比较多的。若该停车场信息管理系统能够和视频监控服务器联合使用将会完成更多功能，并提高整个停车场的安全，为管理员带来更大的便捷。视频服务器与摄像头连接通过摄像头可以清楚的看到整个车场状况，车辆的安全状况，将车位的查询提升到不仅仅是通过系统功能来查询，还可通过摄像头来核实车位准确状态，当中大大减少了很有可能发生的信息管理错误。

该信息管理系统还可以和IC Card 进行联合使用将会的、得到更便利的功能，让车场管理员和用户对于管理车场和停车时更加方便减少了大量因为人为而造成的错误。

该信息管理系统分为6大模块，其分别为系统用户信息、车主信息、车位信息、停车信息、财务信息、其他（维修信息、投诉信息）。大部分需要查询功能的模块都具有查询功能。例如：车主信息模块具有车主信息查询；车位信息模块具有车位信息查询；财务信息管理具有通过筛选日期对选定日期生成报表，能够显示停车量，每辆车停车时间，停车单价，停车日期，每辆停车合计收费以及当日收费总和。各个模块互相辅助，互相递送信息对信息加以处理，最终达到真正的信息管理自动化。

该系统为分布式计算机控制系统。计算机管理中心可以对整个停车场情况进行监控和管理，包括出入口管理、内部管理，并将采集的数据和系统工作状态信息存入计算机，以便进行统计、查询和打印报表等工作。识别出入车辆的合法性，车辆出入停车场，完全处于计算机监控系统的之下，使停车场的出入、收费、防盗、车位管理完全智能化并具有方便快捷、安全可靠的优点。

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

3.1 系统登陆 3.1.1 系统登陆窗体

系统用户登陆界面如图3.1：

图3.1 系统用户登陆界面

输入用户名和密码，其中，用户名是20个字符，密码是6个字符，点击“确定”按钮。进行验证，用户名，密码合法，进入主界面，否则一直验证，当验证次数大于3次则自动退出系统。设置密码时，以上各项均不为空。

当用户名错误时，显示：“该用户不存在” ，重新输入。当密码错误时，显示：“密码不正确”

3.1.2 正常进入主界面

主界面 （如图3.2）

系统管理 （系统用户信息，口令修改） 车主管理 （车主信息，车主信息查询） 车位管理 （车位信息，车位信息查询） 收费管理 （停车信息，统计信息）

财务管理 （日统计报表，月统计报表，年统计报表） 其他管理 （保修项目信息，投诉项目信息，帮助）

各个项目在菜单下又链接了各项目的修改，删除，查询等。在主菜单下用户可以看到所有的功能，以及子功能，进入各项功能的方法。只要用户选择所需要的功能双击，

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

就可以进入相应页面。 管理主界面（如图3.2）：

图3.2管理主界面

3.2 系统用户模块

3.2.1 系统用户数据表结构：

表3.1 系统用户数据表

字段名称 用户名 口令 身份 类 型 Text Text Text 大 小 20 6 10 必要字段 是 是 是 顺序位置 0 1 2 3.2.2 系统用户管理窗体

图3.3 系统用户管理窗体 图3.4 修改口令窗体

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

参考资料

[1] 《计算机软件产品开发文件编制指南》

[2] 郑人杰 殷人昆 编著，《现代软件工程》， 清华大学出版社科，2003年7月 [3] 郭胜，《Visual Basic 6.0 数据库开发》，机械工业出版社清，2004年4月

[4] 张莉 王强，《SQL Server 数据库原理及应用教程》， 清华大学出版社，2003年1月 [5] 周国明 ，《Visual Basic + Access数据库项目开发实践》，中国铁道出版社，2005年1月 [6] 王要武，《管理信息系统 中文版》，电子工业出版社，2004年2月

[7] 刘炳文，《Visual Basic程序设计教程》谭浩强丛书，清华大学出版社，2003年7月 [8] 潇湘工作室，《Access 2002 中文版入门到精通》，人民邮电出版社，2001年6月 [9] 唐晓波，《管理信息系统》，科学出版社，2005年4月

[10] 张凤琴，《数据库原理及应用》，清华大学出版社，2005年1月

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

附录 部分程序代码

Private Sub cmdSave_Click() If Trim(txtUser) = \

MsgBox \用户名不能为空\系统用户管理\ txtUser = \ ElseIf Trim(txtPWD) = \

MsgBox \口令不能为空 \系统用户管理\ txtPWD = \ ElseIf Trim(cmbStatus) = \

MsgBox \用户身份不能为空\系统用户管理\ cmbStatus = \ Else

With objCopy

If .RecordCount > 0 Then .MoveFirst

.Find \用户名='\

If Not .EOF And .AbsolutePosition <> Adodc1.Recordset.AbsolutePosition Then

MsgBox \用户名o\已被禁用请使用其他用户名”vbCritical, \系统用户管理\

txtUser.SetFocus

txtUser.SelStart = 0: txtUser.SelLength = Len(txtUser) Exit Sub End If End If End With

Adodc1.Recordset.Update

MsgBox \数据保存成功\系统用户管理\ cmdAdd.Enabled = True

cmdDelete.Enabled = True: Adodc1.Enabled = True txtUser.Locked = True: isAdding = False Set objCopy = Adodc1.Recordset.Clone End If End Sub

Private Sub cmdDelete_Click() With Adodc1.Recordset

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

If Not .EOF Then

If MsgBox(\将删除\车位号 &“车位数据，是否继续\ vbCritical + vbYesNo, \车位数据\ .Delete .MoveNext

If .EOF And .RecordCount > 0 Then .MoveLast End If End If End With End Sub

Private Sub Command2_Click()

Dim objRs As New Recordset, objSource As New Recordset Dim objCn As New Connection, strSQL As String

strSQL = \车场数据WHERE 车位号LIKE '\_

& \状态LIKE '\

With objCn .Provider = \

.ConnectionString = \ \停车场数据库 2004\ .Open End With

With objRs

Set .ActiveConnection = objCn .CursorLocation = adUseClient .CursorType = adOpenStatic .Open strSQL End With

Set FrmDataGrid.DataSource = objRs End Sub

Private Sub cmdCharge_Click() Dim sglSum As Single

txtEnd = Format(Date, \ Label11 = Trim(txtUser)

Label13 = Trim(cmbNumber.Text)

Label17 = Format(txtStart, \ Label19 = Format(txtEnd, \ Label21 = Trim(txtPrice)

sglSum = DateDiff(\

Label23 = Label21 & \

共 页 第 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

停车场管理信息系统

Label24 = Format(Date, \

If MsgBox(\是否打印收费票据\停车数据管理 = vbYes Then

With停车场收费票据

.Label11 = Label11: .Label13 = Label13: .Label17 = Label17: .Label19 = Label19:

.Label21 = Label21: .Label23 = Label23: .Label24 = Label24 .PrintForm End With End If

Adodc1.Recordset.Update End Sub

共 页 第 页

本文来源：https://www.bwwdw.com/article/o3g2.html