1、 . 軟件工程系統設計報告題目： 二手房銷售管理信息系統目 錄1引言345功能和界面設計146系統設計 1918總結.31參考文獻31二手房銷售管理信息系統1 引言1.1 選題背景：一直以來，房地產市場都保持著繁榮的局面。近幾年，不僅新樓盤銷售旺盛，二手房市場也是在不斷升溫，相關需求也不斷增加，為此，在這介紹一下二手房銷售設計開發方法。 房地產經紀公司的二手房銷售管理業務流程可以簡單的描述為：（1） 搜集房源信息并記錄，驗收房屋實際情況是否與房主所匯報房源信息相符，再進行相應記錄。（2） 客戶到房地產經紀公司提出購房請求，經確定購房區域后，由房地產經紀公司委派該區域的員工查找符合條件的全部的全

2、部房源信息，經與客戶協商后到實地看房。（3） 看房之前需要簽訂看房協議，客戶保證不會越過該房地產經紀公司私自和房主發生買賣行為，否則也要交納相應的中介費用。（4） 如果客戶選定某個房屋，則由該公司員工引導，并由專人負責客戶與房地產房地產經紀公司簽訂房屋居間服務合同，交納中介費和指定金額的定金，同時客戶需要承諾在規定的期限繳納剩余房款和稅金，否則定為違約，定金作為房地產經紀公司的補償。（5） 辦理完全產證的更名等一切手續，并由客戶驗收后，由房地產經紀公司將房款交給房主。房屋買賣交易結束。 面對大量的二手房信息和交易活動，傳統的手工管理很復雜。工作效率低下，數據混亂且難以發覺其中的規律。對各個房地

3、產經紀公司來說，二手房銷售管理系統，輔助管理銷售，是提高工作銷售的必經之路。而我們也可以得到一般的房產中介公司的二手房銷售管理業務模型。1.2 系統目標：本系統是以一般的房地產經紀公司的銷售管理業務為依托，圍繞房屋銷售的業務流程，設計并開發一個二手房銷售管理信息系統，針對公司不管理層的員工，提供一個互動式的二手房銷售管理平臺。其系統目標和功能要求如下：1、系統目標：1） 將銷售管理的理論知識與一般房地產經紀公司的銷售管理業務相結合，使銷售管理業務流程更加合理。2） 提供方便、靈活的操作3） 節約成本，提高效率4） 對系統進行權限管理2、功能目標：5） 滿足二手房銷售房的銷售數據需求，能夠方便的

4、進行房屋數據的錄入和多條件的查詢。6） 與手工管理相比，要添加基礎數據的管理和用戶權限的管理。7） 居間服務合同的結構要嚴格遵守原有的業務，并且要求數據準確、安全，同時準確的記錄時間。8） 針對不同角色，將系統用戶分為系統管理員、經紀人和合同負責人三級權限。系統管理員可以享有系統的全部權限；經紀人僅享有本人所負責的房屋信息的更新權和全部房屋信息的查詢權；合同負責人享有房屋居間服務合同的更新權和全部房屋信息的查詢權；公司的高層管理者擁有修通管理員權限。9） 為保障系統，對于可能發生的問題的輸入要進行檢驗，同時要給出合理的提示信息。2 需求分析2.1 概述新信息系統的建立是在現行業務基礎上經過改建

5、或重建而得到的。因此，在進行新系統的規劃、分析和設計工作之前，必須對現行系統做全面、充分的調查研究和分析，在此基礎上建立企業模型。業務模型是對業務結構和業務活動本質、概括的認識，可用“業務圍-業務過程-具體業務處理”這樣的層次結構來對其進行描述。業務模型的建立也可以分為3個階段。1）現型業務的調查和分析。2）提出一個表示全部業務的模型。3）擴展上述模型，使它能表示出各項具體的業務活動，最終確定為業務模型。、根據對二手房銷售管理的業務流程的調查和分析，得到一般的房產中介公司的二手的二手房銷售管理業務模型，如圖6-1所示。 表6-1 二手房銷售管理業務模型業務圍業務過程具體業務處理二手房銷售管理員

