1、 No27摘 要對于小區(qū)物業(yè)管理來說，其工作流程的繁雜性、多樣化、管理復雜、收繳費用與設備維護繁瑣。計算機已完全能夠勝任物業(yè)管理工作，而且更加準確、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之處。這將給項目查詢和管理帶來很大的方便，從而給物業(yè)管理工作帶來更高的效率，這也是物業(yè)管理正規(guī)化、現代化的重要標志。因此，開發(fā)一套高效率、無差錯的小區(qū)物業(yè)管理系統軟件十分必要。本文的主要運用SQL和VB,開發(fā)一個物業(yè)信息管理系統，目的是告別紙質賬本，安全、快捷的保存數據信息。由于小區(qū)物業(yè)管理涉及到費用問題，為了增強系統的保密性，使業(yè)主利益不受損害，使業(yè)主能夠對自家的物業(yè)費用和投訴等情況提供透

2、明化、直觀的了解。關鍵詞：小區(qū)物業(yè)；管理系統；SQL；VB；過程第1章 系統功能概述1.1 設計目的及意義 掌握數據庫的創(chuàng)建方法。掌握用一種語言（如VB）開發(fā)數據庫應用程序的方法。對于小區(qū)物業(yè)管理來說，其工作流程的繁雜性、多樣化、管理復雜、收繳費用與設備維護繁瑣。計算機已完全能夠勝任物業(yè)管理工作，而且更加準確、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之處。這將給項目查詢和管理帶來很大的方便，從而給物業(yè)管理工作帶來更高的效率，這也是物業(yè)管理正規(guī)化、現代化的重要標志。因此，開發(fā)一套高效率、無差錯的小區(qū)物業(yè)管理系統軟件十分必要。本系統的主要目的是告別帳本，安全、快捷的保存數據信息。

3、由于小區(qū)物業(yè)管理涉及到費用問題，為了增強系統的保密性，使業(yè)主利益不受損害，本系統具有僅管理員式的保密功能，還有查詢、錄入、修改、刪除、以及對物業(yè)設備統計等功能，使業(yè)主能夠對自家的物業(yè)費用和投訴等情況提供透明化、直觀的了解。本系統采用SQL server 2008作為后臺數據庫，這樣是數據能夠得到統一，并增強了管理的安全性。1.2 功能模塊劃分對高圓寺小區(qū)物業(yè)的相關業(yè)務進行分析后，確定房高圓寺小區(qū)物業(yè)信息管理系統應該實現的功能如下：（1） 用戶登錄，用于小區(qū)用戶登錄此系統。（2） . 管理員登陸，用于物業(yè)管理員登陸此系統。（3） 注冊頁面，用于注冊新用戶。（4） 編輯模塊，主要實現基本信息的管理

4、及系統參數的設置，包括：業(yè)主、費用、服務等信息的登記管理、瀏覽、添加、刪除等功能，還有退出系統等一些基本操作。 （5） 查詢模塊，用于業(yè)主、費用、服務信息的查詢。（6） 用戶評價模塊，用于該小區(qū)用戶對物業(yè)管理漏洞的投訴與建議的提出。（7） . 相關信息模塊，該模塊顯示一些小區(qū)的基本信息。 第2章 數據庫設計2.1 需求分析物業(yè)信息管理系統文件數據管理查詢用戶評價關于注冊新用戶退出業(yè)主信息費用信息服務信息交費信息服務反饋信息業(yè)主信息查詢費用信息查詢服務信息查詢建議投訴關于系統幫助圖2.1 功能模塊結構2.2 E-R模型實體E-R圖： 業(yè)主信息姓名面積業(yè)主編號性別門牌號電話 圖2.21 業(yè)主信息E

5、-R圖收費信息收費編號收費名稱單價說明圖2.22 收費信息E-R圖項目名稱負責人項目編號服務信息圖2.23 服務信息E-R圖關系E-R圖： 業(yè)主信息服務信息收費信息收費服務反饋業(yè)主編號姓名門牌號性別面積電話費用編號單價說明費用名稱收款人金額用量日期負責人項目名稱項目編號時間效果 圖2.24 關系E-R圖2.3 關系模型登陸（用戶名、密碼、投訴、建議）管理員（管理員、密碼）業(yè)主信息（業(yè)主編號、姓名、性別、面積、門牌號、電話）收費信息（收費編號、收費名稱、單價、說明）服務信息（項目編號、項目名稱、負責人）業(yè)主交費（收費編號、業(yè)主編號、金額、日期、收款人、用量）其中，“收費編號、業(yè)主編號”是外碼，“

