房地產(chǎn)營(yíng)銷管理系統(tǒng)-計(jì)算機(jī)畢業(yè)設(shè)計(jì)

畢業(yè)論文房地產(chǎn)營(yíng)銷管理系統(tǒng)

畢業(yè)設(shè)計(jì)（論文）中文摘要摘要：本文簡(jiǎn)述了房地產(chǎn)營(yíng)銷管理系統(tǒng)的設(shè)計(jì)。該系統(tǒng)以windows98為操作系統(tǒng)平臺(tái)，VisualBasic6.0為開(kāi)發(fā)工具。系統(tǒng)開(kāi)發(fā)過(guò)程以軟件工程原理為指導(dǎo)，分階段實(shí)現(xiàn)整個(gè)系統(tǒng)。針對(duì)房地產(chǎn)的業(yè)務(wù)范圍及工作特點(diǎn)，采用客房/服務(wù)器模式實(shí)現(xiàn)整個(gè)系統(tǒng)。系統(tǒng)數(shù)據(jù)集中存放在數(shù)據(jù)庫(kù)服務(wù)器上，各終端通過(guò)局域網(wǎng)進(jìn)行房屋銷售、銷售統(tǒng)計(jì)、信息查詢等工作。關(guān)鍵詞：房地產(chǎn)VB窗體控件數(shù)據(jù)按鈕目錄1概述……………………2總體設(shè)計(jì)…………2.1系統(tǒng)功能…………2.2系統(tǒng)功能分析…………………2.3系統(tǒng)結(jié)構(gòu)圖…………………2.4各模塊設(shè)計(jì)…………………2.5數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)…………………3詳細(xì)設(shè)計(jì)……………4調(diào)試與分析………………………5操作說(shuō)明………………………5.1系統(tǒng)環(huán)境………………………5.1操作手冊(cè)………………………結(jié)論………………………致謝…………參考文獻(xiàn)………………………附錄A程序清單…………………第一章需求分析在房地產(chǎn)行業(yè)逐漸進(jìn)入白質(zhì)化競(jìng)爭(zhēng)的今天，以客戶為中心的經(jīng)營(yíng)理念正成為每個(gè)房地產(chǎn)企業(yè)所爭(zhēng)相遵從的"圣經(jīng)"，籍此行業(yè)迫切需求而開(kāi)發(fā)的房地產(chǎn)營(yíng)銷系統(tǒng)，是基于房地產(chǎn)售樓的基礎(chǔ)業(yè)務(wù)管理系統(tǒng)的信息化解決方案。該系統(tǒng)最大限度地集成了房地產(chǎn)企業(yè)與客戶的眾多接觸點(diǎn)，充分協(xié)調(diào)企業(yè)各部門(mén)與客戶相關(guān)的各個(gè)業(yè)務(wù)進(jìn)程，全面系統(tǒng)掌握并經(jīng)營(yíng)企業(yè)的客戶資源，以最大程度地實(shí)現(xiàn)客戶滿意和企業(yè)利益最大化的經(jīng)營(yíng)目標(biāo)。本系統(tǒng)以Windows98為操作系統(tǒng)平臺(tái)，SQLServer7.0為數(shù)據(jù)庫(kù)平臺(tái)，VisualBasic7.0為開(kāi)發(fā)工具，采用客戶/服務(wù)器模式實(shí)現(xiàn)整個(gè)系統(tǒng)。系統(tǒng)數(shù)據(jù)集中存放在數(shù)據(jù)庫(kù)服務(wù)器上，各終端通過(guò)局域網(wǎng)進(jìn)行房屋銷售、銷售統(tǒng)計(jì)、信息查詢等工作。第二章總體設(shè)計(jì)系統(tǒng)功能在房地產(chǎn)銷售與管理中，將涉及到房地產(chǎn)的銷售、管理等環(huán)節(jié)，通常這些環(huán)節(jié)都不是由一個(gè)部門(mén)、一個(gè)人來(lái)完成的，作為房地產(chǎn)銷售與管理，在使用本系統(tǒng)前應(yīng)對(duì)房地產(chǎn)各部門(mén)的業(yè)務(wù)進(jìn)行細(xì)化，有了這一步的準(zhǔn)備工作，你便可以創(chuàng)建用戶并對(duì)他使用本系統(tǒng)的權(quán)力加以相應(yīng)的設(shè)置和限制。具體任務(wù)如下：系統(tǒng)管理及客戶管理子系統(tǒng)系統(tǒng)管理可以設(shè)置企業(yè)各級(jí)人員的角色、權(quán)限和操作功能等用戶信息，設(shè)置系統(tǒng)的有關(guān)參數(shù)；工具庫(kù)為客戶提供計(jì)算機(jī)和日歷等方便的小工具；在線幫助為客戶的相關(guān)問(wèn)題提供實(shí)時(shí)幫助；客戶管理記錄和查詢客戶信息、客戶事件；通過(guò)管理意向客戶，篩選客戶類型，采取相應(yīng)行動(dòng)，跟蹤機(jī)會(huì)進(jìn)展；銷售子系統(tǒng)房屋管理記錄樓盤(pán)信息，控制樓盤(pán)所有房間的銷售狀態(tài)；輔助銷售管理采用多種方式為客戶展示樓盤(pán)信息和相關(guān)法律法規(guī)，銷售程序等相關(guān)資料，并可由業(yè)務(wù)人員按客戶的不同要求為客戶進(jìn)行模擬購(gòu)買(mǎi)，制定有關(guān)虛擬流程和付款計(jì)劃；銷售指引引導(dǎo)客戶辦理樓盤(pán)房間、車位的購(gòu)買(mǎi)的有關(guān)事務(wù)，以及對(duì)相關(guān)裝修方案的選擇等事宜；銷售分析及財(cái)務(wù)合同管理子系統(tǒng)財(cái)務(wù)管理管理銷售過(guò)程中收款業(yè)務(wù)、按揭到帳和房款結(jié)算事務(wù)，以及銷售過(guò)程的票據(jù)和證明；合同管理管理所有客戶的相關(guān)合同和認(rèn)購(gòu)書(shū)等文件，跟蹤合同的執(zhí)行情況和變更；統(tǒng)計(jì)報(bào)表提供銷售類報(bào)表、客戶類報(bào)表、樓盤(pán)資料類報(bào)表和財(cái)務(wù)報(bào)表；銷售分析建立和管理各類銷售分析報(bào)告；系統(tǒng)功能分析系統(tǒng)設(shè)置適應(yīng)性強(qiáng)系統(tǒng)設(shè)置靈活，具有局部管理與全面管理的功能，整個(gè)系統(tǒng)由幾個(gè)子系統(tǒng)組成，可分、可合，每個(gè)子系統(tǒng)既可單獨(dú)運(yùn)行，又是有機(jī)聯(lián)系的一體，可適應(yīng)不同人員配置條件的房地產(chǎn)開(kāi)發(fā)商；同時(shí)系統(tǒng)既可在高檔機(jī)、大內(nèi)存下使用，又可在低檔機(jī)、小內(nèi)存上使用，可滿足不同經(jīng)濟(jì)條件的房地產(chǎn)開(kāi)發(fā)商。查詢功能強(qiáng)每個(gè)模塊都提供了相關(guān)的查詢功能，方便用戶和管理人員及時(shí)的了解房屋的銷售以及維護(hù)情況。數(shù)據(jù)安全性好系統(tǒng)通過(guò)對(duì)數(shù)據(jù)庫(kù)的加密和用戶權(quán)限的設(shè)置保證了系統(tǒng)的安全。加密后的數(shù)據(jù)庫(kù)只有本系統(tǒng)才能對(duì)其進(jìn)行維護(hù)，任何直接對(duì)數(shù)據(jù)庫(kù)的操作都將無(wú)效，從而保證了數(shù)據(jù)庫(kù)入口的唯一性，避免了來(lái)自外界的破壞；本系統(tǒng)操作人員只能對(duì)自己權(quán)限范圍內(nèi)的數(shù)據(jù)進(jìn)行維護(hù)，從而避免了來(lái)自內(nèi)部的破壞。數(shù)據(jù)錄入直觀方便系統(tǒng)采用屏幕格式輸入，簡(jiǎn)潔、直觀，符合情報(bào)人員習(xí)慣；屏幕設(shè)計(jì)風(fēng)格統(tǒng)一，用戶易于掌握。同時(shí)較好地解決了數(shù)據(jù)冗余度的問(wèn)題,提高了錄入速度，節(jié)省了工作時(shí)間。系統(tǒng)結(jié)構(gòu)圖系統(tǒng)結(jié)構(gòu)如圖1所示：(圖1)身份驗(yàn)證身份驗(yàn)證重新驗(yàn)證主界面重新驗(yàn)證主界面系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)退出幫助窗口報(bào)退出幫助窗口報(bào)表統(tǒng)計(jì)分析信息查詢登記車庫(kù)信息戶型信息車庫(kù)信息戶型信息客戶信息房屋信息客戶信息房屋信息2.2各模塊設(shè)計(jì)模塊編號(hào)模塊名稱備注M1frmwelcome歡迎界面M2frmmima登錄界面M3mdiMain主界面M4frmAhouse房產(chǎn)信息M5frmCustomer客戶信息M6frmGarage車庫(kù)信息M7frmOrder客戶預(yù)約M8frmStructre戶型信息M9frmAgent經(jīng)辦人（表1）數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)系統(tǒng)共需設(shè)置四張表，定義分別如下：房屋表登陸表:字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)userno小區(qū)文本2否無(wú)name用戶名文本8否無(wú)password密碼文本12否無(wú)passwordOk密碼驗(yàn)證文本12否無(wú)rightright文本1否無(wú)（表2）客戶信息表：字段名稱數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)customerNo編號(hào)文本4否無(wú)customername姓名文本8否無(wú)sex性別文本4否無(wú)age年齡數(shù)值2否無(wú)certificateName證件類型文本10否無(wú)certificateNo證件號(hào)文本20否無(wú)telehome住宅文本15否無(wú)teleoffice辦公文本15否無(wú)address家庭住址文本40否無(wú)bookdate登記日期日期/時(shí)間8否無(wú)attorney代理人文本8否無(wú)mark已用布爾型1否無(wú)（表3）房產(chǎn)信息表:字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)houseno戶號(hào)文本40是無(wú)sale結(jié)構(gòu)文本30否無(wú)structre朝向文本6否無(wú)direction用途文本4否無(wú)use預(yù)售建筑面積數(shù)值4否無(wú)pbarea預(yù)售使用面積數(shù)值4否無(wú)puarea實(shí)際建筑面積數(shù)值4否無(wú)fbarea實(shí)際使用面積數(shù)值4否無(wú)fuarea位于小區(qū)的位置文本10否無(wú)location每平方米價(jià)格貨幣8否無(wú)aprice煤氣初裝費(fèi)貨幣8否無(wú)dforegift物業(yè)管理單價(jià)貨幣8否無(wú)coalcost維修基金貨幣8否無(wú)manprice裝潢押金貨幣8否無(wú)mainfund其它收費(fèi)貨幣8否無(wú)orthercost出售否布爾型1否無(wú)mark備注備注0否無(wú)（表4）統(tǒng)計(jì)分析表：字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)saleno銷售編號(hào)文本5否無(wú)customername客戶姓名文本8否無(wú)customerno客戶編號(hào)文本5否無(wú)houseno戶號(hào)文本40否無(wú)garageno房間面積文本30否無(wú)haprice房間單價(jià)貨幣8否無(wú)harea車庫(kù)號(hào)數(shù)值4否無(wú)gaprice車庫(kù)面積貨幣8否無(wú)garea車庫(kù)單價(jià)數(shù)值4否無(wú)sdate日期/時(shí)間8否無(wú)contractno文本20否無(wú)deposit貨幣8否無(wú)payment1金額貨幣8否無(wú)pay1no收據(jù)號(hào)文本30否無(wú)pay1date日期日期/時(shí)間8否無(wú)payment2金額貨幣8否無(wú)pay2no收據(jù)號(hào)文本30否無(wú)pay2date日期日期/時(shí)間8否無(wú)payment3金額貨幣8否無(wú)pay3no收據(jù)號(hào)文本30否無(wú)pay3date日期日期/時(shí)間8否無(wú)payment4金額貨幣8否無(wú)pay4no收據(jù)號(hào)文本30否無(wú)pay4date日期日期/時(shí)間8否無(wú)payment5金額貨幣8否無(wú)pay5no收據(jù)號(hào)文本30否無(wú)pay5date日期日期/時(shí)間8否無(wú)latefree滯納金貨幣8否無(wú)ypay1date日期日期/時(shí)間8否無(wú)ypay1scale比例數(shù)值4否無(wú)ypay1mark標(biāo)記布爾型1否無(wú)ypay2date日期日期/時(shí)間8否無(wú)ypay2scale比例數(shù)值4否無(wú)ypay2mark標(biāo)記布爾型1否無(wú)ypay3date日期日期/時(shí)間8否無(wú)ypay3scale比例數(shù)值4否無(wú)ypay3mark標(biāo)記布爾型1否無(wú)ypay4date日期日期/時(shí)間8否無(wú)ypay4scale比例數(shù)值4否無(wú)ypay4mark標(biāo)記布爾型1否無(wú)ypay5date日期日期/時(shí)間8否無(wú)ypay5scale比例數(shù)值4否無(wú)orderDate日期日期/時(shí)間8否無(wú)ypay5mark標(biāo)記布爾型1否無(wú)orderEndDate日期/時(shí)間8否無(wú)（表5）房屋結(jié)構(gòu)表：字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)structreno編號(hào)：文本2是無(wú)mark有無(wú)布爾型1否無(wú)structre戶型：文本30否無(wú)（表6）車庫(kù)信息登記表：字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)garageno車庫(kù)號(hào)文本30否無(wú)type類型文本10否無(wú)psarea預(yù)售面積數(shù)值4否無(wú)farea實(shí)際面積數(shù)值4否無(wú)aprice每平方米價(jià)格貨幣8否無(wú)sale售否文本4否無(wú)sdate售出日期日期/時(shí)間8否無(wú)mark已用布爾型1否無(wú)（表7）經(jīng)辦人表字段名稱功能數(shù)據(jù)類型寬度是否關(guān)鍵字段同名字段數(shù)據(jù)庫(kù)agent編號(hào)文本3是無(wú)agentname姓名文本8否無(wú)markmark布爾型1否無(wú)3詳細(xì)設(shè)計(jì)1.歡迎模塊 功能：系統(tǒng)的歡迎界面。 輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖2：控件名稱及其功能如表（表6） 控件控件名稱功能圖像控件Image1放置界面圖片時(shí)鐘控件Timer1控制界面顯示的時(shí)間 設(shè)計(jì)步驟：窗體的設(shè)計(jì)： 添加窗體；設(shè)置窗體屬性：主要設(shè)置其邊框?qū)傩詾镹one，具體如圖3所示屬性窗口的應(yīng)用；圖（3）時(shí)鐘的設(shè)計(jì)主要設(shè)置其Interval屬性如圖4，即相鄰兩次響應(yīng)的時(shí)間間隔。注：其單位為毫秒2.登錄模塊 功能：對(duì)用戶進(jìn)行身份驗(yàn)證，只有通過(guò)驗(yàn)證才能登錄系統(tǒng)。 輸入項(xiàng)目：輸入用戶名、密碼 輸出項(xiàng)目：無(wú)本模塊的界面如圖5：控件名稱及其功能如表（表7） 控件控件名稱功能標(biāo)簽控件Labal1、2、3標(biāo)識(shí)文本框Text1輸入用戶名文本框Text2輸入密碼標(biāo)簽近件Labal4顯示登錄日期登錄_按鈕Comok登錄到房開(kāi)系統(tǒng)取消_按鈕Comquit取消登錄3.主界面模塊功能：系統(tǒng)主要操作界面。輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖7(圖7)控件名稱及其功能如表（表8） 控件控件名稱功能工具欄Toolbar1設(shè)置快捷工具欄圖像列表ImageList1存放快捷工具欄的圖標(biāo)狀態(tài)欄StatusBar1顯示系統(tǒng)運(yùn)行的狀態(tài)菜單的設(shè)計(jì)：用圖8所示的菜單編輯器制作。 菜單分為主菜單和子菜單，子菜單最多只能有四級(jí)子菜單；每個(gè)菜單有唯一的一個(gè)名稱，若名稱相同，則必須用索引區(qū)分，且菜單有對(duì)應(yīng)的標(biāo)題、可視性等屬性。注意熱鍵和菜單欄的計(jì)。菜單代碼的編寫(xiě)：沒(méi)個(gè)菜單都對(duì)應(yīng)一個(gè)Click事件，但只能在最低一級(jí)的菜單中寫(xiě)代碼，因若其有子菜單，若寫(xiě)有代碼，則單擊它時(shí)，會(huì)出現(xiàn)只響應(yīng)單擊事件而不會(huì)彈出子菜單的情況。房屋信息模塊功能：記錄樓房的基本信息，全面反映用戶所持房屋的結(jié)構(gòu)、朝向等。以及可以及時(shí)添加和修改用戶信息，使得用戶與樓房成為有機(jī)的統(tǒng)一體，便于管理。輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖11：控件名稱及其能如表（表9）控件控件名稱功能標(biāo)簽控件LblLabels(0-15)用于顯示所要填寫(xiě)的基本信息文本框控件TxtFields(0-12)輸入用戶信息組合框控件combUse用戶選擇所購(gòu)購(gòu)的用途UpArea(0-4)和文本框組合使用便于用戶操作數(shù)據(jù)控件datPrimaryRS與數(shù)據(jù)庫(kù)綁定命令按鈕控件cmdAdd用于添加新用戶命令按鈕控件cmdSearch搜索命令按鈕控件cmdReturn返回命令按鈕控件cmdUpdate更新命令按鈕控件cmdDelete刪除命令按鈕控件cmdClose退出設(shè)計(jì)要點(diǎn)：數(shù)據(jù)控件：用于與數(shù)據(jù)庫(kù)連接，有四個(gè)按鈕，分別為移到數(shù)據(jù)庫(kù)最前的一條記錄處、向前移動(dòng)一條、向后移動(dòng)一條、移到數(shù)據(jù)庫(kù)最后的一條記錄處。具體綁定如下：connectionstring連接具體的數(shù)據(jù)庫(kù);RecoureSource連接具體的一張表或視圖。與數(shù)據(jù)控件的綁定如控件text1與數(shù)據(jù)控件data1的綁定，用DataSource和DataField兩個(gè)屬性即可?？蛻粜畔⒛K功能：登記購(gòu)房客戶的基本信息。輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖11：控件名稱及其功能如表（表9）控件控件名稱功能標(biāo)簽控件LblLabels(0-12)用于顯示所要填寫(xiě)的基本信息文本框控件TxtFields(0-8)輸入用戶信息數(shù)據(jù)控件datPrimaryRS與數(shù)據(jù)庫(kù)綁定命令按鈕控件cmdAdd用于添加新用戶命令按鈕控件cmdUpdate更新命令按鈕控件cmdClose關(guān)閉命令按鈕控件cmdDelete刪除命令按鈕控件cmdZl整理網(wǎng)格控件grdDataGrid用于顯示所選的對(duì)象注意：DataGrid與Adodc數(shù)據(jù)控件的應(yīng)用data數(shù)據(jù)控件不能與datagrid網(wǎng)格控件連用在上面已經(jīng)提過(guò)了數(shù)據(jù)控件和數(shù)據(jù)庫(kù)連接問(wèn)題，在這里不再多說(shuō)，值得注意的是adodc控件與datagrid網(wǎng)格控件連用，其中的記錄源設(shè)置和以前的data數(shù)據(jù)控件有點(diǎn)不同，其具體設(shè)置如右圖所示。車庫(kù)信息模塊:功能：記錄車庫(kù)信息。同時(shí)可以根據(jù)客戶的需要適時(shí)的調(diào)節(jié)，以便滿足客戶的需求。輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖11：控件名稱及其功能如表： 控件控件名稱功能標(biāo)簽控件lblLabels（0-7）標(biāo)識(shí)相應(yīng)內(nèi)容文本框txtFields(1-5)輸入相對(duì)應(yīng)標(biāo)簽的文本網(wǎng)格grdDataGrid顯示表信息命令按鈕cmdAdd登記新的客戶信息命令按鈕cmdSearch搜索相對(duì)應(yīng)的車庫(kù)記錄信息命令按鈕cmdUpdate更新當(dāng)前記錄命令按鈕cmdDelete刪除命令按鈕 cmdClose關(guān)閉數(shù)據(jù)控件datPrimaryRS連接相應(yīng)的數(shù)據(jù)庫(kù)戶型信息：功能：為客戶編號(hào)，便于統(tǒng)一管理。輸入項(xiàng)目：無(wú)；輸出項(xiàng)目：無(wú)；本模塊的界面如圖11：控件名稱及其功能表: 控件控件名稱功能標(biāo)簽控件lblLabels（1-2）標(biāo)識(shí)相應(yīng)內(nèi)容文本框txtFields(1-2)輸入相對(duì)應(yīng)標(biāo)簽的文本命令按鈕cmdAdd登記新的用戶命令按鈕cmdUpdate更新當(dāng)前記錄命令按鈕cmdDelete刪除命令按鈕cmdZl整理命令按鈕 cmdClose關(guān)閉數(shù)據(jù)控件datPrimaryRS連接數(shù)據(jù)庫(kù)網(wǎng)格控件grdDataGrid和數(shù)據(jù)控件綁定，顯示數(shù)據(jù)庫(kù)基本信息4調(diào)試與分析經(jīng)程序設(shè)計(jì)小組在多臺(tái)機(jī)器上長(zhǎng)時(shí)間運(yùn)行、調(diào)試，發(fā)現(xiàn)系統(tǒng)運(yùn)行過(guò)程中出現(xiàn)了許多問(wèn)題，但在老師的指導(dǎo)下一步步得到解決，目前該系統(tǒng)可以正常運(yùn)行。4.2進(jìn)一步改進(jìn)思想在基礎(chǔ)上進(jìn)行完善，基于WINDOWS9X/NT/2000、操作系統(tǒng)，SQL數(shù)據(jù)庫(kù)服務(wù)器，采用面向工作流程設(shè)計(jì)方法，運(yùn)用面向用戶開(kāi)發(fā)工具實(shí)現(xiàn)。新增如下功能；財(cái)務(wù)管理；銀行卡管理；直接SQL語(yǔ)句查詢數(shù)據(jù)；新的操作界面:1.簡(jiǎn)捷一致的用戶界面，傻瓜式操作方式；2.全部采用圖形按鈕立體漢字提示；3.表格中文字和圖形同時(shí)顯示、操作。新的性能:完善的在線幫助、管理更快捷；全面的容錯(cuò)處理、使數(shù)據(jù)更安全；動(dòng)態(tài)表加密，保護(hù)數(shù)據(jù)環(huán)境。5操作說(shuō)明5.1系統(tǒng)環(huán)境：1、硬件平臺(tái)：

