本科-小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁(yè)
2025-02-10 05:45本頁(yè)面
【導(dǎo)讀】1 袁羋蟻螁膀羋莀羇肆莇蒃螀莆薅羅袈蒞螇螈芇莄蕆薁膃莃蕿袆聿莂蟻蠆羅莂莁裊袁莁蒃蚇腿蒀薆袃肅葿蚈蚆羈蒈莈袁羇蕆薀螄芆蕆螞罿膂蒆螅螂肈蒅蒄羈羄肁薇螁袀膀蠆羆膈膀荿蝿肄腿蒁羄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇膄蝕襖羃芄荿蚇衿芃蒂袂膈節(jié)薄蚅膄芁螆羀肀芀蒆螃羆艿薈罿袁羋蟻螁膀羋莀羇肆莇蒃螀莆薅羅袈蒞螇螈芇莄蕆薁膃莃蕿袆聿莂蟻蠆羅莂莁裊袁莁蒃蚇腿蒀薆袃肅葿蚈蚆羈蒈莈袁羇蕆薀螄芆蕆螞罿膂蒆螅螂肈蒅蒄羈羄肁薇螁袀膀蠆羆膈膀荿蝿肄腿蒁羄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇膄蝕襖羃芄荿蚇衿芃蒂袂膈節(jié)薄蚅膄芁螆羀肀芀蒆螃羆艿薈罿袁羋蟻螁膀羋莀羇肆莇蒃螀莆薅羅袈蒞螇螈芇莄蕆薁膃莃蕿袆聿莂蟻蠆羅莂莁裊袁莁蒃蚇腿蒀薆袃肅葿蚈蚆羈蒈莈袁羇蕆薀螄芆蕆螞罿膂蒆螅螂肈蒅蒄羈羄肁薇螁袀膀蠆羆膈膀荿蝿肄腿蒁羄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇膄蝕襖羃芄荿蚇衿芃蒂袂膈節(jié)薄蚅膄芁螆羀肀芀蒆螃羆艿薈罿袁羋蟻螁膀羋莀羇肆莇蒃螀莆薅羅袈
【正文】 (8) NOT NULL 出售信息 Char(20) NULL (4) 處 理故障 表 住戶(hù) 處理故障 表存放小區(qū)內(nèi)住戶(hù)的各種 故障 的所有信息。 表 處理故障表 字段名 數(shù)據(jù)類(lèi)型 可否為空 住址 (主鍵 ) Char(10) NOT NULL 處理故障 Datetime NOT NULL 經(jīng)辦人 Char(10) NULL 處理 時(shí)間 Datetime NULL (5) 收費(fèi)信息表 物業(yè)收費(fèi)表存放小區(qū)內(nèi)住戶(hù)的各種收費(fèi)信息。 表 物業(yè)收費(fèi)表 字段 名 數(shù)據(jù)類(lèi)型 可否為空 住址 (主鍵 ) 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í)間 Datetime NOT NULL 26 第五章 系統(tǒng)詳細(xì)設(shè)計(jì) 經(jīng)過(guò)以上的分析及建摸模，已經(jīng)完成了數(shù) 據(jù)庫(kù)的后臺(tái)工作 。 下面要完成的是 人機(jī)交互的界面 。本系統(tǒng)分為以下三部分： (1) 用戶(hù)登陸； (2) 系統(tǒng)主體平臺(tái)； (3) 通過(guò)主體平臺(tái)調(diào)用的功能模塊。 接下來(lái)即對(duì)各部分作詳細(xì)介紹： 用戶(hù)登陸部分 啟動(dòng)系統(tǒng)程序后 ,首先進(jìn)入系統(tǒng)登陸界面 ,在登陸進(jìn)入主體平臺(tái)的時(shí)候，系統(tǒng)會(huì)要求用戶(hù)輸入用戶(hù)名及密碼作為驗(yàn)證信息，為了防止非用戶(hù)在使用 ,輸入正常信息后便可以使用本系統(tǒng)。 界面截圖如下 : 本模塊代碼如下： Private Sub Command1_Click() Dim strUserName As String Dim strPassword As String Static intLoginTimes As Integer 27 If Trim() = Then 39。如果用戶(hù)名為空 MsgBox 用戶(hù)名不能為空！ , vbOKOnly + vbCritical, 錯(cuò)誤 Exit Sub End If 39。打開(kāi)數(shù)據(jù)庫(kù)中的 用戶(hù)表 39。查找用 戶(hù)名 39。 用戶(hù)名 =39。 amp。 amp。 39。 , , adSearchForward, 1 39。也可以用下面的過(guò)濾方式 = 用戶(hù)名 =39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !用戶(hù)名 strPassword = !密碼 39。Else 39。沒(méi)找到記錄 39。Text1 = 39。Text2 = End If If strUserName = And strPassword = Then 39。關(guān)閉數(shù)據(jù)庫(kù)中的 用戶(hù)表 Unload Me 39。關(guān)閉窗體 39。顯示主窗體 Else 39。用戶(hù)名或密碼不對(duì) MsgBox 用戶(hù)名或密碼不對(duì)！ , vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。超過(guò)三次 39。關(guān)閉數(shù)據(jù)庫(kù)中 的 用戶(hù)表 End 39。退出整個(gè)程序 End If 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 小區(qū)住戶(hù)信息管理模塊 住戶(hù)資料 主要是對(duì)住戶(hù)的基本信息如 (住戶(hù)電話、住戶(hù)姓名、物業(yè)地址、身份證號(hào)、入住時(shí)間等信息 )和另外兩個(gè)標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢(xún)。 28 添加、修改、刪除這些操作必須保存后才能生效。當(dāng)記錄較多， 通過(guò) 簡(jiǎn)單 的 查詢(xún)可以 方便的找的 目標(biāo)記錄，查詢(xún)結(jié)果已表格方式顯示。表格顯示結(jié)果的同時(shí)，如果還出現(xiàn)多條記錄，可以根據(jù)某個(gè)字段對(duì)記錄進(jìn)行排序，這樣可以給用戶(hù)帶來(lái)更大的方便和提高查找效率。 界面截圖如下 : 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(戶(hù)主 ) = rs(住址 ) = rs(電話 ) = rs(入住時(shí)間 ) = rs(身份證號(hào)碼 ) End If End Sub 29 Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 住戶(hù)基本信息表 (戶(hù)主 ,住址 ,電話 ,入住時(shí)間 ,身份證號(hào)碼 ) 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 住戶(hù)基本信息表 set 住址 = 39。 + + 39。 ,戶(hù)主 = 39。 + + 39。,電話 = 39。 + + 39。,入住時(shí)間 = 39。 + + 39。 where 身份證號(hào)碼 =39。 + + 39。 End If strsql = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 住戶(hù)基本信 息表 where 住址 = 39。 + + 39。 strsql = = = = = MsgBox 刪除成功 30 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 住戶(hù)基本信息表 Set rs = (strsql) End Sub 房屋信息管理模塊 房產(chǎn) 資料 主要是對(duì)住戶(hù)的基本信息如 (物業(yè)地址、使用面積、房屋結(jié)構(gòu)、設(shè)備、出售信 息等信息 )的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。添加、修改、刪除這些操作必須保存后才能生效。當(dāng)記錄較多，通過(guò)簡(jiǎn)單的查詢(xún)可以方便的找的目標(biāo)記錄，查詢(xún)結(jié)果已表格方式顯示。表格顯示結(jié)果的同時(shí)，如果還出現(xiàn)多條記錄，可以根據(jù)某個(gè)字段對(duì)記錄進(jìn)行排序，這樣可以給用戶(hù)帶來(lái)更大的方便和提高查找效率。 界面截圖如下 : 31 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(住址 ) = rs(設(shè)備 ) = rs(房屋結(jié)構(gòu) ) = rs(房屋面積 ) = rs(出售信息 ) End If End Sub Private Sub Command2_Click() Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 房屋基本信息 (住址 ,設(shè)備 ,房屋結(jié)構(gòu) ,房屋面積 ,出售信息 ) values (39。 + + 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) strsql 32 = = = = = MsgBox 添加成功 End Sub Private Sub Command3_Click() Dim strsql As String If MsgBox(是否要修改此記錄 , 32 + 1, 修改 ) = 1 Then
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1