《【畢業(yè)設計論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設計與實現(xiàn)（附數據庫結構）》由會員分享，可在線閱讀，更多相關《【畢業(yè)設計論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設計與實現(xiàn)（附數據庫結構）（33頁珍藏版）》請在裝配圖網上搜索。

1、更多計算機類畢業(yè)設計論文、課程設計下載請訪問： 物業(yè)管理系統(tǒng) 學 院 專 業(yè) 班 級 學 號 姓 名 指導教師 教師職稱 年 月 日 摘要 【摘要】 經過十幾年的發(fā)展，中國房地產業(yè)逐步走向成熟，物業(yè)管理也由新生到發(fā)展再到深入，面臨著蓬勃發(fā)展的局面。隨著ISO9002等管理體系在物業(yè)管理中的引入，對原有的物業(yè)管理模式進行了一次深刻的變革，對物業(yè)管理公司朝著正規(guī)化、科學化、集團化的發(fā)展，起到有力的推動作用。 隨著我國經

2、濟發(fā)展和城市開發(fā)，住宅小區(qū)越來越成為居住的主流，小區(qū)物業(yè)管理是針對當代社會這一市場需要應運而生的。本系統(tǒng)是為住宅小區(qū)物業(yè)管理部門日常管理工作信息化，規(guī)范化而開發(fā)的軟件。它以物業(yè)管理部門為服務中心，以業(yè)主（住戶）為服務對象。通過實施各種服務項目，全面地反映了在小區(qū)物業(yè)經營管理活動中，物業(yè)部門與業(yè)主之間各種業(yè)務往來。使各項業(yè)務的辦理迅速、準確，極大的提高了小區(qū)物業(yè)管理的工作效率。 【關鍵詞】物業(yè)管理系統(tǒng) 目錄 摘要 2 目錄 3 0 引言 1 1 需求分析 1 2 總體設計 1 2.1 項目規(guī)劃 1 2.2 系統(tǒng)功能結構 2 3 系統(tǒng)設計 3 3.1

3、 開發(fā)及運行環(huán)境 3 3.2 數據庫設計 3 4 主要功能模塊設計 3 4.1 程序主界面的設計 3 4.2 系統(tǒng)登錄界面設計 7 4.3 小區(qū)信息生成設計 10 4.4 業(yè)主信息登記設計 12 4.5 小區(qū)資源統(tǒng)計設計 17 4.6 權限設置設計 21 附錄A 參考文獻 25 附錄B 數據表 26 附錄C 文件架構 28 – 3 – 更多計算機類畢業(yè)設計論文、課程設計下載請訪問： 0 引言 由于物業(yè)管理涉及的管理范圍較為廣泛，管理內容繁雜，加上政策性的變動因素，日常工作需要耗費大量人力和物力，而采取現(xiàn)代化電腦管理手段是一

4、種行之有效的解決方法，用計算機操作的小區(qū)物業(yè)管理系統(tǒng)是為小區(qū)管理者和小區(qū)用戶更好的維護各項物業(yè)管理業(yè)務處理工作而開發(fā)的管理軟件。電腦化管理在物業(yè)管理中的作用主要體現(xiàn)在： 適用面廣、可同時管理多個管理區(qū)和多棟大樓； 計算機完整的工程檔案與服務檔案可以使管理人員隨時了解最新的情況，更可以規(guī)范維護、服務標準，幫助管理人員合理安排工作時間。 計算機管理收費，靈活性、準確性大大提高。 強大的查詢功能，最大限度地滿足您的需要。 1 需求分析 根據該物業(yè)的具體情況，系統(tǒng)主要的功能包括： l 經營部：“小區(qū)信息生成”、“大樓信息生成”、“房屋信息生成”、“小區(qū)信息登記”、“大樓信息

5、登記”、“房屋信息登記”、“系統(tǒng)數據設定”。 l 管理部：“業(yè)主信息登記”、“人口信息查詢”、“小區(qū)投訴登記”、“小區(qū)投訴查詢”、“小區(qū)員工管理”、“系統(tǒng)數據設定”。 l 工程部：“裝修隊登記”、“維修信息登記”、“維修信息查詢”、“裝修信息登記”、“裝修信息查詢”。 l 財務部：“收費登記管理”、“水費查詢管理”、“電費查詢管理”、“煤氣費查詢管理”、“采暖費查詢管理”、“其它費用查詢管理”。 l 保安部：“保安排班管理”、“保安排班查詢”。 l 經理部：“小區(qū)資源統(tǒng)計”、“業(yè)主信息查詢”、“人口信息查詢”、“小區(qū)投訴查詢”、“小區(qū)員工查詢”、“裝修信息查詢”、“維修信息查詢”、“

