小區(qū)物業(yè)管理系統(tǒng)報(bào)告-資料下載頁

【導(dǎo)讀】息數(shù)據(jù)庫的創(chuàng)建及各種費(fèi)用的收取、統(tǒng)計(jì)、匯總。本文還簡單介紹了軟件的界面及操作方法。紹了窗體的制作過程，程序的編寫，添加，最后的編譯過程。并且敘述了作者在軟件開發(fā)過程中的心得體會(huì)。3．?dāng)?shù)據(jù)報(bào)表統(tǒng)計(jì)：包括物業(yè)設(shè)備,儀表數(shù)據(jù)統(tǒng)計(jì),收費(fèi)統(tǒng)計(jì),住戶投訴統(tǒng)計(jì),住戶報(bào)修統(tǒng)計(jì),設(shè)備維修統(tǒng)計(jì)等.效果和經(jīng)濟(jì)效益。

　　

【正文】 , 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè) text 框不可寫 = True = True = True = False = False = True = True = True = True = True For i = 0 To 14 Text1(i).Enabled = False Next i = False End Sub 27 物業(yè)管理模塊 設(shè)計(jì) 其中添加 ,修改 ,刪除按包的源碼設(shè)計(jì)同上 ,重點(diǎn)分析保存按鈕的源碼如下 : Private Sub cmdSave_Click() 39。檢測數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 設(shè)備編號(hào)不可為空！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 設(shè)備名稱不可為空！ , vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox 購買日期書寫不對(duì)，應(yīng)為 202111 這樣的格式！ , vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 39。添加數(shù)據(jù)后保存 If add = 1 Then 28 39。檢測房間編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from Equipment where 設(shè)備編號(hào) = 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該設(shè)備編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！ , vbOKOnly + vbInformation, 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè) text 框不可寫 = True = True = True = False = False = True = True = True = True 29 = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub (該模塊其它幾個(gè)窗體的設(shè)計(jì)跟此窗體的設(shè)計(jì)雷同 ) 數(shù)據(jù)報(bào)表統(tǒng)計(jì)的設(shè)計(jì) 物業(yè)設(shè)備統(tǒng)計(jì) 其中排序按鈕的源碼如下 : 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。設(shè)置 DataGrid1 的數(shù)據(jù)源 Set = rs_order 30 39。使用分組統(tǒng)計(jì)，并顯示在 DataGrid2 中 39。首先需要設(shè)置 DataGrid2 可見 = True 39。設(shè)置網(wǎng)格不可寫 = False = False = False Dim sql2 As String 39。下面的 sql語句已用戶選擇的 分組、排序，并且統(tǒng)計(jì)同一個(gè) 的數(shù)量 sql2 = select amp。 amp。 , count( amp。 amp。 _ ) as 數(shù)量統(tǒng)計(jì) from Equipment group by amp。 amp。 order by amp。 If = adStateOpen Then End If = adUseClient sql2, conn, adOpenStatic, adLockOptimistic 39。設(shè)置 DataGrid2 的數(shù)據(jù)源 Set = rs_tg End Sub 其它幾個(gè)窗同的設(shè)計(jì)與該窗體設(shè)計(jì)雷同 .排序按鈕的設(shè)計(jì)參照物業(yè)設(shè)備統(tǒng)計(jì)按鈕的設(shè)計(jì) . 第四章 主菜單的設(shè)計(jì)與系統(tǒng)實(shí)現(xiàn) 系統(tǒng)主菜單的設(shè)計(jì) 在實(shí)際的系統(tǒng)設(shè)計(jì)中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一 般有一個(gè)主菜單 ,其中包括若干個(gè)選擇項(xiàng) .主菜單單的每一項(xiàng)又可下拉出下一級(jí)子菜單 .這樣用一個(gè)個(gè) 31 的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點(diǎn)描述 一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項(xiàng)和報(bào)表打印等組成。在設(shè)計(jì)應(yīng)用程序時(shí)，應(yīng)仔細(xì)考慮每個(gè)組件提供的功能以及與其他組件之間的關(guān)系。設(shè)計(jì)好的功能模塊制作完畢后， 單擊全編譯執(zhí)行在確認(rèn)無誤后 ,單擊文件菜單下的 生成工程得到一個(gè) .EXE 的可執(zhí)行程序 .到此一個(gè)完整的系 統(tǒng)設(shè)計(jì)完成 . 32 結(jié) 論 在剛剛開始學(xué)習(xí)數(shù)據(jù)庫的時(shí)候，對(duì)很多細(xì)節(jié)很沒有概念。特別是對(duì)表單的作用還有視圖和報(bào)表的概念的掌握，理解不準(zhǔn)確。通過老師的幫助才慢慢的有了一點(diǎn)體會(huì)。對(duì)書本的學(xué)習(xí)完成以后，開始著手對(duì)數(shù)據(jù)庫系統(tǒng)開始制作，開始對(duì)系統(tǒng)的需求分析不足，造成多次重做。在對(duì)表單的制作過程中，對(duì)表單的尺寸的把握，對(duì)各個(gè)控件尺寸的把握是比較困難的，各個(gè)控件在表單中的布局也非常重要。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。表單制作完成后就是對(duì)控件編程，其中要 注意程序編寫時(shí)的細(xì)節(jié)，格式，命令的拼寫，運(yùn)用的合理性等等都要進(jìn)行分析。 總的來說，做完一個(gè)數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對(duì)事情的宏觀的控制有了更深的看法。 致 謝 感謝老師在設(shè)計(jì)中的指導(dǎo)和關(guān)懷，并且感謝所有同學(xué)對(duì)我的支持。 參考文獻(xiàn) 馬力 Visual Basic 簡明教程 機(jī)械工業(yè)出版社 2021年 8 月 劉韜 駱娟 何旭洪 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 人民郵電出版社 月 程序員雜志 2021 年合訂本 電子工業(yè)出版社 王小平，曹立明 .遺傳算法－理論、 應(yīng)用與軟件實(shí)現(xiàn) .西安：西安交通大學(xué)出版社， 33