6、工基本信息管理登錄各級銷售人員的基本信息更新和維護員工的基本信息提供分域的員工信息檢索功能員工銷售信息管理錄入與房屋銷售相關的員工信息，包括責任區域等提供檢索功能對員工數據銷售業績進行統計房源數據管理搜集房源信息并記錄驗收房屋實際情況是否與房主所報房源信息相符更新和維護房源數據隨時按各種要求查詢房源數據客戶看房管理客戶提出購房請求經確定購房區域后，由該區域的員工查找符合條件的全部房源簽訂看房協議，客戶要保證不會越過該房地產經紀公司私自與房主發生買賣行為，否則也要繳納相應的中介費用房屋居間服務合同管理 客戶選定某房屋，則由該員工引導，并由專人負責客戶與房地產經紀公司簽訂房屋居間服務合同 客戶交納

7、中介費和指定金額的定金，并需要承諾在規定的繳納剩余房款和稅金，否則視為違約，定金作為房地產經紀公司的補償已售房信息管理買賣繳納全部房款辦理過戶房地產經紀公司將房款交給房主登記已售房屋信息刪除相應的房源數據銷售數據統計2.2 數據分析 在建立了較為完整、穩定的業務模型之后，需要根據模型進行數據分析?；痉椒ㄊ前凑諛I務過程進行數據分類和組織。數據分類后，進行信息體系結構的設計：即結合業務過程與數據類，建立系統的功能/數據類矩陣（c-u矩陣）。數據分類得到的結果將用于系統分析和系統設計階段。 根據表6-1的業務模型，得到本系統涉與到得數據類：員工基本信息、員工銷售信息、房源信息數據、客房看房信息、房

8、屋居間服務合同信息、已售房信息。建立系統c-u矩陣，如表6-2所示。 數據類業務過程員工基本信息員工銷售信息房源信息客戶看房信息服務合同信息已售房信息員工基本信息管理C員工銷售信息管理UC房源數據管理UC客戶看房管理UC房屋居間服務合同管理UC已售房信息管理UUC2.3 系統分析系統分析的依據是系統規劃階段建立的業務模型和c-u矩陣，并在現有資料的基礎上深入的調查研究，進行功能分析，最終確定新系統的邏輯功能結構。2.4 邏輯功能結構1、 數據流程圖 并非所有的業務處理都能由計算機來完成，因此圍繞著信息處理業務，根據業務流程圖，必須弄清楚系統需要產生什么樣的信息輸出。為了得到這樣的輸出應該對什么

9、數據進行處理，輸入數據向輸出數據所進行的轉換過程是什么？而這個過程是進行數據抽取，建立數據流程圖的過程。數據流程圖描述了新系統的全部的數據處理邏輯和數據的流動過程，構成了新系統邏輯模型。 根據業務流程圖，去掉其息系統不能完成的和本系統處理以外的環節，并將業務處理比較集中的功能作為一個高層模塊，從而得到本系統高層數據流程圖，如圖6-2所示。高層數據流程圖中有些功能不可再分，在進一步的設計中可以將其作為一個單獨的模塊；而有些功能比較復雜，應進一步再分解，知道每個子模塊的功能、獨立，不可再分。本系統的高層數據流程圖中各個模塊的處理功能比較集中，均可作為一個單獨的子模塊。對比數據流程圖和業務流程圖不難

10、看出，從業務過程（業務流程圖）抽取數據流的過程中，有些純人工i的操作在數據流程圖中被省略，如買方交納全部房款的過程；有些環節不屬于本系統的處理圍要去掉，如辦理過戶的過程；有些初期調研沒有得到的常規業務要增加到數據流程圖中，如提供一些報表功能等。綜合一些報表功能等。綜合以上各個步驟的分析，最終得到了用數據流程圖表達的新系統的邏輯功能結構。2、 數據字典 數據流程圖并不能完整地描述軟件需求，因為它沒有描述數據流程圖上各個成分的具體容。實際應用中，數據流程圖往往與數據字典配套使用。數據字典實在數據流程圖的基礎上，進一步定義和描述流程圖上各個成分的工具，它包括對一切動態數據（可在系統外流動的數據流）和

