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