停车场管理系统停车场管理系统.doc

《停车场管理系统停车场管理系统.doc》由会员分享，可在线阅读，更多相关《停车场管理系统停车场管理系统.doc（12页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、停车场管理系统网络工程 指导老师：摘要：停车场管理系统定位于小区内停车场计算机自动化管理，完成小区内车辆信息的注册，车辆收费管理和查询等。本系统设置为多用户处理模式。车辆进出采用一个统一的界面，可登记的卡可以是固定卡，也可以是临时卡；操作状态可以是开入，也可以是开出。本系统其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。经过分析,我使用 BORLAND公司的 Delphi 7开发工具，后台数据库采用SQL Server 2000的数据库管理系统。本文主要介绍了停车场管理系统概述、所要做的工作、开发工具和数据库理论。重点说明了数据库的设计思路，各功能模块的创建和实现。并给出了

2、在开发过程中的一些经验体会。关键字：小区；停车场； Delphi 7； SQL ServerParking lot management systemNetwork Enginerring Teacher: Abstract:The parking lot management system locates in the plot the cart yard computer automation management, completes in the plot the vehicles information registration, the vehicles charge manage

3、ment, the inquiry and so on.This system establishes as the multiuser processing patter. The vehicles turnover uses a unified contact surface, may register the card may be an anchor clamp, also may be the temporary card; The operating status may be enters, also may be opens.This system its developmen

4、t mainly includes building up database of back-end and developing the application interface of front-end.By looking up lots of datum, I selected Delphi 7 presented by BORLAND and database of back-end adopts SQL Server.This article mainly introduced the parking lot management system management system

5、 outline, must do work, development kit and database theory. Describes the thought of design, key techniques and the solutions etc. at emphasis, and gives some experiences in the development of this system.Keyword:Plot; Parking lot; Delphi 7; SQL Server 前 言随着小区住产车辆的大量增加，为使小区停车场安全、快捷运转，配备一套停车场管理的软硬件系

6、统，从而达到小区停车场有条不乱的运行，给小区住户带来方便。小区停车场管理系统，是针对建设安全文明小区的管理需要，以小区的停车场智能化管理为目标，重点以小区内购买月租卡的固定停车用户为服务对象，以达到停车用户出入方便、快捷、安全的目的，对提高管理层次和综合服务水平将起重要作用。 论文第一章对停车场管理系统的发展，本文所要做的工作和系统建设目标做了个简要的分析；第二章对本文所用的开发工具Delphi 7.0和后台SQL Server2000进行了介绍；第三章介绍了数据库理论知识；第四章介绍了系统总体规划，包括系统分析和数据库设计；第五章介绍了系统各功能模块的创建和实现；最后就是对本文的总结并概括了

7、本文所用到的参考文献。和交通方便，迫切需要采用自动化程度高、方便快捷的停车场自动管理系统，提高停车场管理水平。现阶段的目标就是要提供满足人们工作、生活、娱乐环境更科学、更规范、更有效、更快捷、更合理、更安全、更方便的智能停车场自动管理系统。正是以上的矛盾推动着社会的进步，使得国内外近几年关于智能停车场系统工程的商家如雨后般的春笋林立于全国各个角落。停车场的自动化管理技术已逐渐走向成熟，停车场管理系统向大型化、复杂化、集成化和高科技化方向发展。已经被纳入智能建筑的一个重要子系统并且正与智能建筑的其它子系统进一步高度集成。通过计算机网络统一采用集中控制与管理的功能。不仅可以实现本地集中管理也可实现

8、远程实时监视和控制。1.2 本文所要做的工作系统定位于小区内停车场计算机自动化管理，完成小区内车辆信息的注册，车辆收费管理，查询等。系统设置为多用户处理模式。车辆进出采用一个统一的界面，可登记的卡可以是固定卡，也可以是临时卡；操作状态可以是开入，也可以是开出。本论文功能借助于前台开发工具Delphi7.0，后台SQL Server 2000的数据库管理系统来实现，数据的连接采用ODBC数据源。为了增加论文的完整性，在论文的第二章、第三章对所使用的相关工具和数据库理论进行了介绍。1.3 系统建设目标以某小区停车场应用为背景，通过研究当前停车场系统的管理现状、存在问题以及现实需求，设计一个针对停车

9、场管理工作的管理系统。2 开发工具简介2.1 Delphi7.02.1.1 Delphi概述1 Delphi实际上是Pascal语言的一种版本，但它与传统的Pascal语言有天壤之别。一个Delphi程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行。工作只是在“骨架”中加入程序。缺省的应用程序是一个空白的窗体(Form)，可以运行它，结果得到一个空白的窗口。这个窗口具有Windows窗口的全部性质：可以被放大缩小、移动、最大最小化等，但却没有编写一行程序。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发