6、保安排班查詢”。 l 系統(tǒng)管理：“操作員管理”、“權限設置”、“背景設置”。 2 總體設計 2.1 項目規(guī)劃 物業(yè)管理系統(tǒng)是一個典型的數據庫管理系統(tǒng)，系統(tǒng)由基本信息設置、貨物托運管理、信息查詢、報表管理、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下： q 經營部 經營部：大區(qū)信息生成、大樓信息生成、房屋信息生成、小區(qū)信息登記、大樓信息登記、房屋信息登記、系統(tǒng)數據設定、退出。 q 管理部 管理部：業(yè)主信息登記、人口信息查詢、小區(qū)投訴登記、小區(qū)投訴查詢、小區(qū)員工管理、系統(tǒng)數據設定。 q 財務部 財務部：收費登記管理、水費查詢管理、電費查詢管理、煤氣費查詢管理、采曖費查詢管理、其

7、它費用查詢管理。 q 保安部 保安排班管理、保安排班查詢。 q 經理室 小區(qū)資源統(tǒng)計、業(yè)主信息查詢、人口信息查詢、小區(qū)投訴查詢、小區(qū)員工查詢、維修信息查詢、裝修信息查詢、保安排班查詢。 q 系統(tǒng)管理 系統(tǒng)管理：操作員管理、權限設置、背景設置。 q 幫助 幫助：幫助、關于本軟件。 2.2 系統(tǒng)功能結構 本系統(tǒng)共分7大部分、37個完整的功能模塊。系統(tǒng)結構圖如圖1所示。 圖1 物業(yè)管理系統(tǒng)結構圖 3 本系統(tǒng)將信息技術與傳統(tǒng)物業(yè)管理相結合，輕松解決物業(yè)管理公司發(fā)展中遇到的諸多問題，力推物業(yè)管理公司健康、快速地發(fā)展。 本系統(tǒng)在設計的時候應該滿足以下幾個目標： q 系統(tǒng)

8、最大限度地實現(xiàn)了易安裝性、易維護性和易操作性。 q 系統(tǒng)運行穩(wěn)定、安全可靠。 q 軟件結構清晰，功能一目了然。 q 方便、快捷的全方位查詢。 q 操作員可以隨時修改自己的口令。 q 不同的操作員具有不同的操作權限。 q 數據保密性強，為每個用戶設置權限級別。 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 數據庫設計 1．數據庫概要說明 本系統(tǒng)采用的是Visual Fo

9、xPro自帶的數據庫，系統(tǒng)數據庫名為DataBase。限于篇幅所限，下面只給出重要數據表的表結構。數據庫“Wuyemanage”中包含26個表：部門信息表Tabbminfo、采暖費表Tabcnmoney、電費表Tabdianmoney、大樓信息表Tabdlinfo、房間結構表Tabfjstructure、朝向表Tabfrontage、房屋信息表Tabfwinfo、房屋統(tǒng)計表Tabfwtj、工種信息表Tabgzinfo、科目設定表Tabkmsd、煤氣費表Tabmqmoney、其它費用表Tabothermoney、排班表Tabpb、權限表Tabpurview、權屬類型表Tabqstype、人口信息

10、表Tabrkinfo、人口統(tǒng)計表Tabrktj、水費表Tabsmoney、投訴信息表Tabtsinfo、投拆統(tǒng)計表Tabtstj、維修信息表Tabwxinfo、小區(qū)信息表Tabxqinfo、員工信息表Tabyginfo、業(yè)主信息表Tabyzinfo、裝修隊信息表Tabzxgroup、裝修信息表Tabzxinfo。 2．主要數據表的結構 數據庫中的數據表請參見附錄B。 4 主要功能模塊設計 4.1 程序主界面的設計 程序啟動后，在系統(tǒng)登錄界面驗證操作員密碼后，將進入程序主界面的設計。通過程序主界面可以執(zhí)行相應權限的操作，并且可以通過選擇主界面菜單或按鈕，調用相應程序，進行相應操作。

