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

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

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

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

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

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

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

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

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

9、盤表 .ShowEnd SubPrivate Sub exit_Click()留言信息管理.ShowEnd SubPrivate Sub liulan_Click()用戶信息管理.ShowEnd SubPrivate Sub gf_Click()購房與登記 .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è)計與實現(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( 房號 ) = 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 所屬樓盤 = + 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 樓盤表的設(shè)計與實現(xiàn)圖 4 樓盤表界面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樓盤表where 樓盤名稱 = + 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è)計與實現(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所屬樓盤= + Text3 + Adodc1.RecordSource = select * from樓房基本信息表where棟號= + 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è)計體會5.1 總結(jié)感謝一直對我課程設(shè)計提供幫助的劉仁芬老師，沒有您的悉心指導(dǎo)、 和孜孜不倦的教誨，我不可能完成符合要求的合格的課程設(shè)計。與此同時