二手房銷售文檔

1、軟件工程系統(tǒng)設計報告題目： 二手房銷售管理信息系統(tǒng)目錄TOC o 1-3 h z u1引言3 HYPERLINK l _Toc231454663 2 需求分析4 HYPERLINK l _Toc231454664 3 系統(tǒng)設計界面設計8 HYPERLINK l _Toc231454665 4 數(shù)據(jù)庫設計105功能和界面設計14 HYPERLINK l _Toc231454669 6系統(tǒng)設計 19 HYPERLINK l _Toc231454675 7測試318總結.31參考文獻31二手房銷售管理信息系統(tǒng)引言選題背景：一直以來，房地產(chǎn)市場都保持著繁榮的局面。近幾年，不僅新樓盤銷售旺盛，二手房市場

2、也是在不斷升溫，相關需求也不斷增加，為此，在這介紹一下二手房銷售設計開發(fā)方法。 房地產(chǎn)經(jīng)紀公司的二手房銷售管理業(yè)務流程可以簡單的描述為：搜集房源信息并記錄，驗收房屋實際情況是否與房主所匯報房源信息相符，再進行相應記錄?？蛻舻椒康禺a(chǎn)經(jīng)紀公司提出購房請求，經(jīng)確定購房區(qū)域后，由房地產(chǎn)經(jīng)紀公司委派該區(qū)域的員工查找符合條件的全部的全部房源信息，經(jīng)與客戶協(xié)商后到實地看房?？捶恐靶枰炗喛捶繀f(xié)議，客戶保證不會越過該房地產(chǎn)經(jīng)紀公司私自和房主發(fā)生買賣行為，否則也要交納相應的中介費用。如果客戶選定某個房屋，則由該公司員工引導，并由專人負責客戶與房地產(chǎn)房地產(chǎn)經(jīng)紀公司簽訂房屋居間服務合同，交納中介費和指定金額的定金

3、，同時客戶需要承諾在規(guī)定的期限內(nèi)繳納剩余房款和稅金，否則定為違約，定金作為房地產(chǎn)經(jīng)紀公司的補償。辦理完全產(chǎn)證的更名等一切手續(xù)，并由客戶驗收后，由房地產(chǎn)經(jīng)紀公司將房款交給房主。房屋買賣交易結束。 面對大量的二手房信息和交易活動，傳統(tǒng)的手工管理很復雜。工作效率低下，數(shù)據(jù)混亂且難以發(fā)覺其中的規(guī)律。對各個房地產(chǎn)經(jīng)紀公司來說，二手房銷售管理系統(tǒng)，輔助管理銷售，是提高工作銷售的必經(jīng)之路。而我們也可以得到一般的房產(chǎn)中介公司的二手房銷售管理業(yè)務模型。1.2 系統(tǒng)目標：本系統(tǒng)是以一般的房地產(chǎn)經(jīng)紀公司的銷售管理業(yè)務為依托，圍繞房屋銷售的業(yè)務流程，設計并開發(fā)一個二手房銷售管理信息系統(tǒng)，針對公司不管理層的員工，提供一

4、個互動式的二手房銷售管理平臺。其系統(tǒng)目標和功能要求如下：1、系統(tǒng)目標：將銷售管理的理論知識與一般房地產(chǎn)經(jīng)紀公司的銷售管理業(yè)務相結合，使銷售管理業(yè)務流程更加合理。提供方便、靈活的操作節(jié)約成本，提高效率對系統(tǒng)進行權限管理2、功能目標：滿足二手房銷售房的銷售數(shù)據(jù)需求，能夠方便的進行房屋數(shù)據(jù)的錄入和多條件的查詢。與手工管理相比，要添加基礎數(shù)據(jù)的管理和用戶權限的管理。居間服務合同的結構要嚴格遵守原有的業(yè)務，并且要求數(shù)據(jù)準確、安全，同時準確的記錄時間。針對不同角色，將系統(tǒng)用戶分為系統(tǒng)管理員、經(jīng)紀人和合同負責人三級權限。系統(tǒng)管理員可以享有系統(tǒng)的全部權限；經(jīng)紀人僅享有本人所負責的房屋信息的更新權和全部房屋信息

