【正文】 = True SetButton (False) //設(shè)定按鈕不可訪問 SetInputBox //清輸入框?yàn)榭誆nd SubPrivate Sub Command2_Click() //刪除按鈕單擊事件 DelBaseInfo //實(shí)現(xiàn)數(shù)據(jù)庫記錄刪除 Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù)End SubPrivate Sub Command3_Click() intType = 2 //當(dāng)前執(zhí)行修改操作 = True //使控件有效，可訪問 = True Call CSetButton(False) //設(shè)按鈕不可用End Sub 住戶投訴管理本窗體用于管理用戶的投訴信息，實(shí)現(xiàn)了對(duì)此類信息的新增、刪除、修改。 \) SQLs = Select * From Repair where 單據(jù)編號(hào)=39。 amp。 Set Rs = (SQLs, dbOpenDynaset) If Then (單據(jù)編號(hào)) = (住戶名稱) = (維修人員) = (報(bào)修日期) = (服務(wù)費(fèi)用) = (物料費(fèi)用) = (費(fèi)用合計(jì)) = (報(bào)修內(nèi)容) = MsgBox 添加成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddRepair = True Else 住戶繳費(fèi)管理本窗體用于管理用戶的投訴信息，實(shí)現(xiàn)了對(duì)此類信息的增加、刪除2個(gè)主要功能，主要代碼如下：Private Function AddTouShu() As Boolean 39。 \) SQLs = Select * From DataMoney where 單據(jù)編號(hào)=39。 amp。 Set Rs = (SQLs, dbOpenDynaset) If Then (單據(jù)編號(hào)) = (住戶名稱) = (繳費(fèi)日期) = (收費(fèi)人員) = (繳費(fèi)方式) = (繳費(fèi)總額) = (備注) = MsgBox 添加成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddTouShu = True Else MsgBox 此編號(hào)已存在,請(qǐng)不重復(fù)!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddTouShu = False End If Set Rs = Nothing Set Db = Nothing Set Ws = NothingEnd FunctionPublic Function DelTouShu() 39。 \) SQLs = Select * From DataMoney where 單據(jù)編號(hào)=39。 amp。 Set Rs = (SQLs, dbOpenDynaset) If Not Then MsgBox 刪除成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) Else MsgBox 無此繳費(fèi)信息!, 64, 小區(qū)物業(yè)管理系統(tǒng) End If Set Rs = Nothing Set Db = Nothing Set Ws = NothingEnd Function 住戶停車位管理本窗體主要實(shí)現(xiàn)對(duì)停車位的使用情況進(jìn)行管理。 系統(tǒng)的配置 硬件配置要求(最低)： CPU：PII200以上。 硬盤： 打印機(jī)：推薦EPSON LQ1600KII軟件配置要求： WINDOWS95/98/200/XP中文版操作系統(tǒng)。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個(gè)要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。 系統(tǒng)維護(hù)的內(nèi)容 按照維護(hù)對(duì)象的不同，系統(tǒng)維護(hù)的內(nèi)容可分為以下幾類： （1）系統(tǒng)應(yīng)用程序維護(hù) （2）數(shù)據(jù)維護(hù) （3）代碼維護(hù) （4）硬件設(shè)備維護(hù) 系統(tǒng)維護(hù)的類型 系統(tǒng)維護(hù)的重點(diǎn)是系統(tǒng)應(yīng)用軟件的維護(hù)工作，按照軟件維護(hù)的不同性質(zhì)，可以劃分為下面四種類型： （1）糾錯(cuò)性維護(hù) 診斷和修正系統(tǒng)中遺留的錯(cuò)誤。 （3）完善性維護(hù) 為滿足用戶的需求而進(jìn)行的維護(hù)。 本系統(tǒng)的維護(hù)模塊 本管理子系統(tǒng)為了防止因?yàn)椴僮魅藛T誤操作，或其他人為原因造成數(shù)據(jù)破壞或丟失，特提供了數(shù)據(jù)庫恢復(fù)功能。本系統(tǒng)中的具體實(shí)現(xiàn)，是對(duì)MDB文件的復(fù)制與恢復(fù)，此方法操作簡單，易于使用；當(dāng)導(dǎo)出數(shù)據(jù)時(shí)，用戶指定一個(gè)存放路徑，MDB文件就復(fù)制到此目錄之下；當(dāng)導(dǎo)入數(shù)據(jù)時(shí)，用戶指定一個(gè)要導(dǎo)入的MDB文件，實(shí)現(xiàn)數(shù)據(jù)的恢復(fù)。即一方面使用本系統(tǒng)來進(jìn)行工作，另一方面又繼續(xù)沿用老的方式—手工方式，這種狀況持續(xù)了半個(gè)月的時(shí)間，在這期間發(fā)現(xiàn)了一些程序中存在的漏洞和錯(cuò)誤，用戶也提出一些修改意見，經(jīng)過程序的進(jìn)一步完善后，正式投入了使用，中止了以前老的手工的操作方式。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉促。因?yàn)閷?duì)物業(yè)管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。盡管該物業(yè)管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是牧業(yè)管理系統(tǒng)所必需的。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。另外，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。漸增式的原型化開發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計(jì)的結(jié)合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯(cuò)。2．通過實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計(jì)工具的使用有了更深刻的認(rèn)識(shí)。參考文獻(xiàn)[1] [M].,8: 14.[2] [M].,7: 15.[3] [M].:2434.[4] —基于SQL SERVER[M]. 清華大學(xué)出版社. 2008,1:2758.[5] [M].,1:6870.[6] [M].,3:3042.[7] [J].新疆:,8A.[8] 陳長江,[J]. 安徽:,35A．[9] 郭延鋒,[J].湖北:,3A[10] [J]. 安徽:,19A.致 謝在這次畢業(yè)設(shè)計(jì)中，指導(dǎo)老師馮老師從課題的研究動(dòng)態(tài)、當(dāng)今優(yōu)秀的開發(fā)工具以及課題的功能需求到具體的實(shí)現(xiàn)上，都給予了我很大的幫助。在這課題設(shè)計(jì)、論文完成之際，我衷心的向馮老師表示感謝。在畢業(yè)以后的學(xué)習(xí)工作中，我會(huì)繼續(xù)努力，不斷的深化自己的專業(yè)知識(shí)，好好工作，更好的為祖國為人民貢獻(xiàn)出自己的力量，從而報(bào)效我們的教育。 “\”) //創(chuàng)建連接 SQLs = Select * from admin where UserName=39。 amp。
and Psw=39。 amp。 Set Rs = (SQLs, dbOpenSnapshot) //返回用戶記錄集 If Then CheckLogin = False //設(shè)置失敗標(biāo)志 Else//如果不空，即找到，那么設(shè)登錄成功標(biāo)志 CheckLogin = True End If //關(guān)閉數(shù)據(jù)庫對(duì)象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = NothingSet Ws = Nothing/***************************對(duì)住戶基本信息的維護(hù)問題，包括新增、刪除、修改等基本的編輯操作。 “\”) //創(chuàng)建連接 SQLs = Select * from BaseInfo Set Rs = (SQLs, dbOpenSnapshot) //清空ListView中所有數(shù)據(jù) On Error Resume Next While Not //遍歷記錄集，將所有記錄增加到ListView中 Set itmX = //新增記錄一行 = (住戶編號(hào)) //從記錄集中獲取數(shù)據(jù) (1) = (戶主名稱) (2) = (聯(lián)系電話) (3) = (樓宇名稱) (4) = (樓層) (5) = (房屋號(hào)) (6) = (單元) (7) = (遷入日期) (8) = (房型) (9) = (備注) Wend Set itmX = Nothing //關(guān)閉數(shù)據(jù)庫對(duì)象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = Nothing Set Ws = NothingEnd FunctionPrivate Function AddBaseInfo() As Boolean 39。 “\”) //創(chuàng)建連接 SQLs = Select * From BaseInfo where 住戶編號(hào)=39。 amp。 Set Rs = (SQLs, dbOpenDynaset) //返回記錄集 If Then //記錄集新增一記錄 (住戶編號(hào)) = ，并更新 (戶主名稱) = (聯(lián)系電話) = (樓宇名稱) = (樓層) = (房屋號(hào)) = (單元) = (遷入日期) = (房型) = (備注) = //更新記錄集，保存數(shù)據(jù) MsgBox 添加成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddBaseInfo = True Else MsgBox 此編號(hào)已存在,請(qǐng)不重復(fù)!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddBaseInfo = False End If //關(guān)閉數(shù)據(jù)庫對(duì)象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = Nothing Set Ws = NothingEnd FunctionPublic Function DelBaseInfo //實(shí)現(xiàn)數(shù)據(jù)庫記錄刪除() 39。 “\”) //創(chuàng)建連接 SQLs = Select * From BaseInfo where 住戶編號(hào)=39。
amp。 Set Rs = (SQLs, dbOpenDynaset) //返回記錄集 If Not Then//如果不空，則刪除當(dāng)前記錄 MsgBox 刪除成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) Else MsgBox 無此住戶信息!, 64, 小區(qū)物業(yè)管理系統(tǒng) End If //關(guān)閉數(shù)據(jù)庫對(duì)象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = Nothing Set Ws = NothingEnd FunctionPublic Function UpdateBaseInfo() As Boolean 39。 “\”) //創(chuàng)建連接 SQLs = Select * From BaseInfo where 住戶編號(hào)=39。
amp。 Set Rs = (SQLs, dbOpenDynaset) //返回記錄集 If Not Then //用Text控件中的內(nèi)容，更新當(dāng)前記錄 39。列出投訴信息 Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String Dim itmX As ListItem Set Ws = (0) Set Db = ( amp。添加投訴信息 Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String