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