二手房銷售文檔

1、 軟件工程系統(tǒng)設(shè)計(jì)報(bào)告題目： 二手房銷售管理信息系統(tǒng) 目 錄1引言32 需求分析43 系統(tǒng)設(shè)計(jì)界面設(shè)計(jì)84 數(shù)據(jù)庫設(shè)計(jì)105功能和界面設(shè)計(jì)146系統(tǒng)設(shè)計(jì) 197 測試318總結(jié).31參考文獻(xiàn)31 二手房銷售管理信息系統(tǒng)1 引言1.1 選題背景：一直以來，房地產(chǎn)市場都保持著繁榮的局面。近幾年，不僅新樓盤銷售旺盛，二手房市場也是在不斷升溫，相關(guān)需求也不斷增加，為此，在這介紹一下二手房銷售設(shè)計(jì)開發(fā)方法。 房地產(chǎn)經(jīng)紀(jì)公司的二手房銷售管理業(yè)務(wù)流程可以簡單的描述為：（1） 搜集房源信息并記錄，驗(yàn)收房屋實(shí)際情況是否與房主所匯報(bào)房源信息相符，再進(jìn)行相應(yīng)記錄。（2） 客戶到房地產(chǎn)經(jīng)紀(jì)公司提出購房請求，經(jīng)確定購房

2、區(qū)域后，由房地產(chǎn)經(jīng)紀(jì)公司委派該區(qū)域的員工查找符合條件的全部的全部房源信息，經(jīng)與客戶協(xié)商后到實(shí)地看房。（3） 看房之前需要簽訂看房協(xié)議，客戶保證不會越過該房地產(chǎn)經(jīng)紀(jì)公司私自和房主發(fā)生買賣行為，否則也要交納相應(yīng)的中介費(fèi)用。（4） 如果客戶選定某個(gè)房屋，則由該公司員工引導(dǎo)，并由專人負(fù)責(zé)客戶與房地產(chǎn)房地產(chǎn)經(jīng)紀(jì)公司簽訂房屋居間服務(wù)合同，交納中介費(fèi)和指定金額的定金，同時(shí)客戶需要承諾在規(guī)定的期限內(nèi)繳納剩余房款和稅金，否則定為違約，定金作為房地產(chǎn)經(jīng)紀(jì)公司的補(bǔ)償。（5） 辦理完全產(chǎn)證的更名等一切手續(xù)，并由客戶驗(yàn)收后，由房地產(chǎn)經(jīng)紀(jì)公司將房款交給房主。房屋買賣交易結(jié)束。 面對大量的二手房信息和交易活動，傳統(tǒng)的手工管

3、理很復(fù)雜。工作效率低下，數(shù)據(jù)混亂且難以發(fā)覺其中的規(guī)律。對各個(gè)房地產(chǎn)經(jīng)紀(jì)公司來說，二手房銷售管理系統(tǒng)，輔助管理銷售，是提高工作銷售的必經(jīng)之路。而我們也可以得到一般的房產(chǎn)中介公司的二手房銷售管理業(yè)務(wù)模型。1.2 系統(tǒng)目標(biāo)：本系統(tǒng)是以一般的房地產(chǎn)經(jīng)紀(jì)公司的銷售管理業(yè)務(wù)為依托，圍繞房屋銷售的業(yè)務(wù)流程，設(shè)計(jì)并開發(fā)一個(gè)二手房銷售管理信息系統(tǒng)，針對公司不管理層的員工，提供一個(gè)互動式的二手房銷售管理平臺。其系統(tǒng)目標(biāo)和功能要求如下：1、系統(tǒng)目標(biāo)：1） 將銷售管理的理論知識與一般房地產(chǎn)經(jīng)紀(jì)公司的銷售管理業(yè)務(wù)相結(jié)合，使銷售管理業(yè)務(wù)流程更加合理。2） 提供方便、靈活的操作3） 節(jié)約成本，提高效率4） 對系統(tǒng)進(jìn)行權(quán)限管

4、理2、功能目標(biāo)：5） 滿足二手房銷售房的銷售數(shù)據(jù)需求，能夠方便的進(jìn)行房屋數(shù)據(jù)的錄入和多條件的查詢。6） 與手工管理相比，要添加基礎(chǔ)數(shù)據(jù)的管理和用戶權(quán)限的管理。7） 居間服務(wù)合同的結(jié)構(gòu)要嚴(yán)格遵守原有的業(yè)務(wù)，并且要求數(shù)據(jù)準(zhǔn)確、安全，同時(shí)準(zhǔn)確的記錄時(shí)間。8） 針對不同角色，將系統(tǒng)用戶分為系統(tǒng)管理員、經(jīng)紀(jì)人和合同負(fù)責(zé)人三級權(quán)限。系統(tǒng)管理員可以享有系統(tǒng)的全部權(quán)限；經(jīng)紀(jì)人僅享有本人所負(fù)責(zé)的房屋信息的更新權(quán)和全部房屋信息的查詢權(quán)；合同負(fù)責(zé)人享有房屋居間服務(wù)合同的更新權(quán)和全部房屋信息的查詢權(quán)；公司的高層管理者擁有修通管理員權(quán)限。9） 為保障系統(tǒng)，對于可能發(fā)生的問題的輸入要進(jìn)行檢驗(yàn)，同時(shí)要給出合理的提示信息。2

