小區物業管理系統_本科畢業論文-資料下載頁

【導讀】用與設備維護繁瑣。計算機已完全能夠勝任物業管理工作，而且更加準確、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之處。理正規化、現代化的重要標志。因此，開發一套高效率、無差錯的小區物業管理系統軟件十分必要。的主要目的是告別帳本，安全、快捷的保存數據信息。物業費用和投訴等情況提供透明化、直觀的了解。

　　

【正文】 =39。 + + 39。 End If strsql = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 住戶基本信息表 where 住址 = 39。 + + 39。 strsql = = = = = MsgBox 刪除成功 30 End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 住戶基本信息表 Set rs = (strsql) End Sub 房屋信息管理模塊 房產 資料 主要是對住戶的基本信息如 (物業地址、使用面積、房屋結構、設備、出售信息等信息 )的添加、修改、刪除、查詢及統計記錄個數。添加、修改、刪除這些操作必須保存后才能生效。當記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已 表格方式顯示。表格顯示結果的同時，如果還出現多條記錄，可以根據某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。 界面截圖如下 : 31 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(住址 ) = rs(設備 ) = rs(房屋結構 ) = rs(房屋面積 ) = rs(出售信息 ) End If End Sub Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 房屋基本信息 (住址 ,設備 ,房屋結構 ,房屋面積 ,出售信息 ) values (39。 + + 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) strsql 32 = = = = = MsgBox 添加成功 End Sub Private Sub Command3_Click() Dim strsql As String If MsgBox(是否要修改此記 錄 , 32 + 1, 修改 ) = 1 Then Set db = OpenDatabase( + \) strsql = update 房屋基本信息 set 住址 = 39。 + + 39。 ,設備 = 39。 + + 39。,房屋結構 = 39。 + + 39。,房屋面積 = 39。 + + 39。 where 出售信息 =39。 + + 39。 End If strsql = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 房屋基本信息 where 住 址 = 39。 + + 39。 strsql = = = = = MsgBox 刪除成功 End Sub Private Sub Command5_Click() Unload Me End Sub 33 Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 房屋基本信息 Set rs = (strsql) End Sub 物業收費管理模塊 物業收費管理用是對小區內物業收費的總管理，主要功能也是對如 (住址、水費、電費、寬帶費、物業管理費、 收費時間等信息 ) 的添加、修改、刪除、查詢及統計記錄個數。添加、修改、刪除這些操作必須保存后才能生效。記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現多條記錄，可以根據某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。 界面截圖如下 : 34 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(住址 ) = rs(水費 ) = rs(電費 ) = rs(寬帶 ) = rs(垃圾清運費 ) = rs(物業管理費 ) = rs(收費時間 ) End If End Sub Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 收費信息表 (住址 ,水費 ,電費 ,寬帶 ,垃圾清運費 ,物業管理費 ,收費時間 ) values (39。 + + 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 35 amp。 39。,39。 amp。 amp。 39。) strsql = = = = = = = MsgBox 添加成功 End Sub Private Sub Command3_Click() Dim strsql As String If MsgBox(是否要修改此記錄 , 32 + 1, 修改 ) = 1 Then Set db = OpenDatabase( + \) strsql = update 收費信息表 set 住址 = 39。 + + 39。 ,水費 = 39。 + + 39。,電費 = 39。 + + 39。,寬帶 = 39。 + + 39。,垃圾清運費 =39。 + + 39。,物業管理費 = 39。 + + 39。,收費時間 = 39。 + + 39。 End If strsql = = = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 收費信息表 where 住址 = 39。 + + 39。 strsql = = = = = = 36 = MsgBox 刪除成功 End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 收費信息表 Set rs = (strsql) End Sub 37 結束語 至此，小區物業管理系統設計與實現順利完成。在幾天的試運行的過程中，在連接數據庫時一度出現過錯誤，經過調試改正后錯誤點全部清楚，此系統可以按著設計思想和需求功能正常運行。 由于當今的物業管理部門還不能有一個很統一的模式化，所以本系統僅考慮到一般小區所需要的物業管理的基本和主要的幾項功能，一個完好的小區物業管理系統還需要更多更復雜的功能要求。由于開發周期短和開發人員等局限性，不能將本套系統盡善盡美。希望在以后能夠對小區的物業做更深一步的調研，在原由系統的基礎上不斷添加新功能。最終能夠開發出一 套完善的小區物業管理系統。 本系統在開發過程中，在固定的物業管理要求的模式下還添加了一些人性化的，個人的構思和創意。 本套小區物業管理系統符合基本需求功能，易于操作，應該可以在簡單化模式下的小區內應用，存在要改進的地方再以后會進一步完善。希望本系統能夠給用戶帶來方便。 38 致 謝 隨著本科生活的臨近尾聲，三個月的畢業設計也將結束。我在負責人及指導教師的指導下，順利的完成了這套小區物業管理系統。 在開發設計的過程中，指導老師本著認真負責的態度、以嚴謹求真的作風來要求我們每一位學生，從選題到研發到實現，指 導老師給予了我正確的指導和極大的幫助，使得我在設計當中少走了很多彎路，在順利完成畢業設計的同時更讓我學到了許多知識，對原有的理論知識能夠很好的與實際結合起來運用，也大大的提高了我的動手的能力。這使得我對以后的工作充滿了信息。 在此我由衷的向我的負責人及指導老師再次的說一聲謝謝！并要向那些給予我極大幫助和支持的同學和老師表示感謝。今后我會以此次的畢業設計為起點邁向更遠的未來。 39 參考文獻 [1] 朱從旭 嚴暉 曹岳輝 《 Visual Basic 程序設計綜合教程》 清華大學出版社 20xx 年 3月 [2] 張得強 《 Visual Basic 案例開發》 中國水利水電出版社 20xx 年 1 月 [3] 賽奎春 高春艷 李俊民 《 Visual Basic 工程應用與項目實踐》 機械工業出版社 20xx 年 1月 [4] Steven Jordan(美 ) 牛力 《 Visual Basic 6 編程寶典》 電子工業出版社 20xx 年 1月 [5] 求是科學 《 SQL Server 20xx 數據庫管理與開發技術大全》 人民郵電出版社 20xx 年 12 月 [6] 楊學全 趙慧勤 李英杰 張永周 《 SQL Server 20xx 實例教程》 電子工業出版社 20xx 年 7 月 [7] 郝平 《數據庫開發與應用》 科學出版社 20xx 年 2 月 [8] 劉德明 《精典物業管理方案》 黃河出版社 20xx 年 2月 [9] 郭瑞軍 唐邦民 謝晗 昕 《 Visual Basic 數據庫開發實例精粹》 電子工業出版社 20xx 年 1 月