物业管理系统毕业设计范例

1、物业管理系统学 院专 业班 级学 号姓 名指导教师教师职称 摘要【摘要】经过十几年的发展，中国房地产业逐步走向成熟，物业管理也由新生到发展再到深入，面临 着蓬勃发展的局面。随着 IS09002等管理体系在物业管理中的引入，对原有的物业管理模式进行 了一次深刻的变革， 对物业管理公司朝着正规化、科学化、集团化的发展，起到有力的推动作用。随着我国经济发展和城市开发，住宅小区越来越成为居住的主流，小区物业管理是针对当代 社会这一市场需要应运而生的。本系统是为住宅小区物业管理部门日常管理工作信息化，规化而 开发的软件。它以物业管理部门为服务中心，以业主（住户）为服务对象。通过实施各种服务项 目，全面地

2、反映了在小区物业经营管理活动中，物业部门与业主之间各种业务往来。使各项业务 的办理迅速、准确，极大的提高了小区物业管理的工作效率。【关键词】物业管理系统目录摘要 2目录 30引言 11 需求分析 12 总体设计 12.1 项目规划 12.2 系统功能结构 23 系统设计 33.1 开发及运行环境 33.2数据库设计 34主要功能模块设计 34.1 程序主界面的设计 34.2系统登录界面设计 74.3 小区信息生成设计 104.4业主信息登记设计 114.5 小区资源统计设计 174.6 权限设置设计 21附录A参考文献 25附录B数据表 26附录C文件架构 280引言由于物业管理涉及的管理围较

3、为广泛，管理容繁杂，加上政策性的变动因素，日常工作需要 耗费大量人力和物力，而采取现代化电脑管理手段是一种行之有效的解决方法，用计算机操作的 小区物业管理系统是为小区管理者和小区用户更好的维护各项物业管理业务处理工作而开发的 管理软件。电脑化管理在物业管理中的作用主要体现在：适用面广、可同时管理多个管理区和多栋大楼；计算机完整的工程档案与服务档案可以使管理人员随时了解最新的情况，更可以规维护、服 务标准，帮助管理人员合理安排工作时间。计算机管理收费，灵活性、准确性大大提高。强大的查询功能，最大限度地满足您的需要。1需求分析根据该物业的具体情况，系统主要的功能包括：经营部：“小区信息生成”、“大

4、楼信息生成”、“房屋信息生成”、“小区信息登记”、“大 楼信息登记”、“房屋信息登记”、“系统数据设定”。管理部：“业主信息登记”、“人口信息查询”、“小区投诉登记”、“小区投诉查询”、“小 区员工管理”、“系统数据设定”。工程部：“装修队登记”、“维修信息登记”、“维修信息查询”、“装修信息登记”、“装修 信息查询”。财务部：“收费登记管理”、“水费查询管理”、“电费查询管理”、“煤气费查询管理”、“采 暖费查询管理”、“其它费用查询管理”。保安部：“保安排班管理”、“保安排班查询”。经理部:“小区资源统计”、“业主信息查询”、“人口信息查询”、“小区投诉查询”、“小 区员工查询”、“装修信

5、息查询”、“维修信息查询”、“保安排班查询”。系统管理：“操作员管理”、“权限设置”、“背景设置”。2总体设计2.1 项目规划物业管理系统是一个典型的数据库管理系统，系统由基本信息设置、货物托运管理、信息查 询、报表管理、系统管理等模块组成，规划系统功能模块如下：经营部经营部：大区信息生成、大楼信息生成、房屋信息生成、小区信息登记、大楼信息登记、房 屋信息登记、系统数据设定、退出。管理部管理部：业主信息登记、人口信息查询、小区投诉登记、小区投诉查询、小区员工管理、系 统数据设定。财务部财务部：收费登记管理、水费查询管理、电费查询管理、煤气费查询管理、采暧费查询管理、 其它费用查询管理。保安部保