5、 需求分析2.1 概述新信息系統(tǒng)的建立是在現(xiàn)行業(yè)務(wù)基礎(chǔ)上經(jīng)過改建或重建而得到的。因此，在進(jìn)行新系統(tǒng)的規(guī)劃、分析和設(shè)計(jì)工作之前，必須對現(xiàn)行系統(tǒng)做全面、充分的調(diào)查研究和分析，在此基礎(chǔ)上建立企業(yè)模型。業(yè)務(wù)模型是對業(yè)務(wù)結(jié)構(gòu)和業(yè)務(wù)活動本質(zhì)、概括的認(rèn)識，可用“業(yè)務(wù)范圍-業(yè)務(wù)過程-具體業(yè)務(wù)處理”這樣的層次結(jié)構(gòu)來對其進(jìn)行描述。業(yè)務(wù)模型的建立也可以分為3個(gè)階段。1）現(xiàn)型業(yè)務(wù)的調(diào)查和分析。2）提出一個(gè)表示全部業(yè)務(wù)的模型。3）擴(kuò)展上述模型，使它能表示出各項(xiàng)具體的業(yè)務(wù)活動，最終確定為業(yè)務(wù)模型。、根據(jù)對二手房銷售管理的業(yè)務(wù)流程的調(diào)查和分析，得到一般的房產(chǎn)中介公司的二手的二手房銷售管理業(yè)務(wù)模型，如圖6-1所示。 表6-1

6、 二手房銷售管理業(yè)務(wù)模型業(yè)務(wù)范圍業(yè)務(wù)過程具體業(yè)務(wù)處理二手房銷售管理員工基本信息管理登錄各級銷售人員的基本信息更新和維護(hù)員工的基本信息提供分域的員工信息檢索功能員工銷售信息管理錄入與房屋銷售相關(guān)的員工信息，包括責(zé)任區(qū)域等提供檢索功能對員工數(shù)據(jù)銷售業(yè)績進(jìn)行統(tǒng)計(jì)房源數(shù)據(jù)管理搜集房源信息并記錄驗(yàn)收房屋實(shí)際情況是否與房主所報(bào)房源信息相符更新和維護(hù)房源數(shù)據(jù)隨時(shí)按各種要求查詢房源數(shù)據(jù)客戶看房管理客戶提出購房請求經(jīng)確定購房區(qū)域后，由該區(qū)域的員工查找符合條件的全部房源簽訂看房協(xié)議，客戶要保證不會越過該房地產(chǎn)經(jīng)紀(jì)公司私自與房主發(fā)生買賣行為，否則也要繳納相應(yīng)的中介費(fèi)用房屋居間服務(wù)合同管理 客戶選定某房屋，則由該員工

7、引導(dǎo)，并由專人負(fù)責(zé)客戶與房地產(chǎn)經(jīng)紀(jì)公司簽訂房屋居間服務(wù)合同 客戶交納中介費(fèi)和指定金額的定金，并需要承諾在規(guī)定的繳納剩余房款和稅金，否則視為違約，定金作為房地產(chǎn)經(jīng)紀(jì)公司的補(bǔ)償已售房信息管理買賣繳納全部房款辦理過戶房地產(chǎn)經(jīng)紀(jì)公司將房款交給房主登記已售房屋信息刪除相應(yīng)的房源數(shù)據(jù)銷售數(shù)據(jù)統(tǒng)計(jì)2.2 數(shù)據(jù)分析 在建立了較為完整、穩(wěn)定的業(yè)務(wù)模型之后，需要根據(jù)模型進(jìn)行數(shù)據(jù)分析?；痉椒ㄊ前凑諛I(yè)務(wù)過程進(jìn)行數(shù)據(jù)分類和組織。數(shù)據(jù)分類后，進(jìn)行信息體系結(jié)構(gòu)的設(shè)計(jì)：即結(jié)合業(yè)務(wù)過程與數(shù)據(jù)類，建立系統(tǒng)的功能/數(shù)據(jù)類矩陣（c-u矩陣）。數(shù)據(jù)分類得到的結(jié)果將用于系統(tǒng)分析和系統(tǒng)設(shè)計(jì)階段。 根據(jù)表6-1的業(yè)務(wù)模型，得到本系統(tǒng)涉及到

8、得數(shù)據(jù)類：員工基本信息、員工銷售信息、房源信息數(shù)據(jù)、客房看房信息、房屋居間服務(wù)合同信息、已售房信息。建立系統(tǒng)c-u矩陣，如表6-2所示。 數(shù)據(jù)類業(yè)務(wù)過程員工基本信息員工銷售信息房源信息客戶看房信息服務(wù)合同信息已售房信息員工基本信息管理 C員工銷售信息管理 U C房源數(shù)據(jù)管理 U C客戶看房管理 U C房屋居間服務(wù)合同管理 U C已售房信息管理 U U C2.3 系統(tǒng)分析系統(tǒng)分析的依據(jù)是系統(tǒng)規(guī)劃階段建立的業(yè)務(wù)模型和c-u矩陣，并在現(xiàn)有資料的基礎(chǔ)上深入的調(diào)查研究，進(jìn)行功能分析，最終確定新系統(tǒng)的邏輯功能結(jié)構(gòu)。2.4 邏輯功能結(jié)構(gòu)1、 數(shù)據(jù)流程圖 并非所有的業(yè)務(wù)處理都能由計(jì)算機(jī)來完成，因此圍繞著信息處