5、的查詢權；合同負責人享有房屋居間服務合同的更新權和全部房屋信息的查詢權；公司的高層管理者擁有修通管理員權限。為保障系統(tǒng)，對于可能發(fā)生的問題的輸入要進行檢驗，同時要給出合理的提示信息。2 需求分析2.1概述新信息系統(tǒng)的建立是在現(xiàn)行業(yè)務基礎上經(jīng)過改建或重建而得到的。因此，在進行新系統(tǒng)的規(guī)劃、分析和設計工作之前，必須對現(xiàn)行系統(tǒng)做全面、充分的調(diào)查研究和分析，在此基礎上建立企業(yè)模型。業(yè)務模型是對業(yè)務結構和業(yè)務活動本質、概括的認識，可用“業(yè)務范圍-業(yè)務過程-具體業(yè)務處理”這樣的層次結構來對其進行描述。業(yè)務模型的建立也可以分為3個階段。1）現(xiàn)型業(yè)務的調(diào)查和分析。2）提出一個表示全部業(yè)務的模型。3）擴展上述模

6、型，使它能表示出各項具體的業(yè)務活動，最終確定為業(yè)務模型。、根據(jù)對二手房銷售管理的業(yè)務流程的調(diào)查和分析，得到一般的房產(chǎn)中介公司的二手的二手房銷售管理業(yè)務模型，如圖6-1所示。 表6-1 二手房銷售管理業(yè)務模型業(yè)務范圍業(yè)務過程具體業(yè)務處理二手房銷售管理員工基本信息管理登錄各級銷售人員的基本信息更新和維護員工的基本信息提供分域的員工信息檢索功能員工銷售信息管理錄入與房屋銷售相關的員工信息，包括責任區(qū)域等提供檢索功能對員工數(shù)據(jù)銷售業(yè)績進行統(tǒng)計房源數(shù)據(jù)管理搜集房源信息并記錄驗收房屋實際情況是否與房主所報房源信息相符更新和維護房源數(shù)據(jù)隨時按各種要求查詢房源數(shù)據(jù)客戶看房管理客戶提出購房請求經(jīng)確定購房區(qū)域后，

7、由該區(qū)域的員工查找符合條件的全部房源簽訂看房協(xié)議，客戶要保證不會越過該房地產(chǎn)經(jīng)紀公司私自與房主發(fā)生買賣行為，否則也要繳納相應的中介費用房屋居間服務合同管理客戶選定某房屋，則由該員工引導，并由專人負責客戶與房地產(chǎn)經(jīng)紀公司簽訂房屋居間服務合同客戶交納中介費和指定金額的定金，并需要承諾在規(guī)定的繳納剩余房款和稅金，否則視為違約，定金作為房地產(chǎn)經(jīng)紀公司的補償已售房信息管理買賣繳納全部房款辦理過戶房地產(chǎn)經(jīng)紀公司將房款交給房主登記已售房屋信息刪除相應的房源數(shù)據(jù)銷售數(shù)據(jù)統(tǒng)計2.2 數(shù)據(jù)分析 在建立了較為完整、穩(wěn)定的業(yè)務模型之后，需要根據(jù)模型進行數(shù)據(jù)分析?；痉椒ㄊ前凑諛I(yè)務過程進行數(shù)據(jù)分類和組織。數(shù)據(jù)分類后，進

8、行信息體系結構的設計：即結合業(yè)務過程與數(shù)據(jù)類，建立系統(tǒng)的功能/數(shù)據(jù)類矩陣（c-u矩陣）。數(shù)據(jù)分類得到的結果將用于系統(tǒng)分析和系統(tǒng)設計階段。 根據(jù)表6-1的業(yè)務模型，得到本系統(tǒng)涉及到得數(shù)據(jù)類：員工基本信息、員工銷售信息、房源信息數(shù)據(jù)、客房看房信息、房屋居間服務合同信息、已售房信息。建立系統(tǒng)c-u矩陣，如表6-2所示。 數(shù)據(jù)類業(yè)務過程員工基本信息員工銷售信息房源信息客戶看房信息服務合同信息已售房信息員工基本信息管理C員工銷售信息管理UC房源數(shù)據(jù)管理UC客戶看房管理UC房屋居間服務合同管理UC已售房信息管理UUC2.3 系統(tǒng)分析系統(tǒng)分析的依據(jù)是系統(tǒng)規(guī)劃階段建立的業(yè)務模型和c-u矩陣，并在現(xiàn)有資料的基礎

9、上深入的調(diào)查研究，進行功能分析，最終確定新系統(tǒng)的邏輯功能結構。邏輯功能結構數(shù)據(jù)流程圖 并非所有的業(yè)務處理都能由計算機來完成，因此圍繞著信息處理業(yè)務，根據(jù)業(yè)務流程圖，必須弄清楚系統(tǒng)需要產(chǎn)生什么樣的信息輸出。為了得到這樣的輸出應該對什么數(shù)據(jù)進行處理，輸入數(shù)據(jù)向輸出數(shù)據(jù)所進行的轉換過程是什么？而這個過程是進行數(shù)據(jù)抽取，建立數(shù)據(jù)流程圖的過程。數(shù)據(jù)流程圖描述了新系統(tǒng)的全部的數(shù)據(jù)處理邏輯和數(shù)據(jù)的流動過程，構成了新系統(tǒng)邏輯模型。根據(jù)業(yè)務流程圖，去掉其中信息系統(tǒng)不能完成的和本系統(tǒng)處理以外的環(huán)節(jié)，并將業(yè)務處理比較集中的功能作為一個高層模塊，從而得到本系統(tǒng)高層數(shù)據(jù)流程圖，如圖6-2所示。高層數(shù)據(jù)流程圖中有些功能不

