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