【正文】 Set Rs = (SQLs, dbOpenDynaset) //返回記錄集 If Not Then //用Text控件中的內(nèi)容，更新當前記錄 39。
amp。 “\”) //創(chuàng)建連接 SQLs = Select * From BaseInfo where 住戶編號=39。
and Psw=39。在這課題設(shè)計、論文完成之際，我衷心的向馮老師表示感謝。另外，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。另外，在整個開發(fā)的過程中，時間也比較倉促。 （3）完善性維護 為滿足用戶的需求而進行的維護。 系統(tǒng)的配置 硬件配置要求(最低)： CPU：PII200以上。 Set Rs = (SQLs, dbOpenDynaset) If Then (單據(jù)編號) = (住戶名稱) = (繳費日期) = (收費人員) = (繳費方式) = (繳費總額) = (備注) = MsgBox 添加成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddTouShu = True Else MsgBox 此編號已存在,請不重復(fù)!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddTouShu = False End If Set Rs = Nothing Set Db = Nothing Set Ws = NothingEnd FunctionPublic Function DelTouShu() 39。 amp。長名字能更好地表達含義。 概念結(jié)構(gòu)設(shè)計在數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲進行分析，然后得出系統(tǒng)的關(guān)系模式，可以采用實體——聯(lián)系圖（簡稱E——R圖）的方法進行數(shù)據(jù)結(jié)構(gòu)的描述。在VB中，可以使用開發(fā)環(huán)境提供的ADO控件，數(shù)據(jù)庫訪問方法，對ACCESS中建立的關(guān)系數(shù)據(jù)庫簡單快捷的進行訪問。Visual Basic提供開放式數(shù)據(jù)連接（Open DataBase Connectivity），即ODBC功能，它可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server、Oracle等。Visual Basic通過事件來執(zhí)行對象的操作。 Visual Basic Visual Basic 、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。另外，小區(qū)也決定對新員工制定了培訓(xùn)計劃，并進行了實施MIS的物質(zhì)準備和工作準備。硬件的配置要求不能太高，這樣可以很好的適應(yīng)當前的實際情況。手工管理還存在這許多弊端，由于不可避免的人為因素，經(jīng)常造成數(shù)據(jù)的遺漏、誤報。物業(yè)管理從體制上克服了房改后形成的多個產(chǎn)權(quán)單位多頭、多家管理，各自為政、扯皮推諉等舊管理體制的弊端。我國城鎮(zhèn)現(xiàn)有住宅已近80億平方米。系統(tǒng)的效益可以從經(jīng)濟效益和社會效益兩方面考慮。(4)各部門管理人員對新系統(tǒng)目標持有的看法，以及對建立新系統(tǒng)的態(tài)度。另據(jù)統(tǒng)計，在建立管理信息系統(tǒng)的三個階段中，總體規(guī)劃和系統(tǒng)開發(fā)階段的工作量約占整個工作量的2/3，而運行、維護階段要占1/3，這說明一個管理信息系統(tǒng)開發(fā)后，仍應(yīng)十分重視它的維護工作，以便使系統(tǒng)不斷完善并充分發(fā)揮其作用。因此要建立新的公司小區(qū)物業(yè)管理系統(tǒng)就必須對公司現(xiàn)行的小區(qū)物業(yè)管理系統(tǒng)進行全面、細致而充分的調(diào)查研究。要有足夠的資金保證，才能順利完成整個系統(tǒng)的開發(fā)工作。所謂好的管理基礎(chǔ)，指的是合理的管理體制、完善的制度、科學(xué)的管理方法和準確的原始數(shù)據(jù)。本物業(yè)管理系統(tǒng)的開發(fā)，是為了規(guī)范住宅小區(qū)的管理工作，為物業(yè)管理部門提供一套高效、快捷的應(yīng)用軟件。(2)開發(fā)物業(yè)小區(qū)管理系統(tǒng)的目的用以解決手工計算、抄寫物業(yè)管理中房產(chǎn)資料、業(yè)主資料、住房資料以及文件檔案等操作時數(shù)量龐大的難題，也可以有效避免長時間無法即時查詢某房產(chǎn)或業(yè)主資料的繁瑣性。這個階段的處理方式是在數(shù)據(jù)庫和網(wǎng)絡(luò)基礎(chǔ)上組成分布式處理系統(tǒng)。這一階段，由于當時計算機硬、軟件的限制，數(shù)據(jù)處理的性質(zhì)只是使用計算機代替人的手工勞動，進行簡單的單項數(shù)據(jù)處理工作，如計算工資、數(shù)據(jù)統(tǒng)計、報表登記、編制計劃等。但是隨著社會化大生產(chǎn)的不斷擴大和社會對產(chǎn)品多樣化的需求，人們越來越重視信息在生產(chǎn)經(jīng)營及企業(yè)管理中的作用，并把它當做企業(yè)的一種極其重要的資源，人們稱之為“信息資源”，信息資源的處理已經(jīng)成為當今世界上一項主要的社會活動。關(guān)鍵詞：小區(qū)物業(yè)管理 數(shù)據(jù)庫 統(tǒng)計 匯總AbstractThis text passes and uses VB 6. 0 writes the administrative system of the property, utilize the soft project principle , adopt the cycle method of the life to study, it develops two respects of main development including settingup and maintenance and front application program of backstage supporter39。并且敘述了作者在軟件開發(fā)過程中的心得體會。一般來講，管理通過計劃、組織、指導(dǎo)與領(lǐng)導(dǎo)、控制等手段，為組織制定目標，應(yīng)用組織的各種要素，以實現(xiàn)組織的目標。從工業(yè)發(fā)達國家來看，管理信息系統(tǒng)的發(fā)展經(jīng)歷了以下幾個階段。這個階段已發(fā)展為面向終端的聯(lián)機實時處理。這又大大的推動了企業(yè)的信息化進程。而要實現(xiàn)這一功能，就職求物業(yè)管理者配備一套高效的管理住處網(wǎng)絡(luò)系統(tǒng)，以便在小區(qū)內(nèi)快速地發(fā)布和獲取住處并以最快地速度響應(yīng)用戶的需求，及時為用戶提供服務(wù)，為住戶提供一個高效、舒適的居住、生活環(huán)境。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。 管理人員是管理信息系統(tǒng)的直接用戶，它們的積極性和配合程度，關(guān)系到管理信息系統(tǒng)的使用效果和生命力。在正式的立項之前必須進行可行性分析，而可行性分析主要是對現(xiàn)行系統(tǒng)進行充分的調(diào)查研究，細致了解現(xiàn)行系統(tǒng)的現(xiàn)狀流程，以及存在的主要問題，在此基礎(chǔ)上提出新的系統(tǒng)的邏輯模型。國內(nèi)外許多系統(tǒng)開發(fā)的實例都證明這是一種行之有效的開發(fā)方式。(2)管理流程及工作步驟：現(xiàn)行系統(tǒng)中各職能部門的管理業(yè)務(wù)流程、各種數(shù)據(jù)在收集、整理、輸入、存貯、處理和輸出各個環(huán)節(jié)的具體加工步驟，主要單據(jù)、表格的來源和去處等，從而得到較為完整的信息流程。新系統(tǒng)的目標確定后，就可以從以下三方面對能否實現(xiàn)新系統(tǒng)目標進行可行性分析：（1）技術(shù)可行性根據(jù)新系統(tǒng)目標來衡量所需的技術(shù)是否具備，一般可從硬件、軟件的性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析，其中開發(fā)人員的技術(shù)力量應(yīng)首先考慮能力與水平，并考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。按上述三方面進行可行性分析、研究后，就可整理并編制出新系統(tǒng)開發(fā)的可行性報告，它是總體規(guī)劃工作的階段性成果。隨著房改的步步深化，城鎮(zhèn)居民住房自有率已經(jīng)超過75%，形成一個住區(qū)內(nèi)，一幢房子里的產(chǎn)權(quán)多元化格局。居民對住房問題的關(guān)切從有無轉(zhuǎn)為大小，繼而更加關(guān)注環(huán)境和社區(qū)服務(wù)。② 充分考慮企業(yè)管理部門的業(yè)務(wù)分工，盡可能的使一個功能子系統(tǒng)屬于一個職能的管轄范圍內(nèi)，以便于今后個子系統(tǒng)的管理和維護。經(jīng)濟上可行：由于住戶需要支付管理費，因此小區(qū)在采用計算機來進行小區(qū)的管理，因開發(fā)經(jīng)費沒有問題。E、住戶停車車位管理：這個功能可以輕松監(jiān)控住戶的車位信息。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法（OOP），把程序和數(shù)據(jù)封裝起作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。Visual Basic系統(tǒng)具有很強的數(shù)據(jù)庫管理功能。 Microsoft SQL與 ADO作為應(yīng)用程序與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 下開發(fā)的應(yīng)用程序訪問本地或遠程數(shù)據(jù)庫提供了有效的手段。 功能模塊管理信息系統(tǒng)設(shè)計階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實施的基于計算機與通信系統(tǒng)的物理（技術(shù)）方案?；谝陨显O(shè)計原則，本系統(tǒng)設(shè)計了一個數(shù)據(jù)庫，包含管理員、住戶信息、收費信息、車位使用信息、車位信息、報維信息、維護信息等幾個表。 此窗體的實現(xiàn)代碼，與上一個窗體類似，故省略. 住戶報修管理本窗體用于管理住戶的報修情況，可實現(xiàn)用戶維修情況的增加，刪除之類信息，以下是實現(xiàn)增加功能的主要代碼：Private Function AddRepair() As Boolean Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String On Error Resume Next Set Ws = (0) Set Db = ( amp。 amp。 39。系統(tǒng)維護的工作量往往是很大的，其費用大約占整個生命周期的60%，所以我們必須對系統(tǒng)維護給予足夠的重視。 系統(tǒng)的轉(zhuǎn)換方案本次開發(fā)的小區(qū)管理系統(tǒng)采用了并行轉(zhuǎn)換方式，以保證平衡可靠的過度。相信該物業(yè)管理系統(tǒng)將是一套物業(yè)管理員必不可少的管理軟件，在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師馮丁武老師身上學(xué)到了很多東西。為以后的工作、學(xué)習(xí)的進一步提高打下了堅實的基礎(chǔ)。 amp。*主要代碼如下：**************************/Private Sub Command1_Click() //新增按鈕單擊事件 intType = 1 //當前執(zhí)行新增操作 = True //使控件有效，可訪問 = True SetButton (False) //設(shè)定按鈕不可訪問 SetInputBox //清輸入框為空End SubPrivate Sub Command2_Click() //刪除按鈕單擊事件 DelBaseInfo //實現(xiàn)數(shù)據(jù)庫記錄刪除 Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù)End SubPrivate Sub Command3_Click() intType = 2 //當前執(zhí)行修改操作 = True //使控件有效，可訪問 = True Call CSetButton(False) //設(shè)按鈕不可用End SubPrivate Sub Command4_Click() Unload Me //釋放自己，結(jié)束運行End SubPrivate Sub Command5_Click() If intType = 1 //當前執(zhí)行新增操作 Then If AddBaseInfo = True Then Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = False End If ElseIf intType = 2 //當前執(zhí)行修改操作 Then If UpdateBaseInfo Then Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = False End If End IfEnd SubPrivate Sub Command6_Click() //放棄文本框中輸入數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = FalseEnd SubPrivate Sub Form_Load() Call SetInputBox //清輸入框為空 Call InitList1 //初始化ListView Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) = False //設(shè)按鈕不可用 = FalseEnd SubPrivate Sub InitList1() //初始化ListView控制，標題欄 With .Add , , 住戶編號, 1000 //調(diào)用增加方法，錄入 .Add , , 戶主名稱, 1000 .Add , , 聯(lián)系電話, 1000 .Add , , 樓宇名稱, 1000 .Add , , 樓層, 1000 .Add , , 房屋號, 1000 .