10、可再分，在進一步的設計中可以將其作為一個單獨的模塊；而有些功能比較復雜，應進一步再分解，知道每個子模塊的功能、獨立，不可再分。本系統(tǒng)的高層數(shù)據(jù)流程圖中各個模塊的處理功能比較集中，均可作為一個單獨的子模塊。對比數(shù)據(jù)流程圖和業(yè)務流程圖不難看出，從業(yè)務過程（業(yè)務流程圖）抽取數(shù)據(jù)流的過程中，有些純?nèi)斯的操作在數(shù)據(jù)流程圖中被省略，如買方交納全部房款的過程；有些環(huán)節(jié)不屬于本系統(tǒng)的處理范圍要去掉，如辦理過戶的過程；有些初期調(diào)研沒有得到的常規(guī)業(yè)務要增加到數(shù)據(jù)流程圖中，如提供一些報表功能等。綜合一些報表功能等。綜合以上各個步驟的分析，最終得到了用數(shù)據(jù)流程圖表達的新系統(tǒng)的邏輯功能結構。數(shù)據(jù)字典 數(shù)據(jù)流程圖并不能

11、完整地描述軟件需求，因為它沒有描述數(shù)據(jù)流程圖上各個成分的具體內(nèi)容。實際應用中，數(shù)據(jù)流程圖往往與數(shù)據(jù)字典配套使用。數(shù)據(jù)字典實在數(shù)據(jù)流程圖的基礎上，進一步定義和描述流程圖上各個成分的工具，它包括對一切動態(tài)數(shù)據(jù)（可在系統(tǒng)內(nèi)外流動的數(shù)據(jù)流）和靜態(tài)數(shù)據(jù)（不參與流動的數(shù)據(jù)存儲）的數(shù)據(jù)結構和相互關系等的說明，是數(shù)據(jù)分析和數(shù)據(jù)管理的重要工具。數(shù)據(jù)字典中常常包括對數(shù)據(jù)元素、數(shù)據(jù)結構、數(shù)據(jù)流的來源去處、數(shù)據(jù)存儲、處理功能和外部實體的說明。本系統(tǒng)建立數(shù)據(jù)字典中，對處理功能的說明如下：權限設定 系統(tǒng)管理員-系統(tǒng)的全部權限 經(jīng)紀人僅具有本人所負責區(qū)域的房屋信息的更新權和全部房屋信息的查詢權合同責任人房屋居間服務合同的更

12、新權和全部房屋信息的查詢權 公司高層管理者系統(tǒng)管理員權限員工（銷售）信息管理：錄入與房屋銷售相關的員工信息，包括責任區(qū)域等。房源數(shù)據(jù)管理：搜集房源信息并記錄。驗收房屋實際情況是否與房主所報房源信息一致，更新和維護房源數(shù)據(jù)，并隨時按各種要求查詢房源數(shù)據(jù)。客戶看房管理：客戶提出購房請求。確定購房區(qū)域后，由該區(qū)域的員工查找符合條件的全部房源信息，并與客戶簽訂看房協(xié)議。5）房屋居間服務合同管理：客戶與房地產(chǎn)經(jīng)紀公司簽訂房屋居間服務合同。交納中介費和指定金額的定金，并需要承諾在規(guī)定期限內(nèi)交納剩余房款和稅金。6）已售房款信息管理：登記已售房屋信息；刪除相應的房源數(shù)據(jù)；進行售房數(shù)據(jù)統(tǒng)計。3 系統(tǒng)設計3.1系

13、統(tǒng)總體設計：依據(jù)系統(tǒng)分析階段得到的數(shù)據(jù)流程圖和數(shù)據(jù)字典，以數(shù)據(jù)流程圖中的處理功能為出發(fā)點，抽取各個主要的處理功能建立模塊結構圖。從數(shù)據(jù)流程圖轉化為系統(tǒng)模塊結構時，有3個問題需要注意： 1、模塊結構圖的層次要對應于數(shù)據(jù)流程圖的層次 2、添加模塊。拋開具體業(yè)務本身，考慮到信息安全問題，往往要添加登錄模塊，登錄成功的用戶才允許使用系統(tǒng)；為了方便系統(tǒng)的管理和維護，要添加系統(tǒng)管理模塊，用以管理系統(tǒng)用戶的相關信息。 3、由人工操作到計算機世界的轉化過程中，為了便于計算機處理數(shù)據(jù)，往往需要對尸體添加唯一標識（字符），如對學生信息的處理往往加上學號來標識學生，這個過程叫做編碼。編碼需要用單獨的數(shù)據(jù)管理界面來管