11、程序主界面的運行結果如圖2所示。 圖2 程序主界面的運行結果 1．表單設計 （1）新建一個項目，名稱為物業(yè)管理系統(tǒng)，在該項目中添加一個新表單，命名為Fdesktop。 （2）在表單中插入名稱為Vcxmain的ToolBar類、Image控件、listview控件、imagelist控件、Timer控件。 （3）重要控件的重要屬性如表2所示。 表2 重要屬性及值 對象 屬性 值 Vcxmain LockScreen False Vcxmain Movable False Vcxmain Sizeable

12、 False Timer InterVal 10 2．類代碼設計 在類的Init事件中添加以下代碼： public bz &&定義全局變量 bz=.f. this.listview1.view=2 &&設置視圖顯示方式 this.listview1.Icons=this.imagelist1.object this.listview1.smallicons=this.imagelist1.object &&添加列表項 =this.listview1.li

13、stitems.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)數據設定,,1) 單擊快捷工具條上的

14、“經營部”按鈕，將在左側的List列表中顯示經營部各功能選項。各功能選項由圖標和標識性文字組成。具體代碼如下： 在“經營部”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear &&清除數據 this.parent.listview1.view=2 &&設置視圖顯示方式 *將ImageList控件圖片賦予Listview控件 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=

15、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.l

16、istview1.listitems.add(,,房屋信息登記,,1) =this.parent.listview1.listitems.add(,,系統(tǒng)數據設定,,1) 在“管理部”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.ob

17、ject =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(,,

18、系統(tǒng)數據設定,,2) pjyb=.t. 在“工程部”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.listitems.add(,,裝修隊登記,,3) =this.pare

