【導(dǎo)讀】用與設(shè)備維護(hù)繁瑣。計(jì)算機(jī)已完全能夠勝任物業(yè)管理工作，而且更加準(zhǔn)確、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之處。理正規(guī)化、現(xiàn)代化的重要標(biāo)志。因此，開發(fā)一套高效率、無差錯(cuò)的小區(qū)物業(yè)管理系統(tǒng)軟件十分必要。的主要目的是告別帳本，安全、快捷的保存數(shù)據(jù)信息。物業(yè)費(fèi)用和投訴等情況提供透明化、直觀的了解。

　　

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