【文章內(nèi)容簡介】 =.f. =.f. =.f. =.f.else skip amp。amp。記錄指針向下移一條記錄 amp。amp。執(zhí)行表單的Activate if eof() messagebox(39。已經(jīng)是最后一條記錄39。,48,39。管理窗口39。) skip1 amp。amp。執(zhí)行表單的Activate =.f. =.f. else =.t. =.t. endif =.t. =.t.endif在form1中的“最后一個”click事件中添加代碼為：go bottom amp。amp。記錄指針移動到最后一條記錄=.f.=.f.=.t.=.t. amp。amp。執(zhí)行表單的Activate在form1中的控件edit1的keypress事件中添加代碼為：LPARAMETERS nKeyCode, nShiftAltCtrlif nKeycode=3endif在form1中的控件edit1的lostfocus事件中添加代碼為：在form2中的“退出小區(qū)信息瀏覽”的click事件中添加代碼為：=.f. amp。amp。隱藏表單（5）在項目管理器中添加一個表單集包括form1,form2,form3，名稱為“大樓信息登記”。在表單form1中添加2個list控件，2個label控件，1個mandgroup控件，在表單form2中添加17個label控件，12個text控件，2個bo控件，1個edit控件，1個mon dialog控件，1個image控件，2個mand控件，2個mandgroup控件，在表單form3中添加1個grid控件， 1個mand控件。說明：其編法如以上（4）所示（6）在項目管理器中新建表單集包含form1,form2,form3,名稱為“房屋信息登記”。在表單form1中添加1個mbo控件，2個list控件，2個label控件，1個mandgroup控件，在表單form2中添加19個label控件，9個text控件，8個bo控件，1個edit控件，1個mandgroup控件，在表單form3中添加1個grid控件， 1個mand控件。說明：其編法如以上（4）所示（7）在項目管理器中添加一個新的表單名稱為“系統(tǒng)數(shù)據(jù)設(shè)定”，在表單中添加一個label控件，2個mandgroup控件。在表單的“退出系統(tǒng)數(shù)據(jù)設(shè)定”按鈕的click事件中添加代碼為：在表單的“房屋朝向設(shè)定”按鈕的click事件中添加代碼為： amp。amp。釋放表單do form form\房屋朝向設(shè)定 amp。amp。調(diào)入表單在表單的“權(quán)限類型設(shè)定”按鈕的click事件中添加代碼為： amp。amp。釋放表單do form form\權(quán)屬類型設(shè)定 amp。amp。調(diào)入表單在表單的“小區(qū)部門設(shè)定”按鈕的click事件中添加代碼為： amp。amp。釋放表單do form form\小區(qū)部門設(shè)定 amp。amp。調(diào)入表單在表單的“員工種類設(shè)定”按鈕的click事件中添加代碼為： amp。amp。釋放表單do form form\員工種類設(shè)定 amp。amp。調(diào)入表單元在表單的“費用科目及費用標(biāo)準(zhǔn)設(shè)定”按鈕的click事件中添加代碼為： amp。amp。釋放表單do form form\費用科目及費用標(biāo)準(zhǔn)設(shè)定 amp。amp。調(diào)入表單（8）在項目管理器中添加一個新的表單名稱為“房屋朝向設(shè)計”，表單中添加3個label控件，1個text控件，1個grid控件，1個mandgroup控件。在表單的init事件中添加以下代碼：=39。39。 amp。amp。賦數(shù)據(jù)源=39。tabfrontage39。 amp。amp。賦數(shù)據(jù)源在“添加”按鈕的click事件中添加代碼為：if =39。添 加39。 =39。保 存39。 amp。amp。賦值給Command1的標(biāo)題文本 =39。取 消39。 amp。amp。賦值給Command2的標(biāo)題文本 append blank amp。amp。追加新記錄 =39。39。 else =39。添 加39。 amp。amp。賦值給Command1的標(biāo)題文本 =39。刪 除39。 amp。amp。賦值給Command2的標(biāo)題文本endif amp。amp。刷新表單在“刪除”按鈕的click事件中添加代碼為：if =39。取 消39。 =39。添 加39。 amp。amp。賦值給Command1的標(biāo)題文本 =39。刪 除39。 amp。amp。賦值給Command2的標(biāo)題文本 cx=alltrim() select tabfrontage amp。amp。選擇Tabfrontage工作區(qū)為當(dāng)前工作區(qū) use amp。amp。關(guān)閉數(shù)據(jù)表 use database/tabfrontage exclusive amp。amp。以獨占方式打開數(shù)據(jù)表 dele from tabfrontage where 房屋朝向==cx amp。amp。邏輯刪除記錄 dele from tabfrontage where empty(房屋朝向) amp。amp。邏輯刪除記錄 pack amp。amp。物理刪除 = use \database\tabfrontage amp。amp。打開數(shù)據(jù)表 else cx=alltrim() select tabfrontage use use database/tabfrontage exclusive amp。amp。以獨占方式打開數(shù)據(jù)表 dele from tabfrontage where 房屋朝向==cx amp。amp。邏輯刪除記錄 dele from tabfrontage where empty(房屋朝向) amp。amp。邏輯刪除記錄 pack amp。amp。物理刪除 = messagebox(39。刪除完畢39。,48,39。操作成功！39。) use database\tabfrontage amp。amp。打開數(shù)據(jù)表 endif amp。amp。執(zhí)行表單的Init事件在text1的click事件中添加代碼為：=39。39。=alltrim()(9)在項目管理器中添加一個新的表單名稱為“費用科目及費用標(biāo)準(zhǔn)設(shè)定設(shè)計”，表單中添加4個label控件，2個text控件，1個grid控件，1個mandgroup控件。說明：其編法如以上（8）所示（1）在項目管理器中添加一個表單集，含有form1,form2.,form3,form4,名稱為“業(yè)主信息登記”在表單form1中添加1個bo控件，1個list控件，5個label控件，1個mandgroup控件，3個text控件，2個grid控件，1個mand控件，1個optioguoup控件。在表單form2中添加1個grid控件， 1個mand控件。在表單form3中添加24個label控件，15個text控件，3個bo控件，4個date and time picker控件，1個mandgroup控件，1個grid控件，在表單form4中添加23個label控件，13個text控件，8個bo控件，1個edit控件，1個mandgroup控件。在form1的init事件中添加以下代碼：public date1,date2,date3,date4 amp。amp。定義全局變量store ctod(39。03/22/200339。) to date1,date2,date3,date4store .f. to , amp。amp。隱藏表單=1 amp。amp。指定表格的列對象的數(shù)目=39。大樓名稱39。store 39。39。 to ,。 ,在form1表單的“小區(qū)名稱”組合框的interactivechange事件中添加以下代碼： amp。amp。執(zhí)行表單的Init事件xqname=alltrim()select *。from database\wuyemanage!tabdlinfo。where 所屬區(qū)域==xqname。into cursor lindeping=1 amp。amp。指定表格的列對象的數(shù)目=39。大樓名稱39。=154=39。lindeping39。 amp。amp。賦數(shù)據(jù)源=39。39。amp。amp。賦數(shù)據(jù)源 在form1表單的“添加新業(yè)主”按鈕的click事件中添加代碼為：yxq=alltrim()ydl=alltrim()yfw=alltrim()if empty(yxq) or empty(ydl) or empty(yfw) messagebox(39。請選擇小區(qū)名稱、大樓名稱和房屋編號！39。,48,39。操作失敗39。)else select tabyzinfo locate for 購入房編號=yfw amp。amp。順序查詢 if found() messagebox(39。此房屋已住人！39。,48,39。業(yè)主信息登記39。) else =.t. amp。amp。顯示表單 lfjno=len(yxq)+len(ydl)+1 fjno=substr(yfw,lfjno) =yxq =ydl =fjno =yfw =yfw store 39。39。 to ,。 ,。 ,。 ,。 ,。 , =39。39。 amp。amp。Text5獲得焦點 endifendif在form1表單的“修改業(yè)主信息”按鈕的click事件中添加代碼為：cvalue=alltrim()if !empty(cvalue)=.t.public yzdh amp。amp。定義全局變量yzdh=alltrim()select *。from wuyemanage!tabyzinfo。where 業(yè)主代號==yzdh。into cursor lxgyzinfo*賦值給Text1等=================*賦值給date and time picker 控件=year()=month()=day()=year()=month()=day()=year()=month()=day()=year()=month()=day()select *。from wuyemanage!tabrkinfo。where 房間編號==alltrim()。order by 人口編號。into cursor lincy=39。lincy39。 amp。amp。賦數(shù)據(jù)源 amp。amp。Text5獲得焦點else messagebox(39。請選擇業(yè)主代號！39。,48,39。業(yè)主信息登記39。)endif在form1表單的“刪除業(yè)主信息”按鈕的click事件中添加代碼為：yzno=alltrim()cmessagetitle=39。業(yè)主信息登記39。cmessagetext=39。確定要刪除嗎？39。ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)if nAnswer=6 select tabyzinfo use use database/tabyzinfo exclusive amp。amp。以獨占的方式打開數(shù)據(jù)表 dele from tabyzinfo where 業(yè)主代號==yzno amp。amp。邏輯刪除 dele from tabyzinfo where empty(業(yè)主代號) pack amp。amp。物理刪除 update wuyemanage!tabfwinfo set 房主代號=39。39。,房主姓名=39。39。,是否空閑=.t.,房屋狀態(tài)=39。空閑39。 。 where 房主代號==yzno amp。amp。更新數(shù)據(jù)表 messagebox(39。刪除完畢39。,48,39。操作成功！39。) use database\tabyzinfo amp。amp。執(zhí)行Optiongroup1的Interactioncha