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

　　

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