房地產(chǎn)信息管理系統(tǒng)

1、 2014 級(jí)高級(jí)語(yǔ)言程序設(shè)計(jì) 石家莊鐵道大學(xué)四方學(xué)院集中實(shí)踐報(bào)告書(shū)課題名稱房地產(chǎn)信息系統(tǒng)姓名學(xué)號(hào)系、部土木工程專業(yè)專業(yè)班級(jí)指導(dǎo)教師劉仁芬2015年 06 月 25日一、設(shè)計(jì)任務(wù)及要求：設(shè)計(jì)任務(wù)：房地產(chǎn)信息系統(tǒng)的開(kāi)發(fā)要求：房地產(chǎn)信息管理系統(tǒng)使用的主要成員包括管理員、注冊(cè)用戶和瀏覽者。1系統(tǒng)管理員：系統(tǒng)管理員具有房源管理、管理員管理、用戶信息管理、留言信息管理等重要功能；2數(shù)據(jù)庫(kù)模塊：建立管理員信息表、樓盤(pán)表、樓房基本信息表、房型基本信息表等，實(shí)現(xiàn)數(shù)據(jù)庫(kù)與前臺(tái)的鏈接，并設(shè)置相關(guān)權(quán)限，完善整個(gè)系統(tǒng)功能。主要功能有：1個(gè)人或中介主要實(shí)現(xiàn)當(dāng)注冊(cè)成功后，登錄到系統(tǒng)發(fā)布房源信息，查看用戶發(fā)布的求房信息和房

2、源信息，并更新個(gè)人信息。2房產(chǎn)商主要實(shí)現(xiàn)當(dāng)?shù)卿浐螅l(fā)布房產(chǎn)資訊，樓盤(pán)信息和新房信息并可以安全退出。二、指導(dǎo)教師評(píng)語(yǔ)：三、成績(jī)指導(dǎo)教師簽名：年月日房地產(chǎn)信息管理系統(tǒng)1. 選題的意義隨著信息技術(shù)的發(fā)展，房產(chǎn)公司對(duì)房產(chǎn)管理的要求越來(lái)越高，很多房產(chǎn)公司已明顯覺(jué)得不能適應(yīng)當(dāng)前的發(fā)展和需要，意識(shí)到使用計(jì)算機(jī)管理的重要性。目前各種信息化管理工作也迫切需要從繁雜的事務(wù)中解放出來(lái)，提高工作效率。因此信息化管理變得越來(lái)越重要，而真正實(shí)用的房產(chǎn)信息管理系統(tǒng)必須有完善的權(quán)限管理機(jī)制，這種機(jī)制通常是通過(guò)用戶管理來(lái)實(shí)現(xiàn)的，并進(jìn)行相關(guān)的信息查詢和處理。隨著我國(guó)城鎮(zhèn)住房制度改革的深化、 住房建設(shè)步伐加快和住房消費(fèi)有效啟動(dòng) ,

3、 我國(guó)房地產(chǎn)行業(yè)得到了飛速發(fā)展 , 在國(guó)民經(jīng)濟(jì)建設(shè)中發(fā)揮著巨大的帶動(dòng)作用 , 并已成為我國(guó)的重要支柱行業(yè)。雖然計(jì)算機(jī)管理并不是房地產(chǎn)業(yè)銷(xiāo)售走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對(duì)房地產(chǎn)業(yè)的信息業(yè)務(wù)的管理提供強(qiáng)有力的支持。面對(duì)信息時(shí)代的機(jī)遇和挑戰(zhàn)，利用科技手段提高房地產(chǎn)公司的信息管理無(wú)疑是一條行之有效的途徑。對(duì)房地產(chǎn)整個(gè)公司來(lái)說(shuō)，對(duì)房地產(chǎn)公司銷(xiāo)售狀況起決定作用的是房地產(chǎn)公司的信息管理水平。如何利用先進(jìn)的管理手段來(lái)提高房地產(chǎn)公司的信息管理水平成為房地產(chǎn)銷(xiāo)售業(yè)務(wù)發(fā)展的當(dāng)務(wù)之急。 面對(duì)信息時(shí)代的機(jī)遇和挑戰(zhàn)， 利用科技手段提高房地產(chǎn)公司的信息管理無(wú)疑是一條行之有效的途徑。 雖