10、打下了良好的基础。Delphi已经做好了一切基础工作程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。所需要做的，只是在程序中加入完成所需功能的代码而已。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于并未告诉它接收到用户输入后作何反应，窗口除了响应Windows的基本操作(移动、缩放等)外，它只是接受用户的输入，然后再忽略。Delphi把Windows编程的回调、句柄处理等繁复过程都放在一个不可见的Romulam覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进行编程。面向对象的程序设计(Object-Oriented Programming，简记为OOP)是D

11、elphi诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。2.1.2 Delphi可视化编程环境介绍 (1) 主窗口(Main Form) Delphi的主窗口位于屏幕的上端，包括Menu(菜单)、Speed Bar(加速条)和Co要的设置方式。(2) 窗体窗口 Forms窗口是开展大部分设计的工作区域。首次启动Delphi 2.0时显示的是窗体Form1。可以把部件放在窗体中，通过移动位置、改变尺寸等操作随心所欲地安排它们，以此来开发应用程序的用户界面。您

12、可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格(Grids)，供放置部件时对齐位置用，在程序运行时Grids是不可见的。一个真正的应用程序可能有不止一个窗口，您可以选用不同的窗体进行设计。其它窗体可以是对话框(Dialog Box)、数据录入框等。代码窗口 代码窗口一开始处于窗体窗口之下。因为在Delphi中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时，Delphi会自动生成大部分的用户界面代码。您所应做的只是在它为您生成的框架中加入完成所需功能的程序段而已。点动Form1的状态行使代码窗口可见。这个窗口中是代码编辑器。可以在其中书写Delphi应

13、用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当结 束 语通过这次毕业设计，不仅学会了如何开发软件，更重要的是教会了我如何去面对问题，如何去解决问题。在解决这些问题过程中，提高了我的自学能力和实际应用能力，学习到了许多书本以外的知识。经过几个月的设计和开发，小区停车场管理系统基本开发完毕，其功能基本符合用户需求，能够完成对车辆的管理和查询以及各类相关报表的打印。并提供部分系统维护功能，使用户方便进行数据修改和删除。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，因为做的是小区的停车场，所以该系统还有许

14、多不尽如人意的地方，如车辆停车位的管理做得不够完善，出错处理不够等多方面问题。这些都有待进一步改善。参考文献1罗征等Delphi 7从入门到精通M电子工业出版社，2003-10，4-152赛奎春等Delphi数据库开发关键技术与实例应用M人民邮电出版社，2004-5，5-183求是科技Delphi 7程序设计与开发技术大全M人民邮电出版社，2004-11，10-164赵阳等Delphi数据库应用程序开发技术M清华大学出版社，1998-12，20-285马垣等关系数据库理论M清华大学出版社，1999-46章文等中文SQL Server 2000数据库应用开发M冶金工业出版社，20047丁宝康等数

15、据库实用教程M清华大学出版社，2004-18白海波等SQL Server 2000 中文版入门与提高M清华大学出版社，2005-19陈子军等信息建模与关系数据库M电子工业出版社，2004-710吴芸等.软件工程M电子工业出版社，1998-10.11刘祯祥等Delphi 7精彩编程百例M中国水利水电出版社，2003-812杨正甫琴面向对象分析与设计M中国铁道出版社，2001-413刘唯一等数据模型M科学出版社，2001-614李淑馨等深入浅出Access数据库程序设计理论与实务M中国铁道出版社，2005-615周金根等Delphi数据库通用模块及典型系统开发实例导航M人民邮电出版社，2006-2

16、致 谢在本次毕业设计中，我从指导老师刘晓加老师身上学到了很多东西。刘老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。另外，在系统开发过程中刘晓文老师也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。 附 录1 判断是否临时车开入 frm_sjmk.lscl.close; frm_sjmk.lscl.SQL.Text:=select * from lscl_fkjl where j

17、rsj is null and tmh=:tmh; frm_sjmk.lscl.ParamByName(tmh).AsString:=tmh.Text; frm_sjmk.lscl.Open; if not frm_sjmk.lscl.Eof then begin frm_sjmk.systime.Close; frm_sjmk.systime.Open; nowtime:=frm_sjmk.systimecurrenttime; frm_sjmk.pub.Close; frm_sjmk.pub.SQL.Text:=update lscl_fkjl set jrsj=:jrsj where j