11、靜態數據（不參與流動的數據存儲）的數據結構和相互關系等的說明，是數據分析和數據管理的重要工具。數據字典中常常包括對數據元素、數據結構、數據流的來源去處、數據存儲、處理功能和外部實體的說明。 本系統建立數據字典中，對處理功能的說明如下：1） 權限設定 系統管理員-系統的全部權限 經紀人僅具有本人所負責區域的房屋信息的更新權和全部房屋信息的查詢權合同責任人房屋居間服務合同的更新權和全部房屋信息的查詢權 公司高層管理者系統管理員權限2） 員工（銷售）信息管理：錄入與房屋銷售相關的員工信息，包括責任區域等。3） 房源數據管理：搜集房源信息并記錄。驗收房屋實際情況是否與房主所報房源信息一致，更新和維護房

12、源數據，并隨時按各種要求查詢房源數據。4） 客戶看房管理：客戶提出購房請求。確定購房區域后，由該區域的員工查找符合條件的全部房源信息，并與客戶簽訂看房協議。5）房屋居間服務合同管理：客戶與房地產經紀公司簽訂房屋居間服務合同。交納中介費和指定金額的定金，并需要承諾在規定期限交納剩余房款和稅金。6）已售房款信息管理：登記已售房屋信息；刪除相應的房源數據；進行售房數據統計。3 系統設計3.1 系統總體設計：依據系統分析階段得到的數據流程圖和數據字典，以數據流程圖中的處理功能為出發點，抽取各個主要的處理功能建立模塊結構圖。從數據流程圖轉化為系統模塊結構時，有3個問題需要注意： 1、模塊結構圖的層次要對

13、應于數據流程圖的層次 2、添加模塊。拋開具體業務本身，考慮到信息安全問題，往往要添加登錄模塊，登錄成功的用戶才允許使用系統；為了方便系統的管理和維護，要添加系統管理模塊，用以管理系統用戶的相關信息。 3、由人工操作到計算機世界的轉化過程中，為了便于計算機處理數據，往往需要對尸體添加唯一標識（字符），如對學生信息的處理往往加上學號來標識學生，這個過程叫做編碼。編碼需要用單獨的數據管理界面來管理，因此一般的應用程序都會有基礎數據管理模塊，并且只允許系統管理員使用。下圖為本系統的模塊結構圖3.3.2 功能模塊1、登錄模塊： 用于輸入用戶名和密碼，如果用戶名和密碼正確，進入主控制平臺；否則提示用戶明確

14、的錯誤信息。2、系統管理模塊： 用戶管理子模塊：用于系統管理員進行用戶進行用戶權限設置和用戶的瀏覽，包括用戶密碼和用戶權限的更改，其他用戶只能瀏覽。 修改密碼子模塊：保證任何用戶可以修改自己的密碼。3、基礎數據管理模塊：用于設置和維護區域、房屋、樓盤的編碼與名稱的對應關系。系統管理員有權進行信息更新，其他用戶只能瀏覽。4、公司部信息管理模塊：員工數據管理子模塊：用于設置和管理與房屋銷售相關的員工信息數據，包括其基本信息和責任區域，并向全部員工提供查詢功能。系統管理員可以進行數據的添加、刪除和修改。 房源數據管理子模塊：用于設置和管理房源數據，并向全部員工提供查詢功能。系統管理員和負責本區域的精

15、進人可以進行數據的添加、刪除與修改。5、售房信息管理模塊：客戶看房記錄子模塊：功能是記錄客戶看房信息，用于檢查是否客戶越過該房地產經紀公司私自和房主發生買賣行為。系統管理員和負責本區域的經紀人可以進行數據的添加、刪除、修改。房屋居間服務合同管理子模塊：用于錄入和維護房屋居間服務合同，并生成報表。由合同責任人即使進行合同數據的校驗、更新和取消。系統管理員和合同責任人可以進行數據的添加、刪除和修改。但是，當確認此次房屋交易已經完成時，任何人不能進行更新。已售房屋信息管理子模塊：當房屋買賣交易結束后，意味著該房屋買賣已經完成。由相應的合同責任人將客戶購房信息進行記錄。并由系統自動將其從房源數據中刪除