19、nt.listview1.listitems.add(,,維修信息登記,,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.clear this.parent.listview1.view=2 t

20、his.parent.listview1.Icons=this.parent.imagelist1.object this.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.li

21、stitems.add(,,煤氣費查詢管理,,4) =this.parent.listview1.listitems.add(,,采暖費查詢管理,,4) =this.parent.listview1.listitems.add(,,其它費用查詢管理 ,,4) pjyb=.t. 在“保安部”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object thi

22、s.parent.listview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.listitems.add(,,保安排班管理,,5) =this.parent.listview1.listitems.add(,,保安排班查詢,,5) pjyb=.t. 在“經理室”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear this.parent.listview1.view=2 this.parent.listview1.Icons=this

23、.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.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

24、.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.clear this.parent.listview1.v

25、iew=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.listitems.add(,,操作員管理,,7) =this.parent.listview1.listitems.add(,,權限設置,,7) pjyb=.t. 在“幫助”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clea

26、r this.parent.listview1.view=2 this.parent.listview1.Icons=this.parent.imagelist1.object this.parent.listview1.smallicons=this.parent.imagelist1.object =this.parent.listview1.listitems.add(,,幫助,,8) =this.parent.listview1.listitems.add(,,關于本軟件,,8) pjyb=.t. 在“退出”按鈕的Click事件中添加以下代碼： quit &&退

27、出主程序 在控件image1的Click事件中添加以下代碼： mdl.filter=圖片|*.bmp;*.jpg &&設置文件類型為.BMP或.JPG mdl.showopen &&顯示打開對話框 this.parent.rq.image2.picture=mdl.filename &&顯示選定文件的名字 4.2 系統(tǒng)登錄界面設計 用戶進入系統(tǒng)前，必須通過系統(tǒng)登錄進入程序主界面，通過系統(tǒng)登錄界面可以對用戶的身份及使用權限進行確認。系統(tǒng)登錄表單運行結果如圖3所示。 圖3 系統(tǒng)登錄表單運行結果 1．表單設計 （1）在物業(yè)管理系統(tǒng)的項目中，新建一個表單

28、，命名為Admin。 （2）在表單中添加ImageList控件、Image控件、ListView控件、ImageList控件、Text控件、Label控件、Commandgroup控件。 （3）重要控件屬性如表3所示。 表3 重要控件的重要屬性及值 控件名 屬性 值 功能 Text1 PasswordChar * 提供密碼輸入 2．代碼設計 定義全局變量cn，用來判斷輸入操作員或密碼的次數，當cn大于3時，將自動退出系統(tǒng)。在List列表中顯示所有的操作員姓名和代表其權限級別的圖標。 在表單的Init事件中添加

29、以下代碼： public cn &&定義全局變量 cn=0 &&給全局變量賦初值 thisform.listview1.view=0 &&設置視圖顯示方式 thisform.listview1.Icons=thisform.imagelist1.object thisform.listview1.smallicons=thisform.imagelist1.object select tabpurview &&選定Tabpurview工作區(qū)為當前工作區(qū) select *; from wuyemanage!tabpurview; where 權限

30、級別=1; order by tabpurview.操作員姓名; into cursor sysgly thisform.text2.value=sysgly.操作員姓名 thisform.text1.value= key=alltrim(sysgly.操作員姓名) &&賦值給變量key =thisform.listview1.listitems.add(,,key,1) &&添加一個列表項 select tabpurview select *; from wuyemanage!tabpurview; where 權限級別=2; order by tabp

31、urview.操作員姓名; into cursor gjczy do while !EOF() &&測試當前記錄指針是否在文件尾 key=alltrim(gjczy.操作員姓名) =thisform.listview1.listitems.add(,,key,2) &&添加一個列表項 skip &&記錄指針向下移動一條記錄 enddo select tabpurview select *; from wuyemanage!tabpurview; where 權限級別=3; order by tabpurview.操作員

32、姓名; into cursor ybczy do while !EOF() &&測試當前記錄指針是否在文件尾 key=alltrim(ybczy.操作員姓名) =thisform.listview1.listitems.add(,,key,3) &&添加一個列表項 skip &&記錄指針向下移動一條記錄 enddo select tabpurview select *; from wuyemanage!tabpurview; where 權限級別=4; order by tabpurview.操作員姓名; into curs

33、or zdy do while !EOF() &&測試當前記錄指針是否在文件尾 key=alltrim(zdy.操作員姓名) =thisform.listview1.listitems.add(,,key,4) &&添加一個列表項 skip &&記錄指針向下移動一條記錄 enddo 程序員將反復使用的代碼存到了Resize 事件中，將該事件當做一個過程來調用。 Resize在本程序中并沒有什么實際意義。 在表單的Resize事件中添加以下代碼： purview=val(alltrim(tabpurview.權限級別)) pjyb=tabp

34、urview.經營部 pglb=tabpurview.管理部 pgcb=tabpurview.工程部 pcwb=tabpurview.財務部 pbab=tabpurview.保安部 pjls=tabpurview.經理室 psysgl=tabpurview.系統(tǒng)管理 manager=alltrim(thisform.text2.value) do form form\fdesktop &&調入表單fdesktop thisform.release &&刷新表單 單擊“登錄”按鈕，系統(tǒng)將判斷密碼是否正確。如果密碼不正確，將提示重新輸入，三次后仍不正確，系統(tǒng)將

35、自動退出。 在“登錄”按鈕的Click事件中添加以下代碼： select tabpurview cname=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 &&給多個內存

36、變量賦予相同的值 else seek cname &&查找輸入的操作員姓名 set exact on &&設置字符精確比較 if alltrim(tabpurview.密碼)!=ppassword cn=cn+1 cmessagetitle=系統(tǒng)登錄 cmessagetext=密碼錯誤，請重新輸入！ ndialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 t

37、hisform.text1.value= thisform.text1.setfocus &&文本框獲得焦點 case nanswer=7 messagebox(不要亂來！,48,系統(tǒng)登錄) thisform.release &&釋放表單 endcase if cn=3 thisform.release endif else thisform.resize

38、 &&執(zhí)行表單的Resize事件 endif endif set exact off &&設置字符非精確比較 在“取消”按鈕的Click事件中添加以下代碼： quit &&退出 在控件listview1的ItemClick事件中添加以下代碼： manager=alltrim(thisform.listview1.selecteditem.text) thisform.text2.value=manager thisform.text1.setfocus &&文本框獲得焦點 4.3 小區(qū)信息生成設計 用戶單擊快捷工具欄上的“經

39、營部”按鈕，在彈出的功能列表項中選擇“小區(qū)信息生成”選項，進入小區(qū)信息生成界面。通過小區(qū)信息生成模塊可進行小區(qū)區(qū)域數量的生成。小區(qū)信息生成運行結果如圖4所示。 圖4 小區(qū)信息生成表單運行結果 1．表單設計 （1）在物業(yè)管理系統(tǒng)的項目中，新建一個表單，命名為為“小區(qū)信息生成”。 （2）在表單中添加Label控件、Spinner控件、Commandgroup控件、Shape控件。 （3）重要控件的重要屬性如表4所示。 表4 重要控件的重要屬性及值 對象 屬性 值 Label AutoSize True Shape Bo

40、rderStyle 1-實線(默認值) Shape SpecialEffect 0-3維 2．代碼設計 單擊“開始生成”按鈕，將自動生成小區(qū)基本信息保存到小區(qū)信息表“Tabxqinfo”中。小區(qū)編號區(qū)域由微調框所指定。如果數據表中有該小區(qū)編號，將不被生成。保存完畢，調入“小區(qū)信息登記”表單，進行小區(qū)詳細信息的添加。具體代碼如下： cstart=thisform.spinner1.value cend=thisform.spinner2.value s=alltrim(str(cstart)) e=alltrim(str(cend)) cpicture=sys(5)+sys

41、(2003)"+\images\emptyimage.bmp cmessagetitle=小區(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 wygl\data

42、base\wuyemanage!tabxqinfo; where 小區(qū)編號==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,小區(qū)信息生成) thisform.release

