小區(qū)物業(yè)管理系統(tǒng)畢業(yè)設(shè)計論文-資料下載頁
2025-06-24 22:52本頁面
【正文】 MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase( + \)strsql = delete * from 住戶基本信息表 where 住址 = 39。 + + 39。 strsql = = = = = MsgBox 刪除成功End SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub Command6_Click() Unload MeEnd SubPrivate 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)計記錄個數(shù)。添加、修改、刪除這些操作必須保存后才能生效。當(dāng)記錄較多，通過簡單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。表格顯示結(jié)果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。界面截圖如下:本模塊代碼如下：Private Sub Command1_Click()If = False Then = rs(住址) = rs(設(shè)備) = rs(房屋結(jié)構(gòu)) = rs(房屋面積) = rs(出售信息) End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet 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 = = = = = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此記錄, 32 + 1, 修改) = 1 ThenSet 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 SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase( + \)strsql = delete * from 房屋基本信息 where 住址 = 39。 + + 39。 strsql = = = = = MsgBox 刪除成功End SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub Command6_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 房屋基本信息 Set rs = (strsql)End Sub 物業(yè)收費管理模塊物業(yè)收費管理用是對小區(qū)內(nèi)物業(yè)收費的總管理，主要功能也是對如 (住址、水費、電費、寬帶費、物業(yè)管理費、收費時間等信息) 的添加、修改、刪除、查詢及統(tǒng)計記錄個數(shù)。添加、修改、刪除這些操作必須保存后才能生效。記錄較多，通過簡單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。表格顯示結(jié)果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。界面截圖如下: = = = = = = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此記錄, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase( + \)strsql = update 收費信息表 set 住址 = 39。 + + 39。 ,水費 = 39。 + + 39。,電費 = 39。 + + 39。,寬帶 = 39。 + + 39。,垃圾清運費 =39。 + + 39。,物業(yè)管理費 = 39。 + + 39。,收費時間 = 39。 + + 39。End If strsql = = = = = = = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase( + \)strsql = delete * from 收費信息表 where 住址 = 39。 + + 39。 strsql = = = = = = = MsgBox 刪除成功End SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub Command6_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 收費信息表 Set rs = (strsql)End Sub 結(jié)束語至此，小區(qū)物業(yè)管理系統(tǒng)設(shè)計與實現(xiàn)順利完成。在幾天的試運行的過程中，在連接數(shù)據(jù)庫時一度出現(xiàn)過錯誤，經(jīng)過調(diào)試改正后錯誤點全部清楚，此系統(tǒng)可以按著設(shè)計思想和需求功能正常運行。由于當(dāng)今的物業(yè)管理部門還不能有一個很統(tǒng)一的模式化，所以本系統(tǒng)僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項功能，一個完好的小區(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òu)思和創(chuàng)意。本套小區(qū)物業(yè)管理系統(tǒng)符合基本需求功能，易于操作，應(yīng)該可以在簡單化模式下的小區(qū)內(nèi)應(yīng)用，存在要改進的地方再以后會進一步完善。希望本系統(tǒng)能夠給用戶帶來方便。 致 謝隨著大學(xué)生活的臨近尾聲，三個月的畢業(yè)設(shè)計也將結(jié)束。我在指導(dǎo)教師的指導(dǎo)下，順利的完成了這套小區(qū)物業(yè)管理系統(tǒng)。在開發(fā)設(shè)計的過程中，指導(dǎo)老師本著認真負責(zé)的態(tài)度、以嚴(yán)謹求真的作風(fēng)來要求我們每一位學(xué)生，從選題到研發(fā)到實現(xiàn)，指導(dǎo)老師給予了我正確的指導(dǎo)和極大的幫助，使得我在設(shè)計當(dāng)中少走了很多彎路，在順利完成畢業(yè)設(shè)計的同時更讓我學(xué)到了許多知識，對原有的理論知識能夠很好的與實際結(jié)合起來運用，也大大的提高了我的動手的能力。這使得我對以后的工作充滿了信息。在此我由衷的向我指導(dǎo)老師再次的說一聲謝謝！并要向那些給予我極大幫助和支持的同學(xué)和老師表示感謝。今后我會以此次的畢業(yè)設(shè)計為起點邁向更遠的未來。 參考文獻[1] 朱從旭 嚴(yán)暉 曹岳輝 《Visual Basic 程序設(shè)計綜合教程》 清華大學(xué)出版社 2005年3月[2] 張得強 《Visual Basic案例開發(fā)》 中國水利水電出版社 2005年1月[3] 賽奎春 高春艷 李俊民 《Visual Basic工程應(yīng)用與項目實踐》 機械工業(yè)出版社 2005年1月35 / 3
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1