9、理業(yè)務(wù)，根據(jù)業(yè)務(wù)流程圖，必須弄清楚系統(tǒng)需要產(chǎn)生什么樣的信息輸出。為了得到這樣的輸出應(yīng)該對什么數(shù)據(jù)進(jìn)行處理，輸入數(shù)據(jù)向輸出數(shù)據(jù)所進(jìn)行的轉(zhuǎn)換過程是什么？而這個(gè)過程是進(jìn)行數(shù)據(jù)抽取，建立數(shù)據(jù)流程圖的過程。數(shù)據(jù)流程圖描述了新系統(tǒng)的全部的數(shù)據(jù)處理邏輯和數(shù)據(jù)的流動過程，構(gòu)成了新系統(tǒng)邏輯模型。 根據(jù)業(yè)務(wù)流程圖，去掉其中信息系統(tǒng)不能完成的和本系統(tǒng)處理以外的環(huán)節(jié)，并將業(yè)務(wù)處理比較集中的功能作為一個(gè)高層模塊，從而得到本系統(tǒng)高層數(shù)據(jù)流程圖，如圖6-2所示。高層數(shù)據(jù)流程圖中有些功能不可再分，在進(jìn)一步的設(shè)計(jì)中可以將其作為一個(gè)單獨(dú)的模塊；而有些功能比較復(fù)雜，應(yīng)進(jìn)一步再分解，知道每個(gè)子模塊的功能、獨(dú)立，不可再分。本系統(tǒng)的高層

10、數(shù)據(jù)流程圖中各個(gè)模塊的處理功能比較集中，均可作為一個(gè)單獨(dú)的子模塊。對比數(shù)據(jù)流程圖和業(yè)務(wù)流程圖不難看出，從業(yè)務(wù)過程（業(yè)務(wù)流程圖）抽取數(shù)據(jù)流的過程中，有些純?nèi)斯的操作在數(shù)據(jù)流程圖中被省略，如買方交納全部房款的過程；有些環(huán)節(jié)不屬于本系統(tǒng)的處理范圍要去掉，如辦理過戶的過程；有些初期調(diào)研沒有得到的常規(guī)業(yè)務(wù)要增加到數(shù)據(jù)流程圖中，如提供一些報(bào)表功能等。綜合一些報(bào)表功能等。綜合以上各個(gè)步驟的分析，最終得到了用數(shù)據(jù)流程圖表達(dá)的新系統(tǒng)的邏輯功能結(jié)構(gòu)。 2、 數(shù)據(jù)字典 數(shù)據(jù)流程圖并不能完整地描述軟件需求，因?yàn)樗鼪]有描述數(shù)據(jù)流程圖上各個(gè)成分的具體內(nèi)容。實(shí)際應(yīng)用中，數(shù)據(jù)流程圖往往與數(shù)據(jù)字典配套使用。數(shù)據(jù)字典實(shí)在數(shù)據(jù)流

11、程圖的基礎(chǔ)上，進(jìn)一步定義和描述流程圖上各個(gè)成分的工具，它包括對一切動態(tài)數(shù)據(jù)（可在系統(tǒng)內(nèi)外流動的數(shù)據(jù)流）和靜態(tài)數(shù)據(jù)（不參與流動的數(shù)據(jù)存儲）的數(shù)據(jù)結(jié)構(gòu)和相互關(guān)系等的說明，是數(shù)據(jù)分析和數(shù)據(jù)管理的重要工具。數(shù)據(jù)字典中常常包括對數(shù)據(jù)元素、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流的來源去處、數(shù)據(jù)存儲、處理功能和外部實(shí)體的說明。 本系統(tǒng)建立數(shù)據(jù)字典中，對處理功能的說明如下：1） 權(quán)限設(shè)定 系統(tǒng)管理員-系統(tǒng)的全部權(quán)限 經(jīng)紀(jì)人僅具有本人所負(fù)責(zé)區(qū)域的房屋信息的更新權(quán)和全部房屋信息的查詢權(quán)合同責(zé)任人房屋居間服務(wù)合同的更新權(quán)和全部房屋信息的查詢權(quán) 公司高層管理者系統(tǒng)管理員權(quán)限2） 員工（銷售）信息管理：錄入與房屋銷售相關(guān)的員工信息，包括責(zé)任

12、區(qū)域等。3） 房源數(shù)據(jù)管理：搜集房源信息并記錄。驗(yàn)收房屋實(shí)際情況是否與房主所報(bào)房源信息一致，更新和維護(hù)房源數(shù)據(jù)，并隨時(shí)按各種要求查詢房源數(shù)據(jù)。4） 客戶看房管理：客戶提出購房請求。確定購房區(qū)域后，由該區(qū)域的員工查找符合條件的全部房源信息，并與客戶簽訂看房協(xié)議。5）房屋居間服務(wù)合同管理：客戶與房地產(chǎn)經(jīng)紀(jì)公司簽訂房屋居間服務(wù)合同。交納中介費(fèi)和指定金額的定金，并需要承諾在規(guī)定期限內(nèi)交納剩余房款和稅金。6）已售房款信息管理：登記已售房屋信息；刪除相應(yīng)的房源數(shù)據(jù)；進(jìn)行售房數(shù)據(jù)統(tǒng)計(jì)。3 系統(tǒng)設(shè)計(jì)3.1 系統(tǒng)總體設(shè)計(jì)：依據(jù)系統(tǒng)分析階段得到的數(shù)據(jù)流程圖和數(shù)據(jù)字典，以數(shù)據(jù)流程圖中的處理功能為出發(fā)點(diǎn)，抽取各個(gè)主要

13、的處理功能建立模塊結(jié)構(gòu)圖。從數(shù)據(jù)流程圖轉(zhuǎn)化為系統(tǒng)模塊結(jié)構(gòu)時(shí)，有3個(gè)問題需要注意： 1、模塊結(jié)構(gòu)圖的層次要對應(yīng)于數(shù)據(jù)流程圖的層次 2、添加模塊。拋開具體業(yè)務(wù)本身，考慮到信息安全問題，往往要添加登錄模塊，登錄成功的用戶才允許使用系統(tǒng)；為了方便系統(tǒng)的管理和維護(hù)，要添加系統(tǒng)管理模塊，用以管理系統(tǒng)用戶的相關(guān)信息。 3、由人工操作到計(jì)算機(jī)世界的轉(zhuǎn)化過程中，為了便于計(jì)算機(jī)處理數(shù)據(jù)，往往需要對尸體添加唯一標(biāo)識（字符），如對學(xué)生信息的處理往往加上學(xué)號來標(biāo)識學(xué)生，這個(gè)過程叫做編碼。編碼需要用單獨(dú)的數(shù)據(jù)管理界面來管理，因此一般的應(yīng)用程序都會有基礎(chǔ)數(shù)據(jù)管理模塊，并且只允許系統(tǒng)管理員使用。下圖為本系統(tǒng)的模塊結(jié)構(gòu)圖3.3