6、收費編號”參照收費信息表主碼“收費編號”，“業(yè)主編號”參照業(yè)主信息表主碼“業(yè)主編號”。業(yè)主服務（項目編號、業(yè)主編號、時間、服務效果）其中，“項目編號、業(yè)主編號”是外碼，“項目編號”參照收費信息表主碼“項目編號”，“業(yè)主編號”參照業(yè)主信息表主碼“業(yè)主編號”。2.4 表結構設計登陸表：登陸表里輸入的結果如下：管理員賬戶表：管理員賬戶表輸入的信息：業(yè)主信息表：業(yè)主信息表里輸入的結果如下：收費信息表：收費信息表里輸入的結果如下：服務信息表：服務信息表里輸入的結果如下：業(yè)主交費表：業(yè)主交費表輸入的信息：業(yè)主服務表：業(yè)主服務表輸入的信息：第3章 系統各功能模塊的詳細設計3.1 進入系統頁面：運行時的界面如

7、下圖，其中的進入系統按鈕的功能是進入登陸頁面。圖3.1 進入系統頁面3.2 登錄頁面：進入登陸頁面后如下圖，其中登陸按鈕功能如下：（1）檢測數據庫中有無管理員帳號,如果有,則等待用戶輸入用戶名和密碼,否則不能進入系統。（2）驗證用戶名和密碼是否正確,錯誤次數不能超過三次,超過三次則退出系統登陸界面。（3）當驗證通過后,檢測該登錄用戶的管理權限,并設置變量傳值給主窗體。點擊“進入系統”便可以進入房產管理系統了。登錄代碼：Dim miCount As Integer 用于記錄輸入密碼次數Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr =

8、Select * From 系統信息 Where 用戶名= & Text1.Text & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若沒找到符合Where條件的記錄MsgBox 用戶名錯誤，重新輸入, vbExclamation, 警告Text1.Text = Text1.SetFocus Text1獲得焦點Else 判斷密碼是否正確If Adodc1.Recordset.Fields(密碼) = Text2.Text Then主控頁面.ShowUnload MeElseMsgBox 密碼錯誤，

9、重新輸入 , vbExclamation, 警告Text2.Text = Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeForm3.ShowEnd Sub 圖3.2 登錄頁面3.3 注冊頁面：注冊代碼：Private Sub CmdOk_Click()Dim sqlstr As StringIf Text1 = ThenMsgBox 請輸入用戶名！, vbExclamation, 確認用戶名 Text1.SetFocus Exit SubElse sqlstr = Select * fro

10、m 系統信息 where 用戶名= & Text1.Text & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 用戶名已存在，請重新輸入！, vbExclamation, 檢驗用戶名 Text1 = Text1.SetFocus Exit Sub End IfEnd If判斷二次輸入密碼是否一致：If Text2.Text Text3.Text Then MsgBox 二次輸入的密碼不一致，請重新輸入, vbExclamation, 檢驗密碼 Text2 = : T

11、ext3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗密碼 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用戶名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注冊新用戶！, vbInformation, 添加用戶End IfEnd Sub操作如下：

12、注冊新用戶“11”，再使用這個新用戶登錄。圖3.2 注冊頁面3.4 主控頁面：登錄后便進入了主控頁面，在這里可以進行添加，刪除，查詢，打印報表等功能。主控頁面所有代碼：Private Sub exit_Click()Unload MeEnd SubPrivate Sub fankui_Click()Formfankui.ShowEnd SubPrivate Sub feiyong_Click()Formshoufei.ShowEnd SubPrivate Sub fuwu_Click()Formfuwuxinxi.ShowEnd SubPrivate Sub gaunyu_Click()For

13、mguanyu.ShowEnd SubPrivate Sub install_Click()Formzhuce.ShowEnd SubPrivate Sub jianyi_Click()Formjianyi.ShowEnd SubPrivate Sub jiaofei_Click()Formjiaofei.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub searchc_Click()Formsearchc.ShowEnd SubPrivate Sub searchp_Click()Formsearchp.ShowEnd SubPr