4、然計(jì)算機(jī)管理并不是房地產(chǎn)業(yè)銷(xiāo)售走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對(duì)房地產(chǎn)業(yè)的信息業(yè)務(wù)的管理提供強(qiáng)有力的支持。 因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和房地產(chǎn)信息管理系統(tǒng)，已成為提高房地產(chǎn)信息管理效率， 使作業(yè)人員與管理系統(tǒng)之間靈活互動(dòng)， 實(shí)現(xiàn)流暢的工作流銜接， 幫助房地產(chǎn)公司有效地進(jìn)行業(yè)務(wù)管理， 釋放最大價(jià)值。 房地產(chǎn)信息管理系統(tǒng)在達(dá)到在節(jié)省人力資源成本的同時(shí)，可以提高業(yè)務(wù)效率，并能夠及時(shí)、準(zhǔn)確、迅速地滿足顧客服務(wù)的需求。需求分析是從客戶的需求中提取出軟件系統(tǒng)能夠幫助用戶解決的業(yè)務(wù)問(wèn)題， 通過(guò)對(duì)用戶業(yè)務(wù)問(wèn)題的分析， 規(guī)劃出系統(tǒng)的功能模塊， 即定義用例。 這個(gè)步驟是對(duì)理解需求

5、的升華，直接關(guān)系到該系統(tǒng)的質(zhì)量。 需求分析是從客戶的需求中提取出軟件系統(tǒng)能夠幫助用戶解決的業(yè)務(wù)問(wèn)題，通過(guò)對(duì)用戶業(yè)務(wù)問(wèn)題的分析，規(guī)劃出系統(tǒng)的功能模塊，即定義用例。這個(gè)步驟是對(duì)理解需求的升華，直接關(guān)系到該系統(tǒng)的質(zhì)量。2. 系統(tǒng)功能需求分析2.1 系統(tǒng)概述該系統(tǒng)是以房地產(chǎn)信息管理為基礎(chǔ)開(kāi)發(fā)的通用房地產(chǎn)信息管理系統(tǒng)，適合中、小房地產(chǎn)企業(yè)的使用。該系統(tǒng)應(yīng)有較高的可靠性，房地產(chǎn)信息管理系統(tǒng)包括房源管理，留言信息管理， 管理員管理，退出等多種功能。 我們所設(shè)計(jì)的房地產(chǎn)信息管理系統(tǒng)具有以上功能， 可以方便快捷準(zhǔn)確的獲取以上信息，為用戶以及瀏覽者提供方便，形成美觀大方的主題操作界面，可以使房地產(chǎn)信息系統(tǒng)更高效的

6、為客人服務(wù)。房源管理：其中樓盤(pán)表，房型基本信息表，樓房基本信息表包含大量的樓房信息。留言信息管理 : 其中可發(fā)布各種求房等信息。管理員管理：其中包括權(quán)限管理，用戶信息管理，管理系統(tǒng)。退出：可安全退出本程序。2.2 系統(tǒng)的組成及各模塊的功能房地產(chǎn)信息管理系統(tǒng)的組成主要包括以下幾點(diǎn)功能:1. 系統(tǒng)登錄模塊：用戶名、密碼2. 房源管理模塊：樓盤(pán)表、樓房基本信息表、房型基本信息表3. 購(gòu)房與登記模塊：用戶購(gòu)房、購(gòu)房登記4. 留言信息管理模塊：留言者、時(shí)間、留言內(nèi)容5. 退出模塊：安全退出6. 注冊(cè)模塊：用戶名、密碼2.3 系統(tǒng)的運(yùn)行環(huán)境1. 系統(tǒng)使用環(huán)境操作系統(tǒng) : Windows 2000/XP系統(tǒng)

7、支持： Visual basic 6.0 及以上版本支持庫(kù)數(shù)據(jù)庫(kù)： Access。硬件環(huán)境：處理器 ; Intel Pentium 166MX 或者更高。硬盤(pán)：剩余使用空間1GB 以上。顯卡： SVGA 顯示適配器。內(nèi)存： 32MB 以上。操作系統(tǒng)： Windows 2000/XP。2. 系統(tǒng)開(kāi)發(fā)環(huán)境系統(tǒng)支持： Visual Basic 6.03、系統(tǒng)設(shè)計(jì)3.1 總體結(jié)構(gòu)設(shè)計(jì)系統(tǒng)登錄系統(tǒng)注冊(cè)房地產(chǎn)信息管理系統(tǒng)房購(gòu)管留源房理言退管預(yù)員信理登管息出記理管理房樓用樓型房戶基基留盤(pán)本本言信信信表息息息表表表圖 1 總體模塊圖32 數(shù)據(jù)庫(kù)實(shí)現(xiàn)表 1 房型基本信息表字段名稱數(shù)據(jù)類(lèi)型字段大小所屬樓盤(pán)文本25