14、.2 功能模塊1、登錄模塊： 用于輸入用戶名和密碼，如果用戶名和密碼正確，進(jìn)入主控制平臺；否則提示用戶明確的錯誤信息。2、系統(tǒng)管理模塊： 用戶管理子模塊：用于系統(tǒng)管理員進(jìn)行用戶進(jìn)行用戶權(quán)限設(shè)置和用戶的瀏覽，包括用戶密碼和用戶權(quán)限的更改，其他用戶只能瀏覽。 修改密碼子模塊：保證任何用戶可以修改自己的密碼。3、基礎(chǔ)數(shù)據(jù)管理模塊：用于設(shè)置和維護(hù)區(qū)域、房屋、樓盤的編碼與名稱的對應(yīng)關(guān)系。系統(tǒng)管理員有權(quán)進(jìn)行信息更新，其他用戶只能瀏覽。4、公司內(nèi)部信息管理模塊：員工數(shù)據(jù)管理子模塊：用于設(shè)置和管理與房屋銷售相關(guān)的員工信息數(shù)據(jù)，包括其基本信息和責(zé)任區(qū)域，并向全部員工提供查詢功能。系統(tǒng)管理員可以進(jìn)行數(shù)據(jù)的添加、刪

15、除和修改。 房源數(shù)據(jù)管理子模塊：用于設(shè)置和管理房源數(shù)據(jù)，并向全部員工提供查詢功能。系統(tǒng)管理員和負(fù)責(zé)本區(qū)域的精進(jìn)人可以進(jìn)行數(shù)據(jù)的添加、刪除與修改。5、售房信息管理模塊：客戶看房記錄子模塊：功能是記錄客戶看房信息，用于檢查是否客戶越過該房地產(chǎn)經(jīng)紀(jì)公司私自和房主發(fā)生買賣行為。系統(tǒng)管理員和負(fù)責(zé)本區(qū)域的經(jīng)紀(jì)人可以進(jìn)行數(shù)據(jù)的添加、刪除、修改。房屋居間服務(wù)合同管理子模塊：用于錄入和維護(hù)房屋居間服務(wù)合同，并生成報(bào)表。由合同責(zé)任人即使進(jìn)行合同數(shù)據(jù)的校驗(yàn)、更新和取消。系統(tǒng)管理員和合同責(zé)任人可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。但是，當(dāng)確認(rèn)此次房屋交易已經(jīng)完成時(shí)，任何人不能進(jìn)行更新。已售房屋信息管理子模塊：當(dāng)房屋買賣交易

16、結(jié)束后，意味著該房屋買賣已經(jīng)完成。由相應(yīng)的合同責(zé)任人將客戶購房信息進(jìn)行記錄。并由系統(tǒng)自動將其從房源數(shù)據(jù)中刪除，并向全部員工提供查詢功能。系統(tǒng)管理員和合同責(zé)任人可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。3.3 編碼設(shè)計(jì) 編碼是通過一些便于計(jì)算機(jī)或人來識別和處理的符號來表示各類信息。編碼方式有很多，常用的是層次碼和順序碼。層次碼是指把編碼對象分類，用不同的碼位來表示不同類別進(jìn)行編碼。順序是按排列順序?qū)幋a對象進(jìn)行編碼。3.4 系統(tǒng)詳細(xì)設(shè)計(jì) 總體設(shè)計(jì)搭建了系統(tǒng)的功能框架，建立了系統(tǒng)數(shù)據(jù)庫結(jié)構(gòu)。在總體設(shè)計(jì)的基礎(chǔ)上，需要對每個(gè)模塊的輸入數(shù)據(jù)、需要完成的處理邏輯和輸出數(shù)據(jù)進(jìn)行詳細(xì)的設(shè)計(jì)和描述3.5 系統(tǒng)公共文件根據(jù)

17、系統(tǒng)模塊結(jié)構(gòu)圖，抽取系統(tǒng)中多個(gè)模塊的相同的子功能來建立系統(tǒng)的公共特點(diǎn)，可以做到減少總代碼量，避免重復(fù)開發(fā)，保持系統(tǒng)實(shí)現(xiàn)風(fēng)格統(tǒng)一，以及增加可修改性等特點(diǎn)。本系統(tǒng)的公共文件包含以下幾個(gè)子功能：1） 主體框架2） 添加模塊3） 定義用戶名、用戶類型、職員編號以及登陸成功的標(biāo)識為系統(tǒng)公共變量定義4） Main（系統(tǒng)啟動）函數(shù)。5） Connect String 函數(shù)。該函數(shù)用于設(shè)置數(shù)據(jù)庫連接字符串函數(shù)。本系統(tǒng)數(shù)據(jù)庫用戶名和密碼設(shè)置為sa 。6） Execute SQL 函數(shù)。該函數(shù)用于設(shè)置SQL語句的執(zhí)行函數(shù)，并創(chuàng)建到數(shù)據(jù)源的連接，執(zhí)行SQL語句。如果SQL語句成功執(zhí)行，返回值為Ture,結(jié)果保存；否

