【正文】 case val(alltrim())=2 or val(alltrim())=3 l=.f. amp。 =.t. messagebox(權(quán)限不可修改,48,權(quán)限管理) l=.f. amp。 amp。 where 性別==39。 from database\wuyemanage!tabrkinfo。 amp。 from wygl\database\wuyemanage!tabfwinfo。 leftsource=left(source,len(source)1) =amp。+fzr+39。amp。39。139。))endif if empty(yzname) or empty(gfhtno) or empty(glxysno) or 。如果有，則修改“Tabyzinfo”、“Tabrkinfo”和“Tabfwinfo”中相關(guān)數(shù)據(jù)。順序查詢 if found() messagebox(39。,cpicture,ctod(39。至 39。系統(tǒng)登錄39。amp。order by 。amp。into cursor sysgly==39。amp。業(yè)主信息登記39。amp。大樓信息生成39。后來(lái)通過(guò)老師的指導(dǎo)、查閱相關(guān)的書(shū)籍資料及通過(guò)網(wǎng)絡(luò)向?qū)I(yè)的數(shù)據(jù)庫(kù)人員請(qǐng)教把這些問(wèn)題一一解決了。雖然Visual ，但由于其中的控件較多，所以在測(cè)試過(guò)程出現(xiàn)了一些錯(cuò)誤而進(jìn)行調(diào)試很有難度。（3）重要控件屬性如表4所示。在List列表中顯示所有的操作員姓名和代表其權(quán)限級(jí)別的圖標(biāo)。 開(kāi)發(fā)及運(yùn)行環(huán)境系統(tǒng)開(kāi)發(fā)平臺(tái)：Microsoft Visual FoxPro 。管理部：業(yè)主信息登記、人口信息查詢、小區(qū)員工管理、系統(tǒng)數(shù)據(jù)設(shè)定。人們花的錢(qián)越多，不但對(duì)住宅的本身的美觀、質(zhì)量要求越來(lái)越高，同時(shí)對(duì)物業(yè)小區(qū)的服務(wù)和管理也要求很高，這樣要求小區(qū)管理者對(duì)物業(yè)管理進(jìn)行宏觀的和微觀的細(xì)致管理，其中最好的辦法是用計(jì)算機(jī)操作的小區(qū)物業(yè)管理系統(tǒng)來(lái)實(shí)現(xiàn)對(duì)小區(qū)物業(yè)的管理。計(jì)算機(jī)管理收費(fèi)，靈活性、準(zhǔn)確性大大提高。傳統(tǒng)管理機(jī)制的存在和準(zhǔn)開(kāi)發(fā)準(zhǔn)管理的局面，使業(yè)主缺乏對(duì)物業(yè)管理公司的選擇權(quán)，物業(yè)管理單位缺少內(nèi)在動(dòng)力和外在壓力，服務(wù)意識(shí)不強(qiáng)。幫助：幫助、關(guān)于本軟件。通過(guò)程序主界面可以執(zhí)行相應(yīng)權(quán)限的操作，并且可以通過(guò)選擇主界面菜單或按鈕，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。（2）在表單中添加Label控件、Spinner控件、Commandgroup控件、Shape控件。（2）在表單中添加Combo控件、List控件、Commandgroup控件、Label控件、Chart控件。本系統(tǒng)測(cè)試涉及到以下幾個(gè)方面：檢驗(yàn)系統(tǒng)安全性方面，即系統(tǒng)管理員賬號(hào)和密碼的合法性和一致性檢查。她無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝老師耐心的輔導(dǎo)。,1)=(,39。,1)=(,39。,2)=(,39。定義全局變量=0 amp。amp。order by 。添加一個(gè)列表項(xiàng) skip amp。設(shè)置字符精確比較if alltrim()!=ppassword=+1cmessagetitle=39。執(zhí)行表單的Resize事件 endif endifset exact off amp。 where 小區(qū)編號(hào)==xqno。數(shù)據(jù)保存成功！39。amp。入住39。)else select tabyzinfo locate for 業(yè)主代號(hào)=yzdh amp。,39。,39。具體代碼如下：在“加入”按鈕的Click事件中添加以下代碼：public source as stringfor i=1 to if (i) if =0 ((i)) amp。賦數(shù)據(jù)值的源 else for j=1 to if !alltrim((i))==alltrim((j)) bz=.t. else bz=.f. exit amp。請(qǐng)選擇要統(tǒng)計(jì)的大樓名稱！39。請(qǐng)先生成房屋信息！39。小區(qū)人口比例圖39。此大樓無(wú)人入??！39。小區(qū)人口比例圖39。這種寫(xiě)法其實(shí)將Resize 事件當(dāng)成一個(gè)設(shè)相關(guān)控件是否有效的函數(shù)。amp。amp。級(jí)別1為系統(tǒng)管理員，不能有多個(gè)，請(qǐng)重新輸入！39。amp。tabpurview39。女39。39。未簽約39。39。,39。amp。,48,39。,workdw,39。房屋狀態(tài)=fwzt where 房間編號(hào)==fwno amp。amp。 , =39。請(qǐng)選擇小區(qū)名稱、大樓名稱和房屋編號(hào)！39。39。cmessagetitle=39。 amp。指定控制索引文件if empty(操作員姓名) amp。amp。into cursor gjczydo while !EOF() amp。選定Tabpurview工作區(qū)為當(dāng)前工作區(qū)select *。圖片|*.bmp。,1)=(,39。,1)單擊快捷工具條上的“經(jīng)營(yíng)部”按鈕，將在左側(cè)的List列表中顯示經(jīng)營(yíng)部各功能選項(xiàng)。設(shè)置視圖顯示方式==amp。如在錄入例如房間編號(hào)或大樓號(hào)時(shí)對(duì)數(shù)據(jù)有長(zhǎng)度和規(guī)則的要求，如不按要求填寫(xiě)，就無(wú)法正確錄入，也無(wú)法完成查詢功能。（2）在表單中添加List控件、Text控件、Command控件、Label控件、Check控件。具體代碼見(jiàn)附錄B P33 業(yè)主信息登記設(shè)計(jì)用戶進(jìn)入系統(tǒng)后，單擊主界面“管理部”按鈕，在彈出的功能選項(xiàng)表中選擇“業(yè)主信息登記”選項(xiàng)，進(jìn)入業(yè)主信息登記界面。系統(tǒng)登錄表單運(yùn)行結(jié)果如圖所示。軟件結(jié)構(gòu)清晰，功能一目了然。財(cái)務(wù)部：“收費(fèi)登記管理”、“水費(fèi)查詢管理”、“電費(fèi)查詢管理”、“煤氣費(fèi)查詢管理”、“采暖費(fèi)查詢管理”、“其它費(fèi)用查詢管理”。本系統(tǒng)是為住宅小區(qū)物業(yè)管理部門(mén)日常管理工作信息化，規(guī)范化而開(kāi)發(fā)的軟件。隨著我國(guó)經(jīng)濟(jì)發(fā)展和城市開(kāi)發(fā)，住宅小區(qū)越來(lái)越成為居住的主流，小區(qū)物業(yè)管理是針對(duì)當(dāng)代社會(huì)這一市場(chǎng)需要應(yīng)運(yùn)而生的。管理部：“業(yè)主信息登記”、“人口信息查詢”、“小區(qū)員工管理”、“系統(tǒng)數(shù)據(jù)設(shè)定”。系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。表1 重要屬性及值對(duì)象屬性值VcxmainLockScreenFalseVcxmainMovableFalseVcxmainSizeableFalseTimerInterVal102．類代碼設(shè)計(jì) 見(jiàn)附錄B P29 系統(tǒng)登錄界面設(shè)計(jì)用戶進(jìn)入系統(tǒng)前，必須通過(guò)系統(tǒng)登錄進(jìn)入程序主界面，通過(guò)系統(tǒng)登錄界面可以對(duì)用戶的身份及使用權(quán)限進(jìn)行確認(rèn)。保存完畢，調(diào)入“小區(qū)信息登記”表單，進(jìn)行小區(qū)詳細(xì)信息的添加。 權(quán)限設(shè)置表單運(yùn)行結(jié)果1．表單設(shè)計(jì)（1）在物業(yè)管理系統(tǒng)的項(xiàng)目中，新建一個(gè)表單，命名為“權(quán)限設(shè)置”。數(shù)據(jù)信息填寫(xiě)的合法性檢查。amp。系統(tǒng)數(shù)據(jù)設(shè)定39。大樓信息登記39。退出主程序在控件image1的Click事件中添加以下代碼：=39。amp。order by 。添加一個(gè)列表項(xiàng) skip amp。amp。39。\images\39。,39。調(diào)入表單 case nAnswer=7 endcase 業(yè)主信息登記代碼在Form1表單的“添加新業(yè)主”按鈕的Click事件中添加以下代碼：yxq=alltrim()ydl=alltrim()yfw=alltrim()if empty(yxq) or empty(ydl) or empty(yfw) messagebox(39。 ,。)else select max(人口編號(hào)) from tabrkinfo into array a amp。追加新記錄 update wuyemanage!tabfwinfo set 房主代號(hào)=yzdh,房主姓名=yzname,是否空閑=.f.,。39。數(shù)據(jù)保存完畢！39。 into cursor lindl fzr=alltrim() dlno=alltrim() =1 amp。 into cursor lindl fzr=alltrim() dlno=alltrim() =1 source=source+dlname+39。定義全局變量 dl=39。 select linfwinfo select * from linfwinfo where 是否空閑==.t. into cursor linf select linf tcount=reccount() select tabfwtj replace 房間數(shù) with tcount for 是否空閑=39。) else public dl dl=39。 where 性別==39。執(zhí)行表單的Resize事件=.f.=39。 messagebox(權(quán)限不可修改,48,權(quán)限管理) l=.f. amp。執(zhí)行表單的Resize事件 messagebox(39。Text1獲得焦點(diǎn)endcase amp。執(zhí)行表單的Resize事件endcase 判斷用戶輸入的權(quán)限級(jí)別是否有效。具體代碼如下：在list1控件的InteractiveChange事件中添加以下代碼： amp。 for i=1 to no set talk off select tabrktj go i sex= ccount= =i =sex =ccount =39。,27,39。 if =0 messagebox(39。,27,39。,48,39。amp。amp。39。39。amp。else fwzt=39。顯示表單 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) =yxq =ydl =fjno