小区物业车辆管理系统

1、小区物业车辆管理系统目录内容摘要1关键字1绪论21、 系统需求分析31、 可行性分析32、 系统主要功能33、 业务流程图34、 网站结构图45、 小区车辆出入管理流程图52、 系统概要设计51、 实体联系模型52、 数据库逻辑结构设计73、 系统详细设计71、 系统功能描述82、 总体功能模块设计：功能层次图83、 系统界面设计8（1） 首页设计8（2） 小区车辆管理 10（3） 管理模块154、 系统系统错误信息174、 系统测试结果17参考文献18内容摘要本系统是根据青海省湟中县“香榭丽都”小区物业现行车辆管理方式所设计的小区车辆管理系统，按照系统调查、系统分析、系统设计、系统实施的步骤

2、，采用结构化的编程方法而编写完成的。利用小区车辆管理系统，促进小区信息化、网络化建设，使小区车辆管理更加简单、高效、规范、灵活，使管理趋于规范化、标准化。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成小区车辆管理的全过程，主要包括以下几个功能：小区车辆管理、小区车主管理、小区车辆进出登记管理等等。系统开发工具采用ASP VBScript，后台数据库采用ACCESS，B/S结构。利用计算机网络来支持小区物业高效率完成日常车辆管理事务，是适应小区物业制度要求、推动小区车辆管理走向科学化、规范化的必要条件，该系统具有直观、方便、快捷、可靠、保密、低成本等优点。这些优点能够极大地提

3、高小区物业车辆管理的效率，也是小区物业管理正规化、科学化的重要条件。经过实际使用证明，本文所设计的小区车辆管理系统可以满足小区物业管理方面的需要，有效提高车辆管理系统的效率。关键字：车辆管理 ASP ACCESS B/S绪论车辆管理历来是小区物业管理中重要的组成部分。由于车辆信息和车主信息种类繁杂、数量繁多，所以传统的车辆信息管理需要大量人力、物力，且容易出错。因此，建立高效、实用、科学的小区物业车辆管理信息系统，是小区物业管理走向现代化的重要一步。随着计算机技术的迅猛发展，尤其是网络技术的发展，为小区通过局域网管理财产提供了契机。ASP动态网站所具有的交互性强、界面简单、服务器架设容易等优点

4、，为小区采用动态网页方式管理财产提供了一个非常好的机会。小区物业车辆管理系统是一个协助各小区物业各部门科学、全面、高效地进行车辆管理的系统。在内容上，它包括了车辆变动登记、查询；车主信息登记、变动；车辆进出登记、查询等模块，有完善的车辆资料（车辆信息、状态、进出时间、停车位置，车主信息等）和车主信息（车主信息、住址、联系电话等）。在操作上，它集输入、变更、查询、删除等操作为一体，信息更新和查询灵活、方便。因此，如何建立利用计算机、网络等高新科技来高效的财产管理系统，对于小区物业管理部门而言，具有重要的实际意义。一、系统需求分析1、可行性分析从操作可行性角度看，小区物业车辆管理系统基于ASP技术

5、的B/S系统，物业管理部门只需要在小区服务器上配置ASP财产管理系统IIS运行环境。车辆管理系统的用户在装有IE浏览器的客户机连接登录服务器即可，所有的管理操作端都运行在服务器上，因此该系统具有安装简单、维护方便的特点特别适合在学校使用。从技术可行性角度看，小区物业车辆管理系统使用ASP技术设计，ASP是微软公司活动服务器页面的简称，经过多年的发展，目前技术非常成熟，运行比较稳定。软件的后台采用ACCESS数据库，也是经过多年发展完善的中小型企业数据库，易用性和可操作性非常好。从技术角度来看，该系统技术成熟、运行稳定、设计简单易行。从系统的使用角度看，经过多年的信息化工作的推进，目前各个小区的

6、管理人员都有一定的信息技术能力，车辆管理人员基本都具备使用该系统的技术能力。从经济可行性角度看，小区物业车辆管理系统只需要在服务器端安装，就目前各个小区的情况看，服务器的安装与配置都比较完善，不需要增加额外的开销。对于没有专业服务器的小区，由于该系统运行的系统开销比较小，完全可以用普通PC作为服务器，能保证该系统的稳定运行。2、 系统主要功能整个小区物业车辆管理系统实现的功能如下：（1）可以向数据库中添加、修改和删除车主信息，包括车主姓名，电话，住址等。（2）可以向数据库中添加、修改和删除车辆信息，包括车号，车辆型号，颜色，价值，停车位置、车主等。（3）可以向数据库添加、修改和删除车辆进出信息