18、則返回False 。7） DB Exist函數(shù)。該函數(shù)用于判斷數(shù)據(jù)庫中是否存在指定記錄，返回記錄數(shù)；否則，返回值為0 。8） TxtIsNull 函數(shù)。該函數(shù)用于判斷輸入到TextBox的內(nèi)容是否為空，參數(shù)為TextBox實(shí)例。9） Is Over String Len函數(shù)。干函數(shù)用于判斷輸入內(nèi)容是否超過給定值，參數(shù)為需要處理的字符串和給定長度值。其處理流程為：判斷字符串的長度不超過給定值時(shí)返回值為Ture,結(jié)果保存；否則返回False 。10） View Data函數(shù)。該函數(shù)用于執(zhí)行SQL語句，當(dāng)檢索到的記錄數(shù)不為0時(shí)，將相應(yīng)的數(shù)據(jù)集設(shè)置為Datagrid的數(shù)據(jù)源，并返回記錄數(shù)；否則給出提示

19、信息，返回值為0。11） ISEquelLen函數(shù)。該函數(shù)用于判斷輸入到TextBox的內(nèi)容是否為給定值。12） ComoboData 函數(shù)。它是為ComoboBox賦值函數(shù)。其處理流程為：從數(shù)據(jù)庫中檢索記錄，當(dāng)檢索記錄不為0時(shí)，將名稱字段添加到ComoboBox的顯示列表中，同時(shí)將編號字段作為相應(yīng)名稱的索引值。13） ComoboHour 函數(shù)。該函數(shù)是為小時(shí)ComoboBox賦值函數(shù)，參數(shù)為ComoboBox實(shí)例。其處理流程為：采用24小時(shí)/天的計(jì)時(shí)方式，從1到24，通過循環(huán)在ComoboBox里添加小時(shí)數(shù)字。ComoboBox里數(shù)位為2位。14） ComoboMin 函數(shù)。該函數(shù)是為分鐘

20、ComoboBox賦值函數(shù)，參數(shù)為ComoboBox實(shí)例。其處理流程為：從1到60，通過循環(huán)在ComoboBox里添加分鐘數(shù)字。ComoboBox里數(shù)位為2位。15） ComoboYear 函數(shù)。該函數(shù)是為年ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名稱。其處理流程為：從1990到2600，通過循環(huán)在ComoboBox里添加年份數(shù)字。16） ComoboMonth 函數(shù)。該函數(shù)是為月ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名稱。其處理流程為：從1到12，通過循環(huán)在ComoboBox里添加月份數(shù)字。ComoboBox里數(shù)位為2位。17） ComoboDate 函數(shù)。該函數(shù)是

21、為月ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名稱。其其處理流程為：從1到31，通過循環(huán)在ComoboBox里添加日期數(shù)字。ComoboBox里數(shù)位為2位。18） setCboDataReg 函數(shù)。該函數(shù)用于區(qū)域名ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。其處理流程為：檢索區(qū)域編碼信息表，調(diào)用ComoboData函數(shù)將區(qū)域名稱添加到責(zé)任區(qū)域ComoboBox列表中。19） setCboDataItem函數(shù)。它用于為樓盤名ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。其處理流程為：檢索樓盤編碼信息表，調(diào)用ComoboData函數(shù)將樓盤名稱添加到樓盤區(qū)域ComoboB

22、ox列表中。20） setCboDataStru函數(shù)。該函數(shù)用于為房型名ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。其處理流程為：檢索房型編碼信息表，調(diào)用ComoboData函數(shù)將樓盤名稱添加到房型區(qū)域ComoboBox列表中。21） getCboRegId函數(shù)。該函數(shù)用于獲取名稱ComoboBox中名稱所對應(yīng)的編號，參數(shù)為ComoboBox實(shí)例和存儲編號值的變量。使用該函數(shù)的前提是在為ComoboBox下拉列表賦值時(shí)，已經(jīng)將與名稱對應(yīng)的編號設(shè)置為下拉列表項(xiàng)目的索引值（本系統(tǒng)使用ComoboBox即可）。處理流程：判斷ComoboBox當(dāng)前文本內(nèi)容，如果為空，存儲編號值的變量值為下拉

23、列表項(xiàng)目的索引值。然后判斷存儲編號值的變量長度是否為該字段在數(shù)據(jù)庫中的長度值n，用select case語句將任何長度的變量設(shè)置為n位（不足位的前面補(bǔ)0）。22） setCboData函數(shù)。該函數(shù)用于為房源編號ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。其處理流程為：檢索房源信息表，將房源編號添加到對應(yīng)的ComoboBox下拉列表中。23）setLabelData函數(shù)。該函數(shù)用于為窗體上的Label控件的Caption屬性賦值。參數(shù)值為ComoboBox實(shí)例和Label實(shí)例。其處理流程為：以ComoboBox實(shí)例的文本內(nèi)容為關(guān)鍵字，檢索房源信息表，將檢索到的房源名稱賦給對應(yīng)的labe

24、l實(shí)例中的Caption屬性。4 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)是在DBMS的支持下，按照應(yīng)用的要求設(shè)計(jì)合理的數(shù)據(jù)庫物理結(jié)構(gòu)。本系統(tǒng)采用SQL Server 2000數(shù)據(jù)庫，根據(jù)系統(tǒng)分析和模塊設(shè)計(jì)中得到的功能和相應(yīng)的數(shù)據(jù)存儲，本系統(tǒng)數(shù)據(jù)庫的數(shù)據(jù)項(xiàng)和數(shù)據(jù)庫如下。 1、數(shù)據(jù)庫數(shù)據(jù)庫名稱：二手房銷售信息庫標(biāo)識：DB House 2、數(shù)據(jù)庫表結(jié)構(gòu)： 1）表名：用戶信息表 標(biāo)識：tb User 數(shù)據(jù)來源： 用戶模塊的錄入 用戶信息表2）表名：區(qū)域編碼信息表 標(biāo)識：tb Region 數(shù)據(jù)來源：基礎(chǔ)數(shù)據(jù)管理模塊的錄入 區(qū)域編碼信息表 3）表名：樓盤編碼信息表標(biāo)識：tb Item 數(shù)據(jù)來源：基礎(chǔ)數(shù)據(jù)管理模塊的錄入

