【畢業(yè)設(shè)計(jì)論文】基于VisualFoxPro的物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)（附數(shù)據(jù)庫(kù)結(jié)構(gòu)）.doc

更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)下載請(qǐng)?jiān)L問：/mydoc-5887523-1.html&folderid=72986物業(yè)管理系統(tǒng)學(xué) 院專 業(yè)班 級(jí)學(xué) 號(hào)姓 名指導(dǎo)教師教師職稱年月日摘要【摘要】經(jīng)過十幾年的發(fā)展，中國(guó)房地產(chǎn)業(yè)逐步走向成熟，物業(yè)管理也由新生到發(fā)展再到深入，面臨著蓬勃發(fā)展的局面。隨著iso9002等管理體系在物業(yè)管理中的引入，對(duì)原有的物業(yè)管理模式進(jìn)行了一次深刻的變革，對(duì)物業(yè)管理公司朝著正規(guī)化、科學(xué)化、集團(tuán)化的發(fā)展，起到有力的推動(dòng)作用。隨著我國(guó)經(jīng)濟(jì)發(fā)展和城市開發(fā)，住宅小區(qū)越來越成為居住的主流，小區(qū)物業(yè)管理是針對(duì)當(dāng)代社會(huì)這一市場(chǎng)需要應(yīng)運(yùn)而生的。本系統(tǒng)是為住宅小區(qū)物業(yè)管理部門日常管理工作信息化，規(guī)范化而開發(fā)的軟件。它以物業(yè)管理部門為服務(wù)中心，以業(yè)主（住戶）為服務(wù)對(duì)象。通過實(shí)施各種服務(wù)項(xiàng)目，全面地反映了在小區(qū)物業(yè)經(jīng)營(yíng)管理活動(dòng)中，物業(yè)部門與業(yè)主之間各種業(yè)務(wù)往來。使各項(xiàng)業(yè)務(wù)的辦理迅速、準(zhǔn)確，極大的提高了小區(qū)物業(yè)管理的工作效率?！娟P(guān)鍵詞】物業(yè)管理系統(tǒng)目錄摘要2目錄30 引言11 需求分析12 總體設(shè)計(jì)12.1 項(xiàng)目規(guī)劃12.2 系統(tǒng)功能結(jié)構(gòu)23 系統(tǒng)設(shè)計(jì)33.1 開發(fā)及運(yùn)行環(huán)境33.2 數(shù)據(jù)庫(kù)設(shè)計(jì)34 主要功能模塊設(shè)計(jì)34.1 程序主界面的設(shè)計(jì)34.2 系統(tǒng)登錄界面設(shè)計(jì)74.3 小區(qū)信息生成設(shè)計(jì)104.4 業(yè)主信息登記設(shè)計(jì)124.5 小區(qū)資源統(tǒng)計(jì)設(shè)計(jì)174.6 權(quán)限設(shè)置設(shè)計(jì)21附錄a 參考文獻(xiàn)25附錄b 數(shù)據(jù)表26附錄c 文件架構(gòu)28 3 更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)下載請(qǐng)?jiān)L問：/mydoc-5887523-1.html&folderid=729860 引言由于物業(yè)管理涉及的管理范圍較為廣泛，管理內(nèi)容繁雜，加上政策性的變動(dòng)因素，日常工作需要耗費(fèi)大量人力和物力，而采取現(xiàn)代化電腦管理手段是一種行之有效的解決方法，用計(jì)算機(jī)操作的小區(qū)物業(yè)管理系統(tǒng)是為小區(qū)管理者和小區(qū)用戶更好的維護(hù)各項(xiàng)物業(yè)管理業(yè)務(wù)處理工作而開發(fā)的管理軟件。電腦化管理在物業(yè)管理中的作用主要體現(xiàn)在： 適用面廣、可同時(shí)管理多個(gè)管理區(qū)和多棟大樓； 計(jì)算機(jī)完整的工程檔案與服務(wù)檔案可以使管理人員隨時(shí)了解最新的情況，更可以規(guī)范維護(hù)、服務(wù)標(biāo)準(zhǔn)，幫助管理人員合理安排工作時(shí)間。 計(jì)算機(jī)管理收費(fèi)，靈活性、準(zhǔn)確性大大提高。 強(qiáng)大的查詢功能，最大限度地滿足您的需要。1 需求分析根據(jù)該物業(yè)的具體情況，系統(tǒng)主要的功能包括：l 經(jīng)營(yíng)部：“小區(qū)信息生成”、“大樓信息生成”、“房屋信息生成”、“小區(qū)信息登記”、“大樓信息登記”、“房屋信息登記”、“系統(tǒng)數(shù)據(jù)設(shè)定”。l 管理部：“業(yè)主信息登記”、“人口信息查詢”、“小區(qū)投訴登記”、“小區(qū)投訴查詢”、“小區(qū)員工管理”、“系統(tǒng)數(shù)據(jù)設(shè)定”。l 工程部：“裝修隊(duì)登記”、“維修信息登記”、“維修信息查詢”、“裝修信息登記”、“裝修信息查詢”。l 財(cái)務(wù)部：“收費(fèi)登記管理”、“水費(fèi)查詢管理”、“電費(fèi)查詢管理”、“煤氣費(fèi)查詢管理”、“采暖費(fèi)查詢管理”、“其它費(fèi)用查詢管理”。l 保安部：“保安排班管理”、“保安排班查詢”。l 經(jīng)理部：“小區(qū)資源統(tǒng)計(jì)”、“業(yè)主信息查詢”、“人口信息查詢”、“小區(qū)投訴查詢”、“小區(qū)員工查詢”、“裝修信息查詢”、“維修信息查詢”、“保安排班查詢”。l 系統(tǒng)管理：“操作員管理”、“權(quán)限設(shè)置”、“背景設(shè)置”。2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃物業(yè)管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)管理系統(tǒng)，系統(tǒng)由基本信息設(shè)置、貨物托運(yùn)管理、信息查詢、報(bào)表管理、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 經(jīng)營(yíng)部經(jīng)營(yíng)部：大區(qū)信息生成、大樓信息生成、房屋信息生成、小區(qū)信息登記、大樓信息登記、房屋信息登記、系統(tǒng)數(shù)據(jù)設(shè)定、退出。q 管理部管理部：業(yè)主信息登記、人口信息查詢、小區(qū)投訴登記、小區(qū)投訴查詢、小區(qū)員工管理、系統(tǒng)數(shù)據(jù)設(shè)定。q 財(cái)務(wù)部財(cái)務(wù)部：收費(fèi)登記管理、水費(fèi)查詢管理、電費(fèi)查詢管理、煤氣費(fèi)查詢管理、采曖費(fèi)查詢管理、其它費(fèi)用查詢管理。q 保安部保安排班管理、保安排班查詢。q 經(jīng)理室小區(qū)資源統(tǒng)計(jì)、業(yè)主信息查詢、人口信息查詢、小區(qū)投訴查詢、小區(qū)員工查詢、維修信息查詢、裝修信息查詢、保安排班查詢。q 系統(tǒng)管理系統(tǒng)管理：操作員管理、權(quán)限設(shè)置、背景設(shè)置。q 幫助幫助：幫助、關(guān)于本軟件。2.2 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)共分7大部分、37個(gè)完整的功能模塊。系統(tǒng)結(jié)構(gòu)圖如圖1所示。圖1 物業(yè)管理系統(tǒng)結(jié)構(gòu)圖3 本系統(tǒng)將信息技術(shù)與傳統(tǒng)物業(yè)管理相結(jié)合，輕松解決物業(yè)管理公司發(fā)展中遇到的諸多問題，力推物業(yè)管理公司健康、快速地發(fā)展。本系統(tǒng)在設(shè)計(jì)的時(shí)候應(yīng)該滿足以下幾個(gè)目標(biāo)：q 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。q 軟件結(jié)構(gòu)清晰，功能一目了然。q 方便、快捷的全方位查詢。q 操作員可以隨時(shí)修改自己的口令。q 不同的操作員具有不同的操作權(quán)限。q 數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置權(quán)限級(jí)別。3 系統(tǒng)設(shè)計(jì)3.1 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：microsoft visual foxpro 6.0。運(yùn)行平臺(tái)：windows xp/ windows 2000/ windows 2003分辨率：最佳效果1024768像素3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)1數(shù)據(jù)庫(kù)概要說明本系統(tǒng)采用的是visual foxpro自帶的數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名為database。限于篇幅所限，下面只給出重要數(shù)據(jù)表的表結(jié)構(gòu)。數(shù)據(jù)庫(kù)“wuyemanage”中包含26個(gè)表：部門信息表tabbminfo、采暖費(fèi)表tabcnmoney、電費(fèi)表tabdianmoney、大樓信息表tabdlinfo、房間結(jié)構(gòu)表tabfjstructure、朝向表tabfrontage、房屋信息表tabfwinfo、房屋統(tǒng)計(jì)表tabfwtj、工種信息表tabgzinfo、科目設(shè)定表tabkmsd、煤氣費(fèi)表tabmqmoney、其它費(fèi)用表tabothermoney、排班表tabpb、權(quán)限表tabpurview、權(quán)屬類型表tabqstype、人口信息表tabrkinfo、人口統(tǒng)計(jì)表tabrktj、水費(fèi)表tabsmoney、投訴信息表tabtsinfo、投拆統(tǒng)計(jì)表tabtstj、維修信息表tabwxinfo、小區(qū)信息表tabxqinfo、員工信息表tabyginfo、業(yè)主信息表tabyzinfo、裝修隊(duì)信息表tabzxgroup、裝修信息表tabzxinfo。2主要數(shù)據(jù)表的結(jié)構(gòu)數(shù)據(jù)庫(kù)中的數(shù)據(jù)表請(qǐng)參見附錄b。4 主要功能模塊設(shè)計(jì)4.1 程序主界面的設(shè)計(jì)程序啟動(dòng)后，在系統(tǒng)登錄界面驗(yàn)證操作員密碼后，將進(jìn)入程序主界面的設(shè)計(jì)。通過程序主界面可以執(zhí)行相應(yīng)權(quán)限的操作，并且可以通過選擇主界面菜單或按鈕，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。程序主界面的運(yùn)行結(jié)果如圖2所示。圖2 程序主界面的運(yùn)行結(jié)果1表單設(shè)計(jì)（1）新建一個(gè)項(xiàng)目，名稱為物業(yè)管理系統(tǒng)，在該項(xiàng)目中添加一個(gè)新表單，命名為fdesktop。（2）在表單中插入名稱為vcxmain的toolbar類、image控件、listview控件、imagelist控件、timer控件。（3）重要控件的重要屬性如表2所示。表2 重要屬性及值對(duì)象屬性值vcxmainlockscreenfalsevcxmainmovablefalsevcxmainsizeablefalsetimerinterval102類代碼設(shè)計(jì)在類的init事件中添加以下代碼：public bz &定義全局變量bz=.f.this.listview1.view=2 &設(shè)置視圖顯示方式this.listview1.icons=this.imagelist1.objectthis.listview1.smallicons=this.imagelist1.object&添加列表項(xiàng)=this.listview1.listitems.add(,小區(qū)信息生成,1)=this.listview1.listitems.add(,大樓信息生成 ,1)=this.listview1.listitems.add(,房屋信息生成,1)=this.listview1.listitems.add(,小區(qū)信息登記,1)=this.listview1.listitems.add(,大樓信息登記,1)=this.listview1.listitems.add(,房屋信息登記,1)=this.listview1.listitems.add(,系統(tǒng)數(shù)據(jù)設(shè)定,1)單擊快捷工具條上的“經(jīng)營(yíng)部”按鈕，將在左側(cè)的list列表中顯示經(jīng)營(yíng)部各功能選項(xiàng)。各功能選項(xiàng)由圖標(biāo)和標(biāo)識(shí)性文字組成。具體代碼如下：在“經(jīng)營(yíng)部”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clear &清除數(shù)據(jù)this.parent.listview1.view=2 &設(shè)置視圖顯示方式*將imagelist控件圖片賦予listview控件this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,小區(qū)信息生成,1)=this.parent.listview1.listitems.add(,大樓信息生成,1)=this.parent.listview1.listitems.add(,房屋信息生成,1)=this.parent.listview1.listitems.add(,小區(qū)信息登記,1)=this.parent.listview1.listitems.add(,大樓信息登記,1)=this.parent.listview1.listitems.add(,房屋信息登記,1)=this.parent.listview1.listitems.add(,系統(tǒng)數(shù)據(jù)設(shè)定,1)在“管理部”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,業(yè)主信息登記,2)=this.parent.listview1.listitems.add(,人口信息查詢,2)=this.parent.listview1.listitems.add(,小區(qū)投訴登記,2)=this.parent.listview1.listitems.add(,小區(qū)投訴查詢,2)=this.parent.listview1.listitems.add(,小區(qū)員工管理,2)=this.parent.listview1.listitems.add(,系統(tǒng)數(shù)據(jù)設(shè)定,2)pjyb=.t.在“工程部”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,裝修隊(duì)登記,3)=this.parent.listview1.listitems.add(,維修信息登記,3)=this.parent.listview1.listitems.add(,維修信息查詢,3)=this.parent.listview1.listitems.add(,裝修信息登記,3)=this.parent.listview1.listitems.add(,裝修信息查詢,3)pjyb=.t.在“財(cái)務(wù)部”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,收費(fèi)登記管理,4)=this.parent.listview1.listitems.add(,水費(fèi)查詢管理,4)=this.parent.listview1.listitems.add(,電費(fèi)查詢管理,4)=this.parent.listview1.listitems.add(,煤氣費(fèi)查詢管理,4)=this.parent.listview1.listitems.add(,采暖費(fèi)查詢管理,4)=this.parent.listview1.listitems.add(,其它費(fèi)用查詢管理 ,4)pjyb=.t.在“保安部”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,保安排班管理,5)=this.parent.listview1.listitems.add(,保安排班查詢,5)pjyb=.t.在“經(jīng)理室”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,小區(qū)資源統(tǒng)計(jì),6)=this.parent.listview1.listitems.add(,業(yè)主信息查詢,6)=this.parent.listview1.listitems.add(,人口信息查詢,6)=this.parent.listview1.listitems.add(,小區(qū)投訴查詢,6)=this.parent.listview1.listitems.add(, , 小區(qū)員工查詢,6)=this.parent.listview1.listitems.add(,裝修信息查詢,6)=this.parent.listview1.listitems.add(,維修信息查詢,6)=this.parent.listview1.listitems.add(,保安排班查詢,6)pjyb=.t.在“系統(tǒng)管理”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,操作員管理,7)=this.parent.listview1.listitems.add(,權(quán)限設(shè)置,7)pjyb=.t.在“幫助”按鈕的click事件中添加以下代碼：this.parent.listview1.listitems.clearthis.parent.listview1.view=2this.parent.listview1.icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,幫助,8)=this.parent.listview1.listitems.add(,關(guān)于本軟件,8)pjyb=.t.在“退出”按鈕的click事件中添加以下代碼：quit &退出主程序在控件image1的click事件中添加以下代碼：mdl.filter=圖片|*.bmp;*.jpg &設(shè)置文件類型為.bmp或.jpgmdl.showopen &顯示打開對(duì)話框this.parent.rq.image2.picture=mdl.filename &顯示選定文件的名字4.2 系統(tǒng)登錄界面設(shè)計(jì)用戶進(jìn)入系統(tǒng)前，必須通過系統(tǒng)登錄進(jìn)入程序主界面，通過系統(tǒng)登錄界面可以對(duì)用戶的身份及使用權(quán)限進(jìn)行確認(rèn)。系統(tǒng)登錄表單運(yùn)行結(jié)果如圖3所示。圖3 系統(tǒng)登錄表單運(yùn)行結(jié)果1表單設(shè)計(jì)（1）在物業(yè)管理系統(tǒng)的項(xiàng)目中，新建一個(gè)表單，命名為admin。（2）在表單中添加imagelist控件、image控件、listview控件、imagelist控件、text控件、label控件、commandgroup控件。（3）重要控件屬性如表3所示。表3 重要控件的重要屬性及值控件名屬性值功能text1passwordchar*提供密碼輸入2代碼設(shè)計(jì)定義全局變量cn，用來判斷輸入操作員或密碼的次數(shù)，當(dāng)cn大于3時(shí)，將自動(dòng)退出系統(tǒng)。在list列表中顯示所有的操作員姓名和代表其權(quán)限級(jí)別的圖標(biāo)。在表單的init事件中添加以下代碼：public cn &定義全局變量cn=0 &給全局變量賦初值thisform.listview1.view=0 &設(shè)置視圖顯示方式thisform.listview1.icons=thisform.imagelist1.objectthisform.listview1.smallicons=thisform.imagelist1.objectselect tabpurview &選定tabpurview工作區(qū)為當(dāng)前工作區(qū)select *;from wuyemanage!tabpurview;where 權(quán)限級(jí)別=1;order by tabpurview.操作員姓名;into cursor sysglythisform.text2.value=sysgly.操作員姓名thisform.text1.value=key=alltrim(sysgly.操作員姓名) &賦值給變量key=thisform.listview1.listitems.add(,key,1) &添加一個(gè)列表項(xiàng)select tabpurviewselect *;from wuyemanage!tabpurview;where 權(quán)限級(jí)別=2;order by tabpurview.操作員姓名;into cursor gjczydo while !eof() &測(cè)試當(dāng)前記錄指針是否在文件尾 key=alltrim(gjczy.操作員姓名) =thisform.listview1.listitems.add(,key,2) &添加一個(gè)列表項(xiàng) skip &記錄指針向下移動(dòng)一條記錄enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 權(quán)限級(jí)別=3;order by tabpurview.操作員姓名;into cursor ybczydo while !eof() &測(cè)試當(dāng)前記錄指針是否在文件尾 key=alltrim(ybczy.操作員姓名) =thisform.listview1.listitems.add(,key,3) &添加一個(gè)列表項(xiàng) skip &記錄指針向下移動(dòng)一條記錄enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 權(quán)限級(jí)別=4;order by tabpurview.操作員姓名;into cursor zdydo while !eof() &測(cè)試當(dāng)前記錄指針是否在文件尾 key=alltrim(zdy.操作員姓名) =thisform.listview1.listitems.add(,key,4) &添加一個(gè)列表項(xiàng) skip &記錄指針向下移動(dòng)一條記錄enddo程序員將反復(fù)使用的代碼存到了resize 事件中，將該事件當(dāng)做一個(gè)過程來調(diào)用。 resize在本程序中并沒有什么實(shí)際意義。在表單的resize事件中添加以下代碼：purview=val(alltrim(tabpurview.權(quán)限級(jí)別) pjyb=tabpurview.經(jīng)營(yíng)部pglb=tabpurview.管理部pgcb=tabpurview.工程部pcwb=tabpurview.財(cái)務(wù)部pbab=tabpurview.保安部pjls=tabpurview.經(jīng)理室psysgl=tabpurview.系統(tǒng)管理manager=alltrim(thisform.text2.value)do form formfdesktop &調(diào)入表單fdesktopthisform.release &刷新表單單擊“登錄”按鈕，系統(tǒng)將判斷密碼是否正確。如果密碼不正確，將提示重新輸入，三次后仍不正確，系統(tǒng)將自動(dòng)退出。在“登錄”按鈕的click事件中添加以下代碼：select tabpurviewcname=alltrim(thisform.text2.value)ppassword=alltrim(thisform.text1.value)set order to 操作員姓名 &指定控制索引文件if empty(操作員姓名) &判斷操作員字段是否為空 thisform.resize &執(zhí)行表單的resize事件 store .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl &給多個(gè)內(nèi)存變量賦予相同的值elseseek cname &查找輸入的操作員姓名set exact on &設(shè)置字符精確比較if alltrim(tabpurview.密碼)!=ppasswordcn=cn+1cmessagetitle=系統(tǒng)登錄cmessagetext=密碼錯(cuò)誤，請(qǐng)重新輸入！ndialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value= thisform.text1.setfocus &文本框獲得焦點(diǎn) case nanswer=7 messagebox(不要亂來！,48,系統(tǒng)登錄) thisform.release &釋放表單 endcase if cn=3 thisform.release endif else thisform.resize &執(zhí)行表單的resize事件 endif endifset exact off &設(shè)置字符非精確比較在“取消”按鈕的click事件中添加以下代碼：quit &退出在控件listview1的itemclick事件中添加以下代碼：manager=alltrim(thisform.listview1.selecteditem.text)thisform.text2.value=managerthisform.text1.setfocus &文本框獲得焦點(diǎn)4.3 小區(qū)信息生成設(shè)計(jì)用戶單擊快捷工具欄上的“經(jīng)營(yíng)部”按鈕，在彈出的功能列表項(xiàng)中選擇“小區(qū)信息生成”選項(xiàng)，進(jìn)入小區(qū)信息生成界面。通過小區(qū)信息生成模塊可進(jìn)行小區(qū)區(qū)域數(shù)量的生成。小區(qū)信息生成運(yùn)行結(jié)果如圖4所示。圖4 小區(qū)信息生成表單運(yùn)行結(jié)果1表單設(shè)計(jì)（1）在物業(yè)管理系統(tǒng)的項(xiàng)目中，新建一個(gè)表單，命名為為“小區(qū)信息生成”。（2）在表單中添加label控件、spinner控件、commandgroup控件、shape控件。（3）重要控件的重要屬性如表4所示。表4 重要控件的重要屬性及值對(duì)象屬性值labelautosizetrueshapeborderstyle1-實(shí)線(默認(rèn)值)shapespecialeffect0-3維2代碼設(shè)計(jì)單擊“開始生成”按鈕，將自動(dòng)生成小區(qū)基本信息保存到小區(qū)信息表“tabxqinfo”中。小區(qū)編號(hào)區(qū)域由微調(diào)框所指定。如果數(shù)據(jù)表中有該小區(qū)編號(hào)，將不被生成。保存完畢，調(diào)入“小區(qū)信息登記”表單，進(jìn)行小區(qū)詳細(xì)信息的添加。具體代碼如下：cstart=thisform.spinner1.valuecend=thisform.spinner2.values=alltrim(str(cstart)e=alltrim(str(cend)cpicture=sys(5)+sys(2003)+imagesemptyimage.bmpcmessagetitle=小區(qū)信息生成cmessagetext=確認(rèn)生成編號(hào)為 +s+至 +e+的小區(qū)信息嗎？nanswer=messagebox(cmessagetext, 4+32,cmessagetitle)do case case nanswer=6 i=1 for i=cstart to cend xqno=alltrim(str(i) select *; from wygldatabasewuyemanage!tabxqinfo; where 小區(qū)編號(hào)=xqno; into cursor lindep if reccount()=0 insert into tabxqinfo values(xqno,0,0,0,0,0,0,cpicture,ctod(),ctod() endif endfor messagebox(數(shù)據(jù)保存成功！,48,小區(qū)信息生成) thisform.release do form wyglform小區(qū)信息登記 &調(diào)入表單 case nanswer=7 thisform.spinner1.setfocusendcase4.4 業(yè)主信息登記設(shè)計(jì)用戶進(jìn)入系統(tǒng)后，單擊主界面“管理部”按鈕，在彈出的功能選項(xiàng)表中選擇“業(yè)主信息登記”選項(xiàng)，進(jìn)入業(yè)主信息登記界面。通過業(yè)主信息登記界面可以實(shí)現(xiàn)添加、修改、刪除、業(yè)主信息，可以通過查詢方式瀏覽業(yè)主信息及用戶單擊相應(yīng)的業(yè)主代號(hào)選項(xiàng)，再單擊修改業(yè)主信息按鈕或添加新業(yè)主按鈕可直接調(diào)用業(yè)主信息界面。業(yè)主信息登記運(yùn)行結(jié)果如圖5所示。圖5 業(yè)主信息登記表單運(yùn)行結(jié)果1表單設(shè)計(jì)（1）在物業(yè)管理系統(tǒng)的項(xiàng)目中，新建一個(gè)表單，包含form1、form2 、form3 、form4的表單集，名稱為“業(yè)主信息登記”。（2）在form1表單中添加label、combo控件、text控件、grid控件、list控件、command控件、commandgroup控件、optiogroup控件、date and time picker控件、edit控件。（3）重要控件屬性如表5所示。表5 重要控件的重要屬性及值控件名屬性值功能form1.combo1rowsourcerowsourcetypetabxqinfo.小區(qū)名稱6-字段提供小區(qū)列表form1.grid1columncount1提供大樓列表form1.grid3columncountrecordsource21tabyzinfo提供業(yè)主信息列表form1.list1columncountcolumnwidthsrowsourcetype290,706-字段提供房屋列表form3.combo2rowsourcerowsourcetype已進(jìn)住,未進(jìn)住1-值提供是否進(jìn)住列表form3.grid1columncountrecordsource27tabrkinfo提供家庭員列表2代碼設(shè)計(jì)在form1表單的“添加新業(yè)主”按鈕的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(請(qǐng)選擇小區(qū)名稱、大樓名稱和房屋編號(hào)！,48,操作失敗)else select tabyzinfo locate for 購(gòu)入房編號(hào)=yfw &順序查詢 if found() messagebox(此房屋已住人！,48,業(yè)主信息登記) else thisform.parent.form3.visible=.t. &顯示表單 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) thisform.parent.form3.text1.value=yxq thisform.parent.form3.text2.value=ydl thisform.parent.form3.text3.value=fjno thisform.parent.form3.text4.value=yfw thisform.parent.form3.text5.value=yfw store to thisform.parent.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.value,bo1.value,; bo2.value,bo3.value thisform.parent.form3.grid1.recordsource= thisform.parent.form3.text5.setfocus &text5獲得焦點(diǎn) endifendif在form1表單的“修改業(yè)主信息”按鈕的click事件中添加以下代碼：cvalue=alltrim(thisform.text3.value)if !empty(cvalue)thisform.parent.form3.visible=.t.public yzdh &定義全局變量yzdh=alltrim(thisform.text3.value)select *;from wuyemanage!tabyzinfo;where 業(yè)主代號(hào)=yzdh;into cursor lxgyzinfo &此處省略了給業(yè)主信息賦值的代碼（如：thisform.parent.form3.text1.value=lxgyzinfo.小區(qū)名稱）select *;from wuyemanage!tabrkinfo;where 房間編號(hào)=alltrim(thisform.parent.form3.text4.value);order by 人口編號(hào);into cursor lincythisform.parent.form3.grid1.recordsource=lincy &賦數(shù)據(jù)源thisform.parent.form3.text5.setfocus &text5獲得焦點(diǎn)else messagebox(請(qǐng)選擇業(yè)主代號(hào)！,48,業(yè)主信息登記)endif在form1表單的“刪除業(yè)主信息”按鈕的click事件中添加以下代碼：yzno=alltrim(thisform.text3.value)cmessagetitle=業(yè)主信息登記cmessagetext=確定要?jiǎng)h除嗎？ndialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nanswer=6 select tabyzinfo use use wygl/database/tabyzinfo exclusive &以獨(dú)占的方式打開數(shù)據(jù)表 dele from tabyzinfo where 業(yè)主代號(hào)=yzno &邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號(hào)) pack &物理刪除 update wuyemanage!tabfwinfo set 房主代號(hào)=,房主姓名=,是否空閑=.t.,房屋狀態(tài)=空閑 ; where 房主代號(hào)=yzno &更新數(shù)據(jù)表 messagebox(刪除完畢,48,操作成功！) use wygldatabasetabyzinfo eractivechange &執(zhí)行optiongroup1的interactionchange事件 thisform.text3.value= thisform.refreshendif在form1表單的text1控件的click事件中添加以下代碼：thisform.list1.controlsource=thisform.list1.rowsource=thisform.text2.value=thisform.text1.value=alltrim(thisform.grid1.column1.text1.value)dlname=alltrim(thisform.text1.value)select *;from wygldatabasetabfwinfo;where 大樓名稱=dlname;into cursor lindepthisform.grid3.recordsource=thisform.list1.controlsource=lindep &賦數(shù)據(jù)源thisform.list1.rowsource=房間編號(hào),房主姓名 &賦數(shù)據(jù)值的源eractivechange &執(zhí)行optiongroup1的interactivechange事件thisform.text2.value=alltrim(thisform.list1.value)thisform.refresh在form1表單的optiongroup1選項(xiàng)按鈕組的interactivechange事件中添加以下代碼：do casecase thisform.optiongroup1.option1.value=1 select *; from wuyemanage!tabyzinfo; where 大樓名稱=alltrim(thisform.text1.value); into cursor linall thisform.grid3.recordsource=linall &賦數(shù)據(jù)源 case thisform.optiongroup1.option2.value=1 select *; from wuyemanage!tabyzinfo; where 是否進(jìn)住=已進(jìn)住 and 大樓名稱=alltrim(thisform.text1.value); into cursor liny thisform.grid3.recordsource=liny &賦數(shù)據(jù)源case thisform.optiongroup1.option3.value=1 select *; from wuyemanage!tabyzinfo; where 是否進(jìn)住=未進(jìn)住and 大樓名稱=alltrim(thisform.text1.value); into cursor linw thisform.grid3.recordsource=linw單擊“確定保存業(yè)主信息”按鈕，將查找業(yè)主信息表“tabyzinfo”中是否有該業(yè)主代號(hào)，如果沒有，則將信息保存到業(yè)主信息表“tabyzinfo”和人口信息表“tabrkinfo”中，并修改房屋信息表“tabfwinfo”中的相關(guān)數(shù)據(jù)。如果有，則修改“tabyzinfo”、