【導(dǎo)讀】統(tǒng)設(shè)計(jì)與開發(fā)》是在指導(dǎo)教師的指導(dǎo)下，獨(dú)立開展研究取得的成果，使用的數(shù)據(jù)真實(shí)可靠。對(duì)當(dāng)代社會(huì)這一市場(chǎng)需要應(yīng)運(yùn)而生。用計(jì)算機(jī)操作的小區(qū)物業(yè)管理系統(tǒng)是為小區(qū)管理者和。的實(shí)地調(diào)查，弄清楚了該小區(qū)現(xiàn)在的物業(yè)管理狀況；熟悉了該小區(qū)的管理流程和運(yùn)作方式，管理和收費(fèi)管理共七大模塊。每個(gè)模塊除了基本的增加、修改、刪除、更新、查詢功能外，還有統(tǒng)計(jì)、報(bào)表打印、數(shù)據(jù)備份等功能。功能強(qiáng)大；有開發(fā)背景，系統(tǒng)具有一定的實(shí)用性。這種體系結(jié)構(gòu)下，物業(yè)管理中日常信息。的查詢方便快捷，財(cái)務(wù)的管理準(zhǔn)確高效，同時(shí)又不相互影響，能更好的為業(yè)主服務(wù)。

　　

【正文】 員工 管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè) 管理 調(diào)用系列模塊： 員工設(shè)置、員工信息 操作 輸入：?jiǎn)T工 資料數(shù)據(jù) 輸出：操作后的員工 數(shù)據(jù) 處理內(nèi)容： 如輸入的員工資料信息無(wú)誤則登入員工 管理系統(tǒng) 如輸入的員工 資料有誤返回到初始界 面 備注： 表 33 收費(fèi)管理模塊 IPO圖 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 23 IPO 圖 系統(tǒng)名：小區(qū)物業(yè) 管理系統(tǒng) 制圖者： XX 模塊名： 收費(fèi)管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè)管理 調(diào)用系列模塊： 儀表數(shù)據(jù)管理、收費(fèi) 操作 、欠費(fèi)警報(bào)管理 輸入：儀表數(shù)據(jù) 輸出：操作后的收費(fèi) 數(shù)據(jù) 處理內(nèi)容： 如輸入的儀表資料信息無(wú)誤則登入收費(fèi) 管理系統(tǒng) 進(jìn)行操作 如輸入的儀表 資料有誤返回到初始界面 備注： 表 34 報(bào)修維修模塊 IPO圖 IPO 圖 系統(tǒng)名 ：小區(qū)物業(yè)管理系統(tǒng) 制圖者： XX 模塊名：報(bào)修維修管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè)管理系統(tǒng) 調(diào)用系列模塊： 事件申報(bào)、維修管理、統(tǒng)計(jì)維修事件、登記維修結(jié)果、報(bào)修維修查詢等模塊 輸入：相關(guān)數(shù)據(jù) 輸出：對(duì)應(yīng)表格 處理內(nèi)容： 如輸入正確數(shù)據(jù)，則登入系統(tǒng)進(jìn)行報(bào)修維修操作 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 24 如輸入的數(shù)據(jù)或者資料不正確，則不能進(jìn)入系統(tǒng) 備注： 表 35 停車場(chǎng)管理模塊 IPO圖 IPO 圖 系統(tǒng)名：小區(qū)物業(yè)管理系統(tǒng) 制圖者： XX 模塊名：停車場(chǎng)管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè)管理 調(diào)用系列模塊： 判斷、檢查證件、登記出入記錄 輸入：車輛及車主資料 輸出：車輛進(jìn)出表 處理內(nèi)容： 先判斷車主的類型，查看車位情，作出判斷 如車主的證件檢查無(wú)誤，則進(jìn)入系統(tǒng)登記車輛出入的信息 如非固定用戶或臨時(shí)用戶證件有誤，則不進(jìn)入系統(tǒng) 備注： 表 36 出入信息管理模塊 IPO圖 IPO 圖 系統(tǒng)名：小區(qū)物業(yè)管理系統(tǒng) 制圖者： XX 模塊名：出入信息管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè)管理 調(diào)用系列模塊： 判斷、檢查證件、登記出入記錄 輸入：來(lái)訪者詳細(xì)資料 輸出：出入記錄 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 25 處理內(nèi)容： 先詢問(wèn)來(lái)訪目的，核對(duì)被訪業(yè)主信息，作出判斷 如來(lái)訪者的證件檢查無(wú)誤，則進(jìn)入系統(tǒng)登記出入信息 如被訪業(yè)主不存在或來(lái)訪者證件有誤，則不進(jìn)入系統(tǒng) 備注： 表 37 房屋 管理模塊 IPO圖 IPO 圖 系統(tǒng)名：小區(qū)物業(yè) 管理系統(tǒng) 制圖者： XX 模塊名：房屋 管理 日期： 20210331 由下列模塊調(diào)用： 小區(qū)物業(yè) 管理 調(diào)用系列模塊： 戶型登記、狀態(tài)查詢、房產(chǎn)所有權(quán)管理、監(jiān)理資料、建筑資料管理 輸入：房屋 資料數(shù)據(jù) 輸出：操作后 的房屋信息 處理內(nèi)容： 如輸入的房屋信息無(wú)誤則登入房屋登記管理 對(duì)房屋 資料 進(jìn)行相關(guān)的查詢、資料查看 備注： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 26 數(shù)據(jù)庫(kù)設(shè)計(jì) 實(shí)體關(guān)系模型（ ER 圖） 管 理物 管 人 員2m業(yè) 主2操 作n房 間姓 名性 別職 工 號(hào)房 間 號(hào)實(shí) 住 人 員建 筑 面 積住 宅 人員 資 料公 共 設(shè) 施使 用 面 積姓 名業(yè) 主 I D工 作 單 位單 位 地 址聯(lián) 系 電 話身 份 證 號(hào)房 間 號(hào)性 別物 管 人 員 署 名物 管 人 員 簽 名14使 用房 間 號(hào) 圖 33 ER圖 基本信息表 報(bào)修維修表： 車輛出入記錄： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 27 出入信息表： 房屋信息表 ： 人事考勤： 設(shè)備登記表： 收費(fèi)表： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 28 收費(fèi)類別： 業(yè)主信息表： 儀表數(shù)據(jù)： 應(yīng)繳費(fèi)用： 員工表： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 29 員工工資： 代碼設(shè)計(jì) ○ 1 房間 號(hào)： X – X X – X門 牌 號(hào)住 房 樓 區(qū) 號(hào)樓 層 號(hào) 其中：住房樓區(qū)號(hào)為 A、 B、 C、 D 共 4 棟樓；樓房號(hào)為 130 共三十層樓；門牌號(hào)為 18 代表每層樓共八戶住戶。 ○ 2 業(yè)主 ID： X X X X X X X 業(yè) 主 編 號(hào)樓 層 號(hào)門 牌 號(hào)住 房 樓 區(qū) 號(hào) 其中：住房樓區(qū)號(hào)為 A、 B、 C、 D 共 4 棟樓；樓房號(hào)為 130 共三十層樓；門牌號(hào)為 18 代表每層樓共八戶住戶；業(yè)主編號(hào)為 1100 表示所住同一房間的秩序號(hào)。 表 38 業(yè)主 ID 住 房 樓 區(qū)號(hào) 住宅房單元號(hào) 房間號(hào) 業(yè)主編號(hào) A 1 1 1 B 2 ? ? 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 30 C ? ? ? D 30 8 100 ○ 3 員工 ID 編號(hào)： X X X部 門 編 號(hào)員 工 內(nèi) 部 編 號(hào) 表 39 員工 ID 服務(wù)部 人員 工號(hào) 姓名 工程部 人員 工號(hào) 姓名 信息部 人員 工號(hào) 姓名 財(cái)務(wù)部人員工號(hào) 姓名 F01 何曉 G01 田 敢 X01 張 屋 C01 王莽 F02 張咪 G02 何 殿 X02 鄧 游 C02 張飛飛 F03 王紅 G03 朱珠 X03 孫毅 C03 陳燕 F04 張平 G04 黎平 X04 鄧家 C04 李工 F05 李煜 G05 張樟 X05 吳靈 C05 姚郜 ?? ?? ?? ?? ?? ?? ?? ?? 輸入 /輸出設(shè)計(jì) ① 輸出設(shè)計(jì)工作主要包括：首先，此系統(tǒng)的輸出方式， 主要是電腦屏幕 界面 顯示輸出的表格樣式輸出；其次 ，系統(tǒng) 輸出的類型 有外部輸出，也就是向計(jì)算機(jī)系統(tǒng)外的輸 出，如有關(guān)的業(yè)主信息 表、房間信息表、 報(bào)修 維修 表 、出入信息表、車輛進(jìn)出表、員工表、收費(fèi)表 、儀表數(shù)據(jù)等 。 輸出 的格式主要以表格為主，當(dāng)然其 輸出設(shè)備是打印機(jī)，輸出介質(zhì) 為 打印紙。 ② 輸入設(shè)計(jì)工作主要包括：首先，確保輸入數(shù)據(jù)的分析與內(nèi)容的精確性和 有效性，比如輸入的房間信息和業(yè)主信息是正確的，報(bào)修維修信息是無(wú)誤的等等；其次 ，輸入方式選擇的是鍵盤輸入，輸入設(shè)備有鍵盤、鼠標(biāo)、掃描儀。 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 31 界面設(shè)計(jì) 歡迎界面： 登陸界面： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 32 4 系統(tǒng)實(shí)現(xiàn) 主界面設(shè)計(jì) 報(bào)修維修管理模塊 設(shè)備登記： 報(bào)修管理： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 33 報(bào)修管理查詢： 報(bào)修類型統(tǒng)計(jì)： 對(duì)應(yīng)代碼： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 34 Private Sub Combo2_Change() If Then If = Then MsgBox 請(qǐng)選擇報(bào)修事件 , vbOKOnly + vbInformation, 提示 End If Else If = And xg = ture Then MsgBox 報(bào)修事件不能為 空 !, vbOKOnly + vbInformation, 提示 End If End If End Sub Private Sub Command1_Click() = False End Sub Private Sub Command11_Click() MsgBox 報(bào)修管理總數(shù)為 : amp。 End Sub Private Sub Command2_Click() s = MsgBox(真的要?jiǎng)h除這個(gè)記錄嗎？ , vbYesNo + vbInformation, 刪除記錄 ) If s = vbYes Then If Then End If End If End Sub 維修管理： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 35 維修查詢： 界面和代碼請(qǐng)見(jiàn)附件 2 維修統(tǒng)計(jì)： 界面和代碼請(qǐng)見(jiàn)附件 2 停車場(chǎng)管理模塊 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 36 房屋管理模塊 房間查詢： 請(qǐng)見(jiàn) 附件 2 房產(chǎn)所有權(quán) ： 請(qǐng)見(jiàn)附件 2 監(jiān)理資料： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 37 建筑資料： 收費(fèi)管理模塊 收費(fèi)類別添加： 收費(fèi)類別修改： 請(qǐng)見(jiàn)附件 2 收費(fèi)查詢： 請(qǐng)見(jiàn)附件 2 儀表數(shù)據(jù)： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 38 用戶繳費(fèi)： 應(yīng)收費(fèi)用： 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 39 對(duì)應(yīng)代碼： Private Sub Command10_Click() MsgBox 應(yīng)收費(fèi)用總數(shù)為 : amp。 End Sub Private Sub Command12_Click() Dim txtsql As String Dim msgtext As String Dim dd(4) As Boolean txtsql = select * from 收費(fèi)表 where 0=0 = adCmdText If ( + + = 0) Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else txtsql = txtsql 39。Set mrc = ExecuteSQL(txtsql, msgtext) 39。Set = mrc = txtsql MsgBox txtsql, vbOKOnly, s End If End Sub Private Sub Command8_Click() Dim txtsql As String Dim msgtext As String Dim dd(4) As Boolean txtsql = select * from 應(yīng)繳費(fèi)用表 where 0=0 = adCmdText If Then If Trim() = Then MsgBox 當(dāng)前房間號(hào)不能為空 , vbOKOnly + vbExclamation, 警告 北京理工大學(xué)珠海學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 40 Exit Sub Else txtsql = txtsql amp。 and 房間號(hào) =39。 amp。 Trim() amp。 39。 End If End If If ( + = 0) Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else txtsql = txtsql 39。Set mrc = ExecuteSQL(txtsql, msgtext) 39。Set = mrc = txtsql MsgBox txtsql, vbOKOnly, s End If End