7、，包括进出车辆车号，进出时间等。（4）可以对数据库中的车辆进出进行动态管理。3、业务流程图小区物 业登记车辆车主管理车主车辆管理分配表车位分配小区物业进出管理车辆进出管理状态查询车主信息车主档案车主基本信息管理车辆基本信息4、 网站结构图小区车辆系统管理登录车辆进出管理管理员管理进出信息管理车主信息管理车辆信息管理车辆进出查询车辆进出管理进出记录查询车辆信息查询管理员管理增加管理员车主信息管理车主信息添加车辆信息维护5、 小区车辆出入管理流程图：输入车号是否本小区车辆是本小区车辆不是本小区车辆显示车辆信息提示信息出入记录有出入记录没有出入记录判断车辆状态正在小区不在小区离开小区记录进入小区记录

8、显示出入登记信息二、系统概要设计1、实体联系模型本系统中所规划的实体主要有：财产基本信息实体、教师基本信息实体、部门基本信息实体、系统管理员信息实体。具体的描述E-R图如下所示：（1）车辆基本信息实体E-R图，如图所示：车辆车位车辆型号车辆颜色财产价值登记日期车主车号（2）车主基本信息实体E-R图，如图所示：车主车主编号车主姓名车主性别身份证号登录密码住址（3） 车辆进出登记基本信息实体E-R图，如图所示：进出记录记录编号车号进出时间车辆状态（4） 系统管理员信息实体E-R图，如图所示：管理员管理编号管理名密码2、数据库逻辑结构设计（1）车辆基本情况表列名数据类型可否为空说明chehaovar

9、charNOT NULL车辆编号chezhuIDnumricNOT NULL车主编号yansevarcharNULL车辆颜色xinghaovarcharNULL车辆型号jiazhinumricNULL车辆价值tingquyuvarcharNULL停车区域（2） 车主基本情况表列名数据类型可否为空说明chezhuIDvarcharNOT NULL车主编号xingmingvarcharNOT NULL车主姓名xingbievarcharNULL车主性别shenfenzhengvarcharNULL车主身份证号zhuzhivarcharNULL车主住址danhuavarcharNULL车主联系电话（

10、3） 车辆进出登记表列名数据类型可否为空说明IDvarcharNOT NULL进出信息编号zhuangtaivarcharNOT NULL车辆状态chehaovarcharNULL车号shijiandata/timeNULL进出时间（4） 系统管理员表列名数据类型可否为空说明guanliIDvarcharNOT NULL管理员编号guanliyuanvarcharNOT NULL管理员名guanlimimavarcharNULL管理密码三、系统详细设计1、系统功能描述（1）小区车辆信息管理实现对车辆的基本信息的管理，如小区车辆信息的添加、修改、删除和查询。小区车辆基本信息主要包括：车号、车主、

11、颜色、车辆规格、车辆价值、停车位置等基本信息。（2）小区车主信息管理包括小区车主的姓名、住址等基本信息，主要对车主的信息进行管理，为后续的功能模块提供数据。（3） 车辆进出管理主要是车辆进出信息的管理，其主要功能是车辆进入、离开的时间记录。为车辆按进出情况进行汇总、管理提供数据支持。（4）系统管理员信息管理主要是网络系统的管理员管理，管理员可以进行车辆信息的上传、车主信息的上传、车辆的登记、车辆进出情况查询等。便于对小区物业车辆管理系统进行分级管理，提高数据库的安全性。2、总体功能模块设计：功能层次图小区物业车辆管理系统车辆基本信息车主管理进出管理添加车辆基本信息修改车辆基本信息查询车辆基本信

12、息添加车主信息修改车主信息查询车主信息添加进出信息查询进出信息添加管理员信息查询管理员信息管理员信息修改管理员信息 根据前面的需求分析以及系统功能的分析可用以下图形来描述系统总体的功能模块。3、系统界面设计（1）首页设计首页主要用于普通用户登录，登录后，可以查看个人信息，或者再以管理员的身份进行后台管理登录，首页简洁明了。主要代码为：<% MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString <> "" Then MM_LoginAction = MM

