【導(dǎo)讀】總的說(shuō)來(lái)，房地產(chǎn)銷(xiāo)售系統(tǒng)就是通過(guò)集中房地產(chǎn)銷(xiāo)售信息，對(duì)房產(chǎn)公司的管理進(jìn)行調(diào)。實(shí)現(xiàn)房地產(chǎn)銷(xiāo)售系統(tǒng)現(xiàn)代化的根本途徑是信息化、系統(tǒng)化。開(kāi)發(fā)工具,有各種各種面向?qū)ο蟮目丶?。我們將在VB中使用ADO控件連接ACCESS數(shù)。據(jù)庫(kù)，將存在數(shù)據(jù)庫(kù)的信息通過(guò)界面顯示出來(lái)，并進(jìn)行修改，查詢(xún)等操作。

　　

【正文】 率 。 1 ．本次的課題設(shè)計(jì)首先分析了管理系統(tǒng)目前在國(guó)內(nèi)外的發(fā)展?fàn)顩r及需求分析。 2 ．從解決開(kāi)發(fā)系統(tǒng)的基本問(wèn)題入手，討論了研究和開(kāi)發(fā)本系統(tǒng)的 可行性，并對(duì)開(kāi)發(fā)工具及其語(yǔ)言進(jìn)行選擇。 3 ．在解決了開(kāi)發(fā)系統(tǒng)的基本問(wèn)題之后，進(jìn)行系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)，并做出系統(tǒng)總體規(guī)劃，完成系統(tǒng)的具體實(shí)現(xiàn)。 總的來(lái)說(shuō)，在這次的畢業(yè)設(shè)計(jì)種遇到了不少的問(wèn)題，大部分得到了很好的解決，但也有少部分遺留的問(wèn)題。 首先便是調(diào)研的不充分。由于以前根本未曾接觸過(guò)軟件的整體開(kāi)發(fā)設(shè)計(jì)，所以在前期的調(diào)研中相當(dāng)不充分，開(kāi)題開(kāi)題也有些盲目，以為把屬性和表寫(xiě)得越多越好，這個(gè)問(wèn)題越到后來(lái)越嚴(yán)種，而且因?yàn)榭陀^(guān)的原因耽誤了進(jìn)度，因而對(duì)開(kāi)題的開(kāi)題做了修改 。 其次是軟件的編程問(wèn)題，由于以前對(duì) VB 只是了解并不能 夠靈活運(yùn)用，所以在畢設(shè)期間進(jìn)行了苦讀，終于可以基本掌握了常用控件的用法和語(yǔ)句編程。 再次就是數(shù)據(jù)庫(kù)的建設(shè)和使用，雖然 ACCESS 數(shù)據(jù)庫(kù)的安全性和普及性很高，但我們?cè)谌粘Ｖ羞€是接觸得比較少，所以這自然又是一番努力的學(xué)習(xí)，就拿安裝配置以及連接數(shù)據(jù)庫(kù)控件方面來(lái)說(shuō)就不那么容易。 然后，會(huì)用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過(guò)各方面的比較，我選擇了 ADO，通過(guò) ADO控件與數(shù)據(jù)庫(kù)中各表進(jìn)行連接，同時(shí)也用到少數(shù)編程實(shí)現(xiàn) VB和 ACCESS數(shù)據(jù)庫(kù)的連接。一開(kāi)始連接時(shí)并不順利，常出現(xiàn) 無(wú)法找到數(shù)據(jù)庫(kù)和路徑不對(duì)的問(wèn)題。 隨后便是整體設(shè)計(jì)的問(wèn)題，只是軟件工程的重要部分，一個(gè)好的軟件的開(kāi)發(fā)必須要全面而實(shí)用，盡量把所有的問(wèn)題都考慮進(jìn)去，記得當(dāng)時(shí)我們的軟件工程老師就說(shuō)過(guò)，一個(gè)制作好的軟件和差一些的軟件最大的區(qū)別就在于好的軟件把所有的可能性，所有易出錯(cuò)的地方和Bug都考慮到了，自然實(shí)用性也就上去了。在這一點(diǎn)上，我還相當(dāng)欠缺。 最后就是從一而終的問(wèn)題了，在開(kāi)發(fā)過(guò)程中我遇到了許許多多的問(wèn)題，很多地方都不明白，經(jīng)常有打退堂鼓的想法，我經(jīng)常的請(qǐng)教同學(xué)和老師，最后的成果雖然不很完美，但我盡力了，并有所收獲。 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） 致 謝 在本次畢業(yè)設(shè)計(jì)中，我首先要感謝的是我的指導(dǎo)老師，在他身上我學(xué)到了很多東西。他嚴(yán)謹(jǐn)、認(rèn)真、負(fù)責(zé)的工作態(tài)度給我留下了深刻的印象。在這幾個(gè)月的工作和學(xué)習(xí)生活中，我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，即使在百忙中，抽出了很多時(shí)間對(duì)我的論文進(jìn)行的批改和修正。使得我的論文不斷完完美，對(duì)數(shù)據(jù)庫(kù)和 VB 程序有了更深的學(xué)習(xí)。在我不能夠去學(xué)校讓老師當(dāng)面指導(dǎo)的情況下，還是在通過(guò)電話(huà)和 Email 進(jìn)行交流和傳遞信息。這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝他耐心 的輔導(dǎo)！ 其次我要感謝的是以前的同班同學(xué)，在一開(kāi)始的調(diào)研和結(jié)構(gòu)化設(shè)計(jì)中他給予了我很大的幫助，雖然后來(lái)由于種種原因沒(méi)能夠繼續(xù)指導(dǎo)我，但我還是要感謝他。 給予我很大的幫助，不僅幫我解答了不少的難點(diǎn)，還給我提出了許多建議，我會(huì)以他們?yōu)榘駱?，更好地努力。將這種精神帶到以后的工作和學(xué)習(xí)，使得自己的工作更上一層樓。 幾個(gè)月的時(shí)間瞬間即過(guò)，值此論文完成之際，我再一次要衷心地感謝我的導(dǎo)師老師。本文的研究一直是在他的關(guān)心和幫助下完成的，給了我莫大的幫助。同時(shí)感謝同組成員 ,我們?cè)谝黄鸹ハ嘤懻?,學(xué)習(xí) ,解決了不少的難題。再則 ,感 謝我的室友 ,由于整個(gè)設(shè)計(jì)都是在寢室的電腦前完成的 ,有時(shí)會(huì)影響你們休息 ,你們卻能夠理解 ,毫無(wú)怨言。 最后，我衷心地感謝所有關(guān)心和幫助過(guò)我的人們。 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） 參考文獻(xiàn) , 《 Database system implementation》 ,機(jī)械工業(yè)出版社 , 2021 GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2021 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社 ,2021 ,《數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2021 , 王虹 等 《 Visual basic 中文版高級(jí)應(yīng)用與開(kāi)發(fā)指南》 , 人民郵電出版社 , 2021 主編 等 《 VB 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例》清華大學(xué)出版社 , 2021 ，《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)及工程實(shí)例》，人民郵電出版社 ，《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2021 ，汪遠(yuǎn)征，《 Visual Basic 程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2021 ，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2021 ，王珊，《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2021 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） 附錄：源代碼 MsgBox 操作已成功 !, , 提示 End Sub Private Sub Form_Load() 39。39。初始化代碼 On Error GoTo Err = (1).Text = 用戶(hù)管理 Dim rs1 As New select * from 用戶(hù)信息表 , CN, adOpenStatic, adLockOptimistic While Not If Not IsNull((0)) Then Trim((0)) Wend Err: End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Command4_Click() 39。39。39。密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對(duì) !, , 提示 Exit Sub Else Dim rs1 As New If Then select * from 用戶(hù)信息表 where 用戶(hù)名稱(chēng) =39。 amp。 UserName amp。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 用戶(hù)舊密碼不對(duì) !, , 提示 Exit Sub 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） Else (1).Value = Trim() MsgBox 操作已成功 !, , 提示 = = = Unload Me End If End If End If End If End If Exit Sub Err: MsgBox End Sub Private Sub Form_Load() = = = End Sub Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() (1).Text = 系統(tǒng)關(guān)于 End Sub Private Sub Command1_Click() 39。39。備份數(shù)據(jù)庫(kù) On Error GoTo Err SaveSetting , Settings, DatabasePath, Trim() + \database\, Trim() amp。 \ amp。 DateChange(Date) amp。 .mdb, True MsgBox 數(shù)據(jù)庫(kù)備份成功 !, , 提示 Unload Me Exit Sub Err: MsgBox 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Dir1_Change() = End Sub Private Sub Dir1_Click() = End Sub Private Sub Drive1_Change() = = End Sub Private Sub Form_Load() On Error GoTo Err (1).Text = 數(shù)據(jù)庫(kù)備份 = GetSetting(, Settings, DatabasePath, C:) = Mid(Trim(), 1, 1) amp。 : = GetSetting(, Settings, DatabasePath, C:) = Trim() = GetSetting(, Settings, DatabasePath, C:) Err: End Sub Public miCount As Integer Private Sub cmdCancel_Click() 39。39。退出程序 End End Sub Private Sub cmdOK_Click() 39。39。進(jìn)入 ..確定 On Error GoTo Err Dim txtSql As String 正在輸入（網(wǎng) @laoshutou）為您傾心整理（下載后雙擊刪除） 如有需求請(qǐng)發(fā)站內(nèi)信（下載后雙擊刪除） UserName = If Trim() = Then 39。39。判斷用戶(hù)名是否為空 MsgBox 請(qǐng)輸入帳號(hào)！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。判斷密碼是否為空 MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。判斷是否有這個(gè)用戶(hù) txtSql = select * from 用戶(hù)信息表 where 用戶(hù)名稱(chēng) = 39。 amp。 amp。 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。39。如果沒(méi)有這個(gè)用戶(hù) MsgBox 沒(méi)有這個(gè)帳號(hào)，請(qǐng)重新輸入帳號(hào) !, vbOKOnly + vbExclamation, 警告 = = Else 39。39。如果有用戶(hù) If Trim((1)) = Trim() Then 39。39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。39。管 理員權(quán)限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶(hù) Then 39。39。普通用戶(hù)權(quán)限 IsUserMode = 2 Else 39。39。無(wú)權(quán) IsUserMode = 0