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