14、理，因此一般的應用程序都會有基礎數(shù)據(jù)管理模塊，并且只允許系統(tǒng)管理員使用。下圖為本系統(tǒng)的模塊結構圖3.3.2功能模塊1、登錄模塊： 用于輸入用戶名和密碼，如果用戶名和密碼正確，進入主控制平臺；否則提示用戶明確的錯誤信息。2、系統(tǒng)管理模塊： 用戶管理子模塊：用于系統(tǒng)管理員進行用戶進行用戶權限設置和用戶的瀏覽，包括用戶密碼和用戶權限的更改，其他用戶只能瀏覽。 修改密碼子模塊：保證任何用戶可以修改自己的密碼。3、基礎數(shù)據(jù)管理模塊：用于設置和維護區(qū)域、房屋、樓盤的編碼與名稱的對應關系。系統(tǒng)管理員有權進行信息更新，其他用戶只能瀏覽。4、公司內(nèi)部信息管理模塊：員工數(shù)據(jù)管理子模塊：用于設置和管理與房屋銷售相關

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

16、修改。但是，當確認此次房屋交易已經(jīng)完成時，任何人不能進行更新。已售房屋信息管理子模塊：當房屋買賣交易結束后，意味著該房屋買賣已經(jīng)完成。由相應的合同責任人將客戶購房信息進行記錄。并由系統(tǒng)自動將其從房源數(shù)據(jù)中刪除，并向全部員工提供查詢功能。系統(tǒng)管理員和合同責任人可以進行數(shù)據(jù)的添加、刪除和修改。3.3 編碼設計 編碼是通過一些便于計算機或人來識別和處理的符號來表示各類信息。編碼方式有很多，常用的是層次碼和順序碼。層次碼是指把編碼對象分類，用不同的碼位來表示不同類別進行編碼。順序是按排列順序對編碼對象進行編碼。3.4 系統(tǒng)詳細設計 總體設計搭建了系統(tǒng)的功能框架，建立了系統(tǒng)數(shù)據(jù)庫結構。在總體設計的基礎上

17、，需要對每個模塊的輸入數(shù)據(jù)、需要完成的處理邏輯和輸出數(shù)據(jù)進行詳細的設計和描述3.5 系統(tǒng)公共文件根據(jù)系統(tǒng)模塊結構圖，抽取系統(tǒng)中多個模塊的相同的子功能來建立系統(tǒng)的公共特點，可以做到減少總代碼量，避免重復開發(fā)，保持系統(tǒng)實現(xiàn)風格統(tǒng)一，以及增加可修改性等特點。本系統(tǒng)的公共文件包含以下幾個子功能：主體框架添加模塊定義用戶名、用戶類型、職員編號以及登陸成功的標識為系統(tǒng)公共變量定義Main（系統(tǒng)啟動）函數(shù)。Connect String 函數(shù)。該函數(shù)用于設置數(shù)據(jù)庫連接字符串函數(shù)。本系統(tǒng)數(shù)據(jù)庫用戶名和密碼設置為sa 。Execute SQL 函數(shù)。該函數(shù)用于設置SQL語句的執(zhí)行函數(shù)，并創(chuàng)建到數(shù)據(jù)源的連接，執(zhí)行S

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

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

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

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

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

23、為該字段在數(shù)據(jù)庫中的長度值n，用select case語句將任何長度的變量設置為n位（不足位的前面補0）。setCboData函數(shù)。該函數(shù)用于為房源編號ComoboBox賦值，參數(shù)為ComoboBox實例。其處理流程為：檢索房源信息表，將房源編號添加到對應的ComoboBox下拉列表中。23）setLabelData函數(shù)。該函數(shù)用于為窗體上的Label控件的Caption屬性賦值。參數(shù)值為ComoboBox實例和Label實例。其處理流程為：以ComoboBox實例的文本內(nèi)容為關鍵字，檢索房源信息表，將檢索到的房源名稱賦給對應的label實例中的Caption屬性。4 數(shù)據(jù)庫設計 數(shù)據(jù)庫設計是