8、5棟號(hào)文本255單元號(hào)文本255房號(hào)文本255戶型文本255朝向文本255面積文本255狀態(tài)文本255用戶名文本255聯(lián)系方式文本255戶型圖文本255表2樓盤(pán)表字段名稱數(shù)據(jù)類(lèi)型字段大小所屬樓盤(pán)文本255物業(yè)類(lèi)型文本255建筑類(lèi)別文本255環(huán)線位置文本255開(kāi)發(fā)商文本255售樓位置文本255物業(yè)地址文本255交通狀況文本255平均房?jī)r(jià)文本255表 3 樓房基本信息字段名稱數(shù)據(jù)類(lèi)型字段大小所屬樓盤(pán)文本255棟號(hào)文本255單元總數(shù)文本255總層數(shù)文本255戶型文本255占地面積文本2554、系統(tǒng)實(shí)現(xiàn)4.1 主窗體的設(shè)計(jì)與實(shí)現(xiàn)圖 2 主窗體界面Private Sub adduser_Click()樓

9、盤(pán)表 .ShowEnd SubPrivate Sub exit_Click()留言信息管理.ShowEnd SubPrivate Sub liulan_Click()用戶信息管理.ShowEnd SubPrivate Sub gf_Click()購(gòu)房與登記 .ShowEnd SubPrivate Sub MDIForm_Load()If 登錄 .s 管理員 Then 管理員管理 .Enabled = FalseIf 登錄 .s 房地產(chǎn)商1 Then 房源管理 .Enabled = FalseEnd SubPrivate Sub tiantushu_Click()住戶信息管理.ShowEnd S

10、ubPrivate Sub fx_Click()房型基本信息.ShowEnd SubPrivate Sub 管理員信息表_Click()管理員管理 .ShowEnd SubPrivate Sub 樓房基本信息表_Click()樓房基本信息.ShowEnd SubPrivate Sub 退出 _Click()Unload MeEnd Sub4.2 房型基本信息的設(shè)計(jì)與實(shí)現(xiàn)圖 3 房型基本信息界面Private Sub Command3_Click()n = val （ text11.text ）For i = 1 To nAdodc1.Recordset.AddNewAdodc1.Records

11、et.Fields(2) = Text1.TextAdodc1.Recordset.Fields(3) = Text2.TextAdodc1.Recordset.Fields(5) = Text7.TextAdodc1.Recordset.Fields(6) = Text6.TextAdodc1.Recordset.Fields(7) = Text5.TextAdodc1.Recordset.Fields(8) = Text4.TextAdodc1.Recordset.Fields(1) = Text8.TextAdodc1.Recordset.Fields(11) = Text10.Text

12、Adodc1.Recordset.Fields( 房號(hào) ) = i & Text2.TextAdodc1.Recordset.UpdateNext iEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command4_Click()Unload meEnd SubPrivate Sub Command5_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from房型基本信息表where 所屬樓盤(pán) = + T

13、ext9 + Adodc1.RefreshEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=database11.accdb;Persist Security Info=False End SubPrivate Sub Command6_Click()CommonDialog1.ShowOpenDim s$, s1$, s2$,

14、 i%s = s2 = CommonDialog1.FileNameFor i = LenB(s2) To 1 Step -1s1 = Mid(s2, i, 1)If s1 Thens = s1 + sElseExit ForEnd IfNextImage1.Picture = LoadPicture(App.Path + image + s)Text10 = sEnd SubPrivate Sub Form_Load1()Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=Fals

15、e;Data Source= + App.Path + database11.accdbAdodc1.RecordSource = select戶型圖as 戶型圖from 房型基本信息表Adodc1.RefreshEnd SubPrivate Sub Text10_Change()If Text10 ThenImage1.Picture = LoadPicture(App.Path + image + Text10)ElseImage1.Picture = LoadPicture()End IfEnd Sub4.3 樓盤(pán)表的設(shè)計(jì)與實(shí)現(xiàn)圖 4 樓盤(pán)表界面Private Sub Command2_

16、Click()Adodc1.Recordset.MoveNextEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.MovePreviousEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from樓盤(pán)表where 樓盤(pán)名稱 = + Text10 + Adodc1.RefreshEnd SubPrivate Sub

17、Command5_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.DeleteEnd Sub4.4 樓房基本信息的設(shè)計(jì)與實(shí)現(xiàn)圖 5 樓房基本信息界面Private Sub Command1_Click()Adodc1.Recordset.MoveNextEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MoveP

18、reviousEnd SubPrivate Sub Command3_Click()房型基本信息.ShowEnd SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from樓房基本信息表where所屬樓盤(pán)= + Text3 + Adodc1.RecordSource = select * from樓房基本信息表where棟號(hào)= + Text3 + Adodc1.RefreshEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.DeleteEnd Sub5、設(shè)計(jì)體會(huì)5.1 總結(jié)感謝一直對(duì)我課程設(shè)計(jì)提供幫助的劉仁芬老師，沒(méi)有您的悉心指導(dǎo)、 和孜孜不倦的教誨，我不可能完成符合要求的合格的課程設(shè)計(jì)。與此同時(shí)