14、ivate Sub searchs_Click()Formsearchs.ShowEnd SubPrivate Sub tousu_Click()Formtousu.ShowEnd SubPrivate Sub yezhu_Click()Formyezhu.ShowEnd Sub圖3.4 主控頁面主控頁面中包括文件，數據管理，查詢，用戶評價、幫助等菜單；文件的子菜單有注冊新用戶，退出；數據管理的子菜單有業(yè)主信息，費用信息，服務信息、交費信息、服務反饋信息；數據查詢的子菜單有查詢業(yè)主信息信息及與業(yè)主相關的交費信息，查詢費用信息及與費用相關的交費信息，查詢服務信息及相關服務反饋信息；用戶評價的子菜

15、單有投訴和建議；菜單設計如下：3.5 編輯頁面：這個頁面上可以顯示所有的記錄數，同時還可以進行添加，刪除，前后移動記錄數的功能。添加按鈕代碼： Private Sub CmdAdd_Click() 添加按鈕的單擊事件 Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = TrueEnd Sub確認按鈕代碼：Private Sub CmdOk_Click() 單擊確認按鈕Adodc1.Recordset.UpdateCmdAdd.Ena

16、bled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub刪除按鈕代碼：Private Sub CmdDel_Click() 單擊刪除按鈕x = MsgBox(確實要刪除當前記錄嗎？, vbYesNo + vbQuestion, 確認)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd If取消按鈕

17、代碼： Private Sub CmdEsc_Click() 取消按鈕Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub首記錄按鈕代碼：Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled = False 讓首記錄按鈕無效CmdPre.Enabled = False 讓前移按鈕無效CmdNext.Enabled =

18、 True 讓后移按鈕有效CmdLast.Enabled = True 讓末記錄按鈕有效在Label6上顯示當前記錄號/記錄總數：Label6.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub前移按鈕代碼：Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious 記錄指針移到前一條記錄CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset

19、.BOF Then 如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfLabel6.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub后移按鈕代碼：Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext 記錄指針移到下一條記錄CmdFirst.Enabled

20、= TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub末記錄按鈕代碼：Private Sub CmdLast_Click() Adod

21、c1.Recordset.MoveLast 移到末記錄 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel6.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub移動記錄數按鈕代碼：Private Sub CmdN_Click()Dim n As Integern = Text7.TextAdodc1.Recordset.

22、Move nIf Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel7.Caption = 記錄： & Ado

23、dc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountAdodc1.RefreshEnd Sub業(yè)主信息，費用信息，服務信息，交費信息和服務反饋信息的編輯如下：圖3.51 業(yè)主信息圖3.52 費用信息圖3.53 服務信息圖3.54 業(yè)主交費圖3.55 服務反饋3.6 查詢頁面：查詢頁面可以通過各種查詢條件對所需要的結果進行篩選，從而得到自己所需要的結果。在得到的結果中還可以進一步查詢與結果相關的其他信息業(yè)主信息的查詢代碼：Private Sub Command1_Click()Dim str As StringAdod

24、c1.CommandType = adCmdTextAdodc1.RecordSource = select * from 業(yè)主信息 where 業(yè)主信息. & Combo1.Text & like % & Text1.Text & %Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()Dim sqlstr As Stringsqlstr = Select * from 業(yè)主交費 where 業(yè)主編號 = & A

25、dodc1.Recordset.Fields(業(yè)主編號) & Adodc2.RecordSource = sqlstr 設置Adodc 2連接的記錄源Adodc2.RefreshDataGrid2.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Height = 8400Me.Width = 10200Combo1.AddItem 姓名Combo1.AddItem 業(yè)主編號Combo1.AddItem 門牌號Combo1.AddItem 面積Combo1.AddItem 性別End Sub圖3.61 業(yè)主信息查詢當點擊結果表時如圖：圖3.62 業(yè)主

26、的交費信息戶型信息表的查詢代碼如下：Private Sub Command1_Click()Dim str As StringAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 收費信息 where 收費信息. & Combo1.Text & like % & Text1.Text & %Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_Clic

27、k()Dim sqlstr As Stringsqlstr = Select * from 業(yè)主交費 where 收費編號 = & Adodc1.Recordset.Fields(收費編號) & Adodc2.RecordSource = sqlstr 設置Adodc 2連接的記錄源Adodc2.RefreshDataGrid2.Visible = TrueEnd SubPrivate Sub Form_Load()Combo1.AddItem 收費編號Combo1.AddItem 收費名稱Me.Height = 8400Me.Width = 10200End Sub圖3.62 收費信息查詢樓房查詢代碼如下：Private Sub Command1_Click()Di