24、在DBMS的支持下，按照應用的要求設計合理的數(shù)據(jù)庫物理結構。本系統(tǒng)采用SQL Server 2000數(shù)據(jù)庫，根據(jù)系統(tǒng)分析和模塊設計中得到的功能和相應的數(shù)據(jù)存儲，本系統(tǒng)數(shù)據(jù)庫的數(shù)據(jù)項和數(shù)據(jù)庫如下。 1、數(shù)據(jù)庫數(shù)據(jù)庫名稱：二手房銷售信息庫標識：DB House 2、數(shù)據(jù)庫表結構：1）表名：用戶信息表 標識：tb User數(shù)據(jù)來源： 用戶模塊的錄入 用戶信息表2）表名：區(qū)域編碼信息表 標識：tb Region 數(shù)據(jù)來源：基礎數(shù)據(jù)管理模塊的錄入?yún)^(qū)域編碼信息表 3）表名：樓盤編碼信息表標識：tb Item數(shù)據(jù)來源：基礎數(shù)據(jù)管理模塊的錄入樓盤編碼信息表4）表名：員工銷售信息表標識：tb Sale Man

25、數(shù)據(jù)來源：公司內(nèi)部信息管理模塊的錄入員工銷售信息表5）表名：房源信息表標識：tbHouse 數(shù)據(jù)來源：公司內(nèi)部信息管理模塊的錄入房源信息表6）表名：客戶看房記錄標識：tbHouse Pre 數(shù)據(jù)來源：售房信息管理模塊錄入客戶看房記錄 7）表名：房屋居間服務合同表標識：tb Contract 數(shù)據(jù)來源：售房信息管理模塊錄入房屋居間服務合同表8）表名：已售房屋記錄表標識：tbHouse Sale 數(shù)據(jù)來源：售房信息管理模塊錄入 已售房屋記錄表5 系統(tǒng)模塊與界面設計1、人機交互設計2、用戶登錄模塊的IPO過程輸入：用戶名和密碼。處理：登錄窗體啟動。輸入用戶名和密碼。如果用戶名或密碼為空，處理終止，并

26、進行錯誤信息提示。以輸入的用戶名作為關鍵字，檢索用戶信息表（tb User）的用戶名和密碼字段。通過檢索結果判斷該用戶名是否存在，如果用戶名不存在，處理終止，并進行錯誤信息提示。如果用戶名存在，比較檢索到的密碼字段和輸入的密碼是否相等。如果不相等則處理終止，并進行錯誤信息提示。如果輸入的密碼正確，將該用戶名和用戶類型分別保存到全局變量guserName和guserkind中。進入主控制臺。輸出：主控制平臺。5.1 主控制平臺的設計系統(tǒng)主控平臺采用簡單、直觀的布局，通過菜單實現(xiàn)對系統(tǒng)各個模塊的調(diào)用和各個窗體的現(xiàn)實。設置狀態(tài)欄用來顯示當前日期、時間和當前用戶信息。人機交互設計主控制平臺的功能設計菜

27、單導航功能：系統(tǒng)管理：用戶管理、修改密碼?；A數(shù)據(jù)庫管理。公司內(nèi)部信息管理：員工數(shù)據(jù)管理、房源數(shù)據(jù)管理。售房信息管理：客戶看房記錄、房屋居間服務合同管理和已售房屋記錄。員工銷售業(yè)績分析. 銷售額分析。 退出。對當前用戶、系統(tǒng)時間的狀態(tài)顯示給出主控制臺的提示信息，如標題。判斷當前用戶類型，對該類型用戶的權限進行記錄。點擊各個菜單或子菜單時，顯示相應的界面。5.2 系統(tǒng)管理模塊 系統(tǒng)管理模塊一般包括用戶管理和修改密碼兩個子模塊。用戶管理模塊只有系統(tǒng)管理員可以使用，一般用戶不能使用。修改密碼模塊面向任何用戶，提供修改登錄密碼的功能。用戶類型有系統(tǒng)管理員、經(jīng)紀人和合同負責人。5.3 基礎數(shù)據(jù)管理模塊

28、1、人機交互設計基礎數(shù)據(jù)管理模塊的IPO過程輸入：區(qū)域、樓盤或者房型的編號和名稱。處理：當用戶類型為系統(tǒng)管理員時該菜單可用?；A數(shù)據(jù)管理窗體啟動。從區(qū)域編碼信息表中讀取全部記錄，顯示在表格控件dgBasicData中。當鼠標單擊標簽，標簽改變時，從對應的數(shù)據(jù)庫表中讀取全部記錄，顯示在表格控件dgbasicdata中。各級系統(tǒng)管理員的選擇（添加、修改和刪除）進行相應的處理5.4 公司內(nèi)部信息管理模塊 公司內(nèi)部信息管理模塊管理包括員工數(shù)據(jù)管理和房源數(shù)據(jù)管理兩個子模塊，其中每個子模塊都包含兩個界面：數(shù)據(jù)顯示、操作界面和添加、修改數(shù)據(jù)界面人機交互設計(2)員工數(shù)據(jù)管理子模塊的IPO過程輸入：員工編碼、