25、樓盤編碼信息表4）表名：員工銷售信息表標(biāo)識：tb Sale Man 數(shù)據(jù)來源：公司內(nèi)部信息管理模塊的錄入 員工銷售信息表5）表名：房源信息表標(biāo)識：tb House 數(shù)據(jù)來源：公司內(nèi)部信息管理模塊的錄入 房源信息表6）表名：客戶看房記錄標(biāo)識：tb House Pre 數(shù)據(jù)來源：售房信息管理模塊錄入 客戶看房記錄 7）表名：房屋居間服務(wù)合同表標(biāo)識：tb Contract 數(shù)據(jù)來源：售房信息管理模塊錄入 房屋居間服務(wù)合同表8）表名：已售房屋記錄表標(biāo)識：tb House Sale 數(shù)據(jù)來源：售房信息管理模塊錄入 已售房屋記錄表5 系統(tǒng)模塊與界面設(shè)計(jì)1、人機(jī)交互設(shè)計(jì)2、用戶登錄模塊的IPO過程輸入：用戶

26、名和密碼。處理：1） 登錄窗體啟動。2） 輸入用戶名和密碼。3） 如果用戶名或密碼為空，處理終止，并進(jìn)行錯誤信息提示。4） 以輸入的用戶名作為關(guān)鍵字，檢索用戶信息表（tb User）的用戶名和密碼字段。5） 通過檢索結(jié)果判斷該用戶名是否存在，如果用戶名不存在，處理終止，并進(jìn)行錯誤信息提示。6） 如果用戶名存在，比較檢索到的密碼字段和輸入的密碼是否相等。如果不相等則處理終止，并進(jìn)行錯誤信息提示。7） 如果輸入的密碼正確，將該用戶名和用戶類型分別保存到全局變量guserName和guserkind中。8） 進(jìn)入主控制臺。輸出：主控制平臺。5.1 主控制平臺的設(shè)計(jì)系統(tǒng)主控平臺采用簡單、直觀的布局，通

27、過菜單實(shí)現(xiàn)對系統(tǒng)各個(gè)模塊的調(diào)用和各個(gè)窗體的現(xiàn)實(shí)。設(shè)置狀態(tài)欄用來顯示當(dāng)前日期、時(shí)間和當(dāng)前用戶信息。1、 人機(jī)交互設(shè)計(jì)2、 主控制平臺的功能設(shè)計(jì)1） 菜單導(dǎo)航功能：系統(tǒng)管理：用戶管理、修改密碼?；A(chǔ)數(shù)據(jù)庫管理。公司內(nèi)部信息管理：員工數(shù)據(jù)管理、房源數(shù)據(jù)管理。售房信息管理：客戶看房記錄、房屋居間服務(wù)合同管理和已售房屋記錄。員工銷售業(yè)績分析. 銷售額分析。 退出。2） 對當(dāng)前用戶、系統(tǒng)時(shí)間的狀態(tài)顯示3） 給出主控制臺的提示信息，如標(biāo)題。4） 判斷當(dāng)前用戶類型，對該類型用戶的權(quán)限進(jìn)行記錄。5） 點(diǎn)擊各個(gè)菜單或子菜單時(shí)，顯示相應(yīng)的界面。5.2 系統(tǒng)管理模塊 系統(tǒng)管理模塊一般包括用戶管理和修改密碼兩個(gè)子模塊。

28、用戶管理模塊只有系統(tǒng)管理員可以使用，一般用戶不能使用。修改密碼模塊面向任何用戶，提供修改登錄密碼的功能。用戶類型有系統(tǒng)管理員、經(jīng)紀(jì)人和合同負(fù)責(zé)人。5.3 基礎(chǔ)數(shù)據(jù)管理模塊 1、人機(jī)交互設(shè)計(jì)3、 基礎(chǔ)數(shù)據(jù)管理模塊的IPO過程輸入：區(qū)域、樓盤或者房型的編號和名稱。處理：1） 當(dāng)用戶類型為系統(tǒng)管理員時(shí)該菜單可用。2） 基礎(chǔ)數(shù)據(jù)管理窗體啟動。3） 從區(qū)域編碼信息表中讀取全部記錄，顯示在表格控件dgBasicData中。4） 當(dāng)鼠標(biāo)單擊標(biāo)簽，標(biāo)簽改變時(shí)，從對應(yīng)的數(shù)據(jù)庫表中讀取全部記錄，顯示在表格控件dgbasicdata中。5） 各級系統(tǒng)管理員的選擇（添加、修改和刪除）進(jìn)行相應(yīng)的處理5.4 公司內(nèi)部信息

29、管理模塊 公司內(nèi)部信息管理模塊管理包括員工數(shù)據(jù)管理和房源數(shù)據(jù)管理兩個(gè)子模塊，其中每個(gè)子模塊都包含兩個(gè)界面：數(shù)據(jù)顯示、操作界面和添加、修改數(shù)據(jù)界面1、 人機(jī)交互設(shè)計(jì) (2)員工數(shù)據(jù)管理子模塊的IPO過程輸入：員工編碼、員工姓名、性別、職務(wù)、聯(lián)系電話、區(qū)域名稱。處理：當(dāng)用戶類型為系統(tǒng)管理員時(shí)該菜單可用。員工數(shù)據(jù)管理窗體啟動。從員工信息表中讀取全部記錄，顯示在表格控件dgemp中。根據(jù)系統(tǒng)管理員的選擇（添加、修改、刪除）進(jìn)行相應(yīng)處理。2、 房源數(shù)據(jù)子模塊（1） 人機(jī)交互設(shè)計(jì)（2） 房源數(shù)據(jù)管理子模塊的IPO過程 輸入：房源數(shù)據(jù)、房源名稱、所屬區(qū)域名稱、樓盤名稱、建筑年代、建筑單位、戶型名稱、建筑面積

