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