29、員工姓名、性別、職務、聯(lián)系電話、區(qū)域名稱。處理：當用戶類型為系統(tǒng)管理員時該菜單可用。員工數(shù)據(jù)管理窗體啟動。從員工信息表中讀取全部記錄，顯示在表格控件dgemp中。根據(jù)系統(tǒng)管理員的選擇（添加、修改、刪除）進行相應處理。房源數(shù)據(jù)子模塊人機交互設計房源數(shù)據(jù)管理子模塊的IPO過程 輸入：房源數(shù)據(jù)、房源名稱、所屬區(qū)域名稱、樓盤名稱、建筑年代、建筑單位、戶型名稱、建筑面積、樓層、總樓層、單元、車庫面積、學校、公交線路、臨近街道、小區(qū)會所、梯戶、廣場、基礎設施、裝修狀況、物業(yè)管理費、權屬、售價和銷售狀態(tài)。 其中包括很多模塊，添加模塊也在其中5.5 售房信息管理模塊售房信息管理管理模塊包括客戶看房記錄、房屋居

30、間服務合同管理和已銷售信息管理3個子模塊?？蛻艨捶坑涗涀幽K客戶看房記錄子模塊的IPO過程 輸入：房源編號、房源名稱、看房時間、看房年月日、客戶人數(shù)、客戶身份證號。并且添加客戶看房記錄房屋居間合同子模塊人機交互設計房屋居間服務和同居間管理子模塊的IPO過程 輸入：房源編號、房源名稱、簽訂日期、甲方實際售價、稅率說明、稅金總計、中介費、定金、建筑面積、權屬、乙方聯(lián)系方式、乙方身份證號、甲方聯(lián)系電話、甲方聯(lián)系方式、乙方房款交全最后期限、甲方交房最后期限、甲方贈物記錄、甲方代表、乙方代表和丙方。已售房屋信息管理子模塊人際交互界面已售房屋信息管理子模塊的IPO過程 輸入：房源編號、房源名稱、建筑面積、

31、實際銷售日期等6 系統(tǒng)實施6.1 數(shù)據(jù)的訪問 在數(shù)據(jù)庫的操作中，考慮到操作數(shù)據(jù)庫時如果利用數(shù)據(jù)綁定，則會鎖定記錄表，使得表的訪問為獨占式，而如果兩個終端同時訪問這個表，則容易造成死鎖。因此用SQL直接進行數(shù)據(jù)庫的訪問是比較適合的，即使偶爾發(fā)生并發(fā)操作，對數(shù)據(jù)庫的修改不成功，也可以繼續(xù)保存。同時由于考慮數(shù)據(jù)庫中的數(shù)據(jù)屬于動態(tài)的、變化的，因此，在數(shù)據(jù)庫德操縱過程中，大量使用了SQL語句進行對數(shù)據(jù)庫的操作。具體來說，包括數(shù)據(jù)庫的插入、修改、刪除和查詢。 1、查詢操作 txtSql = select HouseId as 房源編號,HouseName as 房源名稱,ViewTime as 看房時間,

32、 txtSql = txtSql + ViewYMD as 看房年月日,ClientNum as 客戶人數(shù),ClientIDCard as 客戶身份證號 If txtClientIDCard.Text = Then txtSql = txtSql + from tbHousePre order by HouseId Else txtSql = txtSql + from tbHousePre where ClientIDCard= + txtClientIDCard.Text + order by HouseId2、修改操作 txtSql = update tbHousePre set Hou

33、seName= + Trim(lblName.Caption) + , txtSql = txtSql + ClientNum= + Trim(txtClientNum.Text) + , txtSql = txtSql + ClientIDCard= + Trim(txtClientIDCard.Text) + txtSql = txtSql + where HouseId= + Trim(cboId.Text) + txtSql = txtSql + and ViewYMD= + Trim(strViewYMD) + txtSql = txtSql + and ViewTime= + Tr

34、im(strViewTime) + result = ExecuteSQL(txtSql, rstView, True) MsgBox 修改成功, vbOKOnly + vbExclamation, 警告 3、添加操作 txtSql = txtSql + values( + Trim(cboId.Text) + , txtSql = txtSql + Trim(lblName.Caption) + , txtSql = txtSql + strViewTime + , txtSql = txtSql + strViewYMD + , txtSql = txtSql + Trim(txtClie

35、ntNum.Text) + , txtSql = txtSql + Trim(txtClientIDCard.Text) + ) result = ExecuteSQL(txtSql, rstView, True) MsgBox 客戶看房記錄添加成功, vbOKOnly + vbExclamation, 警告刪除操作txtSql = delete from tbSaleMan where SaleManId= + strSaleManId + results = ExecuteSQL(txtSql, rstEmp, True) MsgBox 刪除成功！, vbOKOnly + vbExclam