18、rsj is null and tmh=:tmh; frm_sjmk.pub.ParamByName(jrsj).AsDateTime:=nowtime; frm_sjmk.pub.ParamByName(tmh).AsString:=tmh.Text; frm_sjmk.pub.ExecSQL;frm_sjmk.systime.Close; frm_sjmk.systime.Open; frm_sjmk.pub.Close; frm_sjmk.pub.SQL.Text:=insert jczt (Tmh,Cphm,Jcsj,Lb,Zt,czbz) values(:Tmh,:Cphm,:Jcs

19、j,:Lb,:Zt,:czbz) ; frm_sjmk.pub.ParamByName(tmh).AsString:=tmh.Text; frm_sjmk.pub.ParamByName(cphm).AsString:=frm_sjmk.lsclcphm; frm_sjmk.pub.ParamByName(jcsj).AsDateTime:=nowtime; frm_sjmk.pub.ParamByName(lb).AsString:=临时车; frm_sjmk.pub.ParamByName(zt).AsString:=开入; frm_sjmk.pub.ParamByName(czbz).A

20、sString:=0; /未走 frm_sjmk.pub.ExecSQL; frm_main.cacluet();/刷新 tmh.Text:=; bitbtn1.OnClick(sender); exit; end;2 判断是否临时车开出 frm_sjmk.lscl.close; frm_sjmk.lscl.SQL.Text:=select * from lscl_fkjl where jrsj is not null and wcsj is null and tmh=:tmh; frm_sjmk.lscl.ParamByName(tmh).AsString:=tmh.Text; frm_sj

21、mk.lscl.Open; if not frm_sjmk.lscl.eof then begin p1.Close; p1.ParamByName(xh).AsInteger:=frm_sjmk.lsclzid; p1.ParamByName(skr_code).AsString:=frm_login.pub_czydm; p1.ParamByName(ljsj).AsFloat:=0.00; /有返回结果,报表备用 p1.ParamByName(je).AsFloat:=0.00; / p1.ParamByName(sffs).AsString:=; / p1.ExecProc;3 报表打

22、印输入 frm_sjmk.systime.Close; frm_sjmk.systime.Open; try Application.CreateForm(Trep_bb_lsclsf, rep_bb_lsclsf); rep_bb_lsclsf.hostname.Caption:=用户单位:+frm_login.pub_hostname; rep_bb_lsclsf.title.Caption:=临时车收费单据; rep_bb_lsclsf.xh.Caption:=序号:+inttostr(frm_sjmk.lsclzid); rep_bb_lsclsf.je.caption:=金额:+DX

23、ZhuanHuan(p1.ParamByName(je).asstring); rep_bb_lsclsf.sffs.Caption:=收费方式:+p1.ParamByName(sffs).AsString; rep_bb_lsclsf.ljsj.Caption:=停车时间:+ p1.ParamByName(ljsj).asstring+分钟; rep_bb_lsclsf.jrsj.Caption:=开入时间:+ datetimetostr(frm_sjmk.lscljrsj); rep_bb_lsclsf.wcsj.Caption:=离开时间:+ datetimetostr(frm_sjmk

24、.systimecurrenttime); rep_bb_lsclsf.skr.Caption:=收款人:+frm_login.pub_czyxm; rep_bb_lsclsf.tmh.Caption:=卡号:+tmh.Text; rep_bb_lsclsf.qcms.Caption:=描述:+ frm_sjmk.lsclqcms; rep_bb_lsclsf.cphm.Caption:=车牌号:+frm_sjmk.lsclcphm; rep_bb_lsclsf.sfrq.Caption:=收费日期:+datetimetostr(frm_sjmk.systimecurrenttime); if

25、 frm_login.pub_dyyl=0 then rep_bb_lsclsf.QuickRep1.Print else rep_bb_lsclsf.QuickRep1.Preview; finally rep_bb_lsclsf.Release; end; frm_main.cacluet();/刷新 tmh.Text:=; bitbtn1.OnClick(sender); exit;end;4 判断是否固定车开出 frm_sjmk.gdcl.close; frm_sjmk.gdcl.SQL.Text:=select * from gdcl_czda where tmh=:tmh; frm

26、_sjmk.gdcl.ParamByName(tmh).AsString:=tmh.Text; frm_sjmk.gdcl.Open; if not frm_sjmk.gdcl.Eof then begin5 该车是否还未开出 frm_sjmk.pub.Close; frm_sjmk.pub.SQL.Text:=select * from jczt where zt=:zt and lb=:lb and czbz=:czbz and tmh=:tmh; frm_sjmk.pub.ParamByName(zt).AsString:=开入; frm_sjmk.pub.ParamByName(lb)

27、.AsString:=固定车; frm_sjmk.pub.ParamByName(czbz).AsString:=0; frm_sjmk.pub.ParamByName(tmh).AsString:=tmh.Text; frm_sjmk.pub.open; if not finally frm_ghdlyh.Release;end;end;procedure Tfrm_main.ToolButton1Click(Sender: TObject);begin if n6.Enabled=true then n6.OnClick(sender);end;procedure Tfrm_main.To

