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

《【畢業(yè)設(shè)計(jì)論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)（附數(shù)據(jù)庫結(jié)構(gòu)）》由會員分享，可在線閱讀，更多相關(guān)《【畢業(yè)設(shè)計(jì)論文】基于Visual FoxPro的物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)（附數(shù)據(jù)庫結(jié)構(gòu)）（33頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

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

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

3、 開發(fā)及運(yùn)行環(huán)境 3 3.2 數(shù)據(jù)庫設(shè)計(jì) 3 4 主要功能模塊設(shè)計(jì) 3 4.1 程序主界面的設(shè)計(jì) 3 4.2 系統(tǒng)登錄界面設(shè)計(jì) 7 4.3 小區(qū)信息生成設(shè)計(jì) 10 4.4 業(yè)主信息登記設(shè)計(jì) 12 4.5 小區(qū)資源統(tǒng)計(jì)設(shè)計(jì) 17 4.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ì)下載請?jiān)L問： 0 引言 由于物業(yè)管理涉及的管理范圍較為廣泛，管理內(nèi)容繁雜，加上政策性的變動因素，日常工作需要耗費(fèi)大量人力和物力，而采取現(xiàn)代化電腦管理手段是一

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

5、登記”、“房屋信息登記”、“系統(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ū)員工查詢”、“裝修信息查詢”、“維修信息查詢”、“

6、保安排班查詢”。 l 系統(tǒng)管理：“操作員管理”、“權(quán)限設(shè)置”、“背景設(shè)置”。 2 總體設(shè)計(jì) 2.1 項(xiàng)目規(guī)劃 物業(yè)管理系統(tǒng)是一個典型的數(shù)據(jù)庫管理系統(tǒng)，系統(tǒng)由基本信息設(shè)置、貨物托運(yùn)管理、信息查詢、報(bào)表管理、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下： q 經(jīng)營部 經(jī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)查詢管理、其

7、它費(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個完整的功能模塊。系統(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ì)的時候應(yīng)該滿足以下幾個目標(biāo)： q 系統(tǒng)

8、最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。 q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。 q 軟件結(jié)構(gòu)清晰，功能一目了然。 q 方便、快捷的全方位查詢。 q 操作員可以隨時修改自己的口令。 q 不同的操作員具有不同的操作權(quán)限。 q 數(shù)據(jù)保密性強(qiáng)，為每個用戶設(shè)置權(quán)限級別。 3 系統(tǒng)設(shè)計(jì) 3.1 開發(fā)及運(yùn)行環(huán)境 系統(tǒng)開發(fā)平臺：Microsoft Visual FoxPro 6.0。 運(yùn)行平臺：Windows XP/ Windows 2000/ Windows 2003 分辨率：最佳效果1024768像素 3.2 數(shù)據(jù)庫設(shè)計(jì) 1．?dāng)?shù)據(jù)庫概要說明 本系統(tǒng)采用的是Visual Fo

9、xPro自帶的數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名為DataBase。限于篇幅所限，下面只給出重要數(shù)據(jù)表的表結(jié)構(gòu)。數(shù)據(jù)庫“Wuyemanage”中包含26個表：部門信息表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、人口信息

10、表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ù)庫中的數(shù)據(jù)表請參見附錄B。 4 主要功能模塊設(shè)計(jì) 4.1 程序主界面的設(shè)計(jì) 程序啟動后，在系統(tǒng)登錄界面驗(yàn)證操作員密碼后，將進(jìn)入程序主界面的設(shè)計(jì)。通過程序主界面可以執(zhí)行相應(yīng)權(quán)限的操作，并且可以通過選擇主界面菜單或按鈕，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。

11、程序主界面的運(yùn)行結(jié)果如圖2所示。 圖2 程序主界面的運(yùn)行結(jié)果 1．表單設(shè)計(jì) （1）新建一個項(xiàng)目，名稱為物業(yè)管理系統(tǒng)，在該項(xià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．類代碼設(shè)計(jì) 在類的Init事件中添加以下代碼： public bz &&定義全局變量 bz=.f. this.listview1.view=2 &&設(shè)置視圖顯示方式 this.listview1.Icons=this.imagelist1.object this.listview1.smallicons=this.imagelist1.object &&添加列表項(xiàng) =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)數(shù)據(jù)設(shè)定,,1) 單擊快捷工具條上的

14、“經(jīng)營部”按鈕，將在左側(cè)的List列表中顯示經(jīng)營部各功能選項(xiàng)。各功能選項(xiàng)由圖標(biāo)和標(biāo)識性文字組成。具體代碼如下： 在“經(jīng)營部”按鈕的Click事件中添加以下代碼： this.parent.listview1.listItems.clear &&清除數(shù)據(jù) this.parent.listview1.view=2 &&設(shè)置視圖顯示方式 *將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)數(shù)據(jù)設(shè)定,,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)數(shù)據(jù)設(shè)定,,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(,,裝修隊(duì)登記,,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. 在“財(cái)務(wù)部”按鈕的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(,,收費(fèi)登記管理,,4) =this.parent.listview1.listitems.add(,,水費(fèi)查詢管理,,4) =this.parent.listview1.listitems.add(,,電費(fèi)查詢管理,,4) =this.parent.listview1.li

21、stitems.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.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. 在“經(jīng)理室”按鈕的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)計(jì),,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(,,權(quán)限設(shè)置,,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(,,關(guān)于本軟件,,8) pjyb=.t. 在“退出”按鈕的Click事件中添加以下代碼： quit &&退

27、出主程序 在控件image1的Click事件中添加以下代碼： mdl.filter=圖片|*.bmp;*.jpg &&設(shè)置文件類型為.BMP或.JPG mdl.showopen &&顯示打開對話框 this.parent.rq.image2.picture=mdl.filename &&顯示選定文件的名字 4.2 系統(tǒng)登錄界面設(shè)計(jì) 用戶進(jìn)入系統(tǒng)前，必須通過系統(tǒng)登錄進(jìn)入程序主界面，通過系統(tǒng)登錄界面可以對用戶的身份及使用權(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)目中，新建一個表單

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

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

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) &&添加一個列表項(xiàng) select tabpurview select *; from wuyemanage!tabpurview; where 權(quán)限級別=2; order by tabp

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

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

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

