《軟件工程》目錄 2需求分析??????????????????????????????????????????????????????????????????????????????????????43系統(tǒng)設(shè)計(jì)界面設(shè)計(jì)??????????????????????????????????????????????????????????????????????84數(shù)據(jù)庫(kù)設(shè)計(jì)????????????????????????????????????????????????????????????????????????????????10 ????????????????????????????????????????????????????????????????????????????31 11引言1.1選題背景：市場(chǎng)也是在不斷升溫，相關(guān)需求也不斷增加，為此，在這介紹一下二手房銷售設(shè)計(jì)開發(fā)方法。房地產(chǎn)經(jīng)紀(jì)公司的二手房銷售管理業(yè)務(wù)流程可以簡(jiǎn)單的描述為：(1)搜集房源信息并記錄，驗(yàn)收房屋實(shí)際情況是否與房主所匯報(bào)房源信息相符，再進(jìn)行相應(yīng)記錄。(2)客戶到房地產(chǎn)經(jīng)紀(jì)公司提出購(gòu)房請(qǐng)求，經(jīng)確定購(gòu)房區(qū)域后，由房地產(chǎn)經(jīng)紀(jì)公到實(shí)地看房。(3)看房之前需要簽訂看房協(xié)議，客戶保證不會(huì)越過(guò)該房地產(chǎn)經(jīng)紀(jì)公司私自和房主發(fā)生買賣行為，否則也要交納相應(yīng)的中介費(fèi)用。(4)如果客戶選定某個(gè)房屋，則由該公司員工引導(dǎo)，并由專人負(fù)責(zé)客戶與房地產(chǎn)作為房地產(chǎn)經(jīng)紀(jì)公司的補(bǔ)償。(5)辦理完全產(chǎn)證的更名等一切手續(xù)，并由客戶驗(yàn)收后，由房地產(chǎn)經(jīng)紀(jì)公司將房款交給房主。房屋買賣交易結(jié)束。面對(duì)大量的二手房信息和交易活動(dòng)，傳統(tǒng)的手工管理很復(fù)雜。工作效率低下，數(shù)據(jù)混亂且難以發(fā)覺其中的規(guī)律。對(duì)各個(gè)房地產(chǎn)經(jīng)紀(jì)公司來(lái)說(shuō)，二手房銷售管理系統(tǒng)，輔助管理銷售，是提高工作銷售的必經(jīng)之路。而我們也可以得到一般的房產(chǎn)中介公司的二手房銷售管理業(yè)務(wù)模型。.2系統(tǒng)目標(biāo)：二手房銷售管理平臺(tái)。其系統(tǒng)目標(biāo)和功能要求如下：銷售管理業(yè)務(wù)流程更加合理。2)提供方便、靈活的操作3)節(jié)約成本，提高效率4)對(duì)系統(tǒng)進(jìn)行權(quán)限管理件的查詢。6)與手工管理相比，要添加基礎(chǔ)數(shù)據(jù)的管理和用戶權(quán)限的管理。時(shí)準(zhǔn)確的記錄時(shí)間。新權(quán)和全部房屋信息的查詢權(quán)；公司的高層管理者擁有修通管理員權(quán)限。示信息。求分析概述新信息系統(tǒng)的建立是在現(xiàn)行業(yè)務(wù)基礎(chǔ)上經(jīng)過(guò)改建或重建而得到的。因此，在進(jìn)行新系統(tǒng)的規(guī)劃、分析和設(shè)計(jì)工作之前，必須對(duì)現(xiàn)行系統(tǒng)做全面、充分的調(diào)查研究和分析，在此基礎(chǔ)過(guò)程-具體業(yè)務(wù)處理”這樣的層次結(jié)構(gòu)來(lái)對(duì)其進(jìn)行描述。業(yè)務(wù)模型的建立也可以分為3個(gè)階段。1)現(xiàn)型業(yè)務(wù)的調(diào)查和分析。2)提出一個(gè)表示全部業(yè)務(wù)的模型。3)擴(kuò)展上述模型，使它能表示出各項(xiàng)具體的業(yè)務(wù)活動(dòng)，最終確定為業(yè)務(wù)模型。、根據(jù)對(duì)二手房銷售管理的業(yè)務(wù)流程的調(diào)查和分析，得到一般的房產(chǎn)中介公司的二手的二型級(jí)銷售人員的基本信息工的基本信息域的員工信息檢索功能相關(guān)的員工信息，包括責(zé)任區(qū)域等索功能數(shù)據(jù)銷售業(yè)績(jī)進(jìn)行統(tǒng)計(jì)源信息并記錄況是否與房主所報(bào)房源信息相符源數(shù)據(jù)請(qǐng)求查找符合條件的全部房源會(huì)越過(guò)該房地產(chǎn)經(jīng)紀(jì)公司私自與為，否則也要繳納相應(yīng)的中介費(fèi)用理，則由該員工引導(dǎo)，并由專人負(fù)責(zé)客戶與房地房屋居間服務(wù)合同和指定金額的定金，并需要承諾在規(guī)定的繳納視為違約，定金作為房地產(chǎn)經(jīng)紀(jì)公司的補(bǔ)償房款將房款交給房主售房屋信息應(yīng)的房源數(shù)據(jù)在建立了較為完整、穩(wěn)定的業(yè)務(wù)模型之后，需要根據(jù)模型進(jìn)行數(shù)據(jù)分析。基本方法是按照業(yè)務(wù)過(guò)程進(jìn)行數(shù)據(jù)分類和組織。數(shù)據(jù)分類后，進(jìn)行信息體系結(jié)構(gòu)的設(shè)計(jì)：即結(jié)合業(yè)務(wù)過(guò)程與數(shù)據(jù)類，建立系統(tǒng)的功能/數(shù)據(jù)類矩陣(c-u矩陣)。數(shù)據(jù)分類得到的結(jié)果將用于系統(tǒng)分析和系統(tǒng)設(shè)計(jì)階段。u如表6-2所示。類息同信息信息管理C信息管理UCUCUCUCUUC系統(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)須弄清楚系統(tǒng)需要產(chǎn)生什么樣的信息輸出。為了得到這樣的輸出應(yīng)該對(duì)什行處理，輸入數(shù)據(jù)向輸出數(shù)據(jù)所進(jìn)行的轉(zhuǎn)換過(guò)程是什么？而這個(gè)過(guò)程是進(jìn)取，建立數(shù)據(jù)流程圖的過(guò)程。數(shù)據(jù)流程圖描述了新系統(tǒng)的全部的數(shù)據(jù)處理邏輯和數(shù)據(jù)的流動(dòng)過(guò)程，構(gòu)成了新系統(tǒng)邏輯模型。P3錄入房源數(shù)據(jù)P4驗(yàn)收房源信息房源數(shù)據(jù)房源數(shù)據(jù)中介公司房源管理者P7簽訂看房的協(xié)議客戶看房記錄購(gòu)房請(qǐng)求符合條件的房源客戶銷售員工簽訂房屋居間服務(wù)合同P9繳納全部房款發(fā)票P8簽訂房屋服務(wù)條例客戶客戶確定購(gòu)房意向客戶管理人員P11登記已售房屋信息相關(guān)人員已售房屋信息銷售員工員工數(shù)據(jù)表員工銷售信息表員工房P3錄入房源數(shù)據(jù)P4驗(yàn)收房源信息房源數(shù)據(jù)房源數(shù)據(jù)中介公司房源管理者P7簽訂看房的協(xié)議客戶看房記錄購(gòu)房請(qǐng)求符合條件的房源客戶銷售員工簽訂房屋居間服務(wù)合同P9繳納全部房款發(fā)票P8簽訂房屋服務(wù)條例客戶客戶確定購(gòu)房意向客戶管理人員P11登記已售房屋信息相關(guān)人員已售房屋信息銷售員工員工數(shù)據(jù)表員工銷售信息表員工房源數(shù)據(jù)房源數(shù)據(jù)表銷售銷售員工P5P5查查詢房源數(shù)據(jù)房源房源數(shù)據(jù)表PP6查找房源P10辦理用戶P12刪除相應(yīng)的房源數(shù)據(jù)房房屋數(shù)據(jù)表二手房銷售管理系統(tǒng)業(yè)務(wù)流程圖根據(jù)業(yè)務(wù)流程圖，去掉其中信息系統(tǒng)不能完成的和本系統(tǒng)處理以外的環(huán)節(jié)，并將業(yè)務(wù)處理比較集中的功能作為一個(gè)高層模塊，從而得到本系統(tǒng)高層數(shù)據(jù)流程圖，如圖6-2所示。而有些功能比較復(fù)雜，應(yīng)進(jìn)一步再分解，知道每個(gè)子模塊的功能、獨(dú)立，不可再分。本系統(tǒng)的高層數(shù)據(jù)流程圖中各個(gè)模塊的處理功能比較集中，均可作為一個(gè)單獨(dú)的子模塊。對(duì)比數(shù)據(jù)流程圖和業(yè)務(wù)流程圖不難看出，從業(yè)務(wù)過(guò)程(業(yè)務(wù)流程圖)抽取數(shù)據(jù)流的過(guò)程于本系統(tǒng)的處理范圍要去掉，如辦理過(guò)戶的過(guò)程；有些初期調(diào)研沒(méi)有得到的常規(guī)業(yè)務(wù)要增加驟的分析，最終得到了用數(shù)據(jù)流程圖表達(dá)的新系統(tǒng)的邏輯功能結(jié)構(gòu)。p3員工銷售數(shù)據(jù)管理銷售員工p2員工銷售數(shù)據(jù)管理房源所有者(員工)客戶看房記錄購(gòu)房請(qǐng)求客戶簽訂房屋居間合同P5生成房屋居間服務(wù)合同p4購(gòu)房確定意向客戶客戶已售房屋信息房源數(shù)據(jù)表客戶看房記錄購(gòu)房請(qǐng)求客戶簽訂房屋居間合同P5生成房屋居間服務(wù)合同p4購(gòu)房確定意向客戶客戶已售房屋信息房源數(shù)據(jù)表p3客戶看房管理銷售員工簽訂房屋居間服務(wù)合同管理合同P6已售房屋信息管理管理人員二手房銷售管理系統(tǒng)數(shù)據(jù)流程圖圖并不能完整地描述軟件需求，因?yàn)樗鼪](méi)有描述數(shù)據(jù)流程圖上各個(gè)成分的具體內(nèi)容。實(shí)際應(yīng)用中，數(shù)據(jù)流程圖往往與數(shù)據(jù)字典配套使用。數(shù)據(jù)字典實(shí)在數(shù)據(jù)流程圖的基礎(chǔ)上，進(jìn)一步定義和描述流程圖上各個(gè)成分的工具，它包括對(duì)一切動(dòng)態(tài)數(shù)據(jù)(可在系統(tǒng)內(nèi)外流動(dòng)的數(shù)據(jù)流)和靜態(tài)數(shù)據(jù)(不參與流動(dòng)的數(shù)據(jù)存儲(chǔ))的數(shù)據(jù)結(jié)構(gòu)和相互關(guān)系等的說(shuō)明，是數(shù)據(jù)分析和數(shù)據(jù)管理的重要工具。數(shù)據(jù)字典中常常包括對(duì)數(shù)據(jù)元素、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流的來(lái)源去處、數(shù)據(jù)存儲(chǔ)、處理功能和外部實(shí)體的說(shuō)明。本系統(tǒng)建立數(shù)據(jù)字典中，對(duì)處理功能的說(shuō)明如下：1)權(quán)限設(shè)定的全部權(quán)限所負(fù)責(zé)區(qū)域的房屋信息的更新權(quán)和全部房屋信息的查詢權(quán)人——房屋居間服務(wù)合同的更新權(quán)和全部房屋信息的查詢權(quán)公司高層管理者——系統(tǒng)管理員權(quán)限2)員工(銷售)信息管理：錄入與房屋銷售相關(guān)的員工信息，包括責(zé)任區(qū)域等。3)房源數(shù)據(jù)管理：搜集房源信息并記錄。驗(yàn)收房屋實(shí)際情況是否與房主所報(bào)房源信息一致，更新和維護(hù)房源數(shù)據(jù)，并隨時(shí)按各種要求查詢房源數(shù)據(jù)。4)客戶看房管理：客戶提出購(gòu)房請(qǐng)求。確定購(gòu)房區(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ì)。售房信息管理用戶登錄系統(tǒng)管理公司內(nèi)部信息管理房屋居間服務(wù)合同查詢已售房屋信息管理客戶看房修改密碼用戶管理房源數(shù)據(jù)管理售房信息管理用戶登錄系統(tǒng)管理公司內(nèi)部信息管理房屋居間服務(wù)合同查詢已售房屋信息管理客戶看房修改密碼用戶管理房源數(shù)據(jù)管理系統(tǒng)設(shè)計(jì)3.1系統(tǒng)總體設(shè)計(jì)：依據(jù)系統(tǒng)分析階段得到的數(shù)據(jù)流程圖和數(shù)據(jù)字典，以數(shù)據(jù)流程圖中的處理功能為出發(fā)點(diǎn)，抽取各個(gè)主要的處理功能建立模塊結(jié)構(gòu)圖。從數(shù)據(jù)流程圖轉(zhuǎn)化為系統(tǒng)模塊結(jié)構(gòu)時(shí)，有3個(gè)問(wèn)題需要注意：錄成功的用戶才允許使用系統(tǒng)；為了方便系統(tǒng)的管理和維護(hù)，要添加系統(tǒng)管理模塊，用以管理系統(tǒng)用戶的相關(guān)信息。尸體添加唯一標(biāo)識(shí)(字符)，如對(duì)學(xué)生信息的處理往往加上學(xué)號(hào)來(lái)標(biāo)識(shí)學(xué)生，這個(gè)過(guò)程叫做編碼。編碼需要用單獨(dú)的數(shù)據(jù)管理界面來(lái)管理，因此一般的應(yīng)用程序都會(huì)有基礎(chǔ)數(shù)據(jù)管理模塊，并且只允許系統(tǒng)管理員使用。下圖為本系統(tǒng)的模塊結(jié)構(gòu)圖二手房銷售管理信息系統(tǒng)基礎(chǔ)數(shù)據(jù)管理管理系統(tǒng)模塊結(jié)構(gòu)圖功能模塊名和密碼正確，進(jìn)入主控制平臺(tái)；否則提示用戶明確的錯(cuò)誤信息。：用于系統(tǒng)管理員進(jìn)行用戶進(jìn)行用戶權(quán)限設(shè)置和用戶的瀏覽，包括用戶密碼和用戶權(quán)限的更改，其他用戶只能瀏覽。修改密碼子模塊：保證任何用戶可以修改自己的密碼。用于設(shè)置和維護(hù)區(qū)域、房屋、樓盤的編碼與名稱的對(duì)應(yīng)關(guān)系。系統(tǒng)管理員有權(quán)進(jìn)行信息更新，其他用戶只能瀏覽。員工數(shù)據(jù)管理子模塊：用于設(shè)置和管理與房屋銷售相關(guān)的員工信息數(shù)據(jù)，包括其基本信添加、刪除和修改。模塊：用于設(shè)置和管理房源數(shù)據(jù)，并向全部員工提供查詢功能。系統(tǒng)管理員和負(fù)責(zé)本區(qū)域的精進(jìn)人可以進(jìn)行數(shù)據(jù)的添加、刪除與修改?？蛻艨捶坑涗涀幽K：功能是記錄客戶看房信息，用于檢查是否客戶越過(guò)該房地產(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)房屋買賣交易結(jié)束后，意味著該房屋買賣已經(jīng)完成。由相應(yīng)的合同責(zé)任人將客戶購(gòu)房信息進(jìn)行記錄。并由系統(tǒng)自動(dòng)將其從房源數(shù)據(jù)中刪除，并向全部員工提供查詢功能。系統(tǒng)管理員和合同責(zé)任人可以進(jìn)行數(shù)據(jù)的添加、刪除和修改。.3編碼設(shè)計(jì)編碼是通過(guò)一些便于計(jì)算機(jī)或人來(lái)識(shí)別和處理的符號(hào)來(lái)表示各類信息。編碼方式有很多，常用的是層次碼和順序碼。層次碼是指把編碼對(duì)象分類，用不同的碼位來(lái)表示不同類別進(jìn)行編碼。順序是按排列順序?qū)幋a對(duì)象進(jìn)行編碼。4系統(tǒng)詳細(xì)設(shè)計(jì)總體設(shè)計(jì)搭建了系統(tǒng)的功能框架，建立了系統(tǒng)數(shù)據(jù)庫(kù)結(jié)構(gòu)。在總體設(shè)計(jì)的基礎(chǔ)上，需要塊的輸入數(shù)據(jù)、需要完成的處理邏輯和輸出數(shù)據(jù)進(jìn)行詳細(xì)的設(shè)計(jì)和描述5系統(tǒng)公共文件的相同的子功能來(lái)建立系統(tǒng)的公共特點(diǎn)，可以做到減少總代碼量，避免重復(fù)開發(fā)，保持系統(tǒng)實(shí)現(xiàn)風(fēng)格統(tǒng)一，以及增加可修改性等特點(diǎn)。本系統(tǒng)的公共文件包含以下幾個(gè)子功能：1)主體框架2)添加模塊3)定義用戶名、用戶類型、職員編號(hào)以及登陸成功的標(biāo)識(shí)為系統(tǒng)公共變量定義4)Main(系統(tǒng)啟動(dòng))函數(shù)。5)ConnectString函數(shù)。該函數(shù)用于設(shè)置數(shù)據(jù)庫(kù)連接字符串函數(shù)。本系統(tǒng)數(shù)據(jù)庫(kù)用戶名和密碼設(shè)置為sa。6)ExecuteSQL函數(shù)。該函數(shù)用于設(shè)置SQL語(yǔ)句的執(zhí)行函數(shù)，并創(chuàng)建到數(shù)據(jù)源的連接，7)DBExist函數(shù)。該函數(shù)用于判斷數(shù)據(jù)庫(kù)中是否存在指定記錄，返回記錄數(shù)；否則，返8)TxtIsNull函數(shù)。該函數(shù)用于判斷輸入到TextBox的內(nèi)容是否為空，參數(shù)為TextBox實(shí)例。9)IsOverStringLen函數(shù)。干函數(shù)用于判斷輸入內(nèi)容是否超過(guò)給定值，參數(shù)為需要處理Ture存；否則返回False。10)ViewData函數(shù)。該函數(shù)用于執(zhí)行SQL語(yǔ)句，當(dāng)檢索到的記錄數(shù)不為0時(shí)，將相應(yīng)11)ISEquelLen函數(shù)。該函數(shù)用于判斷輸入到TextBox的內(nèi)容是否為給定值。12)ComoboData函數(shù)。它是為ComoboBox賦值函數(shù)。其處理流程為：從數(shù)據(jù)庫(kù)中檢索記錄，當(dāng)檢索記錄不為0時(shí)，將名稱字段添加到ComoboBox的顯示列表中，同時(shí)將編號(hào)字段作為相應(yīng)名稱的索引值。13)ComoboHour函數(shù)。該函數(shù)是為小時(shí)ComoboBox賦值函數(shù)，參數(shù)為ComoboBox實(shí)14)ComoboMin函數(shù)。該函數(shù)是為分鐘ComoboBox賦值函數(shù)，參數(shù)為ComoboBox實(shí)里數(shù)位為2位。15)ComoboYear函數(shù)。該函數(shù)是為年ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名稱。16)ComoboMonth函數(shù)。該函數(shù)是為月ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名里數(shù)位為2位。17)ComoboDate函數(shù)。該函數(shù)是為月ComoboBox賦值函數(shù)，參數(shù)為ComoboBox名稱。里數(shù)位為2位。18)setCboDataReg函數(shù)。該函數(shù)用于區(qū)域名ComoboBox賦值，參數(shù)為ComoboBox實(shí)流程為：檢索區(qū)域編碼信息表，調(diào)用ComoboData函數(shù)將區(qū)域名稱添加到責(zé)任區(qū)域ComoboBox列表中。9)setCboDataItem函數(shù)。它用于為樓盤名ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。碼信息表，調(diào)用ComoboData函數(shù)將樓盤名稱添加到樓盤區(qū)域ComoboBox列表中。20)setCboDataStru函數(shù)。該函數(shù)用于為房型名ComoboBox賦值，參數(shù)為ComoboBox房型編碼信息表，調(diào)用ComoboData函數(shù)將樓盤名稱添加到房型區(qū)域ComoboBox列表中。21)getCboRegId函數(shù)。該函數(shù)用于獲取名稱ComoboBox中名稱所對(duì)應(yīng)的編號(hào)，參數(shù)為ComoboBox實(shí)例和存儲(chǔ)編號(hào)值的變量。使用該函數(shù)的前提是在為ComoboBox下拉列表賦值時(shí)，已經(jīng)將與名稱對(duì)應(yīng)的編號(hào)設(shè)置為下拉列表項(xiàng)目的索引值(本系統(tǒng)使用ComoboBox即可)。處理流程：判斷ComoboBox當(dāng)前文本內(nèi)容，如果為空，存儲(chǔ)編為該字段在數(shù)據(jù)庫(kù)中的長(zhǎng)度值n，用selectcase語(yǔ)句將任何長(zhǎng)度的變量設(shè)置為n位(不足位的前面補(bǔ)0)。22)setCboData函數(shù)。該函數(shù)用于為房源編號(hào)ComoboBox賦值，參數(shù)為ComoboBox實(shí)例。其處理流程為：檢索房源信息表，將房源編號(hào)添加到對(duì)應(yīng)的ComoboBox下拉列表中。23)setLabelData函數(shù)。該函數(shù)用于為窗體上的Label控件的Caption屬性賦值。參數(shù)值源信息表，將檢索到的房源名稱賦給對(duì)應(yīng)的label實(shí)例中的Caption屬性。設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)是在DBMS的支持下，按照應(yīng)用的要求設(shè)計(jì)合理的數(shù)據(jù)庫(kù)物理結(jié)構(gòu)。本系統(tǒng)系統(tǒng)數(shù)據(jù)庫(kù)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)庫(kù)如下。名稱：二手房銷售信息庫(kù)1)表名：用戶信息表2)表名：區(qū)域編碼信息表源：基礎(chǔ)數(shù)據(jù)管理模塊的錄入表3)表名：樓盤編碼信息表源：基礎(chǔ)數(shù)據(jù)管理模塊的錄入碼信息表4)表名：?jiǎn)T工銷售信息表源：公司內(nèi)部信息管理模塊的錄入5)表名：房源信息表源：公司內(nèi)部信息管理模塊的錄入6)表名：客戶看房記錄源：售房信息管理模塊錄入7)表名：房屋居間服務(wù)合同表源：售房信息管理模塊錄入合同表8)表名：已售房屋記錄表源：售房信息管理模塊錄入塊與界面設(shè)計(jì)輸入：用戶名和密碼。處理：1)登錄窗體啟動(dòng)。2)輸入用戶名和密碼。3)如果用戶名或密碼為空，處理終止，并進(jìn)行錯(cuò)誤信息提示。4)以輸入的用戶名作為關(guān)鍵字，檢索用戶信息表(tbUser)的用戶名和密碼字段。息提示。終止，并進(jìn)行錯(cuò)誤信息提示。7)如果輸入的密碼正確，將該用戶名和用戶類型分別保存到全局變量guserName和guserkind中。8)進(jìn)入主控制臺(tái)。輸出：主控制平臺(tái)。主控制平臺(tái)的設(shè)計(jì)系統(tǒng)主控平臺(tái)采用簡(jiǎn)單、直觀的布局，通過(guò)菜單實(shí)現(xiàn)對(duì)系統(tǒng)各個(gè)模塊的調(diào)用和各個(gè)窗體的現(xiàn)實(shí)。設(shè)置狀態(tài)欄用來(lái)顯示當(dāng)前日期、時(shí)間和當(dāng)前用戶信息。計(jì)1)菜單導(dǎo)航功能：系統(tǒng)管理：用戶管理、修改密碼?；A(chǔ)數(shù)據(jù)庫(kù)管理。公司內(nèi)部信息管理：?jiǎn)T工數(shù)據(jù)管理、房源數(shù)據(jù)管理。售房信息管理：客戶看房記錄、房屋居間服務(wù)合同管理和已售房屋記錄。銷售業(yè)績(jī)分析.銷售額分析。退出。2)對(duì)當(dāng)前用戶、系統(tǒng)時(shí)間的狀態(tài)顯示3)給出主控制臺(tái)的提示信息，如標(biāo)題。4)判斷當(dāng)前用戶類型，對(duì)該類型用戶的權(quán)限進(jìn)行記錄。5)點(diǎn)擊各個(gè)菜單或子菜單時(shí)，顯示相應(yīng)的界面。統(tǒng)管理模塊系統(tǒng)管理模塊一般包括用戶管理和修改密碼兩個(gè)子模塊。用戶管理模塊只有系統(tǒng)管理員可以使用，一般用戶不能使用。修改密碼模塊面向任何用戶，提供修改登錄密碼的功能。用戶類型有系統(tǒng)管理員、經(jīng)紀(jì)人和合同負(fù)責(zé)人。數(shù)據(jù)管理模塊輸入：區(qū)域、樓盤或者房型的編號(hào)和名稱。處理：1)當(dāng)用戶類型為系統(tǒng)管理員時(shí)該菜單可用。2)基礎(chǔ)數(shù)據(jù)管理窗體啟動(dòng)。3)從區(qū)域編碼信息表中讀取全部記錄，顯示在表格控件dgBasicData中。4)當(dāng)鼠標(biāo)單擊標(biāo)簽，標(biāo)簽改變時(shí)，從對(duì)應(yīng)的數(shù)據(jù)庫(kù)表中讀取全部記錄，顯示在表格控件dgbasicdata中。5)各級(jí)系統(tǒng)管理員的選擇(添加、修改和刪除)進(jìn)行相應(yīng)的處理部信息管理模塊公司內(nèi)部信息管理模塊管理包括員工數(shù)據(jù)管理和房源數(shù)據(jù)管理兩個(gè)子模塊，其中每個(gè)子模面：數(shù)據(jù)顯示、操作界面和添加、修改數(shù)據(jù)界面IPO程輸入：?jiǎn)T工編碼、員工姓名、性別、職務(wù)、聯(lián)系電話、區(qū)域名稱。處理：當(dāng)用戶類型為系統(tǒng)管理員時(shí)該菜單可用。員工數(shù)據(jù)管理窗體啟動(dòng)。從員工信息表中讀取全部記錄，顯示在表格控件dgemp中。根據(jù)系統(tǒng)管理員的選擇(添加、修改、刪除)進(jìn)行相應(yīng)處理。(1)人機(jī)交互設(shè)計(jì)(2)房源數(shù)據(jù)管理子模塊的IPO過(guò)程、房源名稱、所屬區(qū)域名稱、樓盤名稱、建筑年代、建筑單位、戶型名梯戶、廣場(chǎng)、基礎(chǔ)設(shè)施、裝修狀況、物業(yè)管理費(fèi)、權(quán)屬、售價(jià)和銷售狀態(tài)。塊，添加模塊也在其中信息管理模塊售房信息管理管理模塊包括客戶看房記錄、房屋居間服務(wù)合同管理和已銷售信息管理3個(gè)子模塊。IPO程輸入：房源編號(hào)、房源名稱、看房時(shí)間、看房年月日、客戶人數(shù)、客戶身份證號(hào)。看房記錄(1)人機(jī)交互設(shè)計(jì)(2)房屋居間服務(wù)和同居間管理子模塊的IPO過(guò)程、房源名稱、簽訂日期、甲方實(shí)際售價(jià)、稅率說(shuō)明、稅金總計(jì)、中介費(fèi)、定金、建筑面積、權(quán)屬、乙方聯(lián)系方式、乙方身份證號(hào)、甲方聯(lián)系電話、甲方聯(lián)系方式、乙方房款交全最后期限、甲方交房最后期限、甲方贈(zèng)物記錄、甲方代表、乙方代表和丙方。(1)人際交互界面(2)已售房屋信息管理子模塊的IPO過(guò)程、房源名稱、建筑面積、實(shí)際銷售日期等據(jù)的訪問(wèn)在數(shù)據(jù)庫(kù)的操作中，考慮到操作數(shù)據(jù)庫(kù)時(shí)如果利用數(shù)據(jù)綁定，則會(huì)鎖定記錄表，使得表的QL據(jù)庫(kù)的訪問(wèn)是比較適合的，即使偶爾發(fā)生并發(fā)操作，對(duì)數(shù)據(jù)庫(kù)的修改不成功，也可以繼續(xù)保存。同時(shí)由于考慮數(shù)據(jù)庫(kù)中的數(shù)據(jù)屬于動(dòng)態(tài)的、變化的，因此，在數(shù)據(jù)庫(kù)德操縱過(guò)程中，大txtSql"selectHouseIdas房源編號(hào),HouseNameas房源名稱,ViewTimeas看房時(shí)間,"txtSql=txtSql+"ViewYMDas看房年月日,ClientNumas客戶人數(shù),ClientIDCardas客戶IftxtClientIDCardText""ThentxtSql=txtSql+"fromtbHousePreorderbyHouseId"txtSql=txtSql+"fromtbHousePrewhereClientIDCard='"+txtClientIDCard.Text+"'rbyHouseIdtxtSql"updatetbHousePresetHouseName='"+Trim(lblName.Caption)+"',"txtSql=txtSql+"ClientNum='"+Trim(txtClientNum.Text)+"',"txtSqltxtSql+"ClientIDCard='"+Trim(txtClientIDCard.Text)+"'"txtSql=txtSql+"whereHouseId='"+Trim(cboId.Text)+"'"txtSql=txtSql+"andViewYMD='"+Trim(strViewYMD)+"'"txtSql=txtSql+"andViewTime='"+Trim(strViewTime)+"'"resultExecuteSQL(txtSql,rstView,True)MsgBox成功",vbOKOnly+vbExclamation,"警告"txtSqltxtSql+"values('"+Trim(cboId.Text)+"','"txtSql=txtSql+Trim(lblName.Caption)+"','"txtSql=txtSql+strViewTime+"','"txtSql=txtSql+strViewYMD+"','"txtSqltxtSql+Trim(txtClientNum.Text)+"','"txtSqltxtSql+Trim(txtClientIDCard.Text)+"')"resultExecuteSQL(txtSql,rstView,True)MsgBox看房記錄添加成功",vbOKOnly+vbExclamation,"警告"txtSql="deletefromtbSaleManwhereSaleManId='"+strSaleManId+"'"resultsExecuteSQL(txtSql,rstEmp,True)接數(shù)據(jù)庫(kù)PublicFunctionConnectString()AsStringConnectStringFileDSNdbhousedsnUIDsa;PWD=sa"Function系統(tǒng)模塊***********************************************************************義************************************************************************xplicitPublicgUserNameAsStringPublicgUserKindAsStringublicgLoginSucceededAsBoolean***********************************************************************'說(shuō)明：系統(tǒng)啟動(dòng)函數(shù)'參數(shù)：無(wú)***********************************************************************DimfLoginAsNewfrmLoginhowvbModalfNotgLoginSucceededThenMsgBox啟動(dòng)失敗,請(qǐng)重試!",vbOKOnly+vbExclamation,"警告"EndIfUnloadfLoginEndSub序?qū)崿F(xiàn)關(guān)鍵代碼理**********************************************************************************************************************************************xplicitrivatetxtSqlAsStringPrivateresultAsIntegerublicContractFlagAsStringublicstrHouseIdAsStringublicstrHouseNameAsStringublicstrSignDateAsStringublicstrSaleMoneyAsStringublicstrTaxDesAsStringublicstrTaxAsStringublicstrMediMoneyAsStringublicstrPreMoneyAsStringublicstrAreaAsStringublicstrBelongAsStringublicstrYContactAsStringublicstrYTelAsStringublicstrYIDCardAsStringublicstrJContactAsStringublicstrJTelAsStringublicstrJIDCardAsStringublicstrYTimeLimitAsStringSQLdatagrid記錄數(shù)建'筑面積期限PublicstrJTimeLimitAsString'甲方交房最后期限PublicstrPresentAsString'甲方贈(zèng)物記錄PublicstrJdelegateAsString'甲方代表PublicstrYdelegateAsString'乙方代表PublicstrBManNameAsString'丙方PrivatestrAsStringPrivaterstContractAsADODBRecordsetrivateresultsAsStringPrivateSubcmdAddClick)ontractFlagaddactAddShowEndSubPrivateSubcmdClearClick)arClearnthClearteClearomboYearcboYearomboMonthcboMonthomboDatecboDateEndSubPrivateSubcmdDelClick)imbIsEditableAsBooleanIfLenTrimstrHouseId=0Then'檢驗(yàn)刪除記錄是否選定bIsEditable=IsEditable'判斷是否能夠?qū)贤M(jìn)行刪除IfbIsEditableFalseThenMsgBox交易已經(jīng)完成,不能進(jìn)行更新",vbOKOnly+vbExclamation,"警告"SubEndIfstrMsgBox記錄？",vbOKCancel,"刪除當(dāng)前記錄")IfstrvbOKThentxtSql="deletefromtbContractpwhereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstContract,True)txtSql"updatetbHousesetState='待售'whereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstContract,True)EndIfEndIfwDataContractEndSubPrivateSubcmdExitClick)UnloadMeEndSubPrivateSubcmdModifyClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox擊單元格選擇修改記錄",vbOKOnly+vbExclamation,"警告"同進(jìn)行修改IfbIsEditableFalseThenMsgBox交易已經(jīng)完成,不能進(jìn)行更新",vbOKOnly+vbExclamation,"警告"SubEndIftractFlagModifyactAddShowEndIfEndSubPrivateSubcmdQueryClick)txtSql"selectHouseIdas房源編號(hào),HouseNameas房源名稱,SignDateas簽訂日期,"txtSqltxtSql+"SaleMoneyas甲方實(shí)際售價(jià),TaxDesas稅率說(shuō)明,Taxas稅金總計(jì),"txtSql=txtSql+"MediMoneyas中介費(fèi),PreMoneyas定金,Areaas建筑面積,Belongas權(quán)屬,"txtSql=txtSql+"YContactas乙方聯(lián)系方式,YTelas乙方聯(lián)系電話,YIDCardas乙方身份證JContactas甲方聯(lián)系方式,"txtSql=txtSql+"JTelas甲方聯(lián)系電話,JIDCardas甲方身份證號(hào),YTimeLimitas乙方房款交限,JTimeLimitas甲方交房最后期限,"asJdelegateasYdelegateasBManNameas丙方"txtSql=txtSql+"fromtbContractp"IfcboYearText""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,1,4)='"+cboYear.Text+"'"IfcboMonthText""ThentxtSqltxtSql+"andSUBSTRING(SignDate,6,2)='"+cboMonth.Text+"'"EndIfIfcboDateText>""ThentxtSql=txtSql+"andSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfIfcboMonthText""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,6,2)='"+cboMonth.Text+"'"IfcboDateText>""ThentxtSql=txtSql+"andSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfIfcboDateText>""ThentxtSqltxtSql+"whereSUBSTRING(SignDate,9,2)='"+cboDate.Text+"'"EndIfEndIfEndIftxtSqltxtSql+"orderbyHouseId"ractDataSourceNothingresultviewData(txtSql,dgContract)EndSubPrivateSubcmdReportClick)rptHouse.ShowEndSubPrivateSubdgContractDblClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox擊單元格選擇修改記錄",vbOKOnly+vbExclamation,"警告"同進(jìn)行修改IfbIsEditableFalseThenMsgBox交易已經(jīng)完成,不能進(jìn)行更新",vbOKOnly+vbExclamation,"警告"SubEndIftractFlagModifyactAddShowEndIfEndSubPrivateSubdgContractRowColChange(LastRowAsVariant,ByValLastColAsInteger)datagrid的值賦給相應(yīng)定義的字符串IfresultThenHouseIddgContractColumnsTextrHouseNamedgContractColumnsTextrSignDatedgContractColumnsTextrSaleMoneydgContractColumnsTextrTaxDesdgContractColumnsTextrTaxdgContractColumnsTextrMediMoneydgContractColumnsTextPreMoneydgContractColumnsTextrAreadgContractColumnsTextrBelongdgContractColumnsTextrYContactdgContractColumnsTexttrYTeldgContractColumnsTextrYIDCarddgContractColumnsTextrJContactdgContractColumnsTexttrJTeldgContractColumnsTextrJIDCarddgContractColumnsTexttrYTimeLimitdgContractColumnsTexttrJTimeLimitdgContractColumnsTexttrPresentdgContractColumnsTextrJdelegatedgContractColumnsTextrYdelegatedgContractColumnsTexttrBManNamedgContractColumnsTextEndIfEndSubPrivateSubFormLoad)arClearnthClearteClearomboYearcboYearomboMonthcboMonthomboDatecboDatewDataContractviewEndSub***********************************************************************'說(shuō)明：設(shè)置權(quán)限'參數(shù)：無(wú)***********************************************************************PrivateSubpurviewUserKindseMecmdAddEnabled=FalseMecmdDelEnabled=FalseMecmdModifyEnabled=FalseelectEndSub***********************************************************************'說(shuō)明：將數(shù)據(jù)在datagrid中顯示'參數(shù)：無(wú)***********************************************************************PublicSubviewDataContracttxtSql"selectHouseIdas房源編號(hào),HouseNameas房源名稱,SignDateas簽訂日期,"txtSql=txtSql+"SaleMoneyas[甲方實(shí)際售價(jià)(萬(wàn)元)],TaxDesas稅率說(shuō)明,Taxas[稅金總txtSql=txtSql+"MediMoneyas[中介費(fèi)(萬(wàn)元)],PreMoneyas[定金(萬(wàn)元)],Areaas建筑面elongastxtSql=txtSql+"YContactas乙方聯(lián)系方式,YTelas乙方聯(lián)系電話,YIDCardas乙方身份JContactas方式,"txtSql=txtSql+"JTelas甲方聯(lián)系電話,JIDCardas甲方身份證號(hào),YTimeLimitas乙方房后期限,JTimeLimitas甲方交房最后期限,"txtSql=txtSql+"Presentas甲方贈(zèng)物記錄,Jdelegateas甲方代表,Ydelegateas乙方代表,BManNameas[丙方(合同責(zé)任人)]"txtSqltxtSql+"fromtbContractporderbyHouseId"resultviewData(txtSql,dgContract)IfresultThenractDataSourceNothingEndIfub***********************************************************************'說(shuō)明：判斷房源交易是否完成'參數(shù)：無(wú)ruefalse***********************************************************************PrivateFunctionIsEditableAsBooleansEditableTruetxtSql="selectHouseIdfromtbHousewhereHouseId='"+strHouseId+"'"IfDBExisttxtSql=0ThenEditableFalsesEditableTrueEndIfFunctionPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub************************************************************************義************************************************************************xplicitPrivatetxtSqlAsStringSQLPrivateresultAsIntegerdatagrid記錄數(shù)PrivatestrItemAsString樓盤編碼rivatestrRegAsString'與區(qū)域名稱對(duì)應(yīng)的區(qū)域編碼PrivatestrStruAsString戶型編碼PublicstrHouseIdAsString'房源編號(hào)PublicstrHouseNameAsString'房源名稱PublicstrRegNameAsString'區(qū)域名稱PublicstrItemNameAsString'樓盤名稱PublicstrItemYearAsString建'筑年代PublicstrItemCopAsString建'筑單位PublicstrStruNameAsString'戶型名稱PublicstrAreaAsString'面積PublicstrFloorAsString'樓層PublicstrAllFloorAsString'總樓層PublicstrUnitAsString'單元PublicstrCarAreaAsString'車庫(kù)面積PublicstrSchoolAsString'學(xué)校PublicstrBusAsString'公交線路PublicstrStreetAsString'臨近街道PublicstrChamberAsString'小區(qū)會(huì)所PublicstrDoorNumberAsString'梯戶ublicstrSquerAsStringublicstrEstAsStringublicstrFitmentAsStringublicstrServiceFeeAsStringublicstrBelongAsStringublicstrPriceAsStringPublicHouseFlagAsStringPrivateSubcmdAddClick)HouseFlag"add"ouseAddShowEndSubPrivateSubcmdClearClick)temCleargCleartemYearClearruClearomboYearcboItemYearetCboDataItemcboItemetCboDataRegcboRegetCboDataStrucboStruEndSubPrivateSubcmdDelClick)DimstrAsStringDimrstHouseAsADODBRecordsetDimresultsAsStringimbIsEditableAsBooleanbIsEditable=IsEditableIfLenTrimstrHouseId)=0ThenSubEndIftxtSql"selectHouseIdfromtbContractpwhereHouseId='"+strHouseId+"'"IfDBExisttxtSql<>0ThenSubEndIf除該責(zé)任區(qū)域房源信息IfbIsEditableFalseAndgUserKind="經(jīng)紀(jì)人"ThenMsgBox能更新責(zé)任區(qū)域以外的數(shù)據(jù)",vbOKOnly+vbExclamation,"警告"SubEndIfstrMsgBox記錄？",vbOKCancel,"刪除當(dāng)前記錄")IfstrvbOKThentxtSql="deletefromtbHousewhereHouseId='"+strHouseId+"'"results=ExecuteSQL(txtSql,rstHouse,True)EndIfwDataHouseEndSubPrivateSubcmdExitClick)UnloadMeEndSubPrivateSubcmdModifyClick)imbIsEditableAsBooleanbIsEditable=IsEditableIfTrimstrHouseId=""ThenMsgBox擊單元格選擇修改記錄",vbOKOnly+vbExclamation,"警告"改該責(zé)任區(qū)域房源信息IfbIsEditableFalseAndgUserKind="經(jīng)紀(jì)人"ThenMsgBox能更新責(zé)任區(qū)域以外的數(shù)據(jù)",vbOKOnly+vbExclamation,"警告"SubEndIfHouseFlag"Modify"ouseAddShowEndIfEndSubPrivateSubcmdQueryClick)txtSql"selectHouseIdas房源編號(hào),HouseNameas房源名稱,RegNameas所屬區(qū)域名稱,"txtSql=txtSql+"ItemNameas樓盤名稱,ItemYearas建筑年代,ItemCopas建筑單位,"txtSqltxtSql+"StruNameas戶型名稱,Areaas面積,Flooras樓層,AllFlooras總樓層,"txtSqltxtSql+"Unitas單元,CarAreaas車庫(kù)面積,Schoolas學(xué)校,Busas公交線路,"txtSql=txtSql+"Streetas臨近街道,Chamberas小區(qū)會(huì)所,DoorNumberas梯戶,SquerastxtSqltxtSql+"Estas基礎(chǔ)設(shè)施,Fitmentas裝修狀況,ServiceFeeas物業(yè)管理費(fèi),BelongasPriceas元)],Stateas銷售狀態(tài)"txtSql=txtSql+"from((tbHouseleftouterjointbRegionontbHouse.RegId=tbRegion.RegId)"txtSqltxtSql+"leftouterjointbItemontbHouse.ItemId=tbItem.ItemId)"txtSql=txtSql+"leftouterjointbStruontbHouse.StruId=tbStru.StruIdwheretbHouseHouseIdtbHouseHouseId"IfcboItemYearText>""ThentxtSql=txtSql+"andItemYear='"