30、、樓層、總樓層、單元、車庫面積、學(xué)校、公交線路、臨近街道、小區(qū)會所、梯戶、廣場、基礎(chǔ)設(shè)施、裝修狀況、物業(yè)管理費(fèi)、權(quán)屬、售價(jià)和銷售狀態(tài)。 其中包括很多模塊，添加模塊也在其中5.5 售房信息管理模塊 售房信息管理管理模塊包括客戶看房記錄、房屋居間服務(wù)合同管理和已銷售信息管理3個(gè)子模塊。1、 客戶看房記錄子模塊客戶看房記錄子模塊的IPO過程 輸入：房源編號、房源名稱、看房時(shí)間、看房年月日、客戶人數(shù)、客戶身份證號。并且添加客戶看房記錄2、 房屋居間合同子模塊（1） 人機(jī)交互設(shè)計(jì)（2） 房屋居間服務(wù)和同居間管理子模塊的IPO過程 輸入：房源編號、房源名稱、簽訂日期、甲方實(shí)際售價(jià)、稅率說明、稅金總計(jì)、中介

31、費(fèi)、定金、建筑面積、權(quán)屬、乙方聯(lián)系方式、乙方身份證號、甲方聯(lián)系電話、甲方聯(lián)系方式、乙方房款交全最后期限、甲方交房最后期限、甲方贈物記錄、甲方代表、乙方代表和丙方。3、 已售房屋信息管理子模塊（1） 人際交互界面（2） 已售房屋信息管理子模塊的IPO過程 輸入：房源編號、房源名稱、建筑面積、實(shí)際銷售日期等6 系統(tǒng)實(shí)施6.1 數(shù)據(jù)的訪問 在數(shù)據(jù)庫的操作中，考慮到操作數(shù)據(jù)庫時(shí)如果利用數(shù)據(jù)綁定，則會鎖定記錄表，使得表的訪問為獨(dú)占式，而如果兩個(gè)終端同時(shí)訪問這個(gè)表，則容易造成死鎖。因此用SQL直接進(jìn)行數(shù)據(jù)庫的訪問是比較適合的，即使偶爾發(fā)生并發(fā)操作，對數(shù)據(jù)庫的修改不成功，也可以繼續(xù)保存。同時(shí)由于考慮數(shù)據(jù)庫中

32、的數(shù)據(jù)屬于動態(tài)的、變化的，因此，在數(shù)據(jù)庫德操縱過程中，大量使用了SQL語句進(jìn)行對數(shù)據(jù)庫的操作。具體來說，包括數(shù)據(jù)庫的插入、修改、刪除和查詢。 1、查詢操作 txtSql = "select HouseId as 房源編號,HouseName as 房源名稱,ViewTime as 看房時(shí)間," txtSql = txtSql + "ViewYMD as 看房年月日,ClientNum as 客戶人數(shù),ClientIDCard as 客戶身份證號" If txtClientIDCard.Text = "" Then txtSql = t

33、xtSql + " from tbHousePre order by HouseId " Else txtSql = txtSql + " from tbHousePre where ClientIDCard='" + txtClientIDCard.Text + "' order by HouseId" 2、修改操作 txtSql = "update tbHousePre set HouseName='" + Trim(lblName.Caption) + "',&quo

34、t; txtSql = txtSql + " ClientNum='" + Trim(txtClientNum.Text) + "'," txtSql = txtSql + "ClientIDCard='" + Trim(txtClientIDCard.Text) + "'" txtSql = txtSql + " where HouseId='" + Trim(cboId.Text) + "'" txtSql = txtSql

35、 + " and ViewYMD='" + Trim(strViewYMD) + "'" txtSql = txtSql + " and ViewTime='" + Trim(strViewTime) + "'" result = ExecuteSQL(txtSql, rstView, True) MsgBox "修改成功", vbOKOnly + vbExclamation, "警告" 3、添加操作 txtSql = txtSql + &qu

36、ot;values('" + Trim(cboId.Text) + "','" txtSql = txtSql + Trim(lblName.Caption) + "','" txtSql = txtSql + strViewTime + " ','" txtSql = txtSql + strViewYMD + "','" txtSql = txtSql + Trim(txtClientNum.Text) + "'

37、,'" txtSql = txtSql + Trim(txtClientIDCard.Text) + "')" result = ExecuteSQL(txtSql, rstView, True) MsgBox "客戶看房記錄添加成功", vbOKOnly + vbExclamation, "警告"4、 刪除操作txtSql = "delete from tbSaleMan where SaleManId='" + strSaleManId + "'"r

38、esults = ExecuteSQL(txtSql, rstEmp, True) MsgBox "刪除成功！", vbOKOnly + vbExclamation, "警告"6.2 連接數(shù)據(jù)庫 Public Function ConnectString() As String ConnectString = "FileDSN=dbhouse.dsn;UID=sa;PWD=sa"End Function6.3 系統(tǒng)模塊' *'系統(tǒng)公共變量定義' *Option ExplicitPublic gUserName