16、，并向全部員工提供查詢功能。系統管理員和合同責任人可以進行數據的添加、刪除和修改。3.3 編碼設計 編碼是通過一些便于計算機或人來識別和處理的符號來表示各類信息。編碼方式有很多，常用的是層次碼和順序碼。層次碼是指把編碼對象分類，用不同的碼位來表示不同類別進行編碼。順序是按排列順序對編碼對象進行編碼。3.4 系統詳細設計 總體設計搭建了系統的功能框架，建立了系統數據庫結構。在總體設計的基礎上，需要對每個模塊的輸入數據、需要完成的處理邏輯和輸出數據進行詳細的設計和描述3.5 系統公共文件根據系統模塊結構圖，抽取系統中多個模塊的一樣的子功能來建立系統的公共特點，可以做到減少總代碼量，避免重復開發，保

17、持系統實現風格統一，以與增加可修改性等特點。本系統的公共文件包含以下幾個子功能：1） 主體框架2） 添加模塊3） 定義用戶名、用戶類型、職員編號以與登陸成功的標識為系統公共變量定義4） Main（系統啟動）函數。5） Connect String 函數。該函數用于設置數據庫連接字符串函數。本系統數據庫用戶名和密碼設置為sa 。6） Execute SQL 函數。該函數用于設置SQL語句的執行函數，并創建到數據源的連接，執行SQL語句。如果SQL語句成功執行，返回值為Ture,結果保存；否則返回False 。7） DB Exist函數。該函數用于判斷數據庫中是否存在指定記錄，返回記錄數；否則，返

18、回值為0 。8） TxtIsNull 函數。該函數用于判斷輸入到TextBox的容是否為空，參數為TextBox實例。9） Is Over String Len函數。干函數用于判斷輸入容是否超過給定值，參數為需要處理的字符串和給定長度值。其處理流程為：判斷字符串的長度不超過給定值時返回值為Ture,結果保存；否則返回False 。10） View Data函數。該函數用于執行SQL語句，當檢索到的記錄數不為0時，將相應的數據集設置為Datagrid的數據源，并返回記錄數；否則給出提示信息，返回值為0。11） ISEquelLen函數。該函數用于判斷輸入到TextBox的容是否為給定值。12）

19、ComoboData 函數。它是為ComoboBox賦值函數。其處理流程為：從數據庫中檢索記錄，當檢索記錄不為0時，將名稱字段添加到ComoboBox的顯示列表中，同時將編號字段作為相應名稱的索引值。13） ComoboHour 函數。該函數是為小時ComoboBox賦值函數，參數為ComoboBox實例。其處理流程為：采用24小時/天的計時方式，從1到24，通過循環在ComoboBox里添加小時數字。ComoboBox里數位為2位。14） ComoboMin 函數。該函數是為分鐘ComoboBox賦值函數，參數為ComoboBox實例。其處理流程為：從1到60，通過循環在ComoboBox里

20、添加分鐘數字。ComoboBox里數位為2位。15） ComoboYear 函數。該函數是為年ComoboBox賦值函數，參數為ComoboBox名稱。其處理流程為：從1990到2600，通過循環在ComoboBox里添加年份數字。16） ComoboMonth 函數。該函數是為月ComoboBox賦值函數，參數為ComoboBox名稱。其處理流程為：從1到12，通過循環在ComoboBox里添加月份數字。ComoboBox里數位為2位。17） ComoboDate 函數。該函數是為月ComoboBox賦值函數，參數為ComoboBox名稱。其其處理流程為：從1到31，通過循環在ComoboB