①.服務(wù)器平臺(tái)：支持PC服務(wù)器、專用服務(wù)器、小型機(jī)等，用高檔PC需586/166/32M內(nèi)存以上機(jī)型。

②.工作站：各類PC名牌或兼容機(jī)，586/100/16M內(nèi)存以上機(jī)型。

③.網(wǎng)絡(luò)操作系統(tǒng)：支持WindowsNT、UNIX、Netware等。

2、軟件平臺(tái)：

①.數(shù)據(jù)庫(kù)：MSSQLSERVER數(shù)據(jù)庫(kù)。

②.客戶機(jī)平臺(tái)：支持Windows95/98/2000、WindowsNT。

③.網(wǎng)絡(luò)平臺(tái)：支持MSWindowsNT4.0Server中文版。

④.網(wǎng)絡(luò)協(xié)議：支持TCP/IP、IPX/SPX等。

3、開(kāi)發(fā)平臺(tái)：開(kāi)發(fā)語(yǔ)言：VB6.0。windows98;VisualBasic6.0中文企業(yè)版。5.2登錄界面在“用戶名”下的列表框中輸入用戶名。在“密碼“下的列表框中輸入密碼。4.單擊“確定”按鈕，則系統(tǒng)會(huì)檢查所輸入的用戶名/密碼是否正確，如果不正確，會(huì)出現(xiàn)一個(gè)對(duì)話框，提示用戶名/密碼輸入錯(cuò)誤，請(qǐng)重新輸入，否則將進(jìn)入本系統(tǒng)的主界面；（主界面如圖）。單擊“取消”按鈕，則取消登陸。5.3房屋信息添加：?jiǎn)螕簟砑印粹o，添加新的用戶，輸入相應(yīng)的用戶信息或從列表框中選擇，點(diǎn)瀏覽按鈕可以查看所添加的對(duì)象。搜索：輸入想要找的用戶，即可顯示出符合條件的用戶信息。返回：點(diǎn)擊返回按鈕即可返回到第一條記錄。保存：點(diǎn)擊保存按鈕，即可保存已更改的信息。刪除：刪除所選信息。圖形按鈕：點(diǎn)擊即可退出本界面。5．4客戶信息添加：?jiǎn)螕簟砑印粹o，添加新的用戶，輸入相應(yīng)的用戶信息或從列表框中選擇。更新：更新所有數(shù)據(jù)。刪除：刪除所選信息。關(guān)閉：點(diǎn)擊即可退出本界面。整理：整理表中的信息。5．5車庫(kù)信息登記：添加新的用戶，輸入相應(yīng)的用戶信息或從列表框中選擇。更新：更新所有數(shù)據(jù)。刪除：刪除所選信息。關(guān)閉：點(diǎn)擊即可退出本界面。搜索：輸入想要找的用戶，即可顯示出符合條件的用戶信息。戶型信息：添加：?jiǎn)螕簟砑印粹o，添加新的用戶，輸入相應(yīng)的用戶信息或從列表框中選擇。更新：更新所有數(shù)據(jù)。刪除：刪除所選信息。關(guān)閉：點(diǎn)擊即可退出本界面。整理：整理表中的信息。結(jié)論經(jīng)過(guò)近兩個(gè)月的努力，通過(guò)老師的指導(dǎo)和自己的專研，我對(duì)房地產(chǎn)銷售與管理系統(tǒng)的設(shè)計(jì)有了一個(gè)深刻的認(rèn)識(shí)，通過(guò)對(duì)房地產(chǎn)銷售與管理系統(tǒng)的開(kāi)發(fā)，使我的理論知識(shí)又上了一個(gè)臺(tái)階。認(rèn)識(shí)到系統(tǒng)的思想理論只有在實(shí)踐中才可以得到驗(yàn)證，而在實(shí)踐中得來(lái)的經(jīng)驗(yàn)及發(fā)現(xiàn)，同樣也有在正確的理論指導(dǎo)思想的指引下才能得到升華，同時(shí)通過(guò)這兩個(gè)月的程序開(kāi)發(fā)讓我形成了一定的思維模式。由此可見(jiàn)，開(kāi)發(fā)一個(gè)好的軟件，必須以過(guò)大量的練習(xí)與調(diào)查。通過(guò)此系統(tǒng)的開(kāi)發(fā)，使我知道如何使用軟件工程分析系統(tǒng)、測(cè)試系統(tǒng)、維護(hù)系統(tǒng)，了解了一個(gè)程序員應(yīng)具備的知識(shí)。但由于知識(shí)積累的還不夠所以本程序的設(shè)計(jì)還不夠完善，系統(tǒng)還存在著許多不足,敬請(qǐng)老師給以斧正！致謝本次設(shè)計(jì)過(guò)程中，我得到了指導(dǎo)老師們以及同學(xué)們的大力支持。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。金老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。另外，還有同班的同學(xué)給與我不少幫助，這里一并表示感謝。參考文獻(xiàn)參考文獻(xiàn)：1. 計(jì)算機(jī)書(shū)目文獻(xiàn)管理數(shù)據(jù)庫(kù) 清華大學(xué)出版社2. VisualBasic6.0開(kāi)發(fā)與技巧 機(jī)械工業(yè)出版社3. VisulBasic6.0數(shù)據(jù)庫(kù)和Internet編程清華大學(xué)出版社4. VisulBasic6.0實(shí)例精通 清華大學(xué)出版社5. VisualBasic客戶/服務(wù)器 清華大學(xué)出版社6. MSSQLServer7.0操作指南 清華大學(xué)出版社附錄A系統(tǒng)的主要代碼主界面PrivateSubEexit_Click()'退出系統(tǒng)IfMsgBox("退出房產(chǎn)信息系統(tǒng)？",vbQuestion+vbYesNo,"房產(chǎn)信息")=vbYesThen'MdiExit=TrueUnloadMe'關(guān)閉數(shù)據(jù)庫(kù)'DimsdirAsString'壓縮數(shù)據(jù)庫(kù)，但預(yù)防中斷，壓縮時(shí)不用相同的名字'sdir=Dir(App.Path&"\New.mdb")'Ifsdir<>""ThenKillsdir'DBEnginepactDatabaseApp.Path&"\SYpcard.mdb",App.Path&"\New.mdb"'KillApp.Path&"\SYpcard.mdb"'NameApp.Path&"\New.mdb"AsApp.Path&"\SYpcard.mdb"EndEndIfmdiMain.statusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSubPrivateSubMback_Click()LoadfrmBackEndSubPrivateSubMDIForm_Load()'statusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSubPrivateSubmnuagent_Click()LoadfrmAgentEndSubPrivateSubmnuBespek_Click()LoadfrmOrderEndSubPrivateSubmnuClient_Click()Customer.ShowfrmCcond.Show1EndSubPrivateSubmnucustomer_Click()LoadfrmCustomerEndSubPrivateSubmnugarage_Click()LoadfrmGarageEndSubPrivateSubmnuHabout_Click()LoadfrmAboutEndSubPrivateSubmnuHasten_Click()LoadfrmEndcondEndSubPrivateSubmnuhouse_Click()LoadfrmAhouseEndSubPrivateSubmnuHouseno_Click()frmScond.Show1EndSubPrivateSubmnuPayment_Click()LoadfrmPaymentEndSubPrivateSubmnuRsale_Click()frmRcond.Show1EndSubPrivateSubmnuSarea_Click()frmPie.Show'saleAtio="area"Dimi,allAsIntegerfrmPie.Caption="房產(chǎn)出售面積比例關(guān)系圖"frmPie.MSChart1.TitleText="房產(chǎn)出售面積比例關(guān)系圖"frmPie.MSChart1.ColumnCount=3frmPie.MSChart1.Column=1frmPie.MSChart1.ColumnLabel="未售"frmPie.MSChart1.Column=2frmPie.MSChart1.ColumnLabel="預(yù)售"frmPie.MSChart1.Column=3frmPie.MSChart1.ColumnLabel="已售"frmPie.MSChart1.RefreshFori=0To2frmPie.grdDataGrid.Row=ifrmPie.MSChart1.Column=i+1frmPie.MSChart1.Data=frmPie.grdDataGrid.Columns(1).Valueall=all+frmPie.grdDataGrid.Columns(1).ValueNextfrmPie.MSChart1.FootnoteText="共"&all&"平方米"Fori=0To2frmPie.grdDataGrid.Row=ifrmPie.MSChart1.Column=i+1frmPie.MSChart1.ColumnLabel=frmPie.MSChart1.ColumnLabel&":"&frmPie.grdDataGrid.Columns(0).Value&"M2("&(frmPie.grdDataGrid.Columns(1).Value/all)*100Mod100&"%)"NextfrmPie.MSChart1.RefreshfrmPie.MSChart1.Enabled=FalseEndSubPrivateSubmnuSnum_Click()frmPie.Show'saleAtio="num"Dimi,allAsIntegerfrmPie.Caption="房產(chǎn)出售套數(shù)比例關(guān)系圖"frmPie.MSChart1.TitleText="房產(chǎn)出售套數(shù)比例關(guān)系圖"frmPie.MSChart1.ColumnCount=3frmPie.MSChart1.Column=1frmPie.MSChart1.ColumnLabel="未售"frmPie.MSChart1.Column=2frmPie.MSChart1.ColumnLabel="預(yù)售"frmPie.MSChart1.Column=3frmPie.MSChart1.ColumnLabel="已售"Fori=0To2frmPie.grdDataGrid.Row=ifrmPie.MSChart1.Column=i+1frmPie.MSChart1.Data=frmPie.grdDataGrid.Columns(0).Valueall=all+frmPie.grdDataGrid.Columns(0).ValueNextfrmPie.MSChart1.FootnoteText="共"&all&"套"Fori=0To2frmPie.grdDataGrid.Row=ifrmPie.MSChart1.Column=i+1frmPie.MSChart1.ColumnLabel=frmPie.MSChart1.ColumnLabel&":"&frmPie.grdDataGrid.Columns(0).Value&"套("&(frmPie.grdDataGrid.Columns(0).Value/all)*100Mod100&"%)"NextfrmPie.MSChart1.RefreshfrmPie.MSChart1.Enabled=FalseEndSubPrivateSubmnuSprice_Click()frmPie.Show'saleAtio="price"Dimi,allAsIntegerfrmPie.Caption="已售房產(chǎn)收款比例關(guān)系圖"frmPie.MSChart1.TitleText="已售房產(chǎn)收款比例關(guān)系圖"frmPie.MSChart1.ColumnCount=2frmPie.grdDataGrid2.Row=0frmPie.MSChart1.Column=1frmPie.MSChart1.ColumnLabel="已收款:"&frmPie.grdDataGrid2.Columns(0).Value&"￥("&(frmPie.grdDataGrid2.Columns(0).Value/frmPie.grdDataGrid2.Columns(2).Value)*100Mod100&"%)"frmPie.MSChart1.Data=frmPie.grdDataGrid2.Columns(0).ValuefrmPie.MSChart1.Column=2frmPie.MSChart1.ColumnLabel="未收款:"&frmPie.grdDataGrid2.Columns(1).Value&"￥("&(frmPie.grdDataGrid2.Columns(1).Value/frmPie.grdDataGrid2.Columns(2).Value)*100Mod100&"%)"frmPie.MSChart1.Data=frmPie.grdDataGrid2.Columns(1).ValuefrmPie.MSChart1.FootnoteText="共應(yīng)收款"&frmPie.grdDataGrid2.Columns(2).Value&"￥"frmPie.MSChart1.RefreshfrmPie.MSChart1.Enabled=FalseEndSubPrivateSubmnustructre_Click()LoadfrmStructreEndSubPrivateSubmnuTotal_Click()Form1.ShowEndSubPrivateSubMuse_Click()LoadfrmUseEndSubPrivateSubTimer1_Timer()frmLogin.Show1Timer1.Enabled=FalseEndSubPrivateSubWcascade_Click()'層疊窗體：層疊所有非最小化的MDI子窗體statusBar.Panels(2).Text="窗體層疊排列"Me.ArrangevbCascadestatusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSubPrivateSubWicon_Click()'圖標(biāo)窗體：重排所有最小化的MDI子窗體的圖標(biāo)statusBar.Panels(2).Text="窗體圖標(biāo)排列"Me.ArrangevbArrangeIconsstatusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSubPrivateSubWHtitle_Click()'水平平鋪所有非最小化的MDI子窗體statusBar.Panels(2).Text="窗體平鋪"Me.ArrangelvbTileHorizontalstatusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSubPrivateSubWVtitle_Click()'垂直平鋪所有非最小化的MDI子窗體statusBar.Panels(2).Text="窗體平鋪"Me.ArrangevbTileVerticalstatusBar.Panels(2).Text="房產(chǎn)信息系統(tǒng)待命"EndSub房屋信息OptionExplicitDimchangeAsBoolean'修改標(biāo)志?PublicYrecordSourceAsString'啟動(dòng)此窗體時(shí)的記錄源PublicSubSearchGarage()dbcomHouseNo.Visible=FalseIfTrim(dbcomHouseNo)<>""Then'OrNotIsNull(dbcomHouseNo)datPrimaryRS.RecordSource="select*fromhousewherehousenolike'"&dbcomHouseNo&"'"datPrimaryRS.RefreshEndIfDimiAsIntegerFori=0To13txtFields(i).Enabled=TrueIfi>=2Andi<=5Ori=7ThenupArea(i).Enabled=TrueNextbdcombStructre.Enabled=TruecombUse.Enabled=TruecombSale.Enabled=TrueEndSubPrivateSubcmdReturn_Click()datPrimaryRS.RecordSource=YrecordSourcedatPrimaryRS.RefreshEndSubPrivateSubcmdSearch_Click()SSTab1.Tab=0'搜索時(shí)激活第一個(gè)選項(xiàng)卡dbcomHouseNo.Visible=True'讓?xiě)籼?hào)獲得焦點(diǎn)dbcomHouseNo.SetFocusDimiAsIntegerFori=0To13txtFields(i).Enabled=FalseIfi>=2Andi<=5Ori=7ThenupArea(i).Enabled=FalseNextbdcombStructre.Enabled=FalsecombUse.Enabled=FalsecombSale.Enabled=FalseEndSubPrivateSubdbcomHouseNo_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallSearchGarageEndIfEndSubPrivateSubdbcomHouseNo_LostFocus()CallSearchGarageEndSubPrivateSubForm_Load()'SetgrdDataGrid.DataSource=datPrimaryRS.Recordset("ChildCMD").UnderlyingValueMe.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/2-1000YrecordSource=datPrimaryRS.RecordSource'?load時(shí)EndSubPrivateSubForm_Unload(CancelAsInteger)CallcmdUpdate_Click'提示保存Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'錯(cuò)誤處理程序代碼置于此處'想要忽略錯(cuò)誤，注釋掉下一行'想要捕獲它們，在此添加代碼以處理它們MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'為這個(gè)recordset顯示當(dāng)前記錄位置datPrimaryRS.Caption=CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'驗(yàn)證代碼置于此處'下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用DimbCancelAsBooleanDimiAsIntegerStaticdel,addAsBooleanSelectCaseadReasonCaseadRsnAddNew:add=TrueCaseadRsnCloseCaseadRsnDelete:del=TrueCaseadRsnFirstChange:change=TrueCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateIfdelOraddThendel=False:add=FalseExitSubEndIfIfchangeTheni=MsgBox("數(shù)據(jù)被修改,保存嗎？",vbInformation+vbYesNo,"房產(chǎn)信息")Ifi=vbNoThendatPrimaryRS.Recordset.CancelBatchadAffectCurrentchange=FalseEndIfEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErr'繼承輸入IfMe.datPrimaryRS.Recordset.RecordCount<>0Then'IfNotMe.datPrimaryRS.Recordset.EOFThenMe.datPrimaryRS.Recordset.MoveLastDims(0To13),sHh,sStructre,sUse,sSaleAsStringDimiAsIntegersHh=txtFields(0)'?處理sStructre=bdcombStructresUse=combUsesSale=combSaleFori=1To13s(i)=txtFields(i)NextdatPrimaryRS.Recordset.AddNewIfchkcopy.Value=1ThentxtFields(0)=sHh&"1"bdcombStructre=sStructrecombUse=sUsecombSale=sSaleFori=1To13txtFields(i)=s(i)NextdatPrimaryRS.Recordset.MovePreviousdatPrimaryRS.Recordset.MoveNextElsetxtFields(0)=sHh&"1"EndIfElsedatPrimaryRS.Recordset.AddNewtxtFields(0)="1"EndIfExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrIfdatPrimaryRS.Recordset.RecordCount=0ThenExitSubWithdatPrimaryRS.RecordsetDimiAsIntegeri=MsgBox("確定要?jiǎng)h除嗎？",vbExclamation+vbYesNo,"房產(chǎn)信息")Ifi=vbYesThen.Delete'.MoveNextIf.EOFThen.MoveLastEndIfEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrIfchangeThenchange=FalseDimiAsIntegeri=MsgBox("數(shù)據(jù)已修改，保存嗎？",vbInformation+vbYesNo,"房產(chǎn)信息")Ifi=vbYesThendatPrimaryRS.Recordset.UpdateBatchadAffectAll'?ElseIfi=vbNoThendatPrimaryRS.Recordset.CancelBatchadAffectAllEndIfEndIfExitSubUpdateErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdClose_Click()CallcmdUpdate_Click'提示保存UnloadMeEndSubPrivateSubupArea_DownClick(IndexAsInteger)IfTrim(txtFields(Index))=""ThentxtFields(Index)=0ElseIfCInt(txtFields(Index))>0ThentxtFields(Index)=CSng(txtFields(Index))-1EndIfEndSubPrivateSubupArea_UpClick(IndexAsInteger)IfTrim(txtFields(Index))=""ThentxtFields(Index)=0ElsetxtFields(Index)=CSng(txtFields(Index))+1EndIfEndSub客戶信息OptionExplicitDimchangeAsBoolean'修改標(biāo)志?PrivateSubcmdReturn_Click()frmPayment.txtFields(1)=Me.txtFields(0)'返回按鈕已被刪除frmPayment.txtFields(2)=Me.txtFields(2)UnloadMeEndSubPrivateSubcmdZl_Click()'經(jīng)辦人的編號(hào)整理OnErrorResumeNextDimi,jAsIntegerZLtag=TrueIfMe.datPrimaryRS.Recordset.RecordCount<>0ThendatPrimaryRS.Recordset.MoveFirstFori=1TodatPrimaryRS.Recordset.RecordCountIfLen(i)<6ThentxtFields(0)=iForj=1To6-Len(i)-1txtFields(0)=0&txtFields(0)NextElsetxtFields(0)=iEndIfIfNotdatPrimaryRS.Recordset.EOFThendatPrimaryRS.Recordset.MoveNextNextdatPrimaryRS.Recordset.MoveFirstEndIfEndSubPrivateSubForm_Load()'SetgrdDataGrid.DataSource=datPrimaryRS.Recordset("ChildCMD").UnderlyingValueMe.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/2-1000EndSubPrivateSubForm_Unload(CancelAsInteger)CallcmdUpdate_Click'提示保存Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'錯(cuò)誤處理程序代碼置于此處'想要忽略錯(cuò)誤，注釋掉下一行'想要捕獲它們，在此添加代碼以處理它們MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'為這個(gè)recordset顯示當(dāng)前記錄位置'datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)EndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'驗(yàn)證代碼置于此處'下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用DimbCancelAsBooleanDimiAsIntegerStaticdel,addAsBooleanSelectCaseadReasonCaseadRsnAddNew:add=TrueCaseadRsnCloseCaseadRsnDelete:del=TrueCaseadRsnFirstChange:change=TrueCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateIfdelOraddThendel=False:add=FalseExitSubEndIfIfZLtag=FalseThenIfchangeTheni=MsgBox("數(shù)據(jù)被修改,保存嗎？",vbInformation+vbYesNo,"客戶信息")Ifi=vbNoThendatPrimaryRS.Recordset.CancelBatchadAffectCurrentEndIfElseZLtag=FalseEndIfchange=FalseEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErr'繼承輸入IfMe.datPrimaryRS.Recordset.RecordCount<>0ThenIfNotMe.datPrimaryRS.Recordset.EOFThenMe.datPrimaryRS.Recordset.MoveLastDims1,s(2To8)AsStringDimiAsIntegers1=txtFields(0)s1=Int(s1)+1IfLen(s1)<5ThenFori=1To5-Len(s1)s1=0&s1NextEndIfFori=2To8s(i)=txtFields(i)NextdatPrimaryRS.Recordset.AddNewIfchkcopy.Value=1ThentxtFields(0)=s1txtDate=DateValue(Now)Fori=2To8txtFields(i)=s(i)NextdatPrimaryRS.Recordset.MovePreviousdatPrimaryRS.Recordset.MoveNextElsetxtFields(0)=s1txtDate=DateValue(Now)EndIfElsedatPrimaryRS.Recordset.AddNewtxtFields(0)="00001"txtDate=DateValue(Now)EndIfExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrIfdatPrimaryRS.Recordset.RecordCount=0ThenExitSubWithdatPrimaryRS.RecordsetDimiAsIntegeri=MsgBox("確定要?jiǎng)h除嗎？",vbExclamation+vbYesNo,"客戶信息")Ifi=vbYesThen.Delete'.MoveNextIf.EOFThen.MoveLastEndIfEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErrIfchangeThenchange=FalseDimiAsIntegeri=MsgBox("數(shù)據(jù)已修改，保存嗎？",vbInformation+vbYesNo,"客戶信息")Ifi=vbYesThendatPrimaryRS.Recordset.UpdateBatchadAffectAll'?ElseIfi=vbNoThendatPrimaryRS.Recordset.CancelBatchadAffectAllEndIfEndIfExitSubUpdateErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdClose_Click()CallcmdUpdate_Click'提示保存UnloadMeEndSub車庫(kù)信息OptionExplicitDimchangeAsBoolean'修改標(biāo)志?PublicYrecordSourceAsString'啟動(dòng)此窗體時(shí)的記錄源PublicSubSearchGarage()dbcomGarageNo.Visible=FalseIfTrim(dbcomGarageNo)<>""Then'OrNotIsNull(dbcomGarageNo)YrecordSource=datPrimaryRS.RecordSource'?load時(shí)If(dbcomGarageNo.TextLike"*9*")ThenMsgBox""datPrimaryRS.RecordSource="select*fromgaragewheregaragenolike'"&dbcomGarageNo&"'"datPrimaryRS.RefreshEndIfDimiAsIntegerFori=1To5txtFields(i).Enabled=TrueNextEndSubPrivateSubcmdReturn_Click()datPrimaryRS.RecordSource=YrecordSourcedatPrimaryRS.RefreshEndSubPrivateSubcmdMonth_Click()MonthView1.Visible=TrueEndSubPrivateSubcmdSearch_Click()dbcomGarageNo.Visible=TruedbcomGarageNo.SetFocusDimiAsIntegerFori=1To5txtFields(i).Enabled=FalseNextEndSubPrivateSubcombSale_Change()IfcombSale.Text="已售"OrcombSale.Text="預(yù)留"ThentxtFields(5).Enabled=TruecmdMonth.Visible=TruetxtFields(5)=DateValue(Now)ElsetxtFields(5).Enabled=FalsecmdMonth.Visible=FalseEndIfEndSubPrivateSubcombSale_Click()IfcombSale.Text="已售"OrcombSale.Text="預(yù)留"ThentxtFields(5).Enabled=TruecmdMonth.Visible=TruetxtFields(5)=DateValue(Now)ElsetxtFields(5).Enabled=FalsecmdMonth.Visible=FalseEndIfEndSubPrivateSubcombSale_LostFocus()IfcombSale.Text="已售"OrcombSale.Text="預(yù)留"ThentxtFields(5).Enabled=TruecmdMonth.Visible=TruetxtFields(5)=DateValue(Now)ElsetxtFields(5).Enabled=FalsecmdMonth.Visible=FalseEndIfEndSubPrivateSubdbcomGarageNo_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallSearchGarageEndIfEndSubPrivateSubdbcomGarageNo_LostFocus()CallSearchGarageEndSubPrivateSubForm_Load()'SetgrdDataGrid.DataSource=datPrimaryRS.Recordset("ChildCMD").UnderlyingValueMe.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/2-1200EndSubPrivateSubForm_Unload(CancelAsInteger)CallcmdUpdate_Click'提示保存Screen.MousePointer=vbDefaultEndSubPrivateSubdatPrimaryRS_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)'錯(cuò)誤處理程序代碼置于此處'想要忽略錯(cuò)誤，注釋掉下一行'想要捕獲它們，在此添加代碼以處理它們MsgBox"Dataerroreventhiterr:"&DescriptionEndSubPrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'驗(yàn)證代碼置于此處'下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用DimbCancelAsBooleanDimiAsIntegerStaticdel,addAsBooleanSelectCaseadReasonCaseadRsnAddNew:add=TrueCaseadRsnCloseCaseadRsnDelete:del=TrueCaseadRsnFirstChange:change=TrueCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateIfdelOraddThendel=False:add=FalseExitSubEndIfIfchangeTheni=MsgBox("數(shù)據(jù)被修改,保存嗎？",vbInformation+vbYesNo,"車庫(kù)信息")Ifi=vbNoThendatPrimary