6、安排班管理、保安排班查询。经理室小区资源统计、业主信息查询、人口信息查询、小区投诉查询、小区员工查询、维修信息查 询、装修信息查询、保安排班查询。系统管理系统管理：操作员管理、权限设置、背景设置。帮助帮助：帮助、关于本软件。2.2 系统功能结构本系统共分7大部分、37个完整的功能模块。系统结构图如图1所示。物业昔理系统收费登记管輕水费査询管理一障窃111管理1 - S- r rn 3J - 一煤费查词采暖费查词苴它费用杳一询隔设设範营部工程部财务部莒理部|保空部|经理室业主信息登记人口信M萱询-小区投诉登TE缶投诉萱询小Effl工肯邂小医费憑统计业主信息查询人口僧息查询H诉劭询小1 萱询装修信

7、息查询维修倍息査询保妄排班萱询丨丨 I IrHI I 丨 1 I图i物业管理系统结构图3本系统将信息技术与传统物业管理相结合，轻松解决物业管理公司发展中遇到的诸多问 题，力推物业管理公司健康、快速地发展。本系统在设计的时候应该满足以下几个目标：系统最大限度地实现了易安装性、易维护性和易操作性。系统运行稳定、安全可靠。软件结构清晰，功能一目了然。方便、快捷的全方位查询。操作员可以随时修改自己的口令。 不同的操作员具有不同的操作权限。 数据性强，为每个用户设置权限级别。3系统设计3.1 开发及运行环境系统开发平台：Microsoft Visual FoxPro 6.0。运行平台： Win dows

8、 XP/ Win dows 2000/ Win dows 2003分辨率：最佳效果 1024 X 768像素3.2数据库设计1 数据库概要说明本系统采用的是 Visual FoxPro自带的数据库，系统数据库名为DataBase。限于篇幅所限，下面只给出重要数据表的表结构。数据库“ Wuyemanag6中包含26个表：部门信息表Tabbminfo、采暖费表 Tabcnmoney、电费表 Tabdianmoney、大楼信息表 Tabdlinfo 、房 间结构表 Tabfjstructure 、朝向表Tabfrontage、房屋信息表 Tabfwinfo、房屋统计表 Tabfwtj、工种信息 表T

9、abgzinfo、科目设定表 Tabkmsd、煤气费表 Tabmqmoney其它费用表 Tabothermoney、排班 表Tabpb、权限表 Tabpurview、权属类型表 Tabqstype、人口信息表 Tabrkinfo、人口统计表 Tabrktj、水费表Tabsmoney、投诉信息表 Tabtsinfo、投拆统计表 Tabtstj、维修信息表 Tabwxinfo、 小区信息表 Tabxqinfo、员工信息表Tabyginfo、业主信息表Tabyzinfo、装修队信息表Tabzxgroup、装修信息表 Tabzxinfo 。2 .主要数据表的结构数据库中的数据表请参见附录B。4主要功能

10、模块设计4.1 程序主界面的设计程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面的设计。通过程序 主界面可以执行相应权限的操作，并且可以通过选择主界面菜单或按钮，调用相应程序，进 行相应操作。程序主界面的运行结果如图 2所示。图2程序主界面的运行结果1 .表单设计(1) 新建一个项目，名称为物业管理系统，在该项目中添加一个新表单，命名为Fdesktop。(2) 在表单中插入名称为Vcxmain的ToolBar类、Image控件、listview 控件、imagelist 控件、Timer控件。(3) 重要控件的重要属性如表2所示。表2重要属性及值对象属性值VcxmainLockSc