21、ox里添加日期數字。ComoboBox里數位為2位。18） setCboDataReg 函數。該函數用于區域名ComoboBox賦值，參數為ComoboBox實例。其處理流程為：檢索區域編碼信息表，調用ComoboData函數將區域名稱添加到責任區域ComoboBox列表中。19） setCboDataItem函數。它用于為樓盤名ComoboBox賦值，參數為ComoboBox實例。其處理流程為：檢索樓盤編碼信息表，調用ComoboData函數將樓盤名稱添加到樓盤區域ComoboBox列表中。20） setCboDataStru函數。該函數用于為房型名ComoboBox賦值，參數為Comobo

22、Box實例。其處理流程為：檢索房型編碼信息表，調用ComoboData函數將樓盤名稱添加到房型區域ComoboBox列表中。21） getCboRegId函數。該函數用于獲取名稱ComoboBox中名稱所對應的編號，參數為ComoboBox實例和存儲編號值的變量。使用該函數的前提是在為ComoboBox下拉列表賦值時，已經將與名稱對應的編號設置為下拉列表項目的索引值（本系統使用ComoboBox即可）。處理流程：判斷ComoboBox當前文本容，如果為空，存儲編號值的變量值為下拉列表項目的索引值。然后判斷存儲編號值的變量長度是否為該字段在數據庫中的長度值n，用select case語句將任何長

23、度的變量設置為n位（不足位的前面補0）。22） setCboData函數。該函數用于為房源編號ComoboBox賦值，參數為ComoboBox實例。其處理流程為：檢索房源信息表，將房源編號添加到對應的ComoboBox下拉列表中。23）setLabelData函數。該函數用于為窗體上的Label控件的Caption屬性賦值。參數值為ComoboBox實例和Label實例。其處理流程為：以ComoboBox實例的文本容為關鍵字，檢索房源信息表，將檢索到的房源名稱賦給對應的label實例中的Caption屬性。4 數據庫設計 數據庫設計是在DBMS的支持下，按照應用的要求設計合理的數據庫物理結構。

24、本系統采用SQL Server 2000數據庫，根據系統分析和模塊設計中得到的功能和相應的數據存儲，本系統數據庫的數據項和數據庫如下。 1、數據庫數據庫名稱：二手房銷售信息庫標識：DB House 2、數據庫表結構： 1）表名：用戶信息表 標識：tb User 數據來源： 用戶模塊的錄入 用戶信息表2）表名：區域編碼信息表 標識：tb Region 數據來源：基礎數據管理模塊的錄入區域編碼信息表 3）表名：樓盤編碼信息表標識：tb Item 數據來源：基礎數據管理模塊的錄入 樓盤編碼信息表4）表名：員工銷售信息表標識：tb Sale Man 數據來源：公司部信息管理模塊的錄入員工銷售信息表5）

25、表名：房源信息表標識：tb House 數據來源：公司部信息管理模塊的錄入房源信息表6）表名：客戶看房記錄標識：tb House Pre 數據來源：售房信息管理模塊錄入客戶看房記錄 7）表名：房屋居間服務合同表標識：tb Contract 數據來源：售房信息管理模塊錄入房屋居間服務合同表8）表名：已售房屋記錄表標識：tb House Sale 數據來源：售房信息管理模塊錄入 已售房屋記錄表5 系統模塊與界面設計1、人機交互設計2、用戶登錄模塊的IPO過程輸入：用戶名和密碼。處理：1） 登錄窗體啟動。2） 輸入用戶名和密碼。3） 如果用戶名或密碼為空，處理終止，并進行錯誤信息提示。4） 以輸入的

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

27、功能設計1） 菜單導航功能：系統管理：用戶管理、修改密碼。基礎數據庫管理。公司部信息管理：員工數據管理、房源數據管理。售房信息管理：客戶看房記錄、房屋居間服務合同管理和已售房屋記錄。員工銷售業績分析. 銷售額分析。 退出。2） 對當前用戶、系統時間的狀態顯示3） 給出主控制臺的提示信息，如標題。4） 判斷當前用戶類型，對該類型用戶的權限進行記錄。5） 點擊各個菜單或子菜單時，顯示相應的界面。5.2 系統管理模塊 系統管理模塊一般包括用戶管理和修改密碼兩個子模塊。用戶管理模塊只有系統管理員可以使用，一般用戶不能使用。修改密碼模塊面向任何用戶，提供修改登錄密碼的功能。用戶類型有系統管理員、經紀人和

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

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

