物业管理系统开发文档

精心整理物业管理系统开发一系统分析： 1开发背景随着我国市场经济的快速开展和人们生活水平的不断提高，简洁的社区效劳已不能满意人们的需求。如何利用先进的管理手段，提高物业管理水平，是当今社会所面临的一个重要课题。要想提高物业管理水平，必需全方位地提高物业管理意识。只有高标准、高质量的社区效劳才能满意人们的需求。面对信息时代的挑战，利用高科技手段来提高物业管理无疑是一条行之有效的途径。在某种意义上，信息与科技在物业管理与现代化建立中显现出越来越重要的地位。物业管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标记。 2需求分析小区管理是一件特别困难的事情，由于管理面积大，户数多，物业管理范围广，管理内容繁杂，小区物业管理混乱的问题始终无法解决。小区物业管理中一项重要的工作是计算、汇总各项费用，由于费用工程较多，计算方法繁重，手工处理过失率较高。同时查询某房产资料或业主资料往往也须要较长时间，给物业管理者的工作带来了诸多弊端。因此，本物业公司确定采纳计算机进展物业管理。依据本小区具体的状况，本系统在实施后，能够满意对小区人口、资源统计、小区投诉、装修、修理、保安进展管理，能够满意对水、电、气三表抄收、统计、还是、核算、各项费用统计汇总。本系统的实施为馨园小区日后开展奠定了新的台阶。依据本物业的具体状况，系统主要的功能包括：1.经营部：包括小区信息生成、大楼信息生成、房屋信息生成、小区信息登记、大楼信息登记、房屋信息登记、系统数据设定。2.管理部：包括业主信息登记、人口信息查询、小区投诉登记、小区投诉查询、小区员工管理、系统数据设定。3.工程部：包括装修队登记、修理信息登记、修理信息查询、装修信息登记、装修信息查询。4.财务部：包括收费登记管理、水费查询管理、电费查询管理、煤气费查询管理、采暖查询管理、其他费用查询管理。5.保安部：包括保安支配管理、保支配班查询。6.经理部：包括小区资源统计、业主信息查询、人口信息查询、小区信息查询、小区员工查询、装修信息查询、修理信息查询、保安信息查询。7.系统管理：包括操作员管理、权限管理、背景管理。3实现目标 面对物业管理过程中出现的各种状况，物业管理系统在实施后，应能够到达以下目标：（1） 全面自动化信息管理，可随时驾驭小区的状况。（2） 全方位的快速查询，提高工作效率。（3） 完整的工程及效劳档案，提高财务工作效率。（4） 敏捷准确的收费，提高财务工作效率。（5） 全面统计、汇总、分析，刚好供应确定依据。物业公司领导可随时查阅小区最新信息的具体状况。（6） 系统内部限制严密，数据存储平安牢靠。（7） 系统界面友好美观，操作简洁易行。（8） 从用户需求、售后效劳形成了一套严密、科学、完善的管理体系。二.系统设计1. 业务流程图依据物业管理的特点和本小区的实际状况,物业管理系统流程图如下图:房 屋 签 约业 主 入 住申 请 装 修物业公司填写收费通知单装 修交水电费、其他费用交采暖费通知业 主2系统构造图物 业 管 理 系 统经理室保安部系统管理经营部背景设置权限设置操作员管理保支配班查询保支配班管理系统数据设定小区信息生成房屋信息生成大楼信息生成小区信息登记大楼信息生成房屋信息生成保支配班查询修理信息查询装修信息查询小区员工查询小区投诉查询人口信息查询业主信息查询小区资源统计管理部工程部装修队登记修理信息登记修理信息查询装修信息登记装修信息查询业主信息查询人口信息登记小区投诉登记小区投诉查询小区员工管理系统数据设定3数据库设计 依据本小区的业务状况，本系统采纳了Foxpro数据库，数据库名为wuyemanage,包括以下26个表即：部门信息表Tabbminfo、采暖费表Tabcnmoney、电费表Tabdianmoney、大楼信息表Tabdinfo、房间构造表(Tabfjstructure)、朝向表(Tabfrontage)、房屋信息表(Tabfwinfo)、房屋统计表(Tabfwtj)、工种信息表(Tabgzinfo) 、科目设定表(Tabkmsd)、煤气费表(Tabmqmoney)、其他费用表(Tabothermoney)、排班表(Tabpb)、权限表(Tabpurview)、权属类型表(Tabqstype)、人口信息表(Tabrkinfo)、人口统计表(Tabrktj)、水费表(Tabsmoney)、投诉信息表(Tabttsinfo)、投诉统计表(Tabtstj)、修理统计表(Tabwxinfo)、小区信息表(Tabxqinfo)、员工信息表(Tabyginfo)、业主信息表(Tabyzinfo)、装修队信息表(Tabzxgroup)、装修信息表(Tabzxinfo)。 六编码：1.建立一个工程管理器 (1).翻开vf软件选择新建，然后选择工程，选择其保存位置路径为d:wygl物业管理系统.pjx。(2).选择文档，建立一个新的表单，翻开表单，进展编辑，即：软件欢送界面，其名称为：物业管理系统，文件名为main.scx定义两个吩咐按钮，分别为：进入，代码为： release thisformdo form d:wyglformadmin退出代码为：release thisformquit然后，注上制作人、制作时间。这样，欢送界面就作成了。2.主程序界面设计在工程管理器中创立一新表单名为Fdesktop。在表单中插入名称为Vcxmain 的toolbar类。然后在Init事务中添加以下代码：public bz &定义全局变量bz=.f.this.listview1.view=2 &设置视图显示方式 *将ImageList控件图片给予Listview控件 &添加列表项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.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.listview1.Icons=this.parent.imagelist1.object*添加数据项key=小区信息生成=this.parent.listview1.listitems.add(,key,1)key=大楼信息生成=this.parent.listview1.listitems.add(,key,1)key=房屋信息生成d(,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)key=系统数据设定=this.parent.listview1.listitems.add(,key,1)在“管理部”的事务中添加以下代码为：this.parent.listview1.view=2key=业主信息登记=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.add(,key,2)key=小区员工管理=this.parent.listview1.listitems.add(,key,2)key=系统数据设定=this.parent.listview1.listitems.add(,key,2)pjyb=.t.在“工程部”上添加代码为：this.parent.listview1.view=2bjectkey=装修队登记=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.在“财务部”添加代码为：this.parent.listview1.view=2ctkey=收费登记管理=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)key=采暖费查询管理=this.parent.listview1.listitems.add(,key,4)key=其它费用查询管理=this.parent.listview1.listitems.add(,key,4)pjyb=.t.在“保安部”添加代码为：this.parent.listview1.view=2ectkey=保支配班管理=this.parent.listview1.listitems.add(,key,5)key=保支配班查询=this.parent.listview1.listitems.add(,key,5)pjyb=.t.在“经理室”添加代码为：this.parent.listview1.view=2key=小区资源统计=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)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.parent.listview1.view=2tkey=操作员管理=this.parent.listview1.listitems.add(,key,7)key=权限设置=this.parent.listview1.listitems.add(,key,7)pjyb=.t.在“协助”中添加代码为：stview1.view=2key=协助=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 &显示翻开对话框this.parent.rq.image2.picture=mdl.filename &显示选定文件的名字3系统等录界面的设计在工程管理器中添加一个新的表单，名称为Admain在表单中添加一个ImageList 控件，并进展相应的管理员设置。在表单中添加一个Image控件，一个listview控件，一个ImageList控件，两个text控件，三个label控件，一个commandgroup控件。在表单中的init事务中添加代码为：public cn &定义全局变量cn=0 &给全局变量赋初值thisform.listview1.view=0 &设置视图显示方式*将ImageList控件图片给予Listview控件select tabpurview &选定tabpurview工作区为当前工作区select *;from wuyemanage!tabpurview;where 权限级别=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 while !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.listview1.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事务中添加代码为：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事务中添加代码为：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 nanswer=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 &设置字符非准确比拟在取消的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.text1.setfocus 这样，等录界面就完成了。4经营部设计1在工程管理器中创立一个表单，名称为“小区信息生成”，在表单中添加3个label控件，2个spinner控件，1个commandgroup控件。在“起先生成”的click事务中添加代码为：s=alltrim(str(cstart)e=alltrim(str(cend)cpicture=sys(5)+sys(2003)+imagesemptyimage.bmpcmessagetitle=小区信息生成cmessagetext=确认生成编号为 +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(xqno,0,0,0,0,0,0,cpicture,ctod(),ctod() endif endfor messagebox(数据保存胜利！,48,小区信息生成) thisform.release do form form小区信息登记 &调入表单 case nAnswer=7endcase在“返回主系统”中的click事务中添加代码为：thisform.release &释放表单2在工程管理器中添加一个新的表单名称为“大楼信息生成器”，在表单中添加9个label控件，1个combo控件，2个spinner控件，4个text控件。说明：其编法如13在工程管理器中新建一个表单，名称为“房屋信息生成器”，在表单中添加13个label控件，6个combo控件，1个text控件，4个spinner控件，1个commandgroup控件，1个grid控件。说明：其编法如14在工程管理器中添加一个新的表单集包含form1,gorm2，名称为“小区信息登记”。在form1表单中添加16个label控件，13个text控件，1个edit控件，2个commandgroup控件，1个common dialog控件，1个image控件，2个command控件，在form2表单中添加1个command控件，1个grid控件。在form1中的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.value=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=tabxqinfo.照片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.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=.t. thisform.init &执行表单的Init事务 store to thisform.text1.value,thisform.text2.value,thisform.text3.value,; thisform.text4.value,thisform.text7.value store 0 to thisform.text8.value,thisform.text9.value,thisform.text10.value,; thisform.edit1.value= thisform.container1.image1.picture=sys(5)+sys(2003)+imagesemptyimage.bmpelse mand1.caption=添 加 &赋值给Command1的标题文本 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) area=alltrim(thisform.text7.value) cmemo=alltrim(thisform.edit1.value) select *; from wuyemanage!tabxqinfo; where 小区编号=xqno; order by 小区编号; into cursor lindep if reccount()=0 insert into tabxqinfo values(xqno,xqname,xqinfo,fzr,lds,zhs,jzmj,juzmj,zdmj,; lhmj,area,cmemo,cpicture,jungdate,jiaogdate) &追加新记录 messagebox(数据保存完毕！,48,操作胜利！) else cmessagetitle=小区信息登记 cmessagetext=信息已修改，确定要保存吗？ ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 update wuyemanage!tabxqinfo set 小区名称=xqname,小区说明=xqinfo,负责人=fzr,; 楼栋数=lds,总户数=zhs,建筑面积=jzmj,居住面积=juzmj,占地面积=zdmj,地址=area,; 备注=cmemo,照片=cpicture,竣工日期=jungdate,交工日期=jiaogdate,绿化面积=lhmj ; where 小区编号=xqno &更新数据表 messagebox(数据保存完毕！,48,操作胜利！) endcase endif select tabxqinfo l=.f. thisform.init &执行表单的Init事务 thisform.activate &执行表单的Activate事务endif在form1中的“修改”click事务中添加代码为：if alltrim(mand2.caption)=修 改 mand1.caption=保 存 &赋值给Command1的标题文本 mand2.caption=取 消 mand3.enabled=.f. mand4.enabled=.f. l=.t. thisform.init &执行表单的Init事务 thisform.text1.enabled=.f.else mand1.caption=添 加 &赋值给Command1的标题文本 mand2.caption=修 改 mand3.enabled=.t.enabled=.t. thisform.activate &执行表单的Activate事务 l=.f. thisform.init &执行表单的Init事务endif在form1中的“删除”click事务中添加代码为：xqnumber=alltrim(thisform.text1.value)cmessagetitle=小区信息登记cmessagetext=确定要删除吗？ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabxqinfo use use database/tabxqinfo exclusive &以独占方式翻开数据表 dele from tabxqinfo where 小区编号=xqnumber &逻辑删除记录 dele from tabxqinfo where empty(小区编号) pack &物理删除 thisform.activate &执行表单的Activate事务 messagebox(删除完毕,48,操作胜利！) use databasetabxqinfo thisform.refreshendif在form1中的“阅读”click事务中添加代码为：thisform.parent.form2.grid1.recordsource=tabxqinfo &赋数据源thisform.parent.form2.visible=.t. &显示表单在form1中的“退出”click事务中添加代码为：thisform.release &释放表单在form1中的“追加图片”click事务中添加代码为：thisform.imagedc.filter=图片|*.bmp;*.jpg &设置过滤器 thisform.imagedc.showopen &显示翻开对话框在form1中的“去除图片”click事务中添加代码为：thisform.Container1.image1.picture=sys(5)+sys(2003)+imagesemptyimage.bmp在form1中的“第一个”click事务中添加代码为：go top &记录指针定位到第一条记录mmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.thisform.Activate &执行表单的Activatethisform.refresh在form1中的“上一个”click事务中添加代码为： skip-1 &把记录指针向上移一条记录 thisform.Activate &执行表单的Activate if bof() messagebox(已是第一个记录,48,信息窗口) mand1.enabled=.f. mand2.enabled=.f. thisform.Activate &执行表单的Activate else mand1.enabled=.t. mand2.enabled=.t. endif mand3.enabled=.t. mand4.enabled=.t.thisform.refresh在form1中的“下一个”click事务中添加代码为：if eof() messagebox(已经是最终一条记录,48,管理窗口) skip-1 &记录指针向上移动一条记录 thisform.Activate &执行表单的Activate mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f.else skip &记录指针向下移一条记录 thisform.Activate &执行表单的Activate if eof() messagebox(已经是最终一条记录,48,管理窗口) skip-1 thisform.Activate &执行表单的Activate mand3.enabled=.f. mand4.enabled=.f. else mand3.enabled=.t. mand4.enabled=.t. endif mand1.enabled=.t. mand2.enabled=.t.endifthisform.refresh在form1中的“最终一个”click事务中添加代码为：go bottom &记录指针移动到最终一条记录mand3.enabled=.f.mand4.enabled=.f.bled=.t.mand2.enabled=.t.thisform.Activate &执行表单的Activatethisform.refresh在form1中的控件edit1的keypress事务中添加代码为：LPARAMETERS nKeyCode, nShiftAltCtrlif nKeycode=3endif在form1中的控件edit1的lostfocus事务中添加代码为：thisform.text8.setfocus在form2中的“退出小区信息阅读”的click事务中添加代码为：thisform.visible=.f. &隐藏表单5在工程管理器中添加一个表单集包括form1,form2,form3，名称为“大楼信息登记”。在表单form1中添加2个list控件，2个label控件，1个commandgroup控件，在表单form2中添加17个label控件，12个text控件，2个combo控件，1个edit控件，1个common dialog控件，1个image控件，2个command控件，2个commandgroup控件，在表单form3中添加1个grid控件， 1个command控件。说明：其编法如以上4所示6在工程管理器中新建表单集包含form1,form2,form3,名称为“房屋信息登记”。在表单form1中添加1个commbo控件，2个list控件，2个label控件，1个commandgroup控件，在表单form2中添加19个label控件，9个text控件，8个combo控件，1个edit控件，1个commandgroup控件，在表单form3中添加1个grid控件， 1个command控件。说明：其编法如以上4所示7在工程管理器中添加一个新的表单名称为“系统数据设定”，在表单中添加一个label控件，2个commandgroup控件。在表单的“退出系统数据设定”按钮的click事务中添加代码为：thisform.release在表单的“房屋朝向设定”按钮的click事务中添加代码为：thisform.release &释放表单do form form房屋朝向设定 &调入表单在表单的“权限类型设定”按钮的click事务中添加代码为：thisform.release &释放表单do form form权属类型设定 &调入表单在表单的“小区部门设定”按钮的click事务中添加代码为：thisform.release &释放表单do form form小区部门设定 &调入表单在表单的“员工种类设定”按钮的click事务中添加代码为：thisform.release &释放表单do form form员工种类设定 &调入表单元在表单的“费用科目及费用标准设定”按钮的click事务中添加代码为：thisform.release &释放表单do form form费用科目及费用标准设定 &调入表单8在工程管理器中添加一个新的表单名称为“房屋朝向设计”，表单中添加3个label控件，1个text控件，1个grid控件，1个commandgroup控件。在表单的init事务中添加以下代码：thisform.text1.controlsource=tabfrontage.房屋朝向 &赋数据源thisform.grid1.recordsource=tabfrontage &赋数据源在“添加”按钮的click事务中添加代码为：if mand1.caption=添 加 mand1.caption=保 存 &赋值给Command1的标题文本 mand2.caption=取 消 &赋值给Command2的标题文本 append blank &追加新记录 thisform.text1.value=else mand1.caption=添 加 &赋值给Command1的标题文本 mand2.caption=