【正文】 行的基本的需求分析，也就是本系統(tǒng)所要實(shí)現(xiàn)的基本功能。但是，這并不是整個系統(tǒng) 的全部需求，對系統(tǒng)不斷出現(xiàn)的新需求，需要系統(tǒng)在日后的使用中通過系統(tǒng)的更新與維護(hù)來實(shí)現(xiàn)。這樣，才能使系統(tǒng)得到不斷的完善，功能更加強(qiáng)大，與用戶的交互性更強(qiáng)。 功能分析 3． 2． 1 系統(tǒng)用戶管理功能 (1) 系統(tǒng)用戶的添加，包括用戶名、密碼信息。 3． 2． 2 小區(qū)住戶信息管理功能 (1) 住戶基本信息的錄入，包括住戶 電話 、住戶姓名、物業(yè)地址、 身份證號 、入住時間等信息。 (2) 住戶基本信息的修改。 (3) 住戶基本信息的刪除。 (4) 住戶基本信息的查詢。 3． 2． 3 小區(qū)房產(chǎn)信息管理功能 (1) 房產(chǎn) 基本信息的錄入，包括物業(yè)地址、使用面積、 房屋結(jié)構(gòu) 、 設(shè)備 、 出售信息 等信息。 (2) 房產(chǎn)基本信息的修改。 (3) 房產(chǎn)基本信息的刪除。 (4) 房產(chǎn)基本信息的查詢。 22 3． 2． 4 小區(qū)收費(fèi)管理功能 (1) 其中包括物業(yè)收費(fèi)和儀表收費(fèi)兩大類信息的錄入，包括收費(fèi) 住址 、 水費(fèi) 、電費(fèi) 、 寬帶費(fèi) 、 物業(yè)管理費(fèi) 、 收費(fèi)時間 等信息。 (2) 收費(fèi)基本信息的修改。 (3) 收費(fèi)基本信息的刪除。 (4) 收費(fèi)基本信息的查詢。 3． 2． 5 小區(qū)住戶 故障處理 管理功能 (1) 住戶報修基本信息的錄入，包括 住址 、報修 故障 、 經(jīng)辦人 、 處理時 間 、查詢 等信息。 (2) 住戶 故障 基本信息的修改。 (3) 住戶 故障 基本信息的刪除。 (4) 住戶 故障 基本信息的查詢。 3． 2． 6 退出 退出小區(qū)物業(yè)管理系統(tǒng)。 23 第四章 系統(tǒng)總體設(shè)計 4． 1 系統(tǒng)總體結(jié)構(gòu)設(shè)計 小區(qū)物業(yè)管理系統(tǒng) 部分實(shí)體 ER圖 如下所示 : ?? 圖 住戶基本信息實(shí)體 ER 圖 ?? 圖 房產(chǎn)基本信息實(shí)體 ER 圖 ?? 圖 住戶投訴基本信息實(shí)體 ER 圖 小區(qū)住戶基本信息實(shí)體 住戶姓名 住戶電話 物業(yè)地址 入住時間 小區(qū)房產(chǎn)基本信息實(shí)體積 物業(yè)地址 使用面積 房屋結(jié)構(gòu) 出售信息 故障基本信息實(shí)體 住 址 報修故障 處理時間 經(jīng)辦人 24 4． 2 系統(tǒng)結(jié) 構(gòu)圖 4． 3 數(shù)據(jù)庫的設(shè)計 (1) 用戶表 用戶 表存放登陸系統(tǒng)所需要的用戶名和密碼，需要訪問此表。 表 用戶表 字段名 數(shù)據(jù)類型 可否為空 用戶名 （主鍵） Char(10) NOT NULL 密碼 Int NOT NULL (2) 住戶基本信息表 住戶表存放小區(qū)內(nèi)所有的住戶信息，這些信息也是小區(qū)物業(yè)管理的基本信息，在實(shí)現(xiàn)系統(tǒng)的各個功能中起真非常重要的作用。 表 住戶基本信息表 表 字段名 數(shù)據(jù)類型 可否為空 住址 (主鍵 ) Char(10) NOT NULL 戶主 Char(10) NOT NULL 身份證號碼 Varchar(50) NOT NULL 電話 Char(20) NULL 入住時間 Datetime NULL 系統(tǒng)設(shè)置 基本信息管理 信息查詢 故障處理 退出系統(tǒng) 添加用戶 住戶管理 房屋管理 收費(fèi)管理 收費(fèi)信息 住戶信息 房屋信息 故障查詢 故障處理 小區(qū)物業(yè)管理系統(tǒng) 25 (3) 房屋基本信息 房產(chǎn)表存放小區(qū)內(nèi)的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。 表 房屋基本信息 表 字段名 數(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 (4) 處理故障 表 住戶 處理故障 表存放小區(qū)內(nèi)住戶的各種 故障 的所有信息。 表 處理故障表 字段名 數(shù)據(jù)類型 可否為空 住址 (主鍵 ) Char(10) NOT NULL 處理故障 Datetime NOT NULL 經(jīng)辦人 Char(10) NULL 處理 時間 Datetime NULL (5) 收費(fèi)信息表 物業(yè)收費(fèi)表存放小區(qū)內(nèi)住戶的各種收費(fè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)時間 Datetime NOT NULL 26 第五章 系統(tǒng)詳細(xì)設(shè)計 界面設(shè)計與功能 經(jīng)過以上的分析及建摸模，已經(jīng)完成了數(shù)據(jù)庫的后臺工作 。 下面要完成的是 人機(jī)交互的界面 。本系統(tǒng)分為以下三部分： (1) 用戶登陸； (2) 系統(tǒng)主體平臺； (3) 通過主體平臺調(diào)用的功能模塊。 接下來即對各部分作詳細(xì)介紹： 用戶登陸部分 啟動系統(tǒng)程序后 ,首先進(jìn)入系統(tǒng)登陸界面 ,在登陸進(jìn)入主體平臺的時候，系統(tǒng)會要求用戶輸入用戶名及密碼作為驗(yàn)證信息，為了防止非用戶在使用 ,輸入正常信息后便可以使用本系統(tǒng)。 界面截圖如下 : 本模塊代碼如下： Private Sub Command1_Click() Dim strUserName As String Dim strPassword As String Static intLoginTimes As Integer 27 If Trim() = Then 39。如果用戶名為空 MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If 39。打開數(shù)據(jù)庫中的 用戶表 39。查找用戶名 39。 用戶名 =39。 amp。 amp。 39。 , , adSearchForward, 1 39。也可以用下面的過濾方式 = 用戶名 =39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !用戶名 strPassword = !密碼 39。Else 39。沒找到記錄 39。Text1 = 39。Text2 = End If If strUserName = And strPassword = Then 39。關(guān)閉數(shù)據(jù)庫中的 用戶表 Unload Me 39。關(guān)閉窗體 39。顯示主窗體 Else 39。用戶名或密碼不對 MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。超過三次 39。關(guān)閉數(shù)據(jù)庫中的 用戶表 End 39。退出整個程序 End If 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 小區(qū)住戶信息管理模塊 住戶資料 主要是對住戶的基本信息如 (住戶電話、住戶姓名、物業(yè)地址、身份證號、入住時間等信息 )和另外兩個標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢。 28 添加、修改、刪除這些操作必須保存后才能生效。當(dāng)記錄較多， 通過 簡單 的 查詢可以 方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。表格顯示結(jié)果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進(jìn)行排序，這樣可以給用戶帶來更大的方便和提高查找效率。 界 面截圖如下 : 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(戶主 ) = rs(住址 ) = rs(電話 ) = rs(入住時間 ) = rs(身份證號碼 ) End If End Sub 29 Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 住戶基本信息表 (戶主 ,住址 ,電話 ,入住時間 ,身份證號碼 ) values (39。 + + 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 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。 + + 39。,入住時間 = 39。 + + 39。 where 身份證號碼 =39。 + + 39。 End