30、模塊，添加模塊也在其中5.5 售房信息管理模塊售房信息管理管理模塊包括客戶看房記錄、房屋居間服務合同管理和已銷售信息管理3個子模塊。1、 客戶看房記錄子模塊客戶看房記錄子模塊的IPO過程 輸入：房源編號、房源名稱、看房時間、看房年月日、客戶人數、客戶號。并且添加客戶看房記錄2、 房屋居間合同子模塊（1） 人機交互設計（2） 房屋居間服務和同居間管理子模塊的IPO過程 輸入：房源編號、房源名稱、簽訂日期、甲方實際售價、稅率說明、稅金總計、中介費、定金、建筑面積、權屬、乙方聯系方式、乙方號、甲方聯系、甲方聯系方式、乙方房款交全最后期限、甲方交房最后期限、甲方贈物記錄、甲方代表、乙方代表和丙方。3、

31、 已售房屋信息管理子模塊（1） 人際交互界面（2） 已售房屋信息管理子模塊的IPO過程 輸入：房源編號、房源名稱、建筑面積、實際銷售日期等6 系統實施6.1 數據的訪問 在數據庫的操作中，考慮到操作數據庫時如果利用數據綁定，則會鎖定記錄表，使得表的訪問為獨占式，而如果兩個終端同時訪問這個表，則容易造成死鎖。因此用SQL直接進行數據庫的訪問是比較適合的，即使偶爾發生并發操作，對數據庫的修改不成功，也可以繼續保存。同時由于考慮數據庫中的數據屬于動態的、變化的，因此，在數據庫德操縱過程中，大量使用了SQL語句進行對數據庫的操作。具體來說，包括數據庫的插入、修改、刪除和查詢。 1、查詢操作 txtSq

32、l = "select HouseId as 房源編號,HouseName as 房源名稱,ViewTime as 看房時間," txtSql = txtSql + "ViewYMD as 看房年月日,ClientNum as 客戶人數,ClientIDCard as 客戶號" If txtClientIDCard.Text = "" Then txtSql = txtSql + " from tbHousePre order by HouseId " Else txtSql = txtSql + " f

33、rom tbHousePre where ClientIDCard='" + txtClientIDCard.Text + "' order by HouseId" 2、修改操作 txtSql = "update tbHousePre set HouseName='" + Trim(lblName.Caption) + "'," txtSql = txtSql + " ClientNum='" + Trim(txtClientNum.Text) + "&#

34、39;," txtSql = txtSql + "ClientIDCard='" + Trim(txtClientIDCard.Text) + "'" txtSql = txtSql + " where HouseId='" + Trim(cboId.Text) + "'" txtSql = txtSql + " and ViewYMD='" + Trim(strViewYMD) + "'" txtSql = txtS

35、ql + " and ViewTime='" + Trim(strViewTime) + "'" result = ExecuteSQL(txtSql, rstView, True) MsgBox "修改成功", vbOKOnly + vbExclamation, "警告" 3、添加操作 txtSql = txtSql + "values('" + Trim(cboId.Text) + "','" txtSql = txtSql + T

36、rim(lblName.Caption) + "','" txtSql = txtSql + strViewTime + " ','" txtSql = txtSql + strViewYMD + "','" txtSql = txtSql + Trim(txtClientNum.Text) + "','" txtSql = txtSql + Trim(txtClientIDCard.Text) + "')" result

37、= ExecuteSQL(txtSql, rstView, True) MsgBox "客戶看房記錄添加成功", vbOKOnly + vbExclamation, "警告"4、 刪除操作txtSql = "delete from tbSaleMan where SaleManId='" + strSaleManId + "'"results = ExecuteSQL(txtSql, rstEmp, True) MsgBox "刪除成功！", vbOKOnly + vbExcla