28、olButton2Click(Sender: TObject);beginif n7.Enabled=true thenn7.OnClick(sender);end;procedure Tfrm_main.ToolButton4Click(Sender: TObject);beginif n24.Enabled=true thenn24.OnClick(sender);end;procedure Tfrm_main.ToolButton14Click(Sender: TObject);beginif n18.Enabled=true thenn18.OnClick(sender);end;pr

29、ocedure Tfrm_main.ToolButton10Click(Sender: TObject);beginif n27.Enabled=true thenn27.OnClick(sender);end;procedure Tfrm_main.ToolButton12Click(Sender: TObject);beginif n23.Enabled then n23.OnClick(sender);end;procedure Tfrm_main.N6Click(Sender: TObject);begin frm_main.N6.Enabled:=false; Application

30、.CreateForm(Tfrm_gdyhzcfk, frm_gdyhzcfk); frm_gdyhzcfk.Showmodal;end;procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);begin application.Terminate;end;procedure Tfrm_main.ToolButton5Click(Sender: TObject);beginif n10.Enabled=true thenn10.OnClick(sender);end;procedure Tfrm_main

31、.Timer1Timer(Sender: TObject);begin frm_sjmk.systime.Close; frm_sjmk.systime.Open; frm_sjmk.systimecurrenttime; stabar.Panels6.Text:=服务器时间:+copy(datetimetostr(frm_sjmk.systimecurrenttime),1,15);end;procedure Tfrm_main.N28Click(Sender: TObject);beginapplication.HelpCommand(15,-3) /显示目录end;procedure T

32、frm_main.N29Click(Sender: TObject);beginapplication.HelpCommand(15,-2) /显示目录end;procedure Tfrm_main.N31Click(Sender: TObject);begin try Application.CreateForm(Tfrm_about, frm_about); frm_about.ShowModal; finally frm_about.Release; end;end;procedure Tfrm_main.N41Click(Sender: TObject);begin try Appli

33、cation.CreateForm(Tfrm_sdxt, frm_sdxt); frm_sdxt.ShowModal; finally frm_sdxt.Release; end;end;procedure Tfrm_main.ToolButton6Click(Sender: TObject);beginif n41.Enabled then n41.OnClick(sender);end;end.目 录摘 要1前 言31 停车场管理系统概论41.1 停车场管理系统的发展41.2 本文所要做的工作41.3 系统建设目标42 开发工具简介52.1 Delphi7.052.1.1 Delphi概述

34、52.1.2 Delphi可视化编程环境介绍52.1.3 Delphi数据库访问62.1.4 Delphi的数据库特性及功能简介62.2 SQL Server 2000102.2.1 SQL Server 概述102.2.2 SQL Server 运行环境102.2.3 SQL Server 安全性102.2.4 SQL Server 特性123 数据库理论133.1 数据库系统设计及范式分析133.1.1 数据库系统设计133.1.2 数据库设计范式分析143.2SQL语言介绍153.2.1SQL基础153.2.2SQL语句164 系统总体规划194.1 系统分析194.1.1 系统功能分析

35、194.1.2 系统功能模块图设计194.1.3 系统业务流程图设计204.2 数据库设计214.2.1 数据库需求分析214.2.2 数据库概念结构设计254.2.3 数据库逻辑结构设计295 系统模块功能的创建和实现305.1 主界面的创建和实现305.2 用户登录管理模块的创建和实现305.3 应用设置管理模块的创建和实现315.3.1 固定车卡费设置的创建和实现315.3.2 临时车收费设置的创建和实现315.3.3 收费员设置的创建和实现325.3.4 固定车补卡的创建和实现335.3.5 权限分配的创建和实现335.3.6 其他设置的创建和实现345.3.7 更换登录用户的创建和实

36、现345.3.8 更改用户口令的创建和实现345.3.9 锁定系统的创建和实现355.4 收费发卡管理模块的创建和实现355.4.1 固定用户注册发卡的创建和实现355.4.2 临时用户发卡使用的创建和实现365.4.3 固定用户收费的创建和实现365.5 综合查询管理模块的创建和实现375.5.1 固定车辆注册查询的创建和实现375.5.2 区内目前停车查询的创建和实现385.5.3 全体收费查询的创建和实现385.5.4 车辆进出查询的创建和实现395.5.5 车辆收费设置查询的创建和实现395.6 报表打印模块的创建和实现405.6.1 全体收费统计报表的创建和实现405.6.2 车辆收费单据41结 束 语42参考文献43致 谢44附 录45