物业管理系统开发文档

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. 系统结构图3 数据库设计根据本小区的业务情况，本系统采用了Foxpro数据库，数据库名为 wuyemanage,包括以下26个表即：_部门信息表(Tabbminfo )、采暖费表(Tabcnmoney)、电费表(Tabdianmoney)、大楼信息表(Tabdinfo )、房间结构表(Tabfjstructure)、朝向表(Tabfrontage)、房屋信息表(Tabfwinfo)、房 屋统计表(Tabfwtj)、工种信息表(Tab

6、gzinfo)、科目设定表(Tabkmsd)、煤气费表(Tabmqmoney)、 其他费用表(Tabothermoney)、排班表(Tabpb卜权限表(Tabpurview)、权属类型表(Tabqstype)、 人口信息表(Tabrkinfo)、人口统计表(Tabrktj)、水费表(Tabsmoney)、投诉信息表(Tabttsinfo)、 投诉统计表(Tabtstj)、维修 统计表(Tabwxinfo)、小区 信息表(Tabxqinfo)、员工 信息表(Tabyginfo) 、业主信息表 (Tabyzinfo) 、装修队信息表 (Tabzxgroup) 、装修信息表 (Tabzxinfo)

7、。六编码：1.建立一个项目管理器(1).打开 vf 软件选择新建，然后选择项目， 选择其保存位置路径为物业管理系统 .pjx。(2).选择文档，建立一个新的表单，打开表单，进行编辑，即：软件欢迎界面，其名称为： 物业管理系统 ，文件名为 main.scx 定义两个命令按钮，分别为：进入，代码为：release thisformdo form d:wyglformadmin退出代码为：release thisformquit然后，注上制作人、制作时间。 这样，欢迎界面就作成了。2.主程序界面设计 在项目管理器中创立一新表单名为 然后在 Init 事件中添加以下代码：Fdesktop 。在表单中插

8、入名称为 Vcxmain 的 toolbar 类。public bz bz=.f. this.listview1.view=2* 将 ImageList 控件图片赋予 Listview 控件 this.listview1.Icons=this.imagelist1.object this.listview1.smallicons=this.imagelist1.object && 添加列表项 key=' 小区信息生成 ' =this.listview1.listitems.add(,key,1) key=' 大楼信息生成 ' =this.list

9、view1.listitems.add(,key,1) key=' 房屋信息生成 ' =this.listview1.listitems.add(,key,1) key=' 小区信息登记 ' =this.listview1.listitems.add(,key,1) key=' 大楼信息登记 ' =this.listview1.listitems.add(,key,1) key=' 房屋信息登记 ' =this.listview1.listitems.add(,key,1) key=' 系统数据设定 ' =this

10、.listview1.listitems.add(,key,1) 在“经营部”的 click 事件中添加代码为：&& 定义全局变量&& 设置视图显示方式this.parent.listview1.listItems.clearthis.parent.listview1.view=2* 将 ImageList 控件图片赋予 Listview 控件&& 清除数据&& 设置视图显示方式this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview

11、1.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.listview1.listite

12、ms.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.clear this.parent.listview1.view=2

13、 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object key=' 业主信息登记 ' =this.parent.listview1.listitems.add(,key,2) key=' 人口信息查询 ' =this.parent.listview1.listitems.add(,key,2) key=' 小区投诉登记 ' =this.parent.listvi

14、ew1.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.add(,key,2) pjyb=.t.在“工程部”上添加代码为： this.parent.listview1.listItems.clear this.paren

15、t.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object key=' 装修队登记 ' =this.parent.listview1.listitems.add(,key,3) key=' 维修信息登记 ' =this.parent.listview1.listitems.add(,key,3) key=' 维修信息查询 ' =t

16、his.parent.listview1.listitems.add(,key,3) key=' 装修信息登记 ' =this.parent.listview1.listitems.add(,key,3) key=' 装修信息查询 ' =this.parent.listview1.listitems.add(,key,3) pjyb=.t.在“财务部”添加代码为： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this.

17、parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object 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='

18、; 煤气费查询管理 ' =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.clear this.parent.listview1.view=2 this.parent

19、.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object key=' 保安排班管理 ' =this.parent.listview1.listitems.add(,key,5) key=' 保安排班查询 '=this.parent.listview1.listitems.add(,key,5)pjyb=.t. 在“经理室”添加代码为： this.parent.listview1.listItems.cl

20、ear this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object key=' 小区资源统计 '=this.parent.listview1.listitems.add(,key,6)key=' 业主信息查询 ' =this.parent.listview1.listitems.add(,key,6) key=' 人口

21、信息查询 '=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.l

22、istitems.add(,key,6)key=' 保安排班查询 '=this.parent.listview1.listitems.add(,key,6) pjyb=.t.在“系统管理”中添加代码为： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object ke

23、y=' 操作员管理 '=this.parent.listview1.listitems.add(,key,7)key=' 权限设置 '=this.parent.listview1.listitems.add(,key,7)pjyb=.t. 在“帮助”中添加代码为： this.parent.listview1.listItems.clear this.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.small

24、icons=this.parent.imagelist1.objectkey='帮助'=this.parent.listview1.listitems.add(,key,8)key='关于本软件=this.parent.listview1.listitems.add(,key,8)pjyb=.t. 在“退出”中添加代码为： quit && 退出主程序 在 Image1 的 Click 事件中添加代码为： mdl.filter=' 图片 |*.bmp;*.jpg'&& 设置过滤器mdl.showopen&&

25、显示打开对话框this.parent.rq.image2.picture=mdl.filename && 显示选定文件的名字3系统等录界面的设计在项目管理器中添加一个新的表单，名称为 Admain 在表单中添加一个 ImageList 控件，并进行相应的管理员设置。 在表单中添加一个 Image 控件，一个 listview 控件，一个 ImageList 控件，两个 text 控件， 三个 label 控件，一个 commandgroup 控件。在表单中的 init 事件中添加代码为：public cncn=0thisform.listview1.view=0&&am

26、p; 定义全局变量&& 给全局变量赋初值&& 设置视图显示方式select tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别 ='1'order by tabpurview. 操作员姓名 ;into cursor sysgly thisform.text2.value=sysgly. 操作员姓名 thisform.text1.value='' key=alltrim(sysgly. 操作员姓名 ) =thisform.listview1.listitems.add(,

27、key,1) select tabpurview select *;from wuyemanage!tabpurview;where 权限级别 ='2'order by tabpurview. 操作员姓名 ;into cursor gjczydo while !EOF() key=alltrim(gjczy. 操作员姓名 ) =thisform.listview1.listitems.add(,key,2) skipenddo&& 选定 tabpurview 工作区为当前工作区&& 赋值给变量 key&& 添加一个列表项&

28、& 测试当前记录指针是否在文件尾&& 添加一个列表项&& 相对移动记录指针* 将 ImageList 控件图片赋予 Listview 控件 thisform.listview1.Icons=thisform.imagelist1.object thisform.listview1.smallicons=thisform.imagelist1.objectselect tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别 ='3'order by tabpurview. 操作员姓名

29、 ;into cursor ybczydo while !EOF()key=alltrim(ybczy. 操作员姓名 )=thisform.listview1.listitems.add(,key,3) skipenddo&& 测试当前记录指针是否在文件尾&& 添加一个列表项&& 相对移动记录指针select tabpurviewselect *;from wuyemanage!tabpurview;where 权限级别 ='4'order by tabpurview. 操作员姓名 ;into cursor zdydo while

30、 !EOF() key=alltrim(zdy. 操作员姓名 ) =thisform.listview1.listitems.add(,key,4) skipenddo在表单的 resize 事件中添加代码为： purview=val(alltrim(tabpurview. 权限级别 ) pjyb=tabpurview. 经营部 pglb=tabpurview. 管理部 pgcb=tabpurview. 工程部 pcwb=tabpurview. 财务部 pbab=tabpurview. 保安部 pjls=tabpurview. 经理室&& 测试当前记录指针是否在文件尾&

31、& 添加一个列表项&& 相对移动记录指针&& 根据用户选择设置权限级别psysgl=tabpurview. 系统管理 manager=alltrim(thisform.text2.value) do form formfdesktop && 调入表单 fdesktop thisform.release && 刷新表单 在等录的 click 事件中添加代码为：if empty( 操作员姓名 ) && 判断操作员字段是否为空 thisform.resize && 执行表单的 Resize 事件s

32、tore .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl && 给多个内存变量赋予相同的值elseseek cname && 查找输入的操作员姓名set exact on && 设置字符精确比较 *判断密码是否正确if alltrim(tabpurview. 密码 )!=ppassword cn=cn+1cmessagetitle='系统登录' cmessagetext=密码错误，请重新输入！'ndialogtype=4+32 nanswer=messagebox(cmessagete

33、xt,ndialogtype,cmessagetitle)do casecase nanswer=6thisform.text1.value=''thisform.text1.setfocus&& 文本框获得焦点case nanswer=7 messagebox('不要乱来！ ,48,'系统登录') thisform.release&& 释放表单endcaseif cn=3thisform.releaseendifelsethisform.resize && 执行表单的 Resize 事件endifendi

34、fset exact off&& 设置字符非精确比较在取消的 click 事件中添加代码为：cmessagetitle='系统登录'cmessagetext='真的想要退出吗？'nDialogtype=4+32 nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)if nanswer=6quitendif在控件 listview1 中的 itemclick 事件中添加代码为：LPARAMETERS itemmanager=alltrim(thisform.listview1.sele

35、cteditem.text) thisform.text2.value=managerthisform.text1.setfocus 这样，等录界面就完成了。4经营部设计(1) 在项目管理器中创建一个表单，名称为“小区信息生成 ”，在表单中添加 3 个 label 控件， 2 个 spinner 控件， 1 个 commandgroup 控件。在“开始生成”的 click 事件中添加代码为： cstart=thisform.spinner1.valuecend=thisform.spinner2.value s=alltrim(str(cstart) e=alltrim(str(cend)cp

36、icture=sys(5)+sys(2003)+'imagesemptyimage.bmp'cmessagetitle='小区信息生成'cmessagetext=确认生成编号为+s+'至+e+的小区信息吗？ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do casecase nAnswer=6i=1for i=cstart to cendxqno=alltrim(str(i)select *;from databasewuyemanage!tabxq

37、info;where 小区编号 =xqno;into cursor lindepif reccount()=0* 追加新记录insert into tabxqinfo values(xqno,'','','',0,0,0,0,0,0,'','',cpicture,ctod(''),ctod('')endifendformessagebox(数据保存成功！,48,'小区信息生成')thisform.release小区信息登记 && 调入表单case nA

38、nswer=7thisform.spinner1.setfocusendcase在“返回主系统”中的 click 事件中添加代码为： thisform.release && 释放表单(2) 在项目管理器中添加一个新的表单名称为“大楼信息生成器 ”，在表单中添加 9个 label 控件， 1 个 combo 控件， 2 个 spinner 控件， 4 个 text 控件。说明：其编法如( 1)(3) 在项目管理器中新建一个表单，名称为“房屋信息生成器 ”，在表单中添加 13 个 label 控件， 6 个 combo 控件， 1 个 text 控件， 4 个 spinner 控件

39、， 1 个 commandgroup 控件， 1 个 grid 控件。说明：其编法如( 1)(4) 在项目管理器中添加一个新的表单集包含form1,gorm2 ，名称为“ 小区信息登记 ”。 在 form1 表单中添加 16 个 label 控件， 13 个 text 控件， 1 个 edit 控件， 2 个 commandgroup 控件，1个common dialog控件，1个image控件，2个comma nd控件，在form2表单中添 加1个comma nd控件，1个grid控件。在 form1 中的 load 事件中添加代码为：public l && 定义全局变量l=

40、.f.在 form1 中的 activate 事件中添加代码为：thisform.text1.value=tabxqinfo.thisform.text2.value=tabxqinfo.thisform.text3.value=tabxqinfo.thisform.text4.value=tabxqinfo.thisform.text5.value=tabxqinfo.thisform.text6.value=tabxqinfo.thisform.text7.value=tabxqinfo.thisform.text8.value=tabxqinfo.thisform.text9.value

41、=tabxqinfo.小区编号 && 赋值给 Text1小区名称负责人小区说明交工日期竣工日期地址占地面积建筑面积thisform.text10.value=tabxqinfo. 绿化面积thisform.text11.value=tabxqinfo. 居住面积thisform.text12.value=tabxqinfo. 楼栋数thisform.text13.value=tabxqinfo. 总户数thisform.edit1.value=tabxqinfo. 备注thisform.container1.image1.picture=tabxqinfo. 照片thisfor

42、m.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.text11.enab

43、led,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=' 取 消 &#

44、39; mand3.enabled=.f. mand4.enabled=.f.*设置控件有效l=.t.thisform.init && 执行表单的 Init 事件store '' to thisform.text1.value,thisform.text2.value,thisform.text3.value,; thisform.text4.value,thisform.text7.valuestore / to thisform.text5.value,thisform.text6.valuestore 0 to thisform.text8.value,t

45、hisform.text9.value,thisform.text10.value,; thisform.text11.value,thisform.text12.value,thisform.text13.valuethisform.edit1.value='' thisform.container1.image1.picture=sys(5)+sys(2003)+'imagesemptyimage.bmp' thisform.text1.setfocuselsemand1.caption=' 添 加 '&& 赋值给 Comma

46、nd1 的标题文本mand2.caption=' 修 改 ' mand3.enabled=.t. mand4.enabled=.t.*获取输入信息xqno=alltrim(thisform.text1.value)xqname=alltrim(thisform.text2.value)xqinfo=alltrim(thisform.text4.value)fzr=alltrim(thisform.text3.value)jiaogdate=thisform.text5.valuejungdate=thisform.text6.valuearea=alltrim(thisform

47、.text7.value)cmemo=alltrim(thisform.edit1.value)zdmj=thisform.text8.valuejzmj=thisform.text9.valuelhmj=thisform.text10.valuejuzmj=thisform.text11.valuelds=thisform.text12.valuezhs=thisform.text13.valuecpicture=thisform.container1.image1.pictureselect *;from wuyemanage!tabxqinfo;where 小区编号 =xqno;orde

48、r by 小区编号 ;into cursor lindepif reccount()=0insert into tabxqinfo values(xqno,xqname,xqinfo,fzr,lds,zhs,jzmj,juzmj,zdmj,; lhmj,area,cmemo,cpicture,jungdate,jiaogdate) && 追加新记录messagebox (数据保存完毕！,48,'操作成功！')elsecmessagetitle='小区信息登记'cmessagetext=信息已修改，确定要保存吗？'ndialogtype=4

49、+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do casecase nAnswer=6update wuyemanage!tabxqinfo set 小区名称 =xqname, 小区说明 =xqinfo, 负责人 =fzr,; 楼栋数=lds,总户数=zhs,建筑面积=jzmj,居住面积=juzmj,占地面积=zdmj,地址 =area,;备注 =cmemo, 照片 =cpicture, 竣工日期 =jungdate, 交工日期 =jiaogdate, 绿化面积 =lhmj ;where 小区编号 =xqno &am

50、p;& 更新数据表messagebox (数据保存完毕！',48,'操作成功！')endcaseendifselect tabxqinfol=.f.thisform.init && 执行表单的 Init 事件thisform.activate && 执行表单的 Activate 事件 endif在 form1 中的“修改” click 事件中添加代码为：if alltrim(mand2.caption)=' 修 改 ' mand1.caption=' 保 存'&& 赋值给 Comma

51、nd1 的标题文本mand2.caption=' 取 消 ' mand3.enabled=.f. mand4.enabled=.f.l=.t.thisform.init && 执行表单的 Init 事件thisform.text1.enabled=.f.thisform.text1.setfocuselsemand1.caption=' 添 加 '&& 赋值给 Command1 的标题文本mand2.caption=' 修 改 ' mand3.enabled=.t. mand4.enabled=.t.thisfor

52、m.activate && 执行表单的 Activate 事件l=.f.thisform.init && 执行表单的 Init 事件 endif在 form1 中的“删除” click 事件中添加代码为：xqnumber=alltrim(thisform.text1.value)cmessagetitle='小区信息登记'cmessagetext=确定要删除吗？' ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6s

53、elect tabxqinfouseuse database/tabxqinfo exclusive&& 以独占方式打开数据表dele from tabxqinfo where 小区编号 =xqnumber && 逻辑删除记录 dele from tabxqinfo where empty( 小区编号 )pack&& 物理删除thisform.activate && 执行表单的 Activate 事件messagebox(删除完毕',48,'操作成功！') use databasetabxqinfo thi

54、sform.refreshendif在 form1 中的“浏览” click 事件中添加代码为：thisform.parent.form2.grid1.recordsource='tabxqinfo' && 赋数据源&& 显示表单thisform.parent.form2.visible=.t. 在 form1 中的“退出” click 事件中添加代码为： thisform.release && 释放表单 thisform.parent.form2.release 在 form1 中的“追加图片” click 事件中添加代码为：

55、thisform.imagedc.filter=" 图片 |*.bmp;*.jpg" && 设置过滤器 thisform.imagedc.showopen && 显示打开对话框 thisform.Container1.image1.picture=thisform.imagedc.filename 在 form1 中的“清除图片” click 事件中添加代码为： thisform.Container1.image1.picture=sys(5)+sys(2003)+'imagesemptyimage.bmp' 在 form1

56、中的“第一个” click 事件中添加代码为： go top && 记录指针定位到第一条记录 mand1.enabled=.f. mand2.enabled=.f.mand3.enabled=.t. mand4.enabled=.t. thisform.Activate && 执行表单的 Activate thisform.refresh在 form1 中的“上一个” click 事件中添加代码为： skip-1 && 把记录指针向上移一条记录 thisform.Activate && 执行表单的 Activate if bof(

57、)messagebox('已是第一个记录,48,'信息窗口 ') mand1.enabled=.f. mand2.enabled=.f.thisform.Activate && 执行表单的 Activate elsemand1.enabled=.t. mand2.enabled=.t.endif mand3.enabled=.t. mand4.enabled=.t.thisform.refresh 在 form1 中的“下一个” click 事件中添加代码为： if eof()messagebox('已经是最后一条记录',48,'

58、管理窗口 ') skip-1&& 记录指针向上移动一条记录thisform.Activate&& 执行表单的 Activatemand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f.elseskip&& 记录指针向下移一条记录thisform.Activate&& 执行表单的 Activateif eof()messagebox('已经是最后一条记录',48,'管理窗口 ') skip-1thisform.Activate && 执行表单的 Activate mand3.enabled=.f. mand4.enabled=.f.elsemand3.enabled=.t. mand4.enabled=.t.endif mand1.enab