34、urview.經(jī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 form\fdesktop &&調(diào)入表單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 &&給多個內(nèi)存

36、變量賦予相同的值 else seek cname &&查找輸入的操作員姓名 set exact on &&設(shè)置字符精確比較 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 &&文本框獲得焦點(diǎn) 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 &&設(shè)置字符非精確比較 在“取消”按鈕的Click事件中添加以下代碼： quit &&退出 在控件listview1的ItemClick事件中添加以下代碼： manager=alltrim(thisform.listview1.selecteditem.text) thisform.text2.value=manager thisform.text1.setfocus &&文本框獲得焦點(diǎn) 4.3 小區(qū)信息生成設(shè)計(jì) 用戶單擊快捷工具欄上的“經(jīng)

39、營部”按鈕，在彈出的功能列表項(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)目中，新建一個表單，命名為為“小區(qū)信息生成”。 （2）在表單中添加Label控件、Spinner控件、Commandgroup控件、Shape控件。 （3）重要控件的重要屬性如表4所示。 表4 重要控件的重要屬性及值 對象 屬性 值 Label AutoSize True Shape Bo

40、rderStyle 1-實(shí)線(默認(rèn)值) Shape SpecialEffect 0-3維 2．代碼設(shè)計(jì) 單擊“開始生成”按鈕，將自動生成小區(qū)基本信息保存到小區(qū)信息表“Tabxqinfo”中。小區(qū)編號區(qū)域由微調(diào)框所指定。如果數(shù)據(jù)表中有該小區(qū)編號，將不被生成。保存完畢，調(diào)入“小區(qū)信息登記”表單，進(jìn)行小區(qū)詳細(xì)信息的添加。具體代碼如下： 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=確認(rèn)生成編號為 +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(數(shù)據(jù)保存成功！,48,小區(qū)信息生成) thisform.release

43、 do form wygl\form\小區(qū)信息登記 &&調(diào)入表單 case nAnswer=7 thisform.spinner1.setfocus endcase 4.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è)主代號選項(xiàng)，再單擊修改業(yè)主信息按鈕或添加新業(yè)主按鈕可直接調(diào)用業(yè)主信息界面。業(yè)主信息登記運(yùn)行結(jié)果如圖5所示。 圖5 業(yè)主信息登記表單

44、運(yùn)行結(jié)果 1．表單設(shè)計(jì) （1）在物業(yè)管理系統(tǒng)的項(xià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 已進(jìn)住,未進(jìn)住 1-值 提供是否進(jìn)住列表 Form3.Grid1

46、 ColumnCount RecordSource 27 tabrkinfo 提供家庭員列表 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ū)名稱、大樓名稱和房屋編號！,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獲得焦點(diǎn) 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 &&賦數(shù)據(jù)源 thisform.parent.form3.text5.setfocus &&Text5獲得焦點(diǎn) 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 &&以獨(dú)占的方式打開數(shù)據(jù)表 dele from tabyzinfo where 業(yè)主代號==yzno &&邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號) pack &&物理刪除 update wuyemanage!tabfwinfo set 房主代號=,房主姓名=,是否空閑=.t.,房屋狀態(tài)=空閑 ; where

54、 房主代號==yzno &&更新數(shù)據(jù)表 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 &&賦數(shù)據(jù)源 t

56、hisform.list1.rowsource=房間編號,房主姓名 &&賦數(shù)據(jù)值的源 thisform.optiongroup1.interactivechange &&執(zhí)行Optiongroup1的Interactivechange事件 thisform.text2.value=alltrim(thisform.list1.value) thisform.refresh 在Form1表單的optiongroup1選項(xiàng)按鈕組的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 &&賦數(shù)據(jù)源 case thisform.optiongroup1.option2.value=1 select *; from wuyemanage!tabyzinfo; where 是否進(jìn)住==已進(jìn)住 a

58、nd 大樓名稱==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 th

59、isform.grid3.recordsource=linw 單擊“確定保存業(yè)主信息”按鈕，將查找業(yè)主信息表“Tabyzinfo”中是否有該業(yè)主代號，如果沒有，則將信息保存到業(yè)主信息表“Tabyzinfo”和人口信息表“Tabrkinfo”中，并修改房屋信息表“Tabfwinfo”中的相關(guān)數(shù)據(jù)。如果有，則修改“Tabyzinfo”、“Tabrkinfo”和“Tabfwinfo”中相關(guān)數(shù)據(jù)。系統(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、=已進(jìn)住 fwzt=入住 else fwzt=簽約 endif select tabrkinfo if 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)) 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 &&更新數(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