【文章內(nèi)容簡介】 mpty(yxq) or empty(ydl) or empty(yfw) messagebox(39。請選擇小區(qū)名稱、大樓名稱和房屋編號！39。,48,39。操作失敗39。)else select tabyzinfo locate for 購入房編號=yfw amp。amp。順序查詢 if found() messagebox(39。此房屋已住人！39。,48,39。業(yè)主信息登記39。) else =.t. amp。amp。顯示表單 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) =yxq =ydl =fjno =yfw =yfw store 39。39。 to ,。 ,。 ,。 ,。 ,。 , =39。39。 amp。amp。Text5獲得焦點 endifendif在Form1表單的“修改業(yè)主信息”按鈕的Click事件中添加以下代碼：cvalue=alltrim()if !empty(cvalue)=.t.public yzdh amp。amp。定義全局變量yzdh=alltrim()select *。from wuyemanage!tabyzinfo。where 業(yè)主代號==yzdh。into cursor lxgyzinfo…… amp。amp。此處省略了給業(yè)主信息賦值的代碼（如：=）select *。from wuyemanage!tabrkinfo。where 房間編號==alltrim()。order by 人口編號。into cursor lincy=39。lincy39。 amp。amp。賦數(shù)據(jù)源 amp。amp。Text5獲得焦點else messagebox(39。請選擇業(yè)主代號！39。,48,39。業(yè)主信息登記39。)endif在Form1表單的“刪除業(yè)主信息”按鈕的Click事件中添加以下代碼：yzno=alltrim()cmessagetitle=39。業(yè)主信息登記39。cmessagetext=39。確定要刪除嗎？39。ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabyzinfo use use wygl/database/tabyzinfo exclusive amp。amp。以獨占的方式打開數(shù)據(jù)表 dele from tabyzinfo where 業(yè)主代號==yzno amp。amp。邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號) pack amp。amp。物理刪除 update wuyemanage!tabfwinfo set 房主代號=39。39。,房主姓名=39。39。,是否空閑=.t.,房屋狀態(tài)=39。空閑39。 。 where 房主代號==yzno amp。amp。更新數(shù)據(jù)表 messagebox(39。刪除完畢39。,48,39。操作成功！39。) use wygl\database\tabyzinfo amp。amp。執(zhí)行Optiongroup1的Interactionchange事件 =39。39。 endif在Form1表單的text1控件的Click事件中添加以下代碼：=39。39。=39。39。=39。39。=alltrim()dlname=alltrim()select *。from wygl\database\tabfwinfo。where 大樓名稱==dlname。into cursor lindep=39。39。=39。lindep39。 amp。amp。賦數(shù)據(jù)源=39。房間編號,房主姓名39。 amp。amp。賦數(shù)據(jù)值的源 amp。amp。執(zhí)行Optiongroup1的Interactivechange事件=alltrim()在Form1表單的optiongroup1選項按鈕組的InteractiveChange事件中添加以下代碼：do casecase =1 select *。 from wuyemanage!tabyzinfo。 where 大樓名稱==alltrim()。 into cursor linall =39。linall39。 amp。amp。賦數(shù)據(jù)源 case =1 select *。 from wuyemanage!tabyzinfo。 where 是否進住==39。已進住39。 and 大樓名稱==alltrim()。 into cursor liny =39。liny39。 amp。amp。賦數(shù)據(jù)源case =1 select *。 from wuyemanage!tabyzinfo。 where 是否進住==39。未進住39。and 大樓名稱==alltrim()。 into cursor linw =39。linw39。單擊“確定保存業(yè)主信息”按鈕，將查找業(yè)主信息表“Tabyzinfo”中是否有該業(yè)主代號，如果沒有，則將信息保存到業(yè)主信息表“Tabyzinfo”和人口信息表“Tabrkinfo”中，并修改房屋信息表“Tabfwinfo”中的相關數(shù)據(jù)。如果有，則修改“Tabyzinfo”、“Tabrkinfo”和“Tabfwinfo”中相關數(shù)據(jù)。系統(tǒng)將自動生成七位的人口編號（如“RK00007”）。具體代碼如下：在Form3表單的“確定保存業(yè)主信息”按鈕的Click事件中添加以下代碼：yzdh=alltrim()yzname=alltrim()sex=alltrim()lxdz=alltrim()sj=alltrim()tel=alltrim()workdw=alltrim()dwtel=alltrim()zjname=alltrim()zjnumber=alltrim()sfjz=alltrim()gfhtno=alltrim()glxysno=alltrim()fwno=alltrim()xqname=alltrim()dlname=alltrim()fjno=alltrim()if sfjz=39。已進住39。 fwzt=39。入住39。else fwzt=39。簽約39。endifselect tabrkinfoif empty(人口編號) rknumber=alltrim(39。RK0000139。)else select max(人口編號) from tabrkinfo into array a amp。amp。查找表中最大的人口編號存入數(shù)組 cend=val(substr(a(1),3))+1 rknumber=alltrim(39。RK39。+padl(alltrim(str(cend,5)),5,39。039。))endif if empty(yzname) or empty(gfhtno) or empty(glxysno) or 。empty(zjnumber) or empty(zjname) or (empty(tel) and empty(sj)) messagebox(39。請將信息添全！39。,48,39。操作失敗39。)else select tabyzinfo locate for 業(yè)主代號=yzdh amp。amp。順序查詢 if !found() insert into tabyzinfo values(yzdh,yzname,sex,lxdz,sj,tel,workdw,dwtel,zjname,zjnumber,。 date1,date3,date2,date4,sfjz,gfhtno,glxysno,fwno,xqname,dlname,fjno) amp。amp。追加新記錄 update wuyemanage!tabfwinfo set 房主代號=yzdh,房主姓名=yzname,是否空閑=.f.,。 房屋狀態(tài)=fwzt where 房間編號==fwno amp。amp。更新數(shù)據(jù)表 insert into tabrkinfo values(rknumber,yzname,sex,ctod(39。39。),39。139。,39。39。,39。戶主39。,39。39。,39。39。,39。39。,workdw,39。39。,。 39。39。,39。39。,39。39。,dwtel,sj,tel,lxdz,xqname,dlname,fjno,zjnumber,39。39。,39。39。,fwno,39。39。) messagebox(39。數(shù)據(jù)保存完畢！39。,48,39。業(yè)主信息登記39。) amp。amp。執(zhí)行Text1的Click事件 =.f. amp。amp。隱藏表單 else update wuyemanage!tabyzinfo set 業(yè)主姓名=yzname,性別=sex,聯(lián)系地址=lxdz,手機=sj,。電話=tel,工作單位=workdw,單位電話=dwtel,證件號=zjnumber,簽約日期=date1,。進住日期=date3,進住起始日期=date2,進住截止日期=date4,是否進住=sfjz,。購房合同書編號=gfhtno,管理協(xié)議書編號=glxysno,購入房編號=fwno,小區(qū)名稱=。xqname,大樓名稱=dlname,房間號碼=fjno where 業(yè)主代號==yzdh amp。amp。更新數(shù)據(jù)表 update wuyemanage!tabfwinfo set 房主代號=yzdh,房主姓名=yzname,是否空閑=.f.,。 房屋狀態(tài)=fwzt where 房間編號==fwno update wuyemanage!tabrkinfo set 姓名=yzname,性別=sex,工作單位=workdw,。單位電話=dwtel,手機=sj,傳呼=tel,家庭住址=lxdz,身份證號=zjnumber 。where 房間編號==fwno endifendif 小區(qū)資源統(tǒng)計設計用戶進入系統(tǒng)后，單擊主界面“經(jīng)理室”按鈕，在彈出的功能列表項中選擇“小區(qū)資源統(tǒng)計”選項，進入小區(qū)資源統(tǒng)計界面。通過小區(qū)資源統(tǒng)計界面可通過“加入”按鈕對小區(qū)資源進行統(tǒng)計分析，并且通過“去除”按鈕清除對小區(qū)資源統(tǒng)計分析以及。小區(qū)資源統(tǒng)計運行結果如圖6所示。圖6 小區(qū)資源統(tǒng)計表單運行結果1．表單設計（1）在物業(yè)管理系統(tǒng)