1、光明物业管理系统开发文档 一系统分析: 1开发背景近几年来我国市场经济的快速发展和人们生活水平的不断提高,随着生活水平的提高,人们越来越注重生活环境的质量,而物业的管理是其相称重要的一部分,简朴的社区服务已不能满足人们的需求。我们要努力运用先进的管理手段,提高物业管理水平,解决当今社会所面临的这个重要课题。要想提高物业管理水平,必须全方位地提高物业管理意识。只有高标准、高质量的社区服务才干满足人们的需求。面对信息时代的挑战,运用高科技手段来提高物业管理无疑是一条行之有效的途径。在某种意义上,信息与科技在物业管理与现代化建设中显现出越来越重要的地位。在物业管理方面运用现代化的信息技术手段和科学化
2、管理方法,已成为现代化生活水平步入高台阶的重大改善。 2需求分析社区管理是一件非常复杂的事情,由于管理面积大,户数多,物业管理范围广,管理内容繁杂,社区物业管理混乱的问题一直无法解决。社区物业管理中一项重要的工作是计算、汇总各项费用,由于费用项目较多,计算方法繁重,手工解决差错率较高。同时查询某房产资料或业主资料往往也需要较长时间,给物业管理者的工作带来了诸多弊端。因此,本物业公司决定采用计算机进行物业管理。根据本社区具体的情况,本系统在实行后,可以满足对社区人口、资源记录、社区投诉、装修、维修、保安进行管理,可以满足对水、电、气三表抄收、记录、还是、核算、各项费用记录汇总。本系统的实行为馨园
3、社区日后发展奠定了新的台阶。根据本物业的具体情况,系统重要的功能涉及:(1).经营部:涉及社区信息生成、大楼信息生成、房屋信息生成、社区信息登记、大楼信息登记、房屋信息登记、系统数据设定。(2).管理部:涉及业主信息登记、人口信息查询、社区投诉登记、社区投诉查询、社区员工管理、系统数据设定。(3).工程部:涉及装修队登记、维修信息登记、维修信息查询、装修信息登记、装修信息查询。(4).财务部:涉及收费登记管理、水费查询管理、电费查询管理、煤气费查询管理、采暖查询管理、其他费用查询管理。(5).保安部:涉及保安安排管理、保安排班查询。(6).经理部:涉及社区资源记录、业主信息查询、人口信息查询、
4、社区信息查询、社区员工查询、装修信息查询、维修信息查询、保安信息查询。(7).系统管理:涉及操作员管理、权限管理、背景管理。3实现目的 面对物业管理过程中出现的各种情况,物业管理系统在实行后,应可以达成以下目的:(1) 全面自动化信息管理,可随时掌握社区的情况。(2) 全方位的快速查询,提高工作效率。(3) 完整的工程及服务档案,提高财务工作效率。(4) 灵活准确的收费,提高财务工作效率。(5) 全面记录、汇总、分析,及时提供决定依据。物业公司领导可随时查阅社区最新信息的具体情况。(6) 系统内部控制严密,数据存储安全可靠。(7) 系统界面和谐美观,操作简朴易行。(8) 从用户需求、售后服务形
5、成了一套严密、科学、完善的管理体系。二.系统设计1. 业务流程图根据物业管理的特点和本社区的实际情况,物业管理系统流程图如图所示:房 屋 签 约业 主 入 住申 请 装 修物业公司填写收费告知单装 修交水电费、其他费用交采暖费告知业 主2系统结构图物 业 管 理 系 统经理室保安部系统管理经营部背景设立权限设立操作员管理保安排班查询保安排班管理系统数据设定社区信息生成房屋信息生成大楼信息生成社区信息登记大楼信息生成房屋信息生成保安排班查询维修信息查询装修信息查询社区员工查询社区投诉查询人口信息查询业主信息查询社区资源记录管理部工程部装修队登记维修信息登记维修信息查询装修信息登记装修信息查询业主
6、信息查询人口信息登记社区投诉登记社区投诉查询社区员工管理系统数据设定3数据库设计 根据本社区的业务情况,本系统采用了Foxpro数据库,数据库名为wuyemanage,涉及以下26个表即:部门信息表(Tabbminfo)、采暖费表(Tabcnmoney)、电费表(Tabdianmoney)、大楼信息表(Tabdinfo)、房间结构表(Tabfjstructure)、朝向表(Tabfrontage)、房屋信息表(Tabfwinfo)、房屋登记表(Tabfwtj)、工种信息表(Tabgzinfo) 、科目设定表(Tabkmsd)、煤气费表(Tabmqmoney)、其他费用表(Tabothermon
7、ey)、排班表(Tabpb)、权限表(Tabpurview)、权属类型表(Tabqstype)、人口信息表(Tabrkinfo)、人口登记表(Tabrktj)、水费表(Tabsmoney)、投诉信息表(Tabttsinfo)、投诉登记表(Tabtstj)、维修登记表(Tabwxinfo)、社区信息表(Tabxqinfo)、员工信息表(Tabyginfo)、业主信息表(Tabyzinfo)、装修队信息表(Tabzxgroup)、装修信息表(Tabzxinfo)。 六编码:1.建立一个项目管理器 (1).打开vf软件选择新建,然后选择项目,选择其保存位置途径为d:wygl物业管理系统.pjx。(2
8、).选择文档,建立一个新的表单,打开表单,进行编辑,即:软件欢迎界面,其名称为:光明物业管理系统,文献名为main.scx定义两个命令按钮,分别为:进入,代码为: release thisformdo form d:wyglformadmin退出代码为:release thisformquit然后,注上制作人、制作时间。这样,欢迎界面就作成了。2.主程序界面设计在项目管理器中创建一新表单名为Fdesktop。在表单中插入名称为Vcxmain 的toolbar类。然后在Init事件中添加以下代码:public bz &定义全局变量bz=.f.this.listview1.view=2 &设立视图
9、显示方式 *将ImageList控件图片赋予Listview控件 this.listview1.Icons=this.imagelist1.objectthis.listview1.smallicons=this.imagelist1.object&添加列表项key=社区信息生成=this.listview1.listitems.add(,key,1)key=大楼信息生成=this.listview1.listitems.add(,key,1)key=房屋信息生成=this.listview1.listitems.add(,key,1)key=社区信息登记=this.listview1.lis
10、titems.add(,key,1)key=大楼信息登记=this.listview1.listitems.add(,key,1)key=房屋信息登记=this.listview1.listitems.add(,key,1)key=系统数据设定=this.listview1.listitems.add(,key,1)在“经营部”的click事件中添加代码为:this.parent.listview1.listItems.clear &清除数据this.parent.listview1.view=2 &设立视图显示方式*将ImageList控件图片赋予Listview控件this.parent.
11、listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object*添加数据项key=社区信息生成=this.parent.listview1.listitems.add(,key,1)key=大楼信息生成=this.parent.listview1.listitems.add(,key,1)key=房屋信息生成=this.parent.listview1.listitems.add(,key,1)key=社区信息登记=this.parent.li
12、stview1.listitems.add(,key,1)key=大楼信息登记=this.parent.listview1.listitems.add(,key,1)key=房屋信息登记=this.parent.listview1.listitems.add(,key,1)key=系统数据设定=this.parent.listview1.listitems.add(,key,1)在“管理部”的事件中添加以下代码为:this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icon
13、s=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=业主信息登记=this.parent.listview1.listitems.add(,key,2)key=人口信息查询=this.parent.listview1.listitems.add(,key,2)key=社区投诉登记=this.parent.listview1.listitems.add(,key,2)key=社区投诉查询=this.parent.listview1.listitems.ad
14、d(,key,2)key=社区员工管理=this.parent.listview1.listitems.add(,key,2)key=系统数据设定=this.parent.listview1.listitems.add(,key,2)pjyb=.t.在“工程部”上添加代码为:this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.pa
15、rent.imagelist1.objectkey=装修队登记=this.parent.listview1.listitems.add(,key,3)key=维修信息登记=this.parent.listview1.listitems.add(,key,3)key=维修信息查询=this.parent.listview1.listitems.add(,key,3)key=装修信息登记=this.parent.listview1.listitems.add(,key,3)key=装修信息查询=this.parent.listview1.listitems.add(,key,3)pjyb=.t.在
16、“财务部”添加代码为:this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=收费登记管理=this.parent.listview1.listitems.add(,key,4)key=水费查询管理=this.parent.listview1.listitems.add(,key
17、,4)key=电费查询管理=this.parent.listview1.listitems.add(,key,4)key=煤气费查询管理=this.parent.listview1.listitems.add(,key,4)key=采暖费查询管理=this.parent.listview1.listitems.add(,key,4)key=其它费用查询管理=this.parent.listview1.listitems.add(,key,4)pjyb=.t.在“保安部”添加代码为:这this.parent.listview1.listItems.clearthis.parent.listvie
18、w1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=保安排班管理=this.parent.listview1.listitems.add(,key,5)key=保安排班查询=this.parent.listview1.listitems.add(,key,5)pjyb=.t.在“经理室”添加代码为:this.parent.listview1.listItems.clearthis.pa
19、rent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=社区资源记录=this.parent.listview1.listitems.add(,key,6)key=业主信息查询=this.parent.listview1.listitems.add(,key,6)key=人口信息查询=this.parent.listview1.listitems.add(,key,
20、6)key=社区投诉查询=this.parent.listview1.listitems.add(,key,6)key=社区员工查询=this.parent.listview1.listitems.add(,key,6)key=装修信息查询=this.parent.listview1.listitems.add(,key,6)key=维修信息查询=this.parent.listview1.listitems.add(,key,6)key=保安排班查询=this.parent.listview1.listitems.add(,key,6)pjyb=.t.在“系统管理”中添加代码为:this.p
21、arent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=操作员管理=this.parent.listview1.listitems.add(,key,7)key=权限设立=this.parent.listview1.listitems.add(,key,7)pjyb=.t.在“帮助”中添加代
22、码为:this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.objectkey=帮助=this.parent.listview1.listitems.add(,key,8)key=关于本软件=this.parent.listview1.listitems.add(,key,8)pjyb=.t.在“
23、退出”中添加代码为:quit &退出主程序在Image1的Click事件中添加代码为:mdl.filter=图片|*.bmp;*.jpg &设立过滤器mdl.showopen &显示打开对话框this.parent.rq.image2.picture=mdl.filename &显示选定文献的名字3系统等录界面的设计在项目管理器中添加一个新的表单,名称为Admain在表单中添加一个ImageList 控件,并进行相应的管理员设立。在表单中添加一个Image控件,一个listview控件,一个ImageList控件,两个text控件,三个label控件,一个commandgroup控件。在表单中
24、的init事件中添加代码为:public cn &定义全局变量cn=0 &给全局变量赋初值thisform.listview1.view=0 &设立视图显示方式*将ImageList控件图片赋予Listview控件thisform.listview1.Icons=thisform.imagelist1.objectthisform.listview1.smallicons=thisform.imagelist1.objectselect tabpurview &选定tabpurview工作区为当前工作区select *;from wuyemanage!tabpurview;where 权限级别
25、=1;order by tabpurview.操作员姓名;into cursor sysglythisform.text2.value=sysgly.操作员姓名thisform.text1.value=key=alltrim(sysgly.操作员姓名) &赋值给变量key=thisform.listview1.listitems.add(,key,1) &添加一个列表项select tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=2;order by tabpurview.操作员姓名;into cursor gjczydo wh
26、ile !EOF() &测试当前记录指针是否在文献尾 key=alltrim(gjczy.操作员姓名) =thisform.listview1.listitems.add(,key,2) &添加一个列表项 skip &相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=3;order by tabpurview.操作员姓名;into cursor ybczydo while !EOF() &测试当前记录指针是否在文献尾 key=alltrim(ybczy.操作员姓名) =thisform.li
27、stview1.listitems.add(,key,3) &添加一个列表项 skip &相对移动记录指针enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别=4;order by tabpurview.操作员姓名;into cursor zdydo while !EOF() &测试当前记录指针是否在文献尾 key=alltrim(zdy.操作员姓名) =thisform.listview1.listitems.add(,key,4) &添加一个列表项 skip &相对移动记录指针enddo在表单的resize
28、事件中添加代码为:purview=val(alltrim(tabpurview.权限级别) &根据用户选择设立权限级别pjyb=tabpurview.经营部pglb=tabpurview.管理部pgcb=tabpurview.工程部pcwb=tabpurview.财务部pbab=tabpurview.保安部pjls=tabpurview.经理室psysgl=tabpurview.系统管理manager=alltrim(thisform.text2.value)do form formfdesktop &调入表单fdesktopthisform.release &刷新表单在等录的click事件中
29、添加代码为:if empty(操作员姓名) &判断操作员字段是否为空 thisform.resize &执行表单的Resize事件 store .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl &给多个内存变量赋予相同的值else seek cname &查找输入的操作员姓名 set exact on &设立字符精确比较*判断密码是否对的 if alltrim(tabpurview.密码)!=ppassword cn=cn+1 cmessagetitle=系统登录 cmessagetext=密码错误,请重新输入! ndialogtype=4+32 nansw
30、er=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value= thisform.text1.setfocus &文本框获得焦点 case nanswer=7 messagebox(不要乱来!,48,系统登录) thisform.release &释放表单 endcase if cn=3 thisform.release endif else thisform.resize &执行表单的Resize事件 endif endifset exact off &设立字
31、符非精确比较在取消的click事件中添加代码为:cmessagetitle=系统登录cmessagetext=真的想要退出吗?nDialogtype=4+32nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)if nanswer=6 quitendif在控件listview1中的itemclick事件中添加代码为:LPARAMETERS itemmanager=alltrim(thisform.listview1.selecteditem.text)thisform.text2.value=managerthisform.tex
32、t1.setfocus 这样,等录界面就完毕了。4经营部设计(1)在项目管理器中创建一个表单,名称为“社区信息生成”,在表单中添加3个label控件,2个spinner控件,1个commandgroup控件。在“开始生成”的click事件中添加代码为:cstart=thisform.spinner1.valuecend=thisform.spinner2.values=alltrim(str(cstart)e=alltrim(str(cend)cpicture=sys(5)+sys(2023)+imagesemptyimage.bmpcmessagetitle=社区信息生成cmessagete
33、xt=确认生成编号为 +s+至 +e+的社区信息吗?ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do case case nAnswer=6 i=1 for i=cstart to cend xqno=alltrim(str(i) select *; from databasewuyemanage!tabxqinfo; where 社区编号=xqno; into cursor lindep if reccount()=0*追加新记录 insert into tabxqinfo values(
34、xqno,0,0,0,0,0,0,cpicture,ctod(),ctod() endif endfor messagebox(数据保存成功!,48,社区信息生成) thisform.release do form form社区信息登记 &调入表单 case nAnswer=7 thisform.spinner1.setfocusendcase在“返回主系统”中的click事件中添加代码为:thisform.release &释放表单(2)在项目管理器中添加一个新的表单名称为“大楼信息生成器”,在表单中添加9个label控件,1个combo控件,2个spinner控件,4个text控件。说明:
35、其编法如(1)(3)在项目管理器中新建一个表单,名称为“房屋信息生成器”,在表单中添加13个label控件,6个combo控件,1个text控件,4个spinner控件,1个commandgroup控件,1个grid控件。说明:其编法如(1)(4)在项目管理器中添加一个新的表单集包含form1,gorm2,名称为“社区信息登记”。在form1表单中添加16个label控件,13个text控件,1个edit控件,2个commandgroup控件,1个common dialog控件,1个image控件,2个command控件,在form2表单中添加1个command控件,1个grid控件。在for
36、m1中的load事件中添加代码为:public l &定义全局变量l=.f.在form1中的activate事件中添加代码为:thisform.text1.value=tabxqinfo.社区编号 &赋值给Text1thisform.text2.value=tabxqinfo.社区名称thisform.text3.value=tabxqinfo.负责人thisform.text4.value=tabxqinfo.社区说明thisform.text5.value=tabxqinfo.交工日期thisform.text6.value=tabxqinfo.竣工日期thisform.text7.val
37、ue=tabxqinfo.地址thisform.text8.value=tabxqinfo.占地面积thisform.text9.value=tabxqinfo.建筑面积thisform.text10.value=tabxqinfo.绿化面积thisform.text11.value=tabxqinfo.居住面积thisform.text12.value=tabxqinfo.楼栋数thisform.text13.value=tabxqinfo.总户数thisform.edit1.value=tabxqinfo.备注thisform.container1.image1.picture=tabxq
38、info.照片thisform.refresh在form1中的init事件中添加代码为:store l to thisform.text1.enabled,thisform.text2.enabled,thisform.text3.enabled,; thisform.text4.enabled,thisform.text5.enabled,thisform.text6.enabled,; thisform.text7.enabled,thisform.text8.enabled,thisform.text9.enabled,; thisform.text10.enabled,thisform
39、.text11.enabled,thisform.text12.enabled,; thisform.text13.enabled,thisform.edit1.enabled,thisform.badd.enabled,; thisform.bclear.enabled &设立控件是否有效在form1中的“添加”click事件中添加代码为:if alltrim(mand1.caption)=添 加 mand1.caption=保 存 &赋值给Command1的标题文本 mand2.caption=取 消 mand3.enabled=.f. mand4.enabled=.f.*设立控件有效 l
40、=.t. thisform.init &执行表单的Init事件 store to thisform.text1.value,thisform.text2.value,thisform.text3.value,; thisform.text4.value,thisform.text7.value store / to thisform.text5.value,thisform.text6.value store 0 to thisform.text8.value,thisform.text9.value,thisform.text10.value,; thisform.text11.value,thisform.text12.value,thisform.text13.value thisform.edit1.value= thisform.container1.image1.picture=sys(5)+sys(2023)+imagesemptyimage.bmp thisform.text1.setfocuselse mand1.caption=添 加 &赋值给Command1的标题文本 mand2.caption=修 改 mand3.enabled=.t. mand