20xx畢業(yè)設(shè)計(jì)-vb小區(qū)物業(yè)管理系統(tǒng)-閱讀頁
2024-12-19 06:44本頁面
【正文】 Trim() = Then 39。打開數(shù)據(jù)庫中的 用戶表 39。 用戶名 =39。 amp。 , , adSearchForward, 1 39。 amp。 39。找到記錄 strUserName = !用戶名 35 strPassword = !密碼 39。沒找到記錄 39。Text2 = End If If strUserName = And strPassword = Then 39。關(guān)閉窗體 39。用戶名或密碼不對(duì) MsgBox 用戶名或密碼不對(duì)！ , vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。關(guān)閉數(shù)據(jù)庫中的 用戶表 End 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 小區(qū)住戶信息管理模塊 住戶資料主要是對(duì)住戶的基本信息如 (住戶電話、住戶姓名、物 36 業(yè)地址、身份證號(hào)、入住時(shí)間等信息 )和另外兩個(gè)標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢。當(dāng)記錄較多， 通過 簡(jiǎn)單 的 查詢 可以 方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。 界面截圖如下 : 本模塊代碼如下： 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。,39。 amp。,39。 amp。,39。 amp。,39。 amp。) 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。,入住時(shí)間 = 39。 where 身份證號(hào)碼 =39。 38 End If strsql = = = = = MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 住戶基本信息表 where 住址 = 39。 strsql = = = = = MsgBox 刪除成功 End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() 39 Unload Me End Sub Private Sub Form_Load() Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 住戶基本信息表 Set rs = (strsql) End Sub 房屋信息管理模塊 房產(chǎn)資料主要是對(duì)住戶的基本信息如 (物業(yè)地址、使用面積、房屋結(jié)構(gòu)、設(shè)備、出售信息等信息 )的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。當(dāng)記錄較多，通過簡(jiǎn)單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。 界面截圖如下 : 40 本模塊代碼如下： Private Sub Command1_Click() If = False Then = rs(住址 ) = rs(設(shè)備 ) = rs(房屋結(jié)構(gòu) ) = rs(房屋面積 ) = rs(出售信息 ) End If End Sub Private Sub Command2_Click() 41 Dim strql As String Set db = OpenDatabase( + \) strsql = Insert Into 房屋基本信息 (住址 ,設(shè)備 ,房屋結(jié)構(gòu) ,房屋面積 ,出售信息 ) values (39。,39。 amp。,39。 amp。,39。 amp。,39。 amp。) 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。 ,設(shè)備 = 39。,房屋結(jié)構(gòu) = 39。,房屋面積 = 39。 where 出售信息=39。 End If strsql = = = = = 42 MsgBox 修改成功 End Sub Private Sub Command4_Click() Dim strqsl As String Set db = OpenDatabase( + \) strsql = delete * from 房屋基本信息 where 住址 = 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ù)。記錄 較多，通過簡(jiǎn)單的查詢可以方便的找的目標(biāo)記錄，查詢結(jié)果已表格方式顯示。 界面截圖如下 : 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。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。) strsql = = = = = = = MsgBox 添加成功 End Sub Private Sub Command3_Click() Dim strsql As String If MsgBox(是否要修改此記錄 , 32 + 1, 修改 ) = 1 Then Set db = OpenDatabase( + \) strsql = update 收費(fèi)信息表 set 住址 = 39。 ,水費(fèi) = 39。,電費(fèi) = 39。,寬帶 = 39。,垃圾清運(yùn)費(fèi) =39。,物業(yè)管理費(fèi) = 39。,收費(fèi)時(shí)間 = 39。 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。 strsql = = = = = = = MsgBox 刪除成功 End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Command6_Click() 47 Unload Me End Sub Private Sub Form_Load() Dim strsql As String Set db = OpenDatabase( + \) strsql = select * from 收費(fèi)信息表 Set rs = (strsql) End Sub 48 結(jié)束語 至此，小區(qū)物業(yè)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)順利完成。 由于當(dāng)今的物業(yè)管理部門還不能有一個(gè)很統(tǒng)一的模式化，所以本系統(tǒng)僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項(xiàng)功能，一個(gè)完好的小區(qū)物業(yè)管理系統(tǒng)還需要更多更復(fù)雜的功能要求。希望在以后能夠?qū)π^(qū)的物業(yè)做更深一步的調(diào)研，在原由系統(tǒng)的基礎(chǔ)上不斷添加新功能。 本系統(tǒng)在開發(fā)過程中，在固定的物業(yè)管理要求的模式下還添加了一些人性化的，個(gè)人的構(gòu) 思和創(chuàng)意。希望本系統(tǒng)能夠給用戶帶來方便。我在負(fù)責(zé)人及指導(dǎo)教師的指導(dǎo)下，順利的完成了這套小區(qū)物業(yè)管理系統(tǒng)。這使得我對(duì)以后的工作充滿了信息。今后我會(huì)以此次的畢業(yè)設(shè)計(jì)為起點(diǎn)邁向更
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1