39、As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean' *'過程名：Main'說 明：系統(tǒng)啟動函數(shù)'參 數(shù)：無'返回值：無' *Sub Main() '啟動登陸窗體 Dim fLogin As New frmLogin fLogin.Show vbModal If Not gLoginSucceeded Then MsgBox "系統(tǒng)啟動失敗,請重試!", vbOKOnly + vbExclamation, "警告"

40、 End If Unload fLoginEnd Sub6.4 程序?qū)崿F(xiàn)關(guān)鍵代碼房屋居間合同管理' *'窗體公共變量定義' *Option ExplicitPrivate txtSql As String 'SQL語句Private result As Integer 'datagrid中的顯示記錄數(shù)Public ContractFlag As String '判斷添加刪除標(biāo)志Public strHouseId As String '房源編號Public strHouseName As String '房源名稱Public str

41、SignDate As String '簽訂日期Public strSaleMoney As String '甲方實(shí)際售價(jià)Public strTaxDes As String '稅率說明Public strTax As String '稅金總計(jì)Public strMediMoney As String '中介費(fèi)Public strPreMoney As String '定金Public strArea As String '建筑面積Public strBelong As String '權(quán)屬Public strYContact A

42、s String '乙方聯(lián)系方式Public strYTel As String '乙方聯(lián)系電話Public strYIDCard As String '乙方身份證號Public strJContact As String '甲方聯(lián)系方式Public strJTel As String '甲方聯(lián)系電話Public strJIDCard As String '甲方身份證號Public strYTimeLimit As String '乙方房款交全最后期限Public strJTimeLimit As String '甲方交房最后期限

43、Public strPresent As String '甲方贈物記錄Public strJdelegate As String '甲方代表Public strYdelegate As String '乙方代表Public strBManName As String '丙方Private str As StringPrivate rstContract As ADODB.RecordsetPrivate results As StringPrivate Sub cmdAdd_Click() ContractFlag = "add" frmCo

44、ntractAdd.ShowEnd SubPrivate Sub cmdClear_Click() cboYear.Clear cboMonth.Clear cboDate.Clear Call ComboYear(cboYear) Call ComboMonth(cboMonth) Call ComboDate(cboDate)End SubPrivate Sub cmdDel_Click()Dim bIsEditable As BooleanIf Len(Trim(strHouseId) = 0 Then '檢驗(yàn)刪除記錄是否選定 MsgBox "請點(diǎn)擊單元格選擇刪除的記錄

45、！", vbOKOnly + vbExclamation, "警告"Else bIsEditable = IsEditable '判斷是否能夠?qū)贤M(jìn)行刪除 If bIsEditable = False Then MsgBox "房屋交易已經(jīng)完成,不能進(jìn)行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If str = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel, "刪除當(dāng)前記錄") If str = vbOK

46、 Then txtSql = "delete from tbContractp where HouseId='" + strHouseId + "'" results = ExecuteSQL(txtSql, rstContract, True) MsgBox "刪除成功！", vbOKOnly + vbExclamation, "警告" txtSql = "update tbHouse set State='待售' where HouseId='" +

47、strHouseId + "'" results = ExecuteSQL(txtSql, rstContract, True) End If End If Call viewDataContractEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdModify_Click()Dim bIsEditable As BooleanbIsEditable = IsEditableIf Trim(strHouseId) = "" Then MsgBox "請點(diǎn)擊

48、單元格選擇修改記錄", vbOKOnly + vbExclamation, "警告"Else '判斷是否能夠?qū)贤M(jìn)行修改 If bIsEditable = False Then MsgBox "房屋交易已經(jīng)完成,不能進(jìn)行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If ContractFlag = "Modify" frmContractAdd.ShowEnd IfEnd Sub'查詢操作Private Sub cmdQuery_Cl

49、ick()txtSql = "select HouseId as 房源編號,HouseName as 房源名稱,SignDate as 簽訂日期,"txtSql = txtSql + "SaleMoney as 甲方實(shí)際售價(jià),TaxDes as 稅率說明,Tax as 稅金總計(jì),"txtSql = txtSql + "MediMoney as 中介費(fèi),PreMoney as 定金,Area as 建筑面積,Belong as 權(quán)屬,"txtSql = txtSql + "YContact as 乙方聯(lián)系方式,YTel as

50、乙方聯(lián)系電話,YIDCard as 乙方身份證號,JContact as 甲方聯(lián)系方式,"txtSql = txtSql + "JTel as 甲方聯(lián)系電話, JIDCard as 甲方身份證號,YTimeLimit as 乙方房款交全最后期限,JTimeLimit as 甲方交房最后期限,"txtSql = txtSql + "Present as 甲方贈物記錄,Jdelegate as 甲方代表,Ydelegate as 乙方代表,BManName as 丙方"txtSql = txtSql + " from tbContract

51、p "If cboYear.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,1,4) = '" + cboYear.Text + "'" If cboMonth.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,6,2) = '" + cboMonth.Text + "'"

52、; End If If cboDate.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,9,2) = '" + cboDate.Text + "'" End IfElse If cboMonth.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,6,2) = '" + cboMonth.Text + &quo

53、t;'" If cboDate.Text <> "" Then txtSql = txtSql + " and SUBSTRING(SignDate,9,2) = '" + cboDate.Text + "'" End If Else If cboDate.Text <> "" Then txtSql = txtSql + " where SUBSTRING(SignDate,9,2) = '" + cboDate.Text +

54、"'" End If End IfEnd IftxtSql = txtSql + " order by HouseId"Set dgContract.DataSource = Nothingresult = viewData(txtSql, dgContract)End SubPrivate Sub cmdReport_Click()rptHouse.ShowEnd SubPrivate Sub dgContract_DblClick() Dim bIsEditable As Boolean bIsEditable = IsEditable If Trim(strHouseId) = "" Then MsgBox "請點(diǎn)擊單元格選擇修改記錄&q