13、_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)MM_valUsername = CStr(Request.Form("mingzi")If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd M

14、M_fldUserAuthorization = "" MM_redirectLoginSuccess = "caiwu/caiwu_index.asp" MM_redirectLoginFailed = "index.asp" MM_loginSQL = "SELECT yhming, mima" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_

15、fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM yonghu WHERE yhming = ? AND mima = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_conn_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_r

16、sUser_cmd.CreateParameter("param1", 200, 1, 12, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 20, Request.Form("mima") ' adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute I

17、f Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorizat

18、ion).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied") <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLogi

19、nSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If（2）小区车辆进出管理小区物业管理员对车辆基本信息进行管理，登记车辆、查询车辆信息等，对小区车辆进行有效的查看，做好车辆进出信息的管理和查询。 主要代码如下：<%' * Restrict Access To Page: Grant or deny access to this pageMM_authorizedUsers=""MM_authFailedURL="/index.asp"

20、MM_grantAccess=falseIf Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization")="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization")>=1) Then MM_grantAccess = true End IfEnd IfIf Not MM_grantAccess T

21、hen MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString() > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFai

22、ledURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL)End If%>（小区车辆判断、车辆进出状态判断主要代码）<% MM_authorizedUsers=""MM_authFailedURL="/index.asp"MM_grantAccess=falseIf Session("MM_Usernam

23、e") <> "" Then If (true Or CStr(Session("MM_UserAuthorization")="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization")>=1) Then MM_grantAccess = true End IfEnd IfIf Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_au

24、thFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString() > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar &

25、 "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL)End If %><% Dim che_MMColParamche_MMColParam = "1"If (Request.Form("chehao") <> "") Then che_MMColParam = Request.Form("chehao")End If %><% Dim

26、cheDim che_cmdDim che_numRowsSet che_cmd = Server.CreateObject ("ADODB.Command")che_cmd.ActiveConnection = MM_lj_STRINGche_cmd.CommandText = "SELECT * FROM che_zhu WHERE chehao = ?" che_cmd.Prepared = trueche_cmd.Parameters.Append che_cmd.CreateParameter("param1", 200,

27、1, 8, che_MMColParam) ' adVarCharSet che = che_cmd.Executeche_numRows = 0%><%Dim churu_MMColParamchuru_MMColParam = "1"If (Request.Form("chehao") <> "") Then churu_MMColParam = Request.Form("chehao")End If%><%Dim churuDim churu_cmdDim chu

28、ru_numRowsSet churu_cmd = Server.CreateObject ("ADODB.Command")churu_cmd.ActiveConnection = MM_lj_STRINGchuru_cmd.CommandText = "SELECT * FROM churu WHERE chehao = ? ORDER BY ID DESC" churu_cmd.Prepared = truechuru_cmd.Parameters.Append churu_cmd.CreateParameter("param1"

29、;, 200, 1, 8, churu_MMColParam) ' adVarCharSet churu = churu_cmd.Executechuru_numRows = 0%><%if (not churu.eof or not churu.bof) thenif (churu.Fields.Item("zhuangtai").Value)="停车" then %> <form name="form3" method="post" action="admin_cl_c

30、huru.asp"> <input type="submit" name="button3" value="离开小区" /> <input name="chehao" value="<%=(che.Fields.Item("chehao")Value)%>" <input type="hidden" name="zhuangtai" id="zhuangtai" v

31、alue="离开" /> </form> <% end if end if%> <%if (not churu.eof or not churu.bof) thenif (churu.Fields.Item("zhuangtai").Value)="离开" then %> <form name="form1" method="post" action="admin_cl_churu.asp"> <input type

32、="submit" name="button" value="进入小区" /> <input name="chehao" type="hidden" id="chehao" value="<%=(che.Fields.Item("chehao").Value)%>" /> <input name="zhuangtai" value="停车" /> <

33、/form><% end if end if %> <% If churu.EOF And churu.BOF Then %> <form name="form1" method="post" action="admin_cl_churu.asp"> <input type="submit" name="button" id="button" value="进入小区" /> <input name

34、="chehao" type="hidden" id="chehao" value="<%=(che.Fields.Item("chehao").Value)%>" /> <input type="hidden" name="zhuangtai" id="zhuangtai" value="停车" /> <% end if %> <% end if %><%

35、 If che.EOF And che.BOF Then %><td height="20"><div align="center"> <p>本车尚未在小区登记，属于临时进出！</p> <% if (not churu.eof or not churu.bof) then if (churu.Fields.Item("zhuangtai").Value)="停车" then %> <form id="form2" name=

36、"form2" method="post" action="admin_cl_churu.asp"> <input type="submit" name="button2" value="离开小区" /> <input name="chehao" type="hidden" id="chehao" value="<%=request.form("chehao"

37、;) %>" /> <input type="hidden" name="zhuangtai" value="离开" /> <% end if end if %> <% if (not churu.eof or not churu.bof) thenif (churu.Fields.Item("zhuangtai").Value)="离开" then%> <form id="form4" name="f

38、orm4" method="post" action="admin_cl_churu.asp"> <input type="submit" name="button4" value="进入小区" /> <input name="chehao" type="hidden" id="chehao" value="<%=request.form("chehao") %>

39、;" /> <input type="hidden" name="zhuangtai" value="停车" /> </form> <% end if end if %><% if churu.eof and churu.bof then %> <form name="form4" method="post" action="admin_cl_churu.asp"> <input type="submit" name="button4"