小区物业车辆管理系统
目录
内容摘要 (1)
关键字 (1)
绪论 (2)
一、系统需求分析 (3)
1、可行性分析 (3)
2、系统主要功能 (3)
3、业务流程图 (3)
4、网站结构图 (4)
5、小区车辆出入管理流程图 (5)
二、系统概要设计 (5)
1、实体联系模型 (5)
2、数据库逻辑结构设计 (7)
三、系统详细设计 (7)
1、系统功能描述 (8)
2、总体功能模块设计：功能层次图 (8)
3、系统界面设计 (8)
（1）首页设计 (8)
（2）小区车辆管理 (10)
（3）管理模块 (15)
4、系统系统错误信息 (17)
四、系统测试结果 (17)
参考文献 (18)
内容摘要
本系统是根据青海省湟中县“香榭丽都”小区物业现行车辆管理方式所设计的小区车辆管理系统，按照系统调查、系统分析、系统设计、系统实施的步骤，采用结构化的编程方法而编写完成的。利用小区车辆管理系统，促进小区信息化、网络化建设，使小区车辆管理更加简单、高效、规范、灵活，使管理趋于规范化、标准化。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成小区车辆管理的全过程，主要包括以下几个功能：小区车辆管理、小区车主管理、小区车辆进出登记管理等等。
系统开发工具采用ASP VBScript，后台数据库采用ACCESS，B/S结构。利用计算机网络来支持小区物业高效率完成日常车辆管理事务，是适应小区物业制度要求、推动小区车辆管理走向科学化、规范化的必要条件，该系统具有直观、方便、快捷、可靠、保密、低成本等优点。这些优点能够极大地提高小区物业车辆管理的效率，也是小区物业管理正规化、科学化的重要条件。
经过实际使用证明，本文所设计的小区车辆管理系统可以满足小区物业管理方面的需要，有效提高车辆管理系统的效率。
关键字：车辆管理 ASP ACCESS B/S
绪论
车辆管理历来是小区物业管理中重要的组成部分。由于车辆信息和车主信息种类繁杂、数量繁多，所以传统的车辆信息管理需要大量人力、物力，且容易出错。因此，建立高效、实用、科学的小区物业车辆管理信息系统，是小区物业管理走向现代化的重要一步。
随着计算机技术的迅猛发展，尤其是网络技术的发展，为小区通过局域网管理财产提供了契机。ASP动态网站所具有的交互性强、界面简单、服务器架设容易等优点，为小区采用动态网页方式管理财产提供了一个非常好的机会。
小区物业车辆管理系统是一个协助各小区物业各部门科学、全面、高效地进行车辆管理的系统。在内容上，它包括了车辆变动登记、查询；车主信息登记、变动；车辆进出登记、查询等模块，有完善的车辆资料（车辆信息、状态、进出时间、停车位置，车主信息等）和车主信息（车主信息、住址、联系电话等）。在操作上，它集输入、变更、查询、删除等操作为一体，信息更新和查询灵活、方便。因此，如何建立利用计算机、网络等高新科技来高效的财产管理系统，对于小区物业管理部门而言，具有重要的实际意义。
一、系统需求分析
1、可行性分析
从操作可行性角度看，小区物业车辆管理系统基于ASP技术的B/S系统，物业管理部门只需要在小区服务器上配置ASP财产管理系统IIS运行环境。车辆管理系统的用户在装有IE浏览器的客户机连接登录服务器即可，所有的管理操作端都运行在服务器上，因此该系统具有安装简单、维护方便的特点特别适合在学校使用。
从技术可行性角度看，小区物业车辆管理系统使用ASP技术设计，ASP是微软公司活动服务器页面的简称，经过多年的发展，目前技术非常成熟，运行比较稳定。软件的后台采用ACCESS数据库，也是经过多年发展完善的中小型企业数据库，易用性和可操作性非常好。从技术角度来看，该系统技术成熟、运行稳定、设计简单易行。从系统的使用角度看，经过多年的信息化工作的推进，目前各个小区的管理人员都有一定的信息技术能力，车辆管理人员基本都具备使用该系统的技术能力。
从经济可行性角度看，小区物业车辆管理系统只需要在服务器端安装，就目前各个小区的情况看，服务器的安装与配置都比较完善，不需要增加额外的开销。对于没有专业服务器的小区，由于该系统运行的系统开销比较小，完全可以用普通PC作为服务器，能保证该系统的稳定运行。
2、系统主要功能
整个小区物业车辆管理系统实现的功能如下：
（1）可以向数据库中添加、修改和删除车主信息，包括车主姓名，电话，住址等。
（2）可以向数据库中添加、修改和删除车辆信息，包括车号，车辆型号，颜色，价值，停车位置、车主等。
（3）可以向数据库添加、修改和删除车辆进出信息，包括进出车辆车号，进出时间等。
（4）可以对数据库中的车辆进出进行动态管理。
3、业务流程图
4、网站结构图
5、小区车辆出入管理流程图：
二、系统概要设计
1、实体联系模型
本系统中所规划的实体主要有：财产基本信息实体、教师基本信息实体、部门基本信息实体、系统管理员信息实体。具体的描述E-R图如下所示：
（1）车辆基本信息实体E-R图，如图所示：
（2）车主基本信息实体E-R图，如图所示：
（3）车辆进出登记基本信息实体E-R图，如图所示：
（4）系统管理员信息实体E-R图，如图所示：
2、数据库逻辑结构设计
（2）车主基本情况表
（4）系统管理员表
三、系统详细设计
1、系统功能描述
（1）小区车辆信息管理
实现对车辆的基本信息的管理，如小区车辆信息的添加、修改、删除和查询。小区车辆基本信息主要包括：车号、车主、颜色、车辆规格、车辆价值、停车位置等基本信息。
（2）小区车主信息管理
包括小区车主的姓名、住址等基本信息，主要对车主的信息进行管理，为后续的功能模块提供数据。
（3）车辆进出管理
主要是车辆进出信息的管理，其主要功能是车辆进入、离开的时间记录。为车辆按进出情况进行汇总、管理提供数据支持。
（4）系统管理员信息管理
主要是网络系统的管理员管理，管理员可以进行车辆信息的上传、车主信息的上传、车辆的登记、车辆进出情况查询等。便于对小区物业车辆管理系统进行分级管理，提高数据库的安全性。
2、总体功能模块设计：功能层次图
根据前面的需求分析以及系统功能的分析可用以下图形来描述系统总体的功
3、系统界面设计
（1）首页设计
首页主要用于普通用户登录，登录后，可以查看个人信息，或者再以管理员的身份进行后台管理登录，首页简洁明了。
主要代码为：
<% MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_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
MM_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_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM yonghu WHERE yhming = ? AND mima = ?"
Set MM_rsUser_cmd = Server.CreateObject ("https://www.doczj.com/doc/5111968078.html,mand")
MM_rsUser_cmd.ActiveConnection = MM_conn_STRING
MM_rsUser_https://www.doczj.com/doc/5111968078.html,mandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append
MM_rsUser_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
If 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_fldUserAuthorization).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_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
（2）小区车辆进出管理
小区物业管理员对车辆基本信息进行管理，登记车辆、查询车辆信息等，对小区车辆进行有效的查看，做好车辆进出信息的管理和查询。
主要代码如下：
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="/index.asp"
MM_grantAccess=false
If 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 If
End If
If Not MM_grantAccess Then
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_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If%>
（小区车辆判断、车辆进出状态判断主要代码）
<% MM_authorizedUsers=""
MM_authFailedURL="/index.asp"
MM_grantAccess=false
If 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 If
End If
If Not MM_grantAccess Then
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_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If %>
<% Dim che__MMColParam
che__MMColParam = "1"
If (Request.Form("chehao") <> "") Then
che__MMColParam = Request.Form("chehao")
End If %>
<% Dim che
Dim che_cmd
Dim che_numRows
Set che_cmd = Server.CreateObject ("https://www.doczj.com/doc/5111968078.html,mand")
che_cmd.ActiveConnection = MM_lj_STRING
che_https://www.doczj.com/doc/5111968078.html,mandText = "SELECT * FROM che_zhu WHERE chehao = ?"
che_cmd.Prepared = true
che_cmd.Parameters.Append che_cmd.CreateParameter("param1", 200, 1, 8, che__MMColParam) ' adVarChar
Set che = che_cmd.Execute
che_numRows = 0%>
<%Dim churu__MMColParam
churu__MMColParam = "1"
If (Request.Form("chehao") <> "") Then
churu__MMColParam = Request.Form("chehao")
End If%>
<%Dim churu
Dim churu_cmd
Dim churu_numRows
Set churu_cmd = Server.CreateObject ("https://www.doczj.com/doc/5111968078.html,mand")
churu_cmd.ActiveConnection = MM_lj_STRING
churu_https://www.doczj.com/doc/5111968078.html,mandText = "SELECT * FROM churu WHERE chehao = ? ORDER BY ID DESC"
churu_cmd.Prepared = true
churu_cmd.Parameters.Append churu_cmd.CreateParameter("param1", 200, 1, 8, churu__MMColParam) ' adVarChar
Set churu = churu_cmd.Execute
churu_numRows = 0%>
<% if (not churu.eof or not churu.bof) then
if (churu.Fields.Item("zhuangtai").Value)="停车" then %>
<% end if end if %>
<% if (not churu.eof or not churu.bof) then
if (churu.Fields.Item("zhuangtai").Value)="离开" then %>
<% end if end if %>
<% If churu.EOF And churu.BOF Then %>