【正文】 As String sqlCheck = select * from Client where 住戶編號= 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該住戶編號已經存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復，可以加入表中 For i = 0 To 14 (i) = Text1(i).Text Next i (15) = 39。添加保存之后，顯示總信息條數(shù)需要加1 = Val() 1 39。修改數(shù)據后的保存 Else End If MsgBox 保存數(shù)據成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設置其他按鈕可用，以及各個text框不可寫 = True = True = True = False = False = True = True = True = True = True For i = 0 To 14 Text1(i).Enabled = False Next i = FalseEnd Sub：（b） 房產資料圖（c） 房產資料圖（d） 房產資料圖 基本資料模塊的設計包括住戶資料和房產資料兩部分，其囊括的住戶具體的個人信息和房屋使用信息，完成了小區(qū)信息管理的基本功能實現(xiàn)。兩部分均能實現(xiàn)對用戶信息的增、查、刪、改，并且“以表格顯示”功能實現(xiàn)了對所有信息的直接可視化管理，各種信息一目了然，方便操作，便于統(tǒng)計，有效的降低了管理員的工作強度，節(jié)約了大量時間。 物業(yè)管理模塊設計（a） 物業(yè)設備管理圖，其中添加,修改,刪除按包的源碼設計同上,重點分析保存按鈕的源碼如下:Private Sub cmdSave_Click() 39。檢測數(shù)據是否完整 If Text1(0).Text = Then MsgBox 設備編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 設備名稱不可為空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox 購買日期書寫不對，應為200011這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 39。添加數(shù)據后保存 If add = 1 Then 39。檢測房間編號這個主鍵是否已經在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from Equipment where 設備編號= 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該設備編號已經存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據后的保存 Else End If MsgBox 保存數(shù)據成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設置其他按鈕可用，以及各個text框不可寫 = True = True = True = False = False = True = True = True = True = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub：（b） 儀表數(shù)據管理圖（c） 停車場管理圖（d） 收費管理圖（e） 住戶投訴管理圖（f） 用戶報修管理圖（g） 物業(yè)設備維修管理圖（h） 查找表（i） 查找表物業(yè)管理模塊下的各項表都實現(xiàn)了基本管理信息的增、查、刪、改。從物業(yè)設備管理到儀表數(shù)據管理、停車場管理、收費管理、住戶投訴管理、用戶報修管理、物業(yè)設備維修管理，基本囊括了一個小區(qū)的細節(jié)管理項目。并且在查找功能中實現(xiàn)了精確查找和模糊查找兩種功能。查找關系包括“=”、“﹥”和“﹤”，而邏輯關系則包括了“and”、“or”和“not”，以確保實現(xiàn)不同要求的查找，極大的方便了管理員的操作，簡化了步驟，節(jié)省了時間。 數(shù)據報表統(tǒng)計模塊設計（a） 物業(yè)設備統(tǒng)計圖，其中排序按鈕的源碼如下:Private Sub cmdOrder_Click() Dim sql As String If = adStateOpen Then End If sql = select * from Equipment order by amp。 = adUseClient sql, conn, adOpenStatic, adLockOptimistic 39。設置DataGrid1的數(shù)據源 Set = rs_order 39。使用分組統(tǒng)計，并顯示在DataGrid2中 39。首先需要設置DataGrid2可見 = True 39。設置網格不可寫 = False = False = False Dim sql2 As String 39。、排序， sql2 = select amp。 amp。 , count( amp。 amp。 _ ) as 數(shù)量統(tǒng)計 from Equipment group by amp。 amp。 order by amp。 If = adStateOpen Then End If = adUseClient sql2, conn, adOpenStatic, adLockOptimistic 39。設置DataGrid2的數(shù)據源 Set = rs_tg End Sub：（b） 收費統(tǒng)計圖（c） 收費統(tǒng)計圖（d） 收費統(tǒng)計圖（e） 收費統(tǒng)計圖 主菜單的設計與系統(tǒng)實現(xiàn)系統(tǒng)主菜單的設計在實際的系統(tǒng)設計中,菜單可分為兩種類型,即下拉式菜單和彈出式菜單,下拉式菜單系統(tǒng)中,一般有一個主菜單,它是通過菜單編輯器建立,其步驟如下:“工具”菜單中,選取“菜單編輯器”可以看出菜單系統(tǒng)的建立比較直觀,因此不作重點描述.一個典型的數(shù)據庫應用程序由數(shù)據結構，操作界面，查詢選項和報表打印等組成。在設計應用程序時，應仔細考慮每個組件提供的功能以及與其他組件之間的關系。設計好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認無誤后,.結 論小區(qū)物業(yè)管理系統(tǒng)在老師的精心指導下終于完工了。本次設計難度較大,但是,收獲頗為豐富：一個好的管理信息系統(tǒng)必須有一個物理模型和邏輯模型。在系統(tǒng)設計的初期，由于設計經驗和技術等方面的原因，我們小區(qū)物業(yè)管理系統(tǒng)的物理模型和邏輯模型不完整，數(shù)據也不一致，導致在系統(tǒng)實施階段遇到了很多問題。例如:由于字段類型不一致而產生的字段引用出錯，實體屬性多余等問題，后來，我們對物理模型和邏輯模型作了修改，解決了這個問題。這對以后系統(tǒng)設計，系統(tǒng)實施積累了經驗和教訓。系統(tǒng)運行和系統(tǒng)調試時,應該充分考慮到系統(tǒng)所涉及的各種數(shù)據,以及用戶使用時的方便性，盡量減少用戶的輸入量，確保系統(tǒng)的穩(wěn)定性。同時，用戶輸入時應盡量采用選擇的方式，而非填空的形式。系統(tǒng)輸出時應該多采用查詢的方式，以便滿足不同用戶的需求?？傊? 本次畢業(yè)設計，就要畫上一個句號了。可是，對我來說，這次設計的本身所產生的影響，還遠遠沒有結束，我從本次畢業(yè)設計中學到了許多課本上沒有的知識。通過自己的學習和努力；通過各位老師的指導和教育，使我不僅僅在知識水平和解決實際問題的能力上有了很大的提高。還從思想的深處體會到，要把自己的所學變成現(xiàn)實時所將面對的種種難題。知識是在課堂上，老師教授的，在書本中學到的，實踐則是要自己動手，自己去做才能掌握。關于本次設計的命題，我的設計只能提供其基本的功能。還有許多的設想由于時間和自身和因素無法得以實現(xiàn)，這不能不說是本次設計的遺憾之處。不過，至少它已經啟發(fā)了自己的思維，提高了我的動手能力，這是我在課本中學不到的。它為我們在以后的工作崗位上發(fā)揮自己的才能奠定了堅實的基礎。致 謝非常感謝王老師在我大學的最后學習階段——畢業(yè)設計階段給予我的指導。從最初的定題，到資料收集，到寫作、修改，再到論文定稿，王老師給了我耐心的指導和無私的幫助。為了指導我們的畢業(yè)論文，王老師寧肯放棄自己的休息時間，這種無私奉獻的敬業(yè)精神令人欽佩，在此我向各位老師表示我誠摯的謝意。同時，感謝所有任課老師和所有同學在這四年來給自己的指導和幫助，是他們教會了我專業(yè)知識，教會了我如何學習，教會了我如何做人。正是由于老師和同學們的幫助，我才能在各方面取得顯著的進步，在此向他們表示我由衷的謝意，并祝所有的老師培養(yǎng)出越來越多的優(yōu)秀人才，桃李滿天下！特別感謝王老師在畢業(yè)設計中的指導和關懷，并且感謝所有同學對我的支持。參考文獻[1][M].北京：清華大學出版社，[2]張翼英. Visual Basic課程設計[M].北京：清華大學出版社，[3] Basic數(shù)據庫程序設計使實用教程[M].西安：西安交通大學出版社，[4] Basic 簡明教程[M].，[5] 數(shù)據庫系統(tǒng)開發(fā)實例導航[M].北京：人民郵電出版社，[6]，[7]－理論、應用與軟件實現(xiàn)[M].西安：西安交通大學出版社，[8] Basic 程序設計綜合教程[M].北京:清華大學出版社, [9][M].北京:科學出版社,2005 [10] [M].濟南:黃河出版社, 2005[11] Basic案例開發(fā)[M].北京:中國水利水電出版社,2005