《【畢業(yè)設計論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設計與實現(xiàn)（附數(shù)據(jù)庫結(jié)構(gòu)）》由會員分享，可在線閱讀，更多相關《【畢業(yè)設計論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設計與實現(xiàn)（附數(shù)據(jù)庫結(jié)構(gòu)）（33頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、更多計算機類畢業(yè)設計論文、課程設計下載請訪問：物業(yè)管理系統(tǒng)學 院專 業(yè)班 級學 號姓 名指導教師教師職稱年月日摘要【摘要】經(jīng)過十幾年的發(fā)展，中國房地產(chǎn)業(yè)逐步走向成熟，物業(yè)管理也由新生到發(fā)展再到深入，面臨著蓬勃發(fā)展的局面。隨著ISO9002等管理體系在物業(yè)管理中的引入，對原有的物業(yè)管理模式進行了一次深刻的變革，對物業(yè)管理公司朝著正規(guī)化、科學化、集團化的發(fā)展，起到有力的推動作用。隨著我國經(jīng)濟發(fā)展和城市開發(fā)，住宅小區(qū)越來越成為居住的主流，小區(qū)物業(yè)管理是針對當代社會這一市場需要應運而生的。本系統(tǒng)是為住宅小區(qū)物業(yè)管理部門日常管理工作信息化，規(guī)范化而開發(fā)的軟件。它以物業(yè)管理部門為服務中心，以業(yè)主（住戶）為
2、服務對象。通過實施各種服務項目，全面地反映了在小區(qū)物業(yè)經(jīng)營管理活動中，物業(yè)部門與業(yè)主之間各種業(yè)務往來。使各項業(yè)務的辦理迅速、準確，極大的提高了小區(qū)物業(yè)管理的工作效率。【關鍵詞】物業(yè)管理系統(tǒng)目錄摘要2目錄30 引言11 需求分析12 總體設計12.1 項目規(guī)劃12.2 系統(tǒng)功能結(jié)構(gòu)23 系統(tǒng)設計33.1 開發(fā)及運行環(huán)境33.2 數(shù)據(jù)庫設計34 主要功能模塊設計34.1 程序主界面的設計34.2 系統(tǒng)登錄界面設計74.3 小區(qū)信息生成設計104.4 業(yè)主信息登記設計124.5 小區(qū)資源統(tǒng)計設計174.6 權(quán)限設置設計21附錄A 參考文獻25附錄B 數(shù)據(jù)表26附錄C 文件架構(gòu)28 3 更多計算機類畢
3、業(yè)設計論文、課程設計下載請訪問：0 引言由于物業(yè)管理涉及的管理范圍較為廣泛，管理內(nèi)容繁雜，加上政策性的變動因素，日常工作需要耗費大量人力和物力，而采取現(xiàn)代化電腦管理手段是一種行之有效的解決方法，用計算機操作的小區(qū)物業(yè)管理系統(tǒng)是為小區(qū)管理者和小區(qū)用戶更好的維護各項物業(yè)管理業(yè)務處理工作而開發(fā)的管理軟件。電腦化管理在物業(yè)管理中的作用主要體現(xiàn)在： 適用面廣、可同時管理多個管理區(qū)和多棟大樓； 計算機完整的工程檔案與服務檔案可以使管理人員隨時了解最新的情況，更可以規(guī)范維護、服務標準，幫助管理人員合理安排工作時間。 計算機管理收費，靈活性、準確性大大提高。 強大的查詢功能，最大限度地滿足您的需要。1 需求分
4、析根據(jù)該物業(yè)的具體情況，系統(tǒng)主要的功能包括：l 經(jīng)營部：“小區(qū)信息生成”、“大樓信息生成”、“房屋信息生成”、“小區(qū)信息登記”、“大樓信息登記”、“房屋信息登記”、“系統(tǒng)數(shù)據(jù)設定”。l 管理部：“業(yè)主信息登記”、“人口信息查詢”、“小區(qū)投訴登記”、“小區(qū)投訴查詢”、“小區(qū)員工管理”、“系統(tǒng)數(shù)據(jù)設定”。l 工程部：“裝修隊登記”、“維修信息登記”、“維修信息查詢”、“裝修信息登記”、“裝修信息查詢”。l 財務部：“收費登記管理”、“水費查詢管理”、“電費查詢管理”、“煤氣費查詢管理”、“采暖費查詢管理”、“其它費用查詢管理”。l 保安部：“保安排班管理”、“保安排班查詢”。l 經(jīng)理部：“小區(qū)資源
5、統(tǒng)計”、“業(yè)主信息查詢”、“人口信息查詢”、“小區(qū)投訴查詢”、“小區(qū)員工查詢”、“裝修信息查詢”、“維修信息查詢”、“保安排班查詢”。l 系統(tǒng)管理：“操作員管理”、“權(quán)限設置”、“背景設置”。2 總體設計2.1 項目規(guī)劃物業(yè)管理系統(tǒng)是一個典型的數(shù)據(jù)庫管理系統(tǒng)，系統(tǒng)由基本信息設置、貨物托運管理、信息查詢、報表管理、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 經(jīng)營部經(jīng)營部：大區(qū)信息生成、大樓信息生成、房屋信息生成、小區(qū)信息登記、大樓信息登記、房屋信息登記、系統(tǒng)數(shù)據(jù)設定、退出。q 管理部管理部：業(yè)主信息登記、人口信息查詢、小區(qū)投訴登記、小區(qū)投訴查詢、小區(qū)員工管理、系統(tǒng)數(shù)據(jù)設定。q 財務部財務部：收
6、費登記管理、水費查詢管理、電費查詢管理、煤氣費查詢管理、采曖費查詢管理、其它費用查詢管理。q 保安部保安排班管理、保安排班查詢。q 經(jīng)理室小區(qū)資源統(tǒng)計、業(yè)主信息查詢、人口信息查詢、小區(qū)投訴查詢、小區(qū)員工查詢、維修信息查詢、裝修信息查詢、保安排班查詢。q 系統(tǒng)管理系統(tǒng)管理：操作員管理、權(quán)限設置、背景設置。q 幫助幫助：幫助、關于本軟件。2.2 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)共分7大部分、37個完整的功能模塊。系統(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)在設計的時候應該滿足以下幾個目標
7、：q 系統(tǒng)最大限度地實現(xiàn)了易安裝性、易維護性和易操作性。q 系統(tǒng)運行穩(wěn)定、安全可靠。q 軟件結(jié)構(gòu)清晰，功能一目了然。q 方便、快捷的全方位查詢。q 操作員可以隨時修改自己的口令。q 不同的操作員具有不同的操作權(quán)限。q 數(shù)據(jù)保密性強，為每個用戶設置權(quán)限級別。3 系統(tǒng)設計3.1 開發(fā)及運行環(huán)境系統(tǒng)開發(fā)平臺：Microsoft Visual FoxPro 6.0。運行平臺：Windows XP/ Windows 2000/ Windows 2003分辨率：最佳效果1024768像素3.2 數(shù)據(jù)庫設計1數(shù)據(jù)庫概要說明本系統(tǒng)采用的是Visual FoxPro自帶的數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名為DataBase。
8、限于篇幅所限，下面只給出重要數(shù)據(jù)表的表結(jié)構(gòu)。數(shù)據(jù)庫“Wuyemanage”中包含26個表：部門信息表Tabbminfo、采暖費表Tabcnmoney、電費表Tabdianmoney、大樓信息表Tabdlinfo、房間結(jié)構(gòu)表Tabfjstructure、朝向表Tabfrontage、房屋信息表Tabfwinfo、房屋統(tǒng)計表Tabfwtj、工種信息表Tabgzinfo、科目設定表Tabkmsd、煤氣費表Tabmqmoney、其它費用表Tabothermoney、排班表Tabpb、權(quán)限表Tabpurview、權(quán)屬類型表Tabqstype、人口信息表Tabrkinfo、人口統(tǒng)計表Tabrktj、水費表
9、Tabsmoney、投訴信息表Tabtsinfo、投拆統(tǒng)計表Tabtstj、維修信息表Tabwxinfo、小區(qū)信息表Tabxqinfo、員工信息表Tabyginfo、業(yè)主信息表Tabyzinfo、裝修隊信息表Tabzxgroup、裝修信息表Tabzxinfo。2主要數(shù)據(jù)表的結(jié)構(gòu)數(shù)據(jù)庫中的數(shù)據(jù)表請參見附錄B。4 主要功能模塊設計4.1 程序主界面的設計程序啟動后，在系統(tǒng)登錄界面驗證操作員密碼后，將進入程序主界面的設計。通過程序主界面可以執(zhí)行相應權(quán)限的操作，并且可以通過選擇主界面菜單或按鈕，調(diào)用相應程序，進行相應操作。程序主界面的運行結(jié)果如圖2所示。圖2 程序主界面的運行結(jié)果1表單設計（1）新建一
10、個項目，名稱為物業(yè)管理系統(tǒng)，在該項目中添加一個新表單，命名為Fdesktop。（2）在表單中插入名稱為Vcxmain的ToolBar類、Image控件、listview控件、imagelist控件、Timer控件。（3）重要控件的重要屬性如表2所示。表2 重要屬性及值對象屬性值VcxmainLockScreenFalseVcxmainMovableFalseVcxmainSizeableFalseTimerInterVal102類代碼設計在類的Init事件中添加以下代碼：public bz &定義全局變量bz=.f.this.listview1.view=2 &設置視圖顯示方式this.lis
11、tview1.Icons=this.imagelist1.objectthis.listview1.smallicons=this.imagelist1.object&添加列表項=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.list
12、view1.listitems.add(,房屋信息登記,1)=this.listview1.listitems.add(,系統(tǒng)數(shù)據(jù)設定,1)單擊快捷工具條上的“經(jīng)營部”按鈕，將在左側(cè)的List列表中顯示經(jīng)營部各功能選項。各功能選項由圖標和標識性文字組成。具體代碼如下：在“經(jīng)營部”按鈕的Click事件中添加以下代碼：this.parent.listview1.listItems.clear &清除數(shù)據(jù)this.parent.listview1.view=2 &設置視圖顯示方式*將ImageList控件圖片賦予Listview控件this.parent.listview1.Icons=this.p
13、arent.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.list
14、items.add(,大樓信息登記,1)=this.parent.listview1.listitems.add(,房屋信息登記,1)=this.parent.listview1.listitems.add(,系統(tǒng)數(shù)據(jù)設定,1)在“管理部”按鈕的Click事件中添加以下代碼：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist1.objectthis.parent.listview1.smallicons=this.pa
15、rent.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ù)設
16、定,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(,裝修隊登記,3)=this.parent.listview1.listitems.a
17、dd(,維修信息登記,3)=this.parent.listview1.listitems.add(,維修信息查詢,3)=this.parent.listview1.listitems.add(,裝修信息登記,3)=this.parent.listview1.listitems.add(,裝修信息查詢,3)pjyb=.t.在“財務部”按鈕的Click事件中添加以下代碼：this.parent.listview1.listItems.clearthis.parent.listview1.view=2this.parent.listview1.Icons=this.parent.imagelist
18、1.objectthis.parent.listview1.smallicons=this.parent.imagelist1.object=this.parent.listview1.listitems.add(,收費登記管理,4)=this.parent.listview1.listitems.add(,水費查詢管理,4)=this.parent.listview1.listitems.add(,電費查詢管理,4)=this.parent.listview1.listitems.add(,煤氣費查詢管理,4)=this.parent.listview1.listitems.add(,采暖費
19、查詢管理,4)=this.parent.listview1.listitems.add(,其它費用查詢管理 ,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.list
20、items.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.list
21、view1.listitems.add(,小區(qū)資源統(tǒng)計,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
22、.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.listview
23、1.listitems.add(,操作員管理,7)=this.parent.listview1.listitems.add(,權(quán)限設置,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.li
24、stview1.listitems.add(,幫助,8)=this.parent.listview1.listitems.add(,關于本軟件,8)pjyb=.t.在“退出”按鈕的Click事件中添加以下代碼：quit &退出主程序在控件image1的Click事件中添加以下代碼：mdl.filter=圖片|*.bmp;*.jpg &設置文件類型為.BMP或.JPGmdl.showopen &顯示打開對話框this.parent.rq.image2.picture=mdl.filename &顯示選定文件的名字4.2 系統(tǒng)登錄界面設計用戶進入系統(tǒng)前，必須通過系統(tǒng)登錄進入程序主界面，通過系統(tǒng)登錄
25、界面可以對用戶的身份及使用權(quán)限進行確認。系統(tǒng)登錄表單運行結(jié)果如圖3所示。圖3 系統(tǒng)登錄表單運行結(jié)果1表單設計（1）在物業(yè)管理系統(tǒng)的項目中，新建一個表單，命名為Admin。（2）在表單中添加ImageList控件、Image控件、ListView控件、ImageList控件、Text控件、Label控件、Commandgroup控件。（3）重要控件屬性如表3所示。表3 重要控件的重要屬性及值控件名屬性值功能Text1PasswordChar*提供密碼輸入2代碼設計定義全局變量cn，用來判斷輸入操作員或密碼的次數(shù)，當cn大于3時，將自動退出系統(tǒng)。在List列表中顯示所有的操作員姓名和代表其權(quán)限級別
26、的圖標。在表單的Init事件中添加以下代碼：public cn &定義全局變量cn=0 &給全局變量賦初值thisform.listview1.view=0 &設置視圖顯示方式thisform.listview1.Icons=thisform.imagelist1.objectthisform.listview1.smallicons=thisform.imagelist1.objectselect tabpurview &選定Tabpurview工作區(qū)為當前工作區(qū)select *;from wuyemanage!tabpurview;where 權(quán)限級別=1;order by tabpurv
27、iew.操作員姓名;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 權(quán)限級別=2;order by tabpurview.操作員姓名;into cursor gjczydo while !EOF() &測試當前記錄指
28、針是否在文件尾 key=alltrim(gjczy.操作員姓名) =thisform.listview1.listitems.add(,key,2) &添加一個列表項 skip &記錄指針向下移動一條記錄enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 權(quán)限級別=3;order by tabpurview.操作員姓名;into cursor ybczydo while !EOF() &測試當前記錄指針是否在文件尾 key=alltrim(ybczy.操作員姓名) =thisform.listview1.listite
29、ms.add(,key,3) &添加一個列表項 skip &記錄指針向下移動一條記錄enddoselect tabpurviewselect *;from wuyemanage!tabpurview;where 權(quán)限級別=4;order by tabpurview.操作員姓名;into cursor zdydo while !EOF() &測試當前記錄指針是否在文件尾 key=alltrim(zdy.操作員姓名) =thisform.listview1.listitems.add(,key,4) &添加一個列表項 skip &記錄指針向下移動一條記錄enddo程序員將反復使用的代碼存到了Res
30、ize 事件中，將該事件當做一個過程來調(diào)用。 Resize在本程序中并沒有什么實際意義。在表單的Resize事件中添加以下代碼：purview=val(alltrim(tabpurview.權(quán)限級別) pjyb=tabpurview.經(jīng)營部pglb=tabpurview.管理部pgcb=tabpurview.工程部pcwb=tabpurview.財務部pbab=tabpurview.保安部pjls=tabpurview.經(jīng)理室psysgl=tabpurview.系統(tǒng)管理manager=alltrim(thisform.text2.value)do form formfdesktop &調(diào)入表單
31、fdesktopthisform.release &刷新表單單擊“登錄”按鈕，系統(tǒng)將判斷密碼是否正確。如果密碼不正確，將提示重新輸入，三次后仍不正確，系統(tǒ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 pjy
32、b,pglb,pgcb,pcwb,pbab,pjls,psysgl &給多個內(nèi)存變量賦予相同的值elseseek cname &查找輸入的操作員姓名set exact on &設置字符精確比較if alltrim(tabpurview.密碼)!=ppasswordcn=cn+1cmessagetitle=系統(tǒng)登錄cmessagetext=密碼錯誤，請重新輸入！ndialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value=
33、 thisform.text1.setfocus &文本框獲得焦點 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 &設置字符非精確比較在“取消”按鈕的Click事件中添加以下代碼：quit &退出在控件listview1的ItemClick事件中添加以下代碼：manager=alltrim(thisform.list
34、view1.selecteditem.text)thisform.text2.value=managerthisform.text1.setfocus &文本框獲得焦點4.3 小區(qū)信息生成設計用戶單擊快捷工具欄上的“經(jīng)營部”按鈕，在彈出的功能列表項中選擇“小區(qū)信息生成”選項，進入小區(qū)信息生成界面。通過小區(qū)信息生成模塊可進行小區(qū)區(qū)域數(shù)量的生成。小區(qū)信息生成運行結(jié)果如圖4所示。圖4 小區(qū)信息生成表單運行結(jié)果1表單設計（1）在物業(yè)管理系統(tǒng)的項目中，新建一個表單，命名為為“小區(qū)信息生成”。（2）在表單中添加Label控件、Spinner控件、Commandgroup控件、Shape控件。（3）重要控件
35、的重要屬性如表4所示。表4 重要控件的重要屬性及值對象屬性值LabelAutoSizeTrueShapeBorderStyle1-實線(默認值)ShapeSpecialEffect0-3維2代碼設計單擊“開始生成”按鈕，將自動生成小區(qū)基本信息保存到小區(qū)信息表“Tabxqinfo”中。小區(qū)編號區(qū)域由微調(diào)框所指定。如果數(shù)據(jù)表中有該小區(qū)編號，將不被生成。保存完畢，調(diào)入“小區(qū)信息登記”表單，進行小區(qū)詳細信息的添加。具體代碼如下：cstart=thisform.spinner1.valuecend=thisform.spinner2.values=alltrim(str(cstart)e=alltrim
36、(str(cend)cpicture=sys(5)+sys(2003)+imagesemptyimage.bmpcmessagetitle=小區(qū)信息生成cmessagetext=確認生成編號為 +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ū)編號=xqno; in
37、to 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è)主信息登記設計用戶進入系統(tǒng)后，單擊主界面“管理部”按鈕，在彈出的功能選項表中選擇“業(yè)主信息登記”選項，進入業(yè)主信
38、息登記界面。通過業(yè)主信息登記界面可以實現(xiàn)添加、修改、刪除、業(yè)主信息，可以通過查詢方式瀏覽業(yè)主信息及用戶單擊相應的業(yè)主代號選項，再單擊修改業(yè)主信息按鈕或添加新業(yè)主按鈕可直接調(diào)用業(yè)主信息界面。業(yè)主信息登記運行結(jié)果如圖5所示。圖5 業(yè)主信息登記表單運行結(jié)果1表單設計（1）在物業(yè)管理系統(tǒng)的項目中，新建一個表單，包含F(xiàn)orm1、Form2 、Form3 、Form4的表單集，名稱為“業(yè)主信息登記”。（2）在Form1表單中添加Label、Combo控件、Text控件、Grid控件、List控件、Command控件、Commandgroup控件、Optiogroup控件、Date and Time Pic
39、ker控件、Edit控件。（3）重要控件屬性如表5所示。表5 重要控件的重要屬性及值控件名屬性值功能Form1.Combo1RowSourceRowSourceTypetabxqinfo.小區(qū)名稱6-字段提供小區(qū)列表Form1.Grid1ColumnCount1提供大樓列表Form1.Grid3ColumnCountRecordSource21tabyzinfo提供業(yè)主信息列表Form1.List1ColumnCountColumnWidthsRowSourceType290,706-字段提供房屋列表Form3.Combo2RowSourceRowSourceType已進住,未進住1-值提供是
40、否進住列表Form3.Grid1ColumnCountRecordSource27tabrkinfo提供家庭員列表2代碼設計在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ū)名稱、大樓名稱和房屋編號！,48,操作失敗)else select tabyzinfo locate
41、for 購入房編號=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.va
42、lue=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.valu
43、e,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獲得焦點 endifendif在Form1表單的“修改業(yè)主信息”按鈕的Click事件中添加以下代碼：cvalue=alltrim(thisform.text3.value)if !empty(cvalue)thisfo
44、rm.parent.form3.visible=.t.public yzdh &定義全局變量yzdh=alltrim(thisform.text3.value)select *;from wuyemanage!tabyzinfo;where 業(yè)主代號=yzdh;into cursor lxgyzinfo &此處省略了給業(yè)主信息賦值的代碼（如：thisform.parent.form3.text1.value=lxgyzinfo.小區(qū)名稱）select *;from wuyemanage!tabrkinfo;where 房間編號=alltrim(thisform.parent.form3.tex
45、t4.value);order by 人口編號;into cursor lincythisform.parent.form3.grid1.recordsource=lincy &賦數(shù)據(jù)源thisform.parent.form3.text5.setfocus &Text5獲得焦點else messagebox(請選擇業(yè)主代號！,48,業(yè)主信息登記)endif在Form1表單的“刪除業(yè)主信息”按鈕的Click事件中添加以下代碼：yzno=alltrim(thisform.text3.value)cmessagetitle=業(yè)主信息登記cmessagetext=確定要刪除嗎？ndialogtype
46、=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabyzinfo use use wygl/database/tabyzinfo exclusive &以獨占的方式打開數(shù)據(jù)表 dele from tabyzinfo where 業(yè)主代號=yzno &邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號) pack &物理刪除 update wuyemanage!tabfwinfo set 房主代號=,房主姓名=,是否空閑=.t.,房屋狀態(tài)=空閑
47、; where 房主代號=yzno &更新數(shù)據(jù)表 messagebox(刪除完畢,48,操作成功！) use wygldatabasetabyzinfo thisform.optiongroup1.interactivechange &執(zhí)行Optiongroup1的Interactionchange事件 thisform.text3.value= thisform.refreshendif在Form1表單的text1控件的Click事件中添加以下代碼：thisform.list1.controlsource=thisform.list1.rowsource=thisform.text2.val
48、ue=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=房間編號,房主姓名 &賦數(shù)據(jù)值的源thisform.optio
49、ngroup1.interactivechange &執(zhí)行Optiongroup1的Interactivechange事件thisform.text2.value=alltrim(thisform.list1.value)thisform.refresh在Form1表單的optiongroup1選項按鈕組的InteractiveChange事件中添加以下代碼：do casecase thisform.optiongroup1.option1.value=1 select *; from wuyemanage!tabyzinfo; where 大樓名稱=alltrim(thisform.text
50、1.value); into cursor linall thisform.grid3.recordsource=linall &賦數(shù)據(jù)源 case thisform.optiongroup1.option2.value=1 select *; from wuyemanage!tabyzinfo; where 是否進住=已進住 and 大樓名稱=alltrim(thisform.text1.value); into cursor liny thisform.grid3.recordsource=liny &賦數(shù)據(jù)源case thisform.optiongroup1.option3.value
51、=1 select *; from wuyemanage!tabyzinfo; where 是否進住=未進住and 大樓名稱=alltrim(thisform.text1.value); into cursor linw thisform.grid3.recordsource=linw單擊“確定保存業(yè)主信息”按鈕，將查找業(yè)主信息表“Tabyzinfo”中是否有該業(yè)主代號，如果沒有，則將信息保存到業(yè)主信息表“Tabyzinfo”和人口信息表“Tabrkinfo”中，并修改房屋信息表“Tabfwinfo”中的相關數(shù)據(jù)。如果有，則修改“Tabyzinfo”、“Tabrkinfo”和“Tabfwinf
52、o”中相關數(shù)據(jù)。系統(tǒng)將自動生成七位的人口編號（如“RK00007”）。具體代碼如下：在Form3表單的“確定保存業(yè)主信息”按鈕的Click事件中添加以下代碼：yzdh=alltrim(thisform.text5.value)yzname=alltrim(thisform.text6.value)sex=alltrim(bo1.displayvalue)lxdz=alltrim(thisform.text11.value)sj=alltrim(thisform.text7.value)tel=alltrim(thisform.text9.value)workdw=alltrim(thisfor
53、m.text14.value)dwtel=alltrim(thisform.text13.value)zjname=alltrim(bo3.displayvalue)zjnumber=alltrim(thisform.text12.value)sfjz=alltrim(bo2.displayvalue)gfhtno=alltrim(thisform.text10.value)glxysno=alltrim(thisform.text8.value)fwno=alltrim(thisform.text4.value)xqname=alltrim(thisform.text1.value)dlna
54、me=alltrim(thisform.text2.value)fjno=alltrim(thisform.text3.value)if sfjz=已進住 fwzt=入住else fwzt=簽約endifselect tabrkinfoif empty(人口編號) rknumber=alltrim(RK00001)else select max(人口編號) from tabrkinfo into array a &查找表中最大的人口編號存入數(shù)組 cend=val(substr(a(1),3)+1 rknumber=alltrim(RK+padl(alltrim(str(cend,5),5,0)
55、endifif empty(yzname) or empty(gfhtno) or empty(glxysno) or ;empty(zjnumber) or empty(zjname) or (empty(tel) and empty(sj) messagebox(請將信息添全！,48,操作失敗)else select tabyzinfo locate for 業(yè)主代號=yzdh &順序查詢 if !found() insert into tabyzinfo values(yzdh,yzname,sex,lxdz,sj,tel,workdw,dwtel,zjname,zjnumber,; d
56、ate1,date3,date2,date4,sfjz,gfhtno,glxysno,fwno,xqname,dlname,fjno) &追加新記錄 update wuyemanage!tabfwinfo set 房主代號=yzdh,房主姓名=yzname,是否空閑=.f.,; 房屋狀態(tài)=fwzt where 房間編號=fwno &更新數(shù)據(jù)表 insert into tabrkinfo values(rknumber,yzname,sex,ctod(),1,戶主,workdw,; ,dwtel,sj,tel,lxdz,xqname,dlname,fjno,zjnumber,fwno,) messagebox(數(shù)據(jù)保存完畢！,48,業(yè)主信息登記) thisform.parent.form1.grid1.column1.text1.click &執(zhí)行Text1的Click事件 thisform.visible=.f. &隱藏表單 else update wuyemanage!tabyzinfo set 業(yè)主姓名=yzname
【畢業(yè)設計論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設計與實現(xiàn)（附數(shù)據(jù)庫結(jié)構(gòu)）