36、ation, 警告6.2連接數(shù)據(jù)庫Public Function ConnectString() As String ConnectString = FileDSN=dbhouse.dsn;UID=sa;PWD=saEnd Function6.3 系統(tǒng)模塊 *系統(tǒng)公共變量定義 *Option ExplicitPublic gUserName As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean *過程名：Main說 明：系統(tǒng)啟動函數(shù)參 數(shù)：無返回值：無 *Sub Main() 啟動登陸窗體 Dim fLogin

37、 As New frmLogin fLogin.Show vbModal If Not gLoginSucceeded Then MsgBox 系統(tǒng)啟動失敗,請重試!, vbOKOnly + vbExclamation, 警告 End If Unload fLoginEnd Sub6.4 程序實現(xiàn)關鍵代碼房屋居間合同管理 *窗體公共變量定義 *Option ExplicitPrivate txtSql As String SQL語句Private result As Integer datagrid中的顯示記錄數(shù)Public ContractFlag As String 判斷添加刪除標志Pub

38、lic strHouseId As String 房源編號Public strHouseName As String 房源名稱Public strSignDate As String 簽訂日期Public strSaleMoney As String 甲方實際售價Public strTaxDes As String 稅率說明Public strTax As String 稅金總計Public strMediMoney As String 中介費Public strPreMoney As String 定金Public strArea As String 建筑面積Public strBelong

39、 As String 權屬Public strYContact As 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 甲方交房最后期限Public

40、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 frmContractAdd.ShowEnd SubPrivate Sub cmdCle

41、ar_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 檢驗刪除記錄是否選定 MsgBox 請點擊單元格選擇刪除的記錄！, vbOKOnly + vbExclamation, 警告Else bIsEditable =

42、IsEditable 判斷是否能夠對合同進行刪除 If bIsEditable = False Then MsgBox 房屋交易已經(jīng)完成,不能進行更新, vbOKOnly + vbExclamation, 警告 Exit Sub End If str = MsgBox(是否刪除當前記錄？, vbOKCancel, 刪除當前記錄) If str = vbOK Then txtSql = delete from tbContractp where HouseId= + strHouseId + results = ExecuteSQL(txtSql, rstContract, True) MsgB

43、ox 刪除成功！, vbOKOnly + vbExclamation, 警告 txtSql = update tbHouse set State=待售 where HouseId= + 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 BooleanbIsEd

44、itable = IsEditableIf Trim(strHouseId) = Then MsgBox 請點擊單元格選擇修改記錄, vbOKOnly + vbExclamation, 警告Else 判斷是否能夠對合同進行修改 If bIsEditable = False Then MsgBox 房屋交易已經(jīng)完成,不能進行更新, vbOKOnly + vbExclamation, 警告 Exit Sub End If ContractFlag = Modify frmContractAdd.ShowEnd IfEnd Sub查詢操作Private Sub cmdQuery_Click()txt

45、Sql = select HouseId as 房源編號,HouseName as 房源名稱,SignDate as 簽訂日期,txtSql = txtSql + SaleMoney as 甲方實際售價,TaxDes as 稅率說明,Tax as 稅金總計,txtSql = txtSql + MediMoney as 中介費,PreMoney as 定金,Area as 建筑面積,Belong as 權屬,txtSql = txtSql + YContact as 乙方聯(lián)系方式,YTel as 乙方聯(lián)系電話,YIDCard as 乙方身份證號,JContact as 甲方聯(lián)系方式,txtSql

46、 = txtSql + JTel as 甲方聯(lián)系電話, JIDCard as 甲方身份證號,YTimeLimit as 乙方房款交全最后期限,JTimeLimit as 甲方交房最后期限,txtSql = txtSql + Present as 甲方贈物記錄,Jdelegate as 甲方代表,Ydelegate as 乙方代表,BManName as 丙方txtSql = txtSql + from tbContractp If cboYear.Text Then txtSql = txtSql + where SUBSTRING(SignDate,1,4) = + cboYear.Text

47、 + If cboMonth.Text Then txtSql = txtSql + and SUBSTRING(SignDate,6,2) = + cboMonth.Text + 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 + If cboDate.Text

48、 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 + End If End IfEnd IftxtSql = txtSql + order by HouseIdSet dgContract.DataSource = Nothingresult = viewData(txtSql, dgContract)End

