资源描述
光明物业管理系统开发文档 一系统分析: 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控件*添加数据项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)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=2key=装修队登记=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=2key=收费登记管理=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=2key=保安排班管理=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=2key=操作员管理=this.parent.listview1.listitems.add(,key,7)key=权限设置=this.parent.listview1.listitems.add(,key,7)pjyb=.t.在“帮助”中添加代码为:this.parent.listview1.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控件。说明:其编法如(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控件。在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,; 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. mand4.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 &记录指针定位到第一条记录mand1.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.mand1.enabled=.t.mand2.enabled=.t.thisform.Activate &执行表单的Activatethisform.refresh在form1中的控件edit1的keypress事件中添加代码为:LPARAMETERS nKeyCode, nShiftAltCtrlif nKeycode=3endif在form1中的控件edit1的lostfocus事件中添加代码为:在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的标题文
展开阅读全文