※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※2014級高級語言程序設計石家莊鐵道大學四方學院集中實踐報告書課題名稱房地產信息系統姓名學號系、部土木工程專業專業班級指導教師劉仁芬2015年06月25日一、設計任務及要求：設計任務：房地產信息系統的開發要求：房地產信息管理系統使用的主要成員包括管理員、注冊用戶和瀏覽者。1．系統管理員：系統管理員具有房源管理、管理員管理、用戶信息管理、留言信息管理等重要功能；2．數據庫模塊：建立管理員信息表、樓盤表、樓房基本信息表、房型基本信息表等，實現數據庫與前臺的鏈接，并設置相關權限，完善整個系統功能。主要功能有：1．個人或中介主要實現當注冊成功后，登錄到系統發布房源信息，查看用戶發布的求房信息和房源信息，并更新個人信息。2．房產商主要實現當登錄后，發布房產資訊，樓盤信息和新房信息并可以安全退出。二、指導教師評語：三、成績指導教師簽名：年月日表2樓盤表字段名稱數據類型字段大小所屬樓盤文本255物業類型文本255建筑類別文本255環線位置文本255開發商文本255售樓位置文本255物業地址文本255交通狀況文本255平均房價文本255表3樓房基本信息字段名稱數據類型字段大小所屬樓盤文本255棟號文本255單元總數文本255總層數文本255戶型文本255占地面積文本2554、系統實現4.1主窗體的設計與實現圖2主窗體界面PrivateSubadduser_Click()樓盤表.ShowEndSubPrivateSubexit_Click()留言信息管理.ShowEndSubPrivateSubliulan_Click()用戶信息管理.ShowEndSubPrivateSubgf_Click()購房與登記.ShowEndSubPrivateSubMDIForm_Load()If登錄.s<>"管理員"Then管理員管理.Enabled=FalseIf登錄.s<>"房地產商1"Then房源管理.Enabled=FalseEndSubPrivateSubtiantushu_Click()住戶信息管理.ShowEndSubPrivateSubfx_Click()房型基本信息.ShowEndSubPrivateSub管理員信息表_Click()管理員管理.ShowEndSubPrivateSub樓房基本信息表_Click()樓房基本信息.ShowEndSubPrivateSub退出_Click()UnloadMeEndSub4.2房型基本信息的設計與實現圖3房型基本信息界面PrivateSubCommand3_Click()n=val（text11.text）Fori=1TonAdodc1.Recordset.AddNewAdodc1.Recordset.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.TextAdodc1.Recordset.Fields("房號")=i&Text2.TextAdodc1.Recordset.UpdateNextiEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand4_Click()UnloadmeEndSubPrivateSubCommand5_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from房型基本信息表where所屬樓盤='"+Text9+"'"Adodc1.RefreshEndSubPrivateSubCommand1_Click()Adodc1.Recordset.UpdateEndSubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=database11.accdb;PersistSecurityInfo=False"EndSubPrivateSubCommand6_Click()CommonDialog1.ShowOpenDims$,s1$,s2$,i%s=""s2=CommonDialog1.FileNameFori=LenB(s2)To1Step-1s1=Mid(s2,i,1)Ifs1<>"\"Thens=s1+sElseExitForEndIfNextImage1.Picture=LoadPicture(App.Path+"\image\"+s)Text10=sEndSubPrivateSubForm_Load1()Adodc1.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;PersistSecurityInfo=False;DataSource="+App.Path+"\database11.accdb"Adodc1.RecordSource="select戶型圖as戶型圖from房型基本信息表"Adodc1.RefreshEndSubPrivateSubText10_Change()IfText10<>""ThenImage1.Picture=LoadPicture(App.Path+"\image\"+Text10)ElseImage1.Picture=LoadPicture()EndIfEndSub4.3樓盤表的設計與實現圖4樓盤表界面PrivateSubCommand2_Click()Adodc1.Recordset.MoveNextEndSubPrivateSubCommand1_Click()Adodc1.Recordset.MovePreviousEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from樓盤表where樓盤名稱='"+Text10+"'"Adodc1.RefreshEndSubPrivateSubCommand5_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand6_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand7_Click()Adodc1.Recordset.DeleteEndSub4.4樓房基本信息的設計與實現圖5樓房基本信息界面PrivateSubCommand1_Click()Adodc1.Recordset.MoveNextEndSubPrivateSubCommand2_Click()Adodc1.Recordset.MovePreviousEndSubPrivateSubCommand3_Click()房型基本信息.ShowEndSubPrivateSubCommand4_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from樓房基本信息表where所屬樓盤='"+Text3+"'"Adodc1.RecordSource="select*from樓房基本信息表where棟號='"+Text3+"'"Adodc1.RefreshEndSubPrivateSubCommand5_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand6_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand7_Click()Adodc1.Recordset.DeleteEndSub5、設計體會5.1總結感謝一直對我課程設計提供幫助的劉仁芬老師，沒有您的悉心指導、和孜孜不倦的教誨，我不可能完成符合要求的合格的課程設計。與此同時，我也要感謝對我課程設計提供幫助的同學們，是你們給予了我更多更廣泛的設計思路，才使得我的思維更加寬廣，這對于我的課程設計來說，是一種莫大的幫助，謝謝你們。同時，我也要再次感謝全體老師，是你們在辛勤地為我們做了許多我們不曾注重的一些細節問題，為我們無論是在設計上還是在報告中，您們的勞動都是我的畢業設計能夠完成不可缺少的因素。5.2存在的主要問題鑒于能力水平所限，我們存在的問題還不少，界面不夠精明，樣式死板，無法直觀的了解樓房樣式，以及樓房預約，可供查詢的內容比較少，望老師提出批評意見。參考文獻[1]鄭硯周青李華杰.《visualbasic8.0基礎教程》，北京：清華大學出版社，2004-5-1[2]徐健平，趙永.《Visualbasic基礎教程，機械工業出版社。出版日期：2000-5-1[3]張魯.《Visualbasic6.0編程技巧與實例分析》，水利