49、SubPrivate Sub cmdReport_Click()rptHouse.ShowEnd SubPrivate Sub dgContract_DblClick() Dim bIsEditable As Boolean bIsEditable = IsEditable If Trim(strHouseId) = Then MsgBox 請點擊單元格選擇修改記錄, vbOKOnly + vbExclamation, 警告 Else 判斷是否能夠對合同進行修改 If bIsEditable = False Then MsgBox 房屋交易已經(jīng)完成,不能進行更新, vbOKOnly + vbE

50、xclamation, 警告 Exit Sub End If ContractFlag = Modify frmContractAdd.Show End IfEnd SubPrivate Sub dgContract_RowColChange(LastRow As Variant, ByVal LastCol As Integer) datagrid顯示記錄不為0時，將各個字段的值賦給相應定義的字符串 If result 0 Then strHouseId = dgContract.Columns(0).Text strHouseName = dgContract.Columns(1).Tex

51、t strSignDate = dgContract.Columns(2).Text strSaleMoney = dgContract.Columns(3).Text strTaxDes = dgContract.Columns(4).Text strTax = dgContract.Columns(5).Text strMediMoney = dgContract.Columns(6).Text strPreMoney = dgContract.Columns(7).Text strArea = dgContract.Columns(8).Text strBelong = dgContra

52、ct.Columns(9).Text strYContact = dgContract.Columns(10).Text strYTel = dgContract.Columns(11).Text strYIDCard = dgContract.Columns(12).Text strJContact = dgContract.Columns(13).Text strJTel = dgContract.Columns(14).Text strJIDCard = dgContract.Columns(15).Text strYTimeLimit = dgContract.Columns(16).

53、Text strJTimeLimit = dgContract.Columns(17).Text strPresent = dgContract.Columns(18).Text strJdelegate = dgContract.Columns(19).Text strYdelegate = dgContract.Columns(20).Text strBManName = dgContract.Columns(21).Text End IfEnd SubPrivate Sub Form_Load() cboYear.Clear cboMonth.Clear cboDate.Clear Ca

54、ll ComboYear(cboYear) Call ComboMonth(cboMonth) Call ComboDate(cboDate) Call viewDataContract Call purviewEnd Sub *過程名：purview說 明：設置權限參 數(shù)：無返回值：無 *Private Sub purview() Select Case gUserKind Case 經(jīng)紀人 Me.cmdAdd.Enabled = False Me.cmdDel.Enabled = False Me.cmdModify.Enabled = False End SelectEnd Sub *過

55、程名：viewDataContract說 明：將數(shù)據(jù)在datagrid中顯示參 數(shù)：無返回值：無 *Public Sub viewDataContract() txtSql = select HouseId as 房源編號,HouseName as 房源名稱,SignDate as 簽訂日期, txtSql = txtSql + SaleMoney as 甲方實際售價(萬元),TaxDes as 稅率說明,Tax as 稅金總計(萬元), txtSql = txtSql + MediMoney as 中介費(萬元),PreMoney as 定金(萬元),Area as 建筑面積,Belong

56、as 權屬, txtSql = txtSql + YContact as 乙方聯(lián)系方式,YTel as 乙方聯(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 =

57、 txtSql + from tbContractp order by HouseId result = viewData(txtSql, dgContract) If result = 0 Then Set dgContract.DataSource = Nothing End IfEnd Sub *函數(shù)名：IsEditable說 明：判斷房源交易是否完成參 數(shù)：無返回值：完成返回true，否則返回false *Private Function IsEditable() As BooleanIsEditable = TruetxtSql = select HouseId from tbHou

58、se where HouseId= + strHouseId + If DBExist(txtSql) = 0 Then IsEditable = FalseElse IsEditable = TrueEnd IfEnd FunctionPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub2、房源數(shù)據(jù)管理 *窗體公共變量定義 *Option ExplicitPrivate txtSql As String SQL語句Private result As Integer datagrid中的顯

59、示記錄數(shù)Private strItem As String 與樓盤名稱對應的樓盤編碼Private strReg As String 與區(qū)域名稱對應的區(qū)域編碼Private strStru As String 與戶型名稱對應的戶型編碼Public strHouseId As String 房源編號Public strHouseName As String 房源名稱Public strRegName As String 區(qū)域名稱Public strItemName As String 樓盤名稱Public strItemYear As String 建筑年代Public strItemCop A

60、s String 建筑單位Public strStruName As String 戶型名稱Public strArea As String 面積Public strFloor As String 樓層Public strAllFloor As String 總樓層Public strUnit As String 單元Public strCarArea As String 車庫面積Public strSchool As String 學校Public strBus As String 公交線路Public strStreet As String 臨近街道Public strChamber As