【正文】 39。order by 組編號 ,戶號 ,成員號 , CN, adOpenStatic, adLockOptimistic Else select * from amp。 HuKouID amp。 where 組編號 =39。Persist Security Info=False miCount = 0 Ok = False = GetSetting(, Settings, user_name, ) = Exit Sub Err: MsgBox , , 數(shù)據(jù)庫連接錯(cuò)誤 End End Sub Private Sub Form_Resize() = + 30 = + 30 End Sub Private Sub Label2_Click() End End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End If End Sub Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() On Error GoTo Err Dim rs2 As New If Then If strLook = 文化戶口信息 Then select * from amp。 amp。連數(shù)據(jù)庫代碼 If Then = Provider=。三次錯(cuò)誤 ,自動(dòng)退出程序 End End If Exit Sub Err: MsgBox 登錄出錯(cuò) ,請找管理員 !, vbExclamation Ok = False End End Sub Private Sub Form_Activate() End Sub Private Sub Form_Load() On Error GoTo Err 39。無權(quán) IsUserMode = 0 MsgBox 你沒有權(quán)限 !, vbExclamation, 警告 End End If UserPrivs = Trim((2)) UserName = Trim() Unload Me Exit Sub Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then 39。普通用戶權(quán)限 IsUserMode = 2 Else 39。管 理員權(quán)限 IsUserMode = 1 ElseIf Trim((2)) = 普通用戶 Then 39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。如果有用戶 If Trim((1)) = Trim() Then 39。如果沒有這個(gè)用戶 MsgBox 沒有這個(gè)帳號，請重新輸入帳號 !, vbOKOnly + vbExclamation, 警告 = = Else 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。 amp。判斷是否有這個(gè)用戶 txtSql = select * from 用戶信息表 where 用戶名稱 = 39。判斷密碼是否為空 MsgBox 請輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。39。39。 .mdb, True MsgBox 數(shù)據(jù)庫備份成功 !, , 提示 Unload Me Exit Sub Err: MsgBox 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ù)庫備份 = GetSetting(, Settings, DatabasePath, C:) = Mid(Trim(), 1, 1) amp。 \ amp。39。 39。 amp。39。初始化代碼 On Error GoTo Err = (1).Text = 用戶管理 Dim rs1 As New select * from 用戶信息表 , 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。 參考文獻(xiàn) , 《 Database system implementation》 ,機(jī)械工業(yè)出版社 , 2021 GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2021 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社 ,2021 ,《數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2021 , 王虹 等 《 Visual basic 中文版高級應(yīng)用與開發(fā)指南》 , 人民郵電出版社 , 2021 主編 等 《 VB 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社 , 2021 ，《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例》，人民郵電出版社 ，《 Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2021 ，汪遠(yuǎn)征，《 Visual Basic 程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2021 ，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2021 ，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2021 附錄：源代碼 MsgBox 操作已成功 !, , 提示 End Sub Private Sub Form_Load() 39。再則 ,感 謝我的室友 ,由于整個(gè)設(shè)計(jì)都是在寢室的電腦前完成的 ,有時(shí)會影響你們休息 ,你們卻能夠理解 ,毫無怨言。本文的研究一直是在他的關(guān)心和幫助下完成的，給了我莫大的幫助。將這種精神帶到以后的工作和學(xué)習(xí)，使得自己的工作更上一層樓。這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝他耐心 的輔導(dǎo)！ 其次我要感謝的是以前的同班同學(xué)，在一開始的調(diào)研和結(jié)構(gòu)化設(shè)計(jì)中他給予了我很大的幫助，雖然后來由于種種原因沒能夠繼續(xù)指導(dǎo)我，但我還是要感謝他。使得我的論文不斷完完美，對數(shù)據(jù)庫和 VB 程序有了更深的學(xué)習(xí)。在這幾個(gè)月的工作和學(xué)習(xí)生活中，我收益匪淺。 致 謝 在本次畢業(yè)設(shè)計(jì)中，我首先要感謝的是我的指導(dǎo)老師，在他身上我學(xué)到了很多東西。在這一點(diǎn)上，我還相當(dāng)欠缺。一開始連接時(shí)并不順利，常出現(xiàn) 無法找到數(shù)據(jù)庫和路徑不對的問題。 再次就是數(shù)據(jù)庫的建設(shè)和使用，雖然 ACCESS 數(shù)據(jù)庫的安全性和普及性很高，但我們在日常中還是接觸得比較少，所以這自然又是一番努力的學(xué)習(xí)，就拿安裝配置以及連接數(shù)據(jù)庫控件方面來說就不那么容易。由于以前根本未曾接觸過軟件的整體開發(fā)設(shè)計(jì)，所以在前期的調(diào)研中相當(dāng)不充分，開題開題也有些盲目，以為把屬性和表寫得越多越好，這個(gè)問題越到后來越嚴(yán)種，而且因?yàn)榭陀^的原因耽誤了進(jìn)度，因而對開題的開題做了修改 。 總的來說，在這次的畢業(yè)設(shè)計(jì)種遇到了不少的問題，大部分得到了很好的解決，但也有少部分遺留的問題。 2 ．從解決開發(fā)系統(tǒng)的基本問題入手，討論了研究和開發(fā)本系統(tǒng)的 可行性，并對開發(fā)工具及其語言進(jìn)行選擇。企業(yè)的 MIS開發(fā)必須結(jié)合實(shí)際，嚴(yán)格按照軟件工程的思想進(jìn)行才能保證 MIS的高成功率和高效率 。提高科學(xué)管理水平首先要提高科學(xué)管理的意識，進(jìn)行 MIS的開發(fā)首先要具有科學(xué)的開發(fā)方法。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。 開發(fā)總結(jié) 通過此管理信息系統(tǒng)的開發(fā)，做到了理論聯(lián)系實(shí)際，將書本上學(xué)到的知識與具體實(shí)踐充分結(jié)合起來，進(jìn)一步明確了開發(fā)管理信息系統(tǒng)的方法和思想；既加深了對管理信息系統(tǒng)的認(rèn)識，又進(jìn)一步鞏固了以前所學(xué)的計(jì)算機(jī)軟件開發(fā)方面的知識，提高了軟件開發(fā)的水平，從而為今后在實(shí)際工作中更好的應(yīng)用計(jì)算機(jī)進(jìn)行信息管理打下了堅(jiān)實(shí)的基礎(chǔ)。 系統(tǒng)維護(hù)的組織與管理 系統(tǒng)維護(hù)工作，首先必須建立一個(gè)維護(hù)組織，確定進(jìn)行維護(hù)工作所應(yīng)遵循的原則和規(guī)范化的過程，此外還應(yīng)建立一套適用于具體系統(tǒng)維護(hù)過程的文檔及管理措施，以及進(jìn)行復(fù)審的標(biāo)準(zhǔn)。 （ 3）完善性維護(hù) 為滿足用戶的需求而進(jìn)行的維護(hù)。 系統(tǒng)維護(hù)的內(nèi)容 按照維護(hù)對象的不同，系統(tǒng)維護(hù)的內(nèi)容可分為以下幾類： （ 1）系統(tǒng)應(yīng)用程序維護(hù) （ 2）數(shù)據(jù)維護(hù) （ 3）代碼維護(hù) (4）硬件設(shè)備維護(hù) 系統(tǒng)維護(hù)的類型 系統(tǒng)維護(hù)的重點(diǎn)是系統(tǒng)應(yīng)用軟 件的維護(hù)工作，按照軟件維護(hù)的不同性質(zhì)，可以劃分為下面四種類型： （ 1）糾錯(cuò)性維護(hù) 診斷和修正系統(tǒng)中遺留的錯(cuò)誤。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個(gè)要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。 本系統(tǒng)運(yùn)行：首先啟動(dòng) Windows2021/XP，將本系統(tǒng)拷貝到硬盤相應(yīng)地目錄下，運(yùn)行“房地產(chǎn)管理系統(tǒng) .EXE”即可。 硬盤： （可用空間最好在 160MB以上）。 第一節(jié) 系統(tǒng)的配置 硬件配置要求： CPU： PII200以上。其他功能請參考源程序。編輯格式以后就可以打印。 圖 57客戶信息查詢 圖 58檢索條件 在選擇條件包括 =， ,=,=,like，其中 like是用于模糊檢索。再輸入關(guān)鍵字，點(diǎn)檢索 按鈕。在菜單中可以選擇客戶信息查詢，在檢索名稱中輸入要檢索的字段。代碼實(shí)現(xiàn)請參考附錄程序源代碼。 所有的信息表中的序號及各種編號一定要統(tǒng) 一、規(guī)范。 保存：是在添加和修改記錄后，保存記錄。 瀏覽：是查看全的記錄，如圖 56。 ：移動(dòng)最后一條記錄。 ：移動(dòng)到上一條記錄。界面如圖 55。其中 客戶信息 、 銷售信息 、 樓房信息等。 第四節(jié) 信息管理 信息輸入中主要是對所有數(shù)據(jù)信息的添加、修