11、reenFalseVcxmainMovableFalseVcxmainSizeableFalseTimerInterVal102 类代码设计在类的In it事件中添加以下代码:public bz&定义全局变量bz=.f.this .l istview1.view=2&设置视图显示方式小区信息生成,1) 大楼信息生成,1) 房屋信息生成,1) 小区信息登记,1) 大楼信息登记,1)&添加列表项=this.listview1.listitems.add(,=this.listview1.listitems.add(,=this.listview1.listitems.add(,=this.list

12、view1.listitems.add(,=this.listview1.listitems.add(,=this.listview1.listitems.add(,房屋信息登记,1)=this.listview1.listitems.add(,系统数据设定,1)单击快捷工具条上的“经营部”按钮，将在左侧的List功能选项由图标和标识性文字组成。具体代码如下：列表中显示经营部各功能选项。各在“经营部”按钮的 Click事件中添加以下代码:this.parent.listviewl.listltems.clear &清除数据this.parent.listview1.view=2 &设置视图显示

13、方式*将ImageList控件图片赋予 Listview 控件=this.parent .l istview1.listitems.add(,=this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1

14、.listitems.add(,小区信息生成,1) 大楼信息生成,1) 房屋信息生成,1) 小区信息登记,1) 大楼信息登记,1) 房屋信息登记,1) 系统数据设定,1)在“管理部”按钮的 Click事件中添加以下代码:this.parent .l istview1.view=2=this.parent .l istview1.listitems.add(,=this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add

15、(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(,业主信息登记,2) 人口信息查询,2) 小区投诉登记,2) 小区投诉查询,2) 小区员工管理,2) 系统数据设定,2)pjyb=.t.在“工程部”按钮的 Click事件中添加以下代码:this.parent .l istview1.view=2=this.parent .l istview1.listitems.add(,=this.parent .l istview1.listitems.add(, =this.parent

16、.l istview1.listitems.add(, =this.parent .l istview1.listitems.add(, =this.parent .l istview1.listitems.add(,装修队登记,3)维修信息登记,3)维修信息查询,3)装修信息登记,3)装修信息查询,3)pjyb=.t.在“财务部”按钮的 Click事件中添加以下代码:this.parent .l istview1.view=2=this.parent.listview1.listitems.add（,收费登记管理,4）=this.parent.listview1.listitems.add（

17、,水费查询管理,4）=this.parent.listview1.listitems.add（,电费查询管理,4）=this.parent.listview1.listitems.add（,煤气费查询管理,4）=this.parent.listview1.listitems.add（,采暖费查询管理,4）=this.parent.listview1.listitems.add（,其它费用查询管理,4）pjyb=.t.在“保安部”按钮的 Click事件中添加以下代码：this.parent .l istview1.view=2=this.parent.listview1.listitems.ad

18、d（,保安排班管理,5）=this.parent.listview1.listitems.add（,保安排班查询,5）pjyb=.t.在“经理室”按钮的 Click事件中添加以下代码：this.parent .l istview1.view=2=this.parent.listview1.listitems.add（,小区资源统计,6)=this.parent.listview1.listitems.add（,业主信息查询,6)=this.parent.listview1.listitems.add（,人口信息查询,6)=this.parent.listview1.listitems.add（

19、,小区投诉查询,6)=this.parent.listview1.listitems.add（,小区员工查询,6)=this.parent.listview1.listitems.add（,装修信息查询,6)=this.parent.listview1.listitems.add（,维修信息查询,6)=this.parent.listview1.listitems.add（,保安排班查询,6)pjyb=.t.在“系统管理”按钮的 Click事件中添加以下代码：this.parent .l istview1.view=2this.parent .l istview1.lcons=this.par

20、ent.imagelist1.object this.parent .l istview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.listitems.add（,操作员管理,7）=this.parent.listview1.listitems.add（,权限设置,7）pjyb=.t.在“帮助”按钮的 Click事件中添加以下代码：this.parent .l istview1.view=2=this.parent.listview1.listitems.add（,帮助,8）=this.parent.list