38、mation, "警告"6.2 連接數據庫Public Function ConnectString() As String ConnectString = "FileDSN=dbhouse.dsn;UID=sa;PWD=sa"End Function6.3 系統模塊' *'系統公共變量定義' *Option ExplicitPublic gUserName As StringPublic gUserKind As StringPublic gLoginSucceeded As Boolean' *'過程名：Mai

39、n'說 明：系統啟動函數'參 數：無'返回值：無' *Sub Main() '啟動登陸窗體 Dim fLogin As New frmLogin fLogin.Show vbModal If Not gLoginSucceeded Then MsgBox "系統啟動失敗,請重試!", vbOKOnly + vbExclamation, "警告" End If Unload fLoginEnd Sub6.4 程序實現關鍵代碼房屋居間合同管理' *'窗體公共變量定義' *Option Expli

40、citPrivate txtSql As String 'SQL語句Private result As Integer 'datagrid中的顯示記錄數Public ContractFlag As String '判斷添加刪除標志Public strHouseId As String '房源編號Public strHouseName As String '房源名稱Public strSignDate As String '簽訂日期Public strSaleMoney As String '甲方實際售價Public strTaxDes A

41、s String '稅率說明Public strTax As String '稅金總計Public strMediMoney As String '中介費Public strPreMoney As String '定金Public strArea As String '建筑面積Public strBelong As String '權屬Public strYContact As String '乙方聯系方式Public strYTel As String '乙方聯系Public strYIDCard As String '

42、乙方號Public strJContact As String '甲方聯系方式Public strJTel As String '甲方聯系Public strJIDCard As String '甲方號Public strYTimeLimit As String '乙方房款交全最后期限Public strJTimeLimit As String '甲方交房最后期限Public strPresent As String '甲方贈物記錄Public strJdelegate As String '甲方代表Public strYdelegate

43、 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 cmdClear_Click() cboYear.Clear cboMonth.Clear cboDate.Clear Call

44、 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 = IsEditable '判斷是否能夠對合同進行刪除

45、 If bIsEditable = False Then MsgBox "房屋交易已經完成,不能進行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If str = MsgBox("是否刪除當前記錄？", vbOKCancel, "刪除當前記錄") If str = vbOK Then txtSql = "delete from tbContractp where HouseId='" + strHouseId + "'

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

47、 viewDataContractEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdModify_Click()Dim bIsEditable As BooleanbIsEditable = IsEditableIf Trim(strHouseId) = "" Then MsgBox "請點擊單元格選擇修改記錄", vbOKOnly + vbExclamation, "警告"Else '判斷是否能夠對合同進行修改 If bIsEditable =

48、 False Then MsgBox "房屋交易已經完成,不能進行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If ContractFlag = "Modify" frmContractAdd.ShowEnd IfEnd Sub'查詢操作Private Sub cmdQuery_Click()txtSql = "select HouseId as 房源編號,HouseName as 房源名稱,SignDate as 簽訂日期,"txtSql = txtS

49、ql + "SaleMoney as 甲方實際售價,TaxDes as 稅率說明,Tax as 稅金總計,"txtSql = txtSql + "MediMoney as 中介費,PreMoney as 定金,Area as 建筑面積,Belong as 權屬,"txtSql = txtSql + "YContact as 乙方聯系方式,YTel as 乙方聯系,YIDCard as 乙方號,JContact as 甲方聯系方式,"txtSql = txtSql + "JTel as 甲方聯系, JIDCard as 甲方號

50、,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) =

51、 '" + cboYear.Text + "'" 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) =

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

53、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 HouseId"Set dgContract.DataSour

54、ce = 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 "請點擊單元格選擇修改記錄", vbOKOnly + vbExclamation, "警告" Else '判斷是否能夠對合同進行修改 If bIsEditable = False Then MsgBox "房屋交易已經完成,不能進行更新", vbOKOnly + vbExclamation, "警告" Exit Sub End If ContractFlag = "Modify" frmContractAdd.Show En