ASP小区物业管理系统.docx
《ASP小区物业管理系统.docx》由会员分享,可在线阅读,更多相关《ASP小区物业管理系统.docx(21页珍藏版)》请在冰豆网上搜索。
ASP小区物业管理系统
摘要
小区物业管理系统是典型的管理信息系统,其开发主要包括数据库的设计和应用程序对数据库的调用。
经过实际的需求分析,结合管理信息系统开发的概念、结构及系统开发的基本原理和方法,设计开发了小区物业管理系统。
并对ASP应用程序设计、数据库管理系统进行了较深入的学习和应用,完成对小区物业管理系统的需求分析、功能模块划分。
系统主要有留言管理、业主管理、费用管理、保修管理、职员管理、管理员管理这6大模块。
从操作简单、界面美观、灵活实用的要求出发,设计开发的系统涵盖了小区物业管理的主要方面,基本能满足物业管理过程中的工作需要
关键词:
物业管理管理系统数据库ASPSQLServer2000
Abstract
Areapropertymanagementsystemisatypicalmanagementinformationsystem,includingthedevelopmentofitsdatabasedesignanddatabaseapplicationsonthecall.Aftertheactualneedsanalysis,managementinformationsystemsdevelopmentwiththeconcept,structureandsystemdevelopmentofthebasicprinciplesandmethodsofdesignanddevelopmentofthecommunitypropertymanagementsystem.ASPandapplicationdesign,databasemanagementsystemforamorein-depthstudyandapplicationofthecompletionofthedistrict'spropertymanagementsystemneedsanalysis,functionalmoduledivision.Mainmessagemanagementsystem,ownersmanagement,costmanagement,warrantymanagement,staffmanagement,anadministratortomanagethesixmodules.Fromthesimple,attractiveinterface,flexibleandpracticalrequirementsofthedesigndevelopmentofthesystemcoverstheareaofthemainaspectsofpropertymanagement,propertymanagementcanmeetthebasiccourseoftheworkneeded
Keywords:
propertymanagementdatabasemanagementsystemASPSQLServer20
绪论
1.系统功能概述
本系统使用使用Access作为后台数据库,使用一组ASP动态网页作为应用程序的用户界面。
本系统完成后,可以部署在WINDOWS2000Server服务器上,同一局域网中的用户使用IE浏览器即可查询数据和处理数据。
本系统由以下功能模块组成
用户验证
用户要通过本系统查询和处理数据,必须输入用户名和密码进行登录
根据访问权限的不同,用户分为2类:
普通用户只能查询和留言;
管理员用户可以查询的操作数据;
管理员管理
使用管理员管理模块可以实现以下操作:
查询管理员的资料;
添加、修改和删除管理员治疗;
留言管理
使用留言管理模块可以实现以下操作:
删除留言;
查询留言;
保修管理
使用保修管理模块可以实现以下操作:
删除和回复保修留言;
查询保修留言;
职员管理
使用职员管理模块可以实现以下操作:
查询职员资料;
添加、删除和修改职员资料;
业主管理
使用业主管理模块可以实现以下操作:
查询业主资料;
添加、删除和修改业主资料;
费用管理
使用费用管理模块可以实现以下操作:
查询业主费用资料;
添加、删除和修改业主费用资料;
2创建数据库
为了保存物业管理系统所用到的各种数据,在前面的创建的db1.MDB数据库中创建6张数据库表,分别为admin、baoxiubiao、book、feiyongbiao、yezhu、yuangongbiao。
表名
字段名
数据类型
说明
Admin
id
自动编号
puser
文本
管理员帐号
ppwd
文本
密码
pname
文本
姓名
level
数字
等级
baoxiubiao
id
自动编号
add
文本
门牌号
owner
文本
业主
date
日期/时间
content
备注
报修内容
reply
文本
回复
book
id
自动编号
sname
文本
ssubject
文本
scontent
备注
stime
日期/时间
feiyongbiao
id
自动编号
add
文本
单元#门牌号
wages
货币
工作人员工资福利
mtcs
货币
维护保养费
shoushi
货币
收视
cainuan
货币
采暖
wuguan
货币
物管
sum
货币
总计
yezhu
id
自动编号
add
文本
单元号#门牌号
owners
文本
业主
sex
文本
性别
dob
日期/时间
出生日期
tel
文本
联系方式
content
备注
基本情况
pwd
文本
密码
yuangongbiao
id
自动编号
name
文本
业主姓名
sex
文本
性别
age
数字
年龄
posts
文本
职位
duty
备注
工作内容
tel
文本
联系方式
3用户验证
在构键物业管理系统时,不仅应当提供较强的数据库访问功能,还应当充分保证数据的安全性。
小区物业管理系统的安全机制主要体现在以下几个方面:
通过登录页面读取用户提交的登录信息并与保存在数据库中的数据进行比较以验证用户的身份;
通过用户的权限级别来限制用户对数据的访问。
3.1登录页面
业主用户登录通过动态网页yezhudeng.asp来实现。
用户可以输入并提交用户名和密码信息,如下图所示。
如果用户信息正确则进入shouye1.asp页面,否则显示错误信息。
如下图所示。
————————yezhudeng.asp————————
<%@language="VBScript"%>
--#includefile="conn.asp"-->
<%denglu=request("denglu")
add=request.Form("add")
pwd=request.Form("pwd")
ifdenglu="登录"then
setrs=server.CreateObject("adodb.recordset")
ssql="select*fromyezhuwhereadd='"&add&"'andpwd='"&pwd&"'"
rs.openssql,conn,1,3
ifrs.bofandrs.eofthen
response.write("对不起,您输入的用户名或密码有误")
else
session("owners")=add
response.write("")
endif
endif
%>
管理员用户登录过程通过页面guanlideng.asp来实现
在页面guanliyuan.asp中,用户名可以输入并提交用户名和密码信息,如下图所示。
如果用户信息正确则进入index.asp页面,否则显示错误信息。
如下图所示。
3.2留言管理
在留言管理模块中提供了删除留言的功能。
代码如下:
<%@language="VBScript"%>
--#includefile="conn.asp"-->
<%dimssql,rs
ssql="select*frombookorderbyiddesc"
setrs=server.CreateObject("adodb.recordset")
rs.openssql,conn,1,3
ifnotrs.eofthen
rs.pagesize=5
ipagesize=rs.pagesize
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request.QueryString("page")
ifNotIsNumeric(page)orpage=""then
page=1
else
page=cint(page)
endif
ifpage>maxpagethen
page=maxpage
endif
rs.AbsolutePage=Page
i=0
%>
--
functionconfirmdel(id){
if(confirm("真的要删除吗?
"))
window.location.href="delete.asp?
id="+id
}
-->
如下图:
3.3管理员管理
在管理员管理模块中提供添加、删除和修改管理员资料的功能。
基本代码如下:
<%@language="vbscript"%>
<%Response.Expires=0%>
--#includefile="conn.asp"-->
<%dimname,puser,ppwd,level,id,action,sql,rs
action=Request.QueryString("action")
id=Request("id")
name=Request.Form("name")
puser=Request.Form("puser")
ppwd=Request.Form("ppwd")
level=Request.Form("level")
setRs=server.CreateObject("adodb.Recordset")
%>
<%
selectcaseaction
case"saveadd"
callshopadd()
case"savemodi"
callshopmodi()
case"del"
callshopdel()
case""
sql="select*fromadmin"
rs.opensql,conn,1,3
%>
修改的代码如下:
%subshopadd()
sql="select*fromadminwhere1<>1"
rs.opensql,conn,1,3
rs.addnew
callshopupdate()
endsub
subshopmodi()
sql="select*fromadminwhereid="&Id
rs.opensql,conn,1,3
callshopupdate()
endsub
subshopdel()
sql="deletefromadminwhereid="&Id
conn.execute(sql)
response.Redirect("admin.asp")
endsub
subshopupdate()
rs("name")=name
rs("puser")=puser
rs("ppwd")=ppwd
rs("level")=(level)
rs.update
rs.close
response.Redirect("admin.asp")
endsub
%>
如下图所示:
3.4职员管理
在职员管理模块中提供了查询添加、修改和删除职员管理资料的功能。
添加职员资料
在职员管理页面上单击“添加职员”,可以连接到添加职员信息拦,在该页面中输入职员资料,提交保存到数据库db1的shop表中
修改如下图所示:
代码:
<%@language="vbscript"%>
<%Response.Expires=0%>
--#includefile="conn.asp"-->
<%functioniif(e)
ife=truethen
iif="checked"
endif
endfunction
%>
<%dimname,sex,age,posts,tel,duty,id,action,sql,rs
action=Request.QueryString("action")
id=Request("id")
name=Request.Form("name")
age=Request.Form("age")
sex=Request.Form("sex")
posts=Request.Form("posts")
tel=Request.Form("tel")
duty=Request.Form("duty")
setRs=server.CreateObject("adodb.Recordset")
%>
<%
selectcaseaction
case"saveadd"
callshopadd()
case"savemodi"
callshopmodi()
case"del"
callshopdel()
case""
sql="select*fromyuangongbiao"
rs.opensql,conn,1,3
%>
<%case"modi"
sql="select*fromyuangongbiaowhereid="&Id
rs.opensql,conn,1,3%>
<%endselect%>
<%subshopadd()
sql="select*fromyuangongbiaowhere1<>1"
rs.opensql,conn,1,3
rs.addnew
callshopupdate()
endsub
subshopmodi()
sql="select*fromyuangongbiaowhereid="&Id
rs.opensql,conn,1,3
callshopupdate()
endsub
subshopdel()
sql="deletefromyuangongbiaowhereid="&Id
conn.execute(sql)
response.Redirect("shop.asp")
endsub
subshopupdate()
rs("name")=name
rs("sex")=sex
rs("age")=age
rs("posts")=(posts)
rs("tel")=tel
rs("duty")=duty
rs.update
rs.close
response.Redirect("shop.asp")
endsub
%>
图如下:
3.5业主管理
在业主管理模块中提供了查询添加、修改和删除业主资料的功能。
在职员管理页面上单击“添加职员”,可以连接到添加职员信息拦,在该页面中输入职员资料,提交保存到数据库db1的yezhu表中
查询、添加、修改和删除的代码如下
<%@language="vbscript"%>
<%Response.Expires=0%>
--#includefile="conn.asp"-->
<%functioniif(e)
ife=truethen
iif="checked"
endif
endfunction
%>
<%dimadd,owners,sex,tel,id,content,sql,rs
action=Request.QueryString("action")
id=Request("id")
owners=Request.Form("owners")
sex=Request.Form("sex")
content=Request.Form("content")
tel=Request.Form("tel")
add=Request.Form("add")
setRs=server.CreateObject("adodb.Recordset")
%>
<%
selectcaseaction
case"saveadd"
callshopadd()
case"savemodi"
callshopmodi()
case"del"
callshopdel()
case""
sql="select*fromyezhu"
rs.opensql,conn,1,3
%>
<%case"modi"
sql="select*fromyezhuwhereid="&Id
rs.opensql,conn,1,3%>
<%endselect%>
<%subshopadd()
sql="select*fromyezhuwhere1<>1"
rs.opensql,conn,1,3
rs.addnew
callshopupdate()
endsub
subshopmodi()
sql="select*fromyezhuwhereid="&Id
rs.opensql,conn,1,3
callshopupdate()
endsub
subshopdel()
sql="deletefromyezhuwhereid="&Id
conn.execute(sql)
response.Redirect("yezhuguan.asp")
endsub
subshopupdate()
rs("add")=add
rs("owners")=owners
rs("sex")=sex
rs("tel")=tel
rs("content")=content
rs.update
rs.close
response.Redirect("yezhuguan.asp")
endsub
%>
如下图
3.6费用管理
在费用管理模块提供费用查询添加、修改和删除业主费用资料的功能。
在职员管理页面上单击“添加职员”,可以连接到添加职员信息拦,在该页面中输入职员资料,提交保存到数据库db1的feiyongbiao表中。
查询、添加、修改和删除的代码如下
<%@language="vbscript"%>
<%Response.Expires=0%>
--#includefile="conn.asp"-->
<%dimadd,wages,mtcs,shoushi,cainuan,wuguan,id,sum,sql,rs
action=Request.QueryString("action")
id=Request("id")
add=Request.Form("add")
mtcs=Request.Form("mtcs")
shoushi=Request.Form("shoushi")
cainuan=Request.Form("cainuan")
wuguan=Request.Form("wuguan")
setRs=server.CreateObject("adodb.Recordset")
setsum=Conn.Execute("SELECT*FROMfeiyongbiao")
%>
<%
selectcaseaction
case"saveadd"
callshopadd()
case"savemodi"
callshopmodi()
case"del"
callshopdel()
case""
sql="select*fromfeiyongbiao"
rs.opensql,conn,1,3
%>
<%case"modi"
sql="select*fromfeiyongbiaowhereid="&id
rs.opensql,conn,1,3%>
<%endselect%>
<%subshopadd()
sql="select*fromfeiyongbiaowhere1<>1"
rs.opensql,conn,1,3
rs.addnew
callshopupdate()
endsub
subshopmodi()
sql="select*fromfeiyongbiaowhereid="&Id
rs.opensql,conn,1,3
callshopupdate()
endsub
subshopdel()
sql="deletefromfeiyongbiaowhereid="&Id
conn.execute(sql)
response.Redirect("feiyongguan.asp")
endsub
subshopupdate()
rs("add")=add
rs("mtcs")=mtcs
rs("shoushi")=shoushi
rs("cainuan")=cainuan
rs("wuguan")=wuguan
rs.update
rs.close
response.Redirect("feiyongguan.asp")
endsub
%>
如下图所示:
3.7页主留言
页主留言是前台的一张动态页面,主要是提供业主留言与查询留言
留言主要通过页面bookwrite.asp和save.asp来实现。
用户在页面bookwrite.asp中输入留言主题和内容等信息。
然后提交给save,asp文件进行处理,所提交到留言信息将保存到liuyanbiao表中。
Save.asp代码如下:
%@language="VBScript"%>
--#includefile="conn.