1、小区物业车辆管理系统 目录 内容摘要…………………………………………………………………………1 关键字……………………………………………………………………………1 绪论………………………………………………………………………………2 一、 系统需求分析………………………………………………………………3 1、 可行性分析………………………………………………………………3 2、 系统关键功效……………………………………………………………3 3、 业务步骤图………………………………………………………………3 4、 网站结构图………………………………………………………………4
2、 5、 小区车辆出入管理步骤图………………………………………………5 二、 系统概要设计………………………………………………………………5 1、 实体联络模型……………………………………………………………5 2、 数据库逻辑结构设计……………………………………………………7 三、 系统具体设计………………………………………………………………7 1、 系统功效描述……………………………………………………………8 2、 总体功效模块设计:功效层次图………………………………………8 3、 系统界面设计……………………………………………………………8 (1) 首页设计………………………
3、…………………………………8 (2) 小区车辆管理 …………………………………………………10 (3) 管理模块…………………………………………………………15 4、 系统系统错误信息………………………………………………………17 四、 系统测试结果………………………………………………………………17 参考文件…………………………………………………………………………18 内容摘要 本系统是依据青海省湟中县“香榭丽全部”小区物业现行车辆管理方法所设计小区车辆管理系统,根据系统调查、系统分析、系统设计、系统实施步骤,采取结构化编程方法而编
4、写完成。利用小区车辆管理系统,促进小区信息化、网络化建设,使小区车辆管理愈加简单、高效、规范、灵活,使管理趋于规范化、标准化。整个系统从符合操作简便、界面友好、灵活、实用、安全要求出发,完成小区车辆管理全过程,关键包含以下多个功效:小区车辆管理、小区车主管理、小区车辆进出登记管理等等。 系统开发工具采取ASP VBScript,后台数据库采取ACCESS,B/S结构。利用计算机网络来支持小区物业高效率完成日常车辆管理事务,是适应小区物业制度要求、推进小区车辆管理走向科学化、规范化必需条件,该系统含有直观、方便、快捷、可靠、保密、低成本等优点。这些优点能够极大地提升小区物业车辆管理效率,也是小
5、区物业管理正规化、科学化关键条件。 经过实际使用证实,本文所设计小区车辆管理系统能够满足小区物业管理方面需要,有效提升车辆管理系统效率。 关键字:车辆管理 ASP ACCESS B/S 绪论 车辆管理一向是小区物业管理中关键组成部分。因为车辆信息和车主信息种类繁杂、数量繁多,所以传统车辆信息管理需要大量人力、物力,且轻易犯错。所以,建立高效、实用、科学小区物业车辆管理信息系统,是小区物业管理走向现代化关键一步。 伴随计算机技术迅猛发展,尤其是网络技术发展,为小区经过局域网管理财产提供了契机。ASP动态网站所含有交互性强、界面简单、服务器架设轻易等优点,为小区采取动态
6、网页方法管理财产提供了一个很好机会。 小区物业车辆管理系统是一个帮助各小区物业各部门科学、全方面、高效地进行车辆管理系统。在内容上,它包含了车辆变动登记、查询;车主信息登记、变动;车辆进出登记、查询等模块,有完善车辆资料(车辆信息、状态、进出时间、停车位置,车主信息等)和车主信息(车主信息、住址、联络电话等)。在操作上,它集输入、变更、查询、删除等操作为一体,信息更新和查询灵活、方便。所以,怎样建立利用计算机、网络等高新科技来高效财产管理系统,对于小区物业管理部门而言,含相关键实际意义。 一、系统需求分析 1、可行性
7、分析 从操作可行性角度看,小区物业车辆管理系统基于ASP技术B/S系统,物业管理部门只需要在小区服务器上配置ASP财产管理系统IIS运行环境。车辆管理系统用户在装有IE浏览器用户机连接登录服务器即可,全部管理操作端全部运行在服务器上,所以该系统含有安装简单、维护方便特点尤其适合在学校使用。 从技术可行性角度看,小区物业车辆管理系统使用ASP技术设计,ASP是微软企业活动服务器页面简称,经过多年发展,现在技术很成熟,运行比较稳定。软件后台采取ACCESS数据库,也是经过多年发展完善中小型企业数据库,易用性和可操作性很好。从技术角度来看,该系统技术成熟、运行稳定、设计简单易行。从系统使用角度看
8、经过多年信息化工作推进,现在各个小区管理人员全部有一定信息技术能力,车辆管理人员基础全部含有使用该系统技术能力。 从经济可行性角度看,小区物业车辆管理系统只需要在服务器端安装,就现在各个小区情况看,服务器安装和配置全部比较完善,不需要增加额外开销。对于没有专业服务器小区,因为该系统运行系统开销比较小,完全能够用一般PC作为服务器,能确保该系统稳定运行。 2、 系统关键功效 整个小区物业车辆管理系统实现功效以下: (1)能够向数据库中添加、修改和删除车主信息,包含车主姓名,电话,住址等。 (2)能够向数据库中添加、修改和删除车辆信息,包含车号,车辆型号,颜色,价值,停车位置、车主等。
9、 (3)能够向数据库添加、修改和删除车辆进出信息,包含进出车辆车号,进出时间等。 (4)能够对数据库中车辆进出进行动态管理。 3、业务步骤图 小区物 业 登记车辆 车主管理 车主车辆管理 分配表 车位分配 小区物业 进出管理 车辆进出管理 状态查询 车主信息 车主档案 车主 基础信息管理 车辆基础信息 4、 网站结构图 小区车辆系统 管理登录 车辆进出管理 管理员管理 进出信息管理 车主信息管理 车辆信息管理 车辆进出查询 车辆进出管理
10、 进出统计查询 车辆信息查询 管理员管理 增加管理员 车主信息管理 车主信息添加 车辆信息维护 5、 小区车辆出入管理步骤图: 输入车号 是否本小区车辆 是本小区车辆 不是本小区车辆 显示车辆信息 提醒信息 出入统计 有出入统计 没有出入统计 判定车辆状态 正在小区 不在小区 离开小区统计 进入小区统计 显示出入登记信息 二、系统概要设计 1、实体联络模型 本系统中所计划实体关键有:财产基础信息实体、老师基础信息实体、部门基础信
11、息实体、系统管理员信息实体。具体描述E-R图以下所表示: (1)车辆基础信息实体E-R图,图所表示: 车辆 车位 车辆型号 车辆颜色 财产价值 登记日期 车主 车号 (2)车主基础信息实体E-R图,图所表示: 车主 车主编号 车主姓名 车主性别 身份证号 登录密码 住址 (3) 车辆进出登记基础信息实体E-R图,图所表示: 进出统计 统计编号 车号 进出时间 车辆状态 (4) 系统管理员信息实体E-R图,图所表示: 管理员 管理编号 管理
12、名 密码 2、数据库逻辑结构设计 (1)车辆基础情况表 列名 数据类型 可否为空 说明 chehao varchar NOT NULL 车辆编号 chezhuID numric NOT NULL 车主编号 yanse varchar NULL 车辆颜色 xinghao varchar NULL 车辆型号 jiazhi numric NULL 车辆价值 tingquyu varchar NULL 停车区域 (2) 车主基础情况表 列名 数据类型 可否为空 说明 chezhuID
13、 varchar NOT NULL 车主编号 xingming varchar NOT NULL 车主姓名 xingbie varchar NULL 车主性别 shenfenzheng varchar NULL 车主身份证号 zhuzhi varchar NULL 车主住址 danhua varchar NULL 车主联络电话 (3) 车辆进出记录表 列名 数据类型 可否为空 说明 ID varchar NOT NULL 进出信息编号 zhuangtai varchar NOT NULL 车辆状态 chehao varc
14、har NULL 车号 shijian data/time NULL 进出时间 (4) 系统管理员表 列名 数据类型 可否为空 说明 guanliID varchar NOT NULL 管理员编号 guanliyuan varchar NOT NULL 管理员名 guanlimima varchar NULL 管理密码 三、系统具体设计 1、系统功效描述 (1)小区车辆信息管理 实现对车辆基础信息管理,如小区车辆信息添加、修改、删除和查询。小区车辆基础信息关键包含:车号、车主、颜色、车辆规格、车辆价值、停车位置等基础信息。 (2)小区
15、车主信息管理 包含小区车主姓名、住址等基础信息,关键对车主信息进行管理,为后续功效模块提供数据。 (3) 车辆进出管理 关键是车辆进出信息管理,其关键功效是车辆进入、离开时间统计。为车辆按进出情况进行汇总、管理提供数据支持。 (4)系统管理员信息管理 关键是网络系统管理员管理,管理员能够进行车辆信息上传、车主信息上传、车辆登记、车辆进出情况查询等。便于对小区物业车辆管理系统进行分级管理,提升数据库安全性。 2、总体功效模块设计:功效层次图 小区物业车辆管理系统 车辆 基础信息 车主管理 进出管理 添加 车辆基础信息 修改车辆基础信息 查询车辆基础信息 添加车
16、主信息 修改车主信息 查询车主信息 添加进出信息 查询进出信息 添加管理员信息 查询管理员信息 管理员信息 修改管理员信息 依据前面需求分析和系统功效分析可用以下图形来描述系统总体功效模块。 3、系统界面设计 (1)首页设计 首页关键用于一般用户登录,登录后,能够查看个人信息,或再以管理员身份进行后台管理登录,首页简练明了。 关键代码为: <% MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <
17、> "" 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
18、 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_lo
19、ginSQL & " 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_rsUser_cmd.CreateParameter("param1", 200, 1, 12, MM_v
20、alUsername) ' 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 m
21、atch - 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(Req
22、uest.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)小区车辆进出管
23、理 小区物业管理员对车辆基础信息进行管理,登记车辆、查询车辆信息等,对小区车辆进行有效查看,做好车辆进出信息管理和查询。 关键代码以下: <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="/index.asp" MM_grantAccess=false If Session("MM_Us
24、ername") <> "" 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
25、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_authFailedU
26、RL) 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_grantA
27、ccess = 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_auth
28、FailedURL = 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
29、 che_cmd Dim che_numRows Set che_cmd = Server.CreateObject ("ADODB.Command") che_cmd.ActiveConnection = MM_lj_STRING che_cmd.CommandText = "SELECT * FROM che_zhu WHERE chehao = ?" che_cmd.Prepared = true che_cmd.Parameters.Append che_cmd.CreateParameter("param1", 200, 1, 8, che__MMColParam) '
30、 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 ("ADODB.Comm
31、and") churu_cmd.ActiveConnection = MM_lj_STRING churu_cmd.CommandText = "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 chu
32、ru_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 %>35、rm name="form1" method="post" action="admin_cl_churu.asp"> " /> <% end
36、 if %> <% end if %> <% If che.EOF And che.BOF Then %>
本车还未在小区登记,属于临时进出!
<% 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 %>