【正文】 39。單元號 (4).Width = 1000 39。房屋類型 (5).Width = 1200 39。住戶姓名 (6).Width = 1000 39。電話 (7).Width = 1000 39。入住日期 (8).Width = 1000 (9).Width = 1000 End Sub Private Sub Cmd_Add_Click() 39。設置 Modify 變量為 False，表示插入新數據 = False 39。設置 OriId，表示沒有 要修改的業(yè)主編號 = 0 39。啟動編輯業(yè)主信息的窗體 1 39。刷新顯示數據 Refresh_Owner End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() Dim TmpId As Long 沈陽理工大學課程實踐（論文） 28 39。判斷是否選擇了要刪除的記錄 If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。保存當前的記錄位置 p = 39。讀取當前記錄的戶型信息 TmpId = (0) 39。確認刪除 If MsgBox(是否刪除當前行 ?, vbYesNo, 確認 ) = vbYes Then (TmpId) MsgBox 刪除成功 Refresh_Owner If p 1 0 Then p 1 End If End If End Sub If (9) Then = Trim((9)) End If 39。設置修改狀態(tài)標記 = True 39。修改狀態(tài)時，房間相關信息不允許修改 = False = False = False 39。啟動窗體 1 沈陽理工大學課程實踐（論文） 29 39。刷新顯示數據 Refresh_Owner 39?；謴陀涗浳恢? p End Sub Private Sub dco_Bld_Click(Area As Integer) Refresh_Owner End Sub Private Sub Form_Load() = Conn = Select * From Building Order By BuildingNo Set = Ado_Bld = BuildingNo = BuildingNo 39。刷新顯示 Refresh_Owner End Sub 編輯收費項目信息 新建一個表單，命名為“ 編輯收費項目信息 ”。把表單 Caption 屬性設置為“ 編輯收費項目信息 ”；在“ 編輯收費項目信息 ”表單上放置相應的控件， 4個標簽 Label， 2個文本框 Text,2 個命令按鈕組 CommandGroup，更改其中控件的Caption 屬性，表單如圖 所示。 沈陽理工大學課程實踐（論文） 30 圖 具體代碼編寫如下： （ 1） “ 確定 ” 按鈕的 click 事件 Private Sub Cmd_OK_Click() If Check = False Then Exit Sub End If With MyChargeItem .ItemName = Trim(txtItem) .UnitPrice = Val(txtUnitPrice) .ItemType = Trim() .PayCycle = Trim() If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriId) MsgBox 修改成功 End If End With Unload Me 沈陽理工大學課程實踐（論文） 31 End Sub （ 2） “ 取消 ” 按鈕的 click 事件 Private Sub Cmd_Cancel_Click() Unload Me End Sub 收費信息管 理 新建一個表單，命名為“ 收費信息管理 ”。把表單 Caption 屬性設置為“ 收費信息管理 ”；在“ 收費信息管理 ”表單上放置相應的控件， 1個表格 Grid， 2個命令按鈕 Command，更改其中控件的 Caption 屬性，表單如圖 。 圖 主要代碼編寫如下： （ 1） “ 添加收費 ”按鈕的 Click 事件代碼 Private Sub Cmd_Add_Click() = 0 = 0 = Date = 0 1 Refresh_Charging End Sub 沈陽理工大學課程實踐（論文） 32 （ 2）“返回”按鈕的 Click 事件代碼 Private Sub Cmd_Back_Click() Unload Me End Sub 編輯用戶信息 新建一個表單，命名為“ 編輯用戶信息 ”。把表單 Caption 屬性設置為“ 編輯用戶信息 ”；在“ 編輯用戶信息 詢”表單上放 置相應的控件， 3 個標簽 Label，3個文本框 text， 2個命令按鈕 Command，更改其中控件的 Caption 屬性，表單如圖 所示。 圖 具體代碼編寫如下： （ 1）“確定 ”按鈕的 Click 事件代碼 Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 沈陽理工大學課程實踐（論文） 33 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 = 0 = Len(txtPass2) Exit Sub End If With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經存在，請重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If .UserName = Trim(txtUserName) .UserPwd = Trim(txtPass) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriUser) If OriUser = And Trim(txtUserName) OriUser Then 沈陽理工大學課程實踐（論文） 34 = Trim(txtUserName) () End If MsgBox 修改成功 End If End With Unload Me End Sub （ 2） “ 取消 ” 按鈕的 click 事件 Private Sub Cmd_Cancel_Click() Unload Me End Sub 其他表單 其他表單修改的代碼實現和窗體的設計由于功能相似就不在此一一列出。 沈陽理工大學課程實踐（論文） 35 結束語 至此，小區(qū)物業(yè)管理系統設計與實現順利完成。在幾天的試運行的過程中，在連接數據庫時一度出現過錯誤，經過調試改正后錯誤點全部清楚，此系統可以按著設計思想和需求功能正常運行。 由于當今的物業(yè)管理部門還不能有一個很統一的模式化，所以本系統僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項功能，一個完好的小區(qū)物業(yè)管理系統還需要更多更復雜的功能要求。由于開發(fā)周期短和開發(fā) 人員等局限性，不能將本套系統盡善盡美。希望在以后能夠對小區(qū)的物業(yè)做更深一步的調研，在原由系統的基礎上不斷添加新功能。最終能夠開發(fā)出一套完善的小區(qū)物業(yè)管理系統。 本系統在開發(fā)過程中， 我發(fā)現了自己本身的很多不足之處，以前上課時總覺著老師講的知識都掌握了，認為做一個系統對自己來說并不難，但是經過這兩周的課程設計我發(fā)現自己有很多的不足。首先是對知識的掌握上很粗范，并不能精確地掌握所學知識，往往再用到的時候才發(fā)現原來這里是這樣的啊，并不是以前所理所當然認為的那樣，這就給我在系統設計過程中 造成很多困難，不得不停下來去查 找資料，使設計的周期延長 ；其次就是動手能力很差，對一些程序設計的語言掌握的也不好，經過想組員和同學的請教弄懂了很多這方面的問題。總之通過這次的課程設計我受益良多。 沈陽理工大學課程實踐（論文） 36 參考文獻 [1] 金敏力，田兆福 .管理信息系統 .北京：科學出版社， 1999 年 [2] 安忠等 .管理信息系統 .北京：中國鐵道出版社， 1998 年 [3] 馮玉琳等 .對象技術導論 .北京：科學出版社， 1998 年 [4] 黃梯云 .管理信息系統（修訂版） .北京：高等教育出版社， 2021 年 [5] 張剛 .信息系統開發(fā)實踐教程 .成都：電子科 技大學出版社， 2021 年 [6] 張金成 .管理信息系統 .北京：北京大學出版社， 2021 年 [7] 易榮華 .管理信息系統 .北京：高等教育出版社， 2021 年 [8] 王申康，朱曉云 .面向對象程序設計導論 .杭州：浙江大學出版社， 1999 年