43、 do form wygl\form\小區(qū)信息登記 &&調入表單 case nAnswer=7 thisform.spinner1.setfocus endcase 4.4 業(yè)主信息登記設計 用戶進入系統(tǒng)后，單擊主界面“管理部”按鈕，在彈出的功能選項表中選擇“業(yè)主信息登記”選項，進入業(yè)主信息登記界面。通過業(yè)主信息登記界面可以實現(xiàn)添加、修改、刪除、業(yè)主信息，可以通過查詢方式瀏覽業(yè)主信息及用戶單擊相應的業(yè)主代號選項，再單擊修改業(yè)主信息按鈕或添加新業(yè)主按鈕可直接調用業(yè)主信息界面。業(yè)主信息登記運行結果如圖5所示。 圖5 業(yè)主信息登記表單

44、運行結果 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 Picker控件、Edit控件。 （3）重要控件屬性如表5所示。 表5 重要控件的重要屬性及值 控件名 屬性 值 功能 Form1.Combo1 RowSource Ro

45、wSourceType tabxqinfo.小區(qū)名稱 6-字段 提供小區(qū)列表 Form1.Grid1 ColumnCount 1 提供大樓列表 Form1.Grid3 ColumnCount RecordSource 21 tabyzinfo 提供業(yè)主信息列表 Form1.List1 ColumnCount ColumnWidths RowSourceType 2 90,70 6-字段 提供房屋列表 Form3.Combo2 RowSource RowSourceType 已進住,未進住 1-值 提供是否進住列表 Form3.Grid1

46、 ColumnCount RecordSource 27 tabrkinfo 提供家庭員列表 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 t

47、abyzinfo locate 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

48、.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.t

49、ext9.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.recor

50、dsource= thisform.parent.form3.text5.setfocus &&Text5獲得焦點 endif endif 在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 wuyeman

51、age!tabyzinfo; where 業(yè)主代號==yzdh; into cursor lxgyzinfo …… &&此處省略了給業(yè)主信息賦值的代碼（如：thisform.parent.form3.text1.value=lxgyzinfo.小區(qū)名稱） select *; from wuyemanage!tabrkinfo; where 房間編號==alltrim(thisform.parent.form3.text4.value); order by 人口編號; into cursor lincy thisform.parent.form3.grid1.recordsou

52、rce=lincy &&賦數據源 thisform.parent.form3.text5.setfocus &&Text5獲得焦點 else messagebox(請選擇業(yè)主代號！,48,業(yè)主信息登記) endif 在Form1表單的“刪除業(yè)主信息”按鈕的Click事件中添加以下代碼： yzno=alltrim(thisform.text3.value) cmessagetitle=業(yè)主信息登記 cmessagetext=確定要刪除嗎？ ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype

53、,cmessagetitle) if nAnswer=6 select tabyzinfo use use wygl/database/tabyzinfo exclusive &&以獨占的方式打開數據表 dele from tabyzinfo where 業(yè)主代號==yzno &&邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號) pack &&物理刪除 update wuyemanage!tabfwinfo set 房主代號=,房主姓名=,是否空閑=.t.,房屋狀態(tài)=空閑 ; where

