【正文】 今后我會(huì)以此次的畢業(yè)設(shè)計(jì)為起點(diǎn)邁向更遠(yuǎn)的未來。我在負(fù)責(zé)人及指導(dǎo)教師的指導(dǎo)下，順利的完成了這套小區(qū)物業(yè)管理系統(tǒng)。 本系統(tǒng)在開發(fā)過程中，在固定的物業(yè)管理要求的模式下還添加了一些人性化的，個(gè)人的構(gòu) 思和創(chuàng)意。 由于當(dāng)今的物業(yè)管理部門還不能有一個(gè)很統(tǒng)一的模式化，所以本系統(tǒng)僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項(xiàng)功能，一個(gè)完好的小區(qū)物業(yè)管理系統(tǒng)還需要更多更復(fù)雜的功能要求。 End If strsql = 46 = = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 收費(fèi)信息表 where 住址 = 39。,物業(yè)管理費(fèi) = 39。,寬帶 = 39。 ,水費(fèi) = 39。 amp。 amp。 amp。 amp。 amp。 amp。 界面截圖如下 : 44 本模塊代碼如下： 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 45 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。 strsql = = = = = 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 房屋基本信息 43 Set rs = (strsql) End Sub 物業(yè)收費(fèi)管理模塊 物業(yè)收費(fèi)管理用是對(duì)小區(qū)內(nèi)物業(yè)收費(fèi)的總管理，主要功能也是對(duì)如 (住址、水費(fèi)、電費(fèi)、寬帶費(fèi)、物業(yè)管理費(fèi)、收費(fèi)時(shí)間等信息 ) 的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。 where 出售信息=39。,房屋結(jié)構(gòu) = 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。當(dāng)記錄較多，通過簡單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。 38 End If strsql = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 住戶基本信息表 where 住址 = 39。,入住時(shí)間 = 39。 ,戶主 = 39。 amp。 amp。 amp。 amp。 界面截圖如下 : 本模塊代碼如下： Private Sub Command1_Click() If = False Then 37 = rs(戶主 ) = rs(住址 ) = rs(電話 ) = rs(入住時(shí)間 ) = rs(身份證號(hào)碼 ) End If End Sub Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 住戶基本信息表 (戶主 ,住址 ,電話 ,入住時(shí)間 ,身份證號(hào)碼 ) values (39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 小區(qū)住戶信息管理模塊 住戶資料主要是對(duì)住戶的基本信息如 (住戶電話、住戶姓名、物 36 業(yè)地址、身份證號(hào)、入住時(shí)間等信息 )和另外兩個(gè)標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢。用戶名或密碼不對(duì) MsgBox 用戶名或密碼不對(duì)！ , vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。Text2 = End If If strUserName = And strPassword = Then 39。找到記錄 strUserName = !用戶名 35 strPassword = !密碼 39。 amp。 amp。打開數(shù)據(jù)庫中的 用戶表 39。本系統(tǒng)分為以下三部分： (1) 用戶登陸； (2) 系統(tǒng)主體平臺(tái)； (3) 通過主體平臺(tái)調(diào)用的功能模塊。 表 房屋基本信息 表 字段名 數(shù)據(jù)類型 可否為空 住址 (主鍵 ) Char(10) NOT NULL 房屋結(jié)構(gòu) Varchar(50) NOT NULL 設(shè)備 Float(8) NOT NULL 房屋面積 Float(8) NOT NULL 出售信息 Char(20) NULL 31 (4) 處理故障 表 住戶 處理故障 表存放小區(qū)內(nèi)住戶的各種 故障 的所有信息。 3． 2． 5 退出 退出小區(qū)物業(yè)管理系統(tǒng)。 3． 2． 4 小區(qū)住戶 故障處理 管理功能 (1) 住戶報(bào)修基本信息的錄入，包括 住址 、報(bào)修 故障 、 經(jīng)辦人 、處理時(shí)間 、 查詢 等信息。 3． 2． 3 小區(qū)收費(fèi)管理功能 (1) 其中包括物業(yè)收費(fèi)和儀表收費(fèi)兩大類信息的錄入，包括收費(fèi)住址 、 水費(fèi) 、 電費(fèi) 、 寬帶費(fèi) 、 物業(yè)管理費(fèi) 、 收費(fèi)時(shí)間 等信息。 3． 2． 2 小區(qū)房產(chǎn)信息管理功能 (1) 房產(chǎn)基本信息的錄入，包括物業(yè)地址、使用面積、 房屋結(jié)構(gòu) 、設(shè)備 、 出售信息 等信息。 3． 2． 2 小區(qū)住戶信息管理功能 (1) 住戶基本信息的錄入，包括住戶 電話 、住戶姓名、物業(yè)地址、身份證號(hào) 、入住時(shí)間等信息。 以上是對(duì)本信息管理系統(tǒng)進(jìn)行的基本的需求分析，也就是本系統(tǒng)所要實(shí)現(xiàn)的基本功能。通過調(diào)研情況進(jìn)行需求分析，進(jìn)行模塊的劃分和功能的界定，并對(duì)各個(gè)模塊的具體管理流程進(jìn)行控制和編碼實(shí)現(xiàn)。這些成為小區(qū)物業(yè)管理的主體。 (2) 開發(fā)平臺(tái)前臺(tái)開發(fā)工具： Microsoft Visual Basic ① 前臺(tái)開發(fā)工具： Microsoft Visual Basic ② 后臺(tái)數(shù)據(jù)庫： Access 2020 24 第三章 系統(tǒng)分析 3． 1 需求分析 3． 1． 1 系統(tǒng)需求功能概括 經(jīng)過調(diào)研與可行性分析，出于對(duì)人們生活住房考慮，設(shè)計(jì)了這套小區(qū)物業(yè)管理系統(tǒng)，本系統(tǒng)主要考慮到小區(qū)物業(yè)管理的普遍要求，小區(qū)物業(yè)管理系統(tǒng)主要包括： (1) 對(duì)小區(qū)所有房屋資料的錄入和增、刪、改、查詢等功能實(shí)現(xiàn)，在基于這些小區(qū)的房產(chǎn)資源對(duì)小區(qū)進(jìn)行管理。 ② 操作系統(tǒng)： Windows 9x/Me、 Windows 20 Windows XP、Windows NT，分辨率： 1024*768。由于合同的規(guī)定，能否預(yù)期的交付涉及到開發(fā)人 員的信譽(yù)等等。 2． 2． 3 操作可行性 對(duì)于這套小區(qū)物業(yè)管理系統(tǒng)而言，在投入使用前， 會(huì)由開發(fā)并能熟練操作本系統(tǒng)的工程人員對(duì)用戶群進(jìn)行專業(yè)系統(tǒng)的培訓(xùn)。做為我國支柱產(chǎn)業(yè)之一的房地產(chǎn)業(yè)在當(dāng)今智能化小區(qū)的發(fā)展的驅(qū)動(dòng)下，在當(dāng)今信息時(shí)代的推動(dòng)下，擁有自己的一套特色的小區(qū)物業(yè)管理系統(tǒng)是非常必要的，與小區(qū)內(nèi)繁多的硬件設(shè)施相比較，傳統(tǒng)的手工式的管理方式已經(jīng)無法 適合當(dāng)今的龐大的數(shù)據(jù)處理和精確的運(yùn)算需求，所以一套精美完善的小區(qū)物業(yè)管理系統(tǒng)是提高工作效率節(jié)省人力物力的有效解決方案。 Access 是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，不但能存儲(chǔ)和管理數(shù)據(jù)，還能編寫數(shù)據(jù)庫管理軟件，用戶可以通過 Access 提供的開發(fā)環(huán)境及工具方便地構(gòu)建數(shù)據(jù)庫應(yīng)用程序 ，大部分是直觀的可視化的操作，無需編寫程序代碼，是一種使用方便、功能較強(qiáng)的數(shù)據(jù)庫開發(fā)工具。 (3)Access 簡介 21 Access 是 Office 辦公套件中一個(gè)極為重要的組成部分 。說它是一場革命，不是對(duì)對(duì)象本身而言，而是對(duì)它們處理工作的能力而言。 (2)面向?qū)ο缶幊痰母拍? 面向?qū)ο蟮某绦蛟O(shè)計(jì) (ObjectOriented Programming，簡記為 OOP)是 Visual 誕生的基礎(chǔ)。 VB 可以用于可以開發(fā)多媒體、數(shù)據(jù)庫、網(wǎng)絡(luò)、圖形等方面的應(yīng)用程序。后臺(tái)的數(shù)據(jù)庫開發(fā)工具選用了 Access 2020，它能夠處理大量數(shù)據(jù)，同時(shí)保持?jǐn)?shù)據(jù)完整性并提供許多高級(jí)管理和數(shù)據(jù)分配功能。而物業(yè)管理部門成為與業(yè)戶零距離接觸的終端部門，物業(yè)管理系統(tǒng)的作用不但使得繁重的手工工作變的簡單化，并且能夠使得業(yè)戶對(duì)物業(yè)的了解更加透明化。 2． 1． 1 背景及現(xiàn)狀 目前國家建設(shè)部房地產(chǎn)業(yè)司已將是否使用計(jì)算機(jī)進(jìn)行管理列入了物業(yè)管理公司評(píng)定級(jí)別的項(xiàng)目之中。由于物業(yè)管理業(yè)務(wù)的復(fù)雜性，再加上智能化小區(qū)這個(gè)概念的引入，物業(yè)管理逐漸趨于信息化高效率化，因此 上海的許多物業(yè)管理公司已引入了 “ 物業(yè)管理信息系統(tǒng) ” ，即通過計(jì)算機(jī)網(wǎng)絡(luò)和專業(yè)軟件對(duì)物業(yè)實(shí)施即時(shí)、規(guī)范、高效的管理。過去，管理人員僅僅把計(jì)算機(jī)看成是省錢的工具，而現(xiàn)在，計(jì)算機(jī)被看成是創(chuàng)造利潤的工具。 用戶參與信息資源管理（ IRM）的典型事例表現(xiàn)在分布式數(shù)據(jù)處理（ DDP）方面。過去，用戶管理人員在很大程度上是依靠信息服務(wù)人員來推薦、開發(fā)和實(shí)現(xiàn)所需的信息系統(tǒng)的。 妥善處理用戶同信息服務(wù)人員之間的關(guān)系，可以加強(qiáng)雙方的互相配合。 在用戶同信息服務(wù)人員的交流方面，沒有一個(gè)單位能做到盡善盡美，但是，確有某些單位已經(jīng)