【文章內(nèi)容簡介】 開發(fā)完成，這里向他們表示深深的感謝。參考文獻[1]《Visual FoxPro數(shù)據(jù)庫開發(fā)實例解析》機械工業(yè)出版社 王晶瑩、王國輝 2003年9月[2]《Visual FoxPro 精彩編程200例》機械工業(yè)出版社 王國輝、董韶華等 2004年9月[3]《Visual foxpro數(shù)據(jù)庫開發(fā)關鍵技術與實例應用》人民郵電出版社 周桓、張雨、王國輝2004年5月[4]《Visual FoxPro管理信息系統(tǒng)完整項目實例剖析》人民郵電出版社 明日科技 2005年7月 附錄A 數(shù)據(jù)表電費表(tabdianmoney)用來保存電費信息，其結構如表A1所示表A1字段名數(shù)據(jù)類型字段大小索引電表編號字符型20升序戶主姓名字符型10收費標準數(shù)值型8，2計費起始日期日期型8計費終止日期日期型8本月讀數(shù)整型4上月讀數(shù)整型4使用數(shù)整型4應收金額貨幣型8實收金額貨幣型8房間編號字符型20大樓信息表(tabdlinfo)是用來保存大樓的基本信息，其結構如表A2所示表A2字段名數(shù)據(jù)類型字段大小索引大樓編號字符型10升序大樓名稱字符型20大樓說明字符型50大樓位置字符型30房屋數(shù)量整型4總戶數(shù)整型4負責人字符型10所屬區(qū)域字符型20備注字符型100照片備注型4建筑面積數(shù)值型15，6竣工日期日期型8交工日期日期型8大樓結構字符型20朝向字符型20單元數(shù)整型4房屋信息表(tabfwinfo)用來保存房屋信息，其結構如表A3所示表A3字段名數(shù)據(jù)類型字段大小索引房間編號字符型30升序小區(qū)名稱字符型20大樓名稱字符型20單元字符型10樓層字符型10房間號碼字符型10房主代號字符型20房主姓名字符型10權屬類型字符型20朝向字符型20房間結構字符型20用途字符型30房間類別字符型20配備設施字符型30房屋狀態(tài)字符型12建筑面積數(shù)值型12，6使用面積數(shù)值型12，6公產(chǎn)面積數(shù)值型12，6私產(chǎn)面積數(shù)值型12，6是否空閑邏輯型1備注字符型100房屋統(tǒng)計表(tabfwtj)是用來保存房屋統(tǒng)計信息，其結構如表A4所示表A4字段名數(shù)據(jù)類型字段大小索引是否空閑字符型10房間數(shù)整型4煤氣費(tabmqmoney)是用來保存煤氣費的信息，其表結構如表A5所示表A5字段名數(shù)據(jù)類型字段大小索引煤氣表編號字符型20升序戶主姓名字符型10收費標準數(shù)值型8，2計費起始日期日期型8計費終止日期日期型8本月讀數(shù)整型4上月讀數(shù)整型4使用數(shù)整型4應收金額貨幣型8實收金額貨幣型8房間編號字符型20權限表(tabpurview)是用來設置管理員及一般操作員的權限信息，其表結構如表A6所示表A6字段名數(shù)據(jù)類型字段大小索引操作員編號字符型10升序操作員姓名字符型10升序密碼字符型8權限級別字符型1經(jīng)營部邏輯型1管理部邏輯型1財務部邏輯型1保安部邏輯型1經(jīng)理室邏輯型1系統(tǒng)管理邏輯型1小區(qū)信息表(tabxqinfo)是用來保存小區(qū)的基本信息，其結構如表A7所示表A7字段名數(shù)據(jù)類型字段大小索引小區(qū)編號字符型10升序小區(qū)名稱字符型20小區(qū)說明字符型50負責人字符型10樓棟數(shù)整型4總戶數(shù)數(shù)值型4建筑面積數(shù)值型12，6居住面積數(shù)值型12，6綠化面積數(shù)值型12，6占地面積數(shù)值型12，6地址字符型30備注字符型100照片備注型4竣工日期日期型8交工日期日期型8業(yè)主信息表(tabyzinfo)是用來保存小區(qū)業(yè)主的基本信息，其結構如表A8表A8字段名數(shù)據(jù)類型字段大小索引業(yè)主代號字符型20升序業(yè)主姓名字符型10性別字符型2聯(lián)系地址字符型30手機字符型20電話字符型20工作單位字符型50單位電話字符型20證件名字符型30證件號字符型30簽約日期日期型8進住日期日期型8進住起始日期日期型8進住截止日期日期型8字段名數(shù)據(jù)類型字段大小索引是否進住字符型10購房合同書編號字符型20管理協(xié)議書編號字符型20購入房編號字符型20小區(qū)名稱字符型20大樓名稱字符型20房間號碼字符型10附錄B 代碼系統(tǒng)主界面代碼：在類的Init事件中添加以下代碼：public bz amp。amp。定義全局變量bz=.f.=2 amp。amp。設置視圖顯示方式==amp。amp。添加列表項=(,39。小區(qū)信息生成39。,1)=(,39。大樓信息生成39。 ,1)=(,39。房屋信息生成39。,1)=(,39。小區(qū)信息登記39。,1)=(,39。大樓信息登記39。,1)=(,39。房屋信息登記39。,1)=(,39。系統(tǒng)數(shù)據(jù)設定39。,1)單擊快捷工具條上的“經(jīng)營部”按鈕，將在左側的List列表中顯示經(jīng)營部各功能選項。各功能選項由圖標和標識性文字組成。具體代碼如下：在“經(jīng)營部”按鈕的Click事件中添加以下代碼： amp。amp。清除數(shù)據(jù)=2 amp。amp。設置視圖顯示方式*將ImageList控件圖片賦予Listview控件===(,39。小區(qū)信息生成39。,1)=(,39。大樓信息生成39。,1)=(,39。房屋信息生成39。,1)=(,39。小區(qū)信息登記39。,1)=(,39。大樓信息登記39。,1)=(,39。房屋信息登記39。,1)=(,39。系統(tǒng)數(shù)據(jù)設定39。,1)在“管理部”按鈕的Click事件中添加以下代碼：=2===(,39。業(yè)主信息登記39。,2)=(,39。人口信息查詢39。,2)=(,39。小區(qū)員工管理39。,2)=(,39。系統(tǒng)數(shù)據(jù)設定39。,2)pjyb=.t.注：財務部、保安部、經(jīng)理室、系統(tǒng)管理及幫助的實現(xiàn)代碼同管理部的類似，此處將不再贅述。在“退出”按鈕的Click事件中添加以下代碼：quit amp。amp。退出主程序在控件image1的Click事件中添加以下代碼：=39。圖片|*.bmp。*.jpg39。 amp。amp。 amp。amp。顯示打開對話框= amp。amp。顯示選定文件的名字系統(tǒng)登錄界面代碼在表單的Init事件中添加以下代碼：public amp。amp。定義全局變量=0 amp。amp。給全局變量賦初值=0 amp。amp。設置視圖顯示方式==select tabpurview amp。amp。選定Tabpurview工作區(qū)為當前工作區(qū)select *。from wuyemanage!tabpurview。where 權限級別=39。139。order by 。into cursor sysgly==39。39。key=alltrim() amp。amp。賦值給變量key=(,key,1) amp。amp。添加一個列表項select tabpurviewselect *。from wuyemanage!tabpurview。where 權限級別=39。239。order by 。into cursor gjczydo while !EOF() amp。amp。測試當前記錄指針是否在文件尾 key=alltrim() =(,key,2) amp。amp。添加一個列表項skip amp。amp。記錄指針向下移動一條記錄enddoselect tabpurviewselect *。from wuyemanage!tabpurview。where 權限級別=39。339。order by 。into cursor ybczydo while !EOF() amp。amp。測試當前記錄指針是否在文件尾 key=alltrim() =(,key,3) amp。amp。添加一個列表項 skip amp。amp。記錄指針向下移動一條記錄enddoselect tabpurviewselect *。from wuyemanage!tabpurview。where 權限級別=39。439。order by 。into cursor zdydo while !EOF() amp。amp。測試當前記錄指針是否在文件尾 key=alltrim() =(,key,4) amp。amp。添加一個列表項 skip amp。amp。記錄指針向下移動一條記錄enddo單擊“登錄”按鈕，系統(tǒng)將判斷密碼是否正確。如果密碼不正確，將提示重新輸入，三次后仍不正確，系統(tǒng)將自動退出。在“登錄”按鈕的Click事件中添加以下代碼：select tabpurviewame=alltrim()ppassword=alltrim()set order to 操作員姓名 amp。amp。指定控制索引文件if empty(操作員姓名) amp。amp。判斷操作員字段是否為空 amp。amp。執(zhí)行表單的Resize事件 store . pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl amp。amp。給多個內(nèi)存變量賦予相同的值elseseek ame amp。amp。查找輸入的操作員姓名set exact on amp。amp。設置字符精