54、 房主代號==yzno &&更新數據表 messagebox(刪除完畢,48,操作成功！) use wygl\database\tabyzinfo thisform.optiongroup1.interactivechange &&執(zhí)行Optiongroup1的Interactionchange事件 thisform.text3.value= thisform.refresh endif 在Form1表單的text1控件的Click事件中添加以下代碼： thisform.list1.controlsource= thisform.list1.

55、rowsource= thisform.text2.value= thisform.text1.value=alltrim(thisform.grid1.column1.text1.value) dlname=alltrim(thisform.text1.value) select *; from wygl\database\tabfwinfo; where 大樓名稱==dlname; into cursor lindep thisform.grid3.recordsource= thisform.list1.controlsource=lindep &&賦數據源 t

56、hisform.list1.rowsource=房間編號,房主姓名 &&賦數據值的源 thisform.optiongroup1.interactivechange &&執(zhí)行Optiongroup1的Interactivechange事件 thisform.text2.value=alltrim(thisform.list1.value) thisform.refresh 在Form1表單的optiongroup1選項按鈕組的InteractiveChange事件中添加以下代碼： do case case thisform.optiongroup1.option1.va

57、lue=1 select *; from wuyemanage!tabyzinfo; where 大樓名稱==alltrim(thisform.text1.value); into cursor linall thisform.grid3.recordsource=linall &&賦數據源 case thisform.optiongroup1.option2.value=1 select *; from wuyemanage!tabyzinfo; where 是否進住==已進住 a

58、nd 大樓名稱==alltrim(thisform.text1.value); into cursor liny thisform.grid3.recordsource=liny &&賦數據源 case thisform.optiongroup1.option3.value=1 select *; from wuyemanage!tabyzinfo; where 是否進住==未進住and 大樓名稱==alltrim(thisform.text1.value); into cursor linw th

59、isform.grid3.recordsource=linw 單擊“確定保存業(yè)主信息”按鈕，將查找業(yè)主信息表“Tabyzinfo”中是否有該業(yè)主代號，如果沒有，則將信息保存到業(yè)主信息表“Tabyzinfo”和人口信息表“Tabrkinfo”中，并修改房屋信息表“Tabfwinfo”中的相關數據。如果有，則修改“Tabyzinfo”、“Tabrkinfo”和“Tabfwinfo”中相關數據。系統(tǒng)將自動生成七位的人口編號（如“RK00007”）。具體代碼如下： 在Form3表單的“確定保存業(yè)主信息”按鈕的Click事件中添加以下代碼： yzdh=alltrim(thisform.text5.

60、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(thisform.text14.value) dwtel=alltrim(thisform.text13.value) zjname=alltrim(bo3.displayvalue) zjnumb

61、er=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) dlname=alltrim(thisform.text2.value) fjno=alltrim(thisform.text3.value) if sfjz

62、=已進住 fwzt=入住 else fwzt=簽約 endif select tabrkinfo if empty(人口編號) rknumber=alltrim(RK00001) else select max(人口編號) from tabrkinfo into array a &&查找表中最大的人口編號存入數組 cend=val(substr(a(1),3))+1 rknumber=alltrim(RK+padl(alltrim(str(cend,5)),5,0)) endif if empty(yzname) or em

63、pty(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,zjnumbe

64、r,; date1,date3,date2,date4,sfjz,gfhtno,glxysno,fwno,xqname,dlname,fjno) &&追加新記錄 update wuyemanage!tabfwinfo set 房主代號=yzdh,房主姓名=yzname,是否空閑=.f.,; 房屋狀態(tài)=fwzt where 房間編號==fwno &&更新數據表 insert into tabrkinfo values(rknumber,yzname,sex,ctod(),1,,戶主,,,,workdw,,; ,,,dwtel,sj,tel,lxdz,xqname,dlname,fjno,zjnumber,,,fwno,) messagebox(數據保存完畢！,48,業(yè)主信息登記) thisform.parent.form1.grid1.column1.text1.click &&執(zhí)行Text1的Click事件 thisform.visible=.f. &&隱藏表單 else update wuyemanage!tabyzinfo set 業(yè)主姓名=yzname