【正文】 = rs(電費(fèi)) = rs(寬帶) = rs(垃圾清運(yùn)費(fèi)) = rs(物業(yè)管理費(fèi)) = rs(收費(fèi)時(shí)間) End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase( + \)strsql = Insert Into 收費(fèi)信息表 (住址,水費(fèi),電費(fèi),寬帶,垃圾清運(yùn)費(fèi),物業(yè)管理費(fèi),收費(fèi)時(shí)間) values (39。 amp。 amp。 amp。 amp。 amp。 amp。 ,水費(fèi) = 39。,寬帶 = 39。,物業(yè)管理費(fèi) = 39。End If strsql = = = = = = = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase( + \)strsql = delete * from 收費(fèi)信息表 where 住址 = 39。由于當(dāng)今的物業(yè)管理部門還不能有一個(gè)很統(tǒng)一的模式化，所以本系統(tǒng)僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項(xiàng)功能，一個(gè)完好的小區(qū)物業(yè)管理系統(tǒng)還需要更多更復(fù)雜的功能要求。本系統(tǒng)在開發(fā)過程中，在固定的物業(yè)管理要求的模式下還添加了一些人性化的，個(gè)人的構(gòu)思和創(chuàng)意。我在負(fù)責(zé)人及指導(dǎo)教師的指導(dǎo)下，順利的完成了這套小區(qū)物業(yè)管理系統(tǒng)。今后我會(huì)以此次的畢業(yè)設(shè)計(jì)為起點(diǎn)邁向更遠(yuǎn)的未來。這使得我對(duì)以后的工作充滿了信息。希望本系統(tǒng)能夠給用戶帶來方便。希望在以后能夠?qū)π^(qū)的物業(yè)做更深一步的調(diào)研，在原由系統(tǒng)的基礎(chǔ)上不斷添加新功能。 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 收費(fèi)信息表 Set rs = (strsql)End Sub結(jié)束語至此，小區(qū)物業(yè)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)順利完成。,收費(fèi)時(shí)間 = 39。,垃圾清運(yùn)費(fèi) =39。,電費(fèi) = 39。) strsql = = = = = = = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此記錄, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase( + \)strsql = update 收費(fèi)信息表 set 住址 = 39。,39。,39。,39。,39。,39。,39。記錄較多，通過簡(jiǎn)單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。End If strsql = = = = = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase( + \)strsql = delete * from 房屋基本信息 where 住址 = 39。,房屋面積 = 39。 ,設(shè)備 = 39。 amp。 amp。 amp。 amp。界面截圖如下:本模塊代碼如下：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。 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)資料主要是對(duì)住戶的基本信息如 (物業(yè)地址、使用面積、房屋結(jié)構(gòu)、設(shè)備、出售信息等信息)的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。 where 身份證號(hào)碼=39。,電話 = 39。) strsql = = = = = 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。當(dāng)記錄較多，通過簡(jiǎn)單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。關(guān)閉數(shù)據(jù)庫中的 用戶表 End 39。關(guān)閉窗體 39。沒找到記錄 39。 39。 , , adSearchForward, 1 39。 用戶名 =39。界面截圖如下:本模塊代碼如下：Private Sub Command1_Click()Dim strUserName As StringDim strPassword As StringStatic intLoginTimes As Integer If Trim() = Then 39?！∥飿I(yè)收費(fèi)表字段名數(shù)據(jù)類型可否為空住址(主鍵)Char(10)NOT NULL水費(fèi)Char(10)NOT NULL電費(fèi)Varchar(50)NOT NULL寬帶Int(4)NOT NULL垃圾清運(yùn)費(fèi)Int(4)NOT NULL物業(yè)管理費(fèi)Varchar(50)NOT NULL收費(fèi)時(shí)間DatetimeNOT NULL 第五章 系統(tǒng)詳細(xì)設(shè)計(jì)經(jīng)過以上的分析及建摸模，已經(jīng)完成了數(shù)據(jù)庫的后臺(tái)工作?！∮脩舯碜侄蚊麛?shù)據(jù)類型可否為空用戶名（主鍵）Char(10)NOT NULL密碼IntNOT NULL (2) 住戶基本信息表住戶表存放小區(qū)內(nèi)所有的住戶信息，這些信息也是小區(qū)物業(yè)管理的基本信息，在實(shí)現(xiàn)系統(tǒng)的各個(gè)功能中起真非常重要的作用。(3) 住戶故障基本信息的刪除。(3) 收費(fèi)基本信息的刪除。(3) 房產(chǎn)基本信息的刪除。(3) 住戶基本信息的刪除。這樣，才能使系統(tǒng)得到不斷的完善，功能更加強(qiáng)大，與用戶的交互性更強(qiáng)。(3) 完備的信息查詢統(tǒng)計(jì)：為滿足管理和決策工作的需要，在查詢基礎(chǔ)上應(yīng)具備一定的統(tǒng)計(jì)功能。3．1．2　系統(tǒng)操作設(shè)計(jì)內(nèi)容根據(jù)以上的操作需要研究設(shè)計(jì)內(nèi)容如下：(1) 模塊功能的研究設(shè)計(jì)：盡量采用物業(yè)管理部門中現(xiàn)有的軟硬件環(huán)境以及先進(jìn)的管理系統(tǒng)開發(fā)方案，從而達(dá)到充分利用現(xiàn)有資源，提高系統(tǒng)開發(fā)水平和應(yīng)用效果的目的。(3) 在具有了所有的基本資料信息后，需要實(shí)現(xiàn)實(shí)質(zhì)性的物業(yè)管理。Windows 9x以上操作系統(tǒng)。2．2．5 硬件配置(1) 硬件設(shè)備及操作系統(tǒng)①服務(wù)器：Pentium4以上配置的高性能PC機(jī)，內(nèi)存應(yīng)在256M以上，硬盤在40G以上。所以本系統(tǒng)的操作是完全可行的。一套完善的小區(qū)物業(yè)管理系統(tǒng)可持續(xù)使用并能隨著時(shí)代和工作的需求不斷更新，一期投入終身受用，按長期的使用計(jì)算，開發(fā)系統(tǒng)的造價(jià)平均到每年與傳統(tǒng)式的管理方式的年耗資本相對(duì)比，性價(jià)比是可行的。21世紀(jì)是一個(gè)充滿競(jìng)爭(zhēng)和挑戰(zhàn)的世紀(jì)?，F(xiàn)在它已經(jīng)成為Office辦公套件中不可缺少的部件了。除非整個(gè)開發(fā)環(huán)境都是面向?qū)ο蟮?，否則對(duì)象產(chǎn)生的好處還沒有帶來的麻煩多。它通過給程序中加入擴(kuò)展語句，把函數(shù)“封裝”進(jìn)Windows編程所必需的“對(duì)象”中。VB中提供大量的控件，這些控件可幫助我們?cè)O(shè)計(jì)界面和實(shí)現(xiàn)功能，減少了編程人員的很多麻煩，提高了編程的效率和可靠性。(1) Visual Basic Visual Basic（簡(jiǎn)稱VB）是Microsoft公司開發(fā)的一種通用的基于對(duì)象的程序設(shè)計(jì)語言。可行性研究的目的就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決2．2．1 技術(shù)的可行性小區(qū)物業(yè)管理系統(tǒng)采用了當(dāng)前的主流計(jì)算結(jié)構(gòu)模式進(jìn)行開發(fā)，前臺(tái)開發(fā)工具選用Microsoft Visual Basic 。滬上的中海、古北、萬科、卓越、永業(yè)、西部、金橋、船舶大廈、魏理仕、香港廣場(chǎng)、太平洋中心、華都