21、view1.listitems.add（,关于本软件,8）pjyb=.t.在“退出”按钮的 Click事件中添加以下代码：quit & 退出主程序在控件image1的Click事件中添加以下代码：mdl.filter=图片 |*.bmp;*.jpg&设置文件类型为.BMP或 JPGmdl.showopen &显示打开对话框this.parent.rq.image2.picture=mdl.filename &显示选定文件的名字4.2 系统登录界面设计用户进入系统前，必须通过系统登录进入程序主界面，通过系统登录界面可以对用户的身份 及使用权限进行确认。系统登录表单运行结果如图3所示。1 .表单设

22、计(1) 在物业管理系统的项目中，新建一个表单，命名为 Admin。(2) 在表单中添加 ImageList 控件、Image控件、ListView 控件、ImageList 控件、Text 控件、Label 控件、Commandgroup控件。(3) 重要控件属性如表 3所示。表3重要控件的重要属性及值控件名属性值功能Text1PasswordChar*提供密码输入2 代码设计，将自动退出系统。定义全局变量cn，用来判断输入操作员或密码的次数，当cn大于3在List列表中显示所有的操作员和代表其权限级别的图标。在表单的In it事件中添加以下代码：public &定义全局变量cn=O & 给

23、全局变量赋初值thisform.listview1.view=0 &设置视图显示方式select tabpurview & 选定 Tabpurview 工作区为当前工作区select *;from wuyemanage!tabpurview;where权限级别=1;order by tabpurview. 操作员; into cursor sysgly thisform.text2.value=sysgly. 操作员 thisform.text1.value= key=alltrim(sysgly. 操作员)& 赋值给变量 key添加一个列表项=thisform.l istview1.list

24、items.add(,key,1)& select tabpurview select *;from wuyemanage!tabpurview;where权限级别=2;order by tabpurview.操作员；into cursor gjczydo while !EOF() &测试当前记录指针是否在文件尾key=alltrim(gjczy.操作员）=thisfor m.l istview1.listitems.add(,key,2)&记录指针向下移动一条记录添加一个列表项skip&enddoselect tabpurviewselect *;from wuyemanage!tabpur

25、view; where权限级别=3;order by tabpurview.操作员；into cursor ybczydo while !EOF() &测试当前记录指针是否在文件尾key=alltrim(ybczy.操作员）=thisform.l istview1.listitems.add(,key,3)&添加一个列表项skip &记录指针向下移动一条记录enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where权限级别=4：order by tabpurview. 操作员;into cursor zdydo while !

26、EOF() &测试当前记录指针是否在文件尾key=alltrim(zdy. 操作员)=thisform.listview1.listitems.add(,key,4) &添加一个列表项skip & 记录指针向下移动一条记录enddoResize程序员将反复使用的代码存到了Resize事件中，将该事件当做一个过程来调用。在本程序中并没有什么实际意义。在表单的Resize事件中添加以下代码：purview=val(alltrim(tabpurview.权限级另U )pjyb=tabpurview. 经营部pglb=tabpurview. 管理部pgcb=tabpurview.工程部pcwb=tab

27、purview.财务部pbab=tabpurview.保安部pjls=tabpurview. 经理室 psysgl=tabpurview. 系统管理 manager=alltrim(thisform.text2.value) do form formfdesktop &调入表单 fdesktopthisform.release &刷新表单单击“登录”按钮，系统将判断密码是否正确。如果密码不正确，将提示重新输入，三次后 仍不正确，系统将自动退出。在“登录”按钮的Click事件中添加以下代码：select tabpurviewcname=alltrim(thisform.text2.value)

28、ppassword=alltrim(thisform.text1.value) set order to 操作员 & 指定控制索引文件 if empty(操作员)&判断操作员字段是否为空thisform.resize &执行表单的 Resize 事件store .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl &给多个存变量赋予相同的值else seekame &查找输入的操作员 set exact on &设置字符精确比较if alltrim(tabpurview.密码)!=ppasswordcn=cn+1 cmessagetitle=系统登录cmessa

29、getext= 密码错误，请重新输入！ ndialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do casecase nanswer=6thisform.text1.value=thisform.text1.setfocus &文本框获得焦点case nanswer=7messagebox(不要乱来！ ,48,系统登录)thisform.release &释放表单endcaseif=3thisform.releaseendifelsethisform.resize &执行表单的 Resize 事件en

30、difendifI set exact off &设置字符非精确比较在“取消”按钮的 Click事件中添加以下代码：quit & 退出在控件listview1 的ItemClick 事件中添加以下代码：manager=alltrim(thisfor m.l istview1.selecteditem.text)thisform.text2.value=managerthisform.text1.setfocus &文本框获得焦点4.3 小区信息生成设计用户单击快捷工具栏上的“经营部”按钮，在弹出的功能列表项中选择“小区信息生成”选 项，进入小区信息生成界面。通过小区信息生成模块可进行小区区域数

31、量的生成。小区信息生成 运行结果如图4所示。图4小区信息生成表单运行结果1 .表单设计(1) 在物业管理系统的项目中，新建一个表单，命名为为“小区信息生成”。(2) 在表单中添加 Label控件、Spinner控件、Commandgroup控件、Shape控件。(3) 重要控件的重要属性如表 4所示。表4重要控件的重要属性及值对象属性值LabelAutoSizeTrueShapeBorderStyle1-实线（默认值）ShapeSpecialEffect0-3维2 代码设计单击开始生成”按钮，将自动生成小区基本信息保存到小区信息表Tabxqinfo ”中。小 区编号区域由微调框所指定。如果数据

32、表中有该小区编号，将不被生成。保存完毕，调入“小区 信息登记”表单，进行小区详细信息的添加。具体代码如下：s=alltrim(str(cstart)e=alltrim(str(cend)cpicture=sys(5)+sys(2003)+imagesemptyimage.bmpcmessagetitle=小区信息生成cmessagetext=确认生成编号为+s+至+e+的小区信息吗？nAnswer=messagebox(cmessagetext, 4+32,cmessagetitle)do casecase nAnswer=6i=1for i=cstart to cendxqno=alltri

33、m(str(i)select *;from wygldatabasewuyemanage!tabxqinfo;where小区编号=xqno;into cursor lindepif reccount()=0insert into tabxqinfovalues(xqno,0,0,0,0,0,0,”,cpicture,ctod(),ctod(”)endifendformessagebox(数据保存成功！,48,小区信息生成)thisform.release小区信息登记 &调入表单case nAnswer=7endcase4.4 业主信息登记设计用户进入系统后，单击主界面“管理部”按钮，在弹出的功

34、能选项表中选择“业主信息登记” 选项，进入业主信息登记界面。通过业主信息登记界面可以实现添加、修改、删除、业主信息， 可以通过查询方式浏览业主信息及用户单击相应的业主代号选项，再单击修改业主信息按钮或添 加新业主按钮可直接调用业主信息界面。业主信息登记运行结果如图所示。-|L|x|业主信息昱记芫I尼国辽EU11ETfflKT211 TJESxLitmi ffTJtSrannc丈移右聆；JiTUKflnvr?mjunLT廉屋浒；业主弋号址主牲afSL戦崔虬遇tt古兀1ErtdSMtsi好市监*1街35S4叶区壬書市蛊晅3334la丁芷画沆町无泊酣4-Iim且：怎:L /示尺JrfFFF 广显乔莉

35、if IT冊干呈音巧童讦孑日EH帼如主蔣js lit圭|退出业也iar. |图5业主信息登记表单运行结果1 .表单设计（1）在物业管理系统的项目中，新建一个表单，包含 Forml、Form2、Form3、Form4的表 单集，名称为“业主信息登记”。（2 ）在 Forml 表单中添加 Label、Combo控 件、Text 控件、Grid 控件、List 控件、Comma nd 控件、Commandgroup控件、Optiogroup 控件、Date and Time Picker 控件、Edit 控件。（3）重要控件属性如表 5所示。表5重要控件的重要属性及值控件名属性值功能Form1.Co

36、mbo1RowSourceRowSourceTypetabxqinfo.小区名称6-字段提供小区列表Form1.Grid1ColumnCount1提供大楼列表Form1.Grid3ColumnCountRecordSource21 tabyzinfo提供业主信息列表Form1.List1ColumnCountColumnWidthsRowSourceType290,706-字段提供房屋列表Form3.Combo2RowSourceRowSourceType已进住,未进住1-值提供是否进住列表Form3.Grid1ColumnCountRecordSource27 tabrkinfo提供家庭员列

37、表2 代码设计在Forml表单的“添加新业主”按钮的 Click事件中添加以下代码：yxq=alltrim(bo1.displayvalue)ydl=alltrim(thisform.text1.value)yfw=alltrim(thisform.text2.value)if empty(yxq) or empty(ydl) or empty(yfw)messagebox(请选择小区名称、大楼名称和房屋编号！,48,操作失败)elseselect tabyzinfolocate for 购入房编号=yfw &顺序查询if found()messagebox(此房屋已住人！,48,业主信息登记

38、)elsethisform.parent.form3.visible=.t. &显示表单lfjno=len(yxq)+len(ydl)+1fjno=substr(yfw,lfjno)thisform.parent.form3.text1.value=yxqthisform.parent.form3.text2.value=ydlthisform.parent.form3.text3.value=fjnothisform.parent.form3.text4.value=yfwthisform.parent.form3.text5.value=yfwstore to thisform.paren

39、t.form3.text6.value,thisform.parent.form3.text7.value,; thisform.parent.form3.text8.value,thisform.parent.form3.text9.value,; thisform.parent.form3.text10.value,thisform.parent.form3.text11.value,; thisform.parent.form3.text12.value,thisform.parent.form3.text13.value,; thisform.parent.form3.text14.v

40、alue,bo1.value,; bo2.value,bo3.value thisform.parent.form3.grid1.recordsource= thisform.parent.form3.text5.setfocus &Text5获得焦点endifendif在Form1表单的“修改业主信息”按钮的 Click事件中添加以下代码:cvalue=alltrim(thisform.text3.value)if !empty(cvalue)thisform.parent.form3.visible=.t.public yzdh &定义全局变量yzdh=alltrim(thisform.t

41、ext3.value)select *;from wuyemanage!tabyzinfo;where业主代号=yzdh;into cursor lxgyzinfo小区名 &此处省略了给业主信息赋值的代码(如： thisform.parent.form3.text1.value=lxgyzinfo. 称)select *;from wuyemanage!tabrkinfo;where 房间编号=alltrim(thisform.parent.form3.text4.value);order by 人口编号；into cursor lincythisform.parent.form3.grid1

42、.recordsource=lincy &赋数据源thisform.parent.form3.text5.setfocus&Text5获得焦点elsemessagebox(请选择业主代号！ ,48,业主信息登记)endif在 Forml表单的“删除业主信息”按钮的 Click事件中添加以下代码：yzno=alltrim(thisform.text3.value) cmessagetitle=业主信息登记cmessagetext=确定要删除吗？ ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)i

43、f nAnswer=6select tabyzinfouseuse wygl/database/tabyzinfo exclusive &以独占的方式打开数据表dele from tabyzinfo where业主代号=yzno & 逻辑删除dele from tabyzinfo where empty(业主代号)pack & 物理删除update wuyemanage!tabfwinfo set 房主代号=, 房主=, 是否空闲 =.t., 房屋状态=空闲;where房主代号=yzno & 更新数据表messagebox(删除完毕,48,操作成功！)use wygldatabasetabyz

44、eractivechange &执行Optiongroupl 的Interactionchange 事件thisform.text3.value=thisform.refreshendif在Forml表单的textl控件的Click事件中添加以下代码:thisfor m.l ist1.controlsource=thisform.list1.rowsource=thisform.text2.value=thisform.text1.value=alltrim(thisform.grid1.column1.text1.value)dlna

45、me=alltrim(thisform.text1.value)select *;from wygldatabasetabfwinfo;where 大楼名称=dlname;into cursor lindepthisform.grid3.recordsource=thisform.list1.controlsource=lindep &赋数据源thisform.list1.rowsource= 房间编号，房主&赋数据值的源 eractivechange &执行 Optiongroup1 的 Interactivechange 事件thisfor

46、m.text2.value=alltrim(thisfor m.l ist1.value) thisform.refresh在 Form1表单的optiongroup1选项按钮组的InteractiveChange事件中添加以下代码：do casecase thisform.optiongroup1.option1.value=1select *;from wuyemanage!tabyzinfo;where大楼名称=alltrim(thisform.text1.value);into cursor linallthisform.grid3.recordsource=linall &赋数据源c

47、ase thisform.optiongroup1.option2.value=1select *;from wuyemanage!tabyzinfo;where是否进住=已进住and 大楼名称=alltrim(thisform.text1.value);into cursor linythisform.grid3.recordsource=li ny &赋数据源case thisform.optiongroup1.option3.value=1select *;from wuyemanage!tabyzinfo;where是否进住=未进住and 大楼名称=alltrim(thisform.t

48、ext1.value);into cursor linwthisform.grid3.recordsource=linw单击“确定保存业主信息”按钮，将查找业主信息表“Tabyzinfo ”中是否有该业主代号，如果没有，则将信息保存到业主信息表“Tabyzinfo ”和人口信息表“ Tabrkinfo ”中，并修改房屋信息表“Tabfwinfo ”中的相关数据。如果有，则修改“Tabyzinfo 、“Tabrkinfo 和Tabfwinfo ” 中相关数据。系统将自动生成七位的人口编号(如“RK00007)。具体代码如下：在Form3表单的“确定保存业主信息”按钮的Clic.事件中添加以下代码

49、：yzdh=alltrim(thisform.text5.value) yzname=alltrim(thisform.text6.value) sex=alltrim(bo1.displayvalue) lxdz=alltrim(thisform.text11.value) sj=alltrim(thisform.text7.value) tel=alltrim(thisform.text9.value) workdw=alltrim(thisform.text14.value) dwtel=alltrim(thisform.text13.value)zjname=alltrim(bo3.d

50、isplayvalue)zjnumber=alltrim(thisform.text12.value) sfjz=alltrim(bo2.displayvalue) gfhtno=alltrim(thisform.text10.value) glxysno=alltrim(thisform.text8.value) fwno=alltrim(thisform.text4.value)xqname=alltrim(thisform.text1.value)dlname=alltrim(thisform.text2.value) fjno=alltrim(thisform.text3.value)

51、 if sfjz= 已进住fwzt=入住elsefwzt=签约endifselect tabrkinfoif empty(人口编号)rknumber=alltrim(RK00001)elseselect max( 人口编号)from tabrkinfo into array a &查找表中最大的人口编号存入数组cend=val(substr(a(1),3)+1 rknumber=alltrim(RK+padl(alltrim(str(cend,5),5,0)endifif empty(yzname) or empty(gfhtno) or empty(glxysno) or ;empty(zjnumber) or empty(zjname) or (empty(tel) and empty(sj) messagebox(请将信息添全！,48,操作失败)elseselect tabyzinfolocate for业主代号=yzdh &顺序查询if !found()insert into tabyzinfo values(yzdh,yzname,sex,lxd z, sj,tel,workdw,dwtel,zjname,zjnumber,; date1,date3,date2,date4,sfjz,gfhtno,glxysno,fwno,xqname,dlnam