【正文】 更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, 注意 Else Exit Sub End If 39。設(shè)置各個(gè)text框不可寫(xiě) For i = 0 To 12 Text1(i + k).Enabled = False Next i End Sub⑤住戶(hù)投訴管理住戶(hù)投訴管理主要是對(duì)住戶(hù)投訴的基本信息如 (投訴編號(hào)、投訴日期、接待人員、投訴住戶(hù)、物業(yè)地址、電話(huà)、處理日期、處理人員、投訴內(nèi)容、處理情況) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。收費(fèi)管理窗體如圖512所示 。 amp。移動(dòng)rs_gas記錄到第一條 39。儀表管理資料窗體如圖510所示。 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。排序顯示全部數(shù)據(jù)，而不是查詢(xún)結(jié)果數(shù)據(jù) Dim sql As String Dim MsgText As String If query = False Then If = adStateOpen Then End If sql = select * from zh order by amp。住戶(hù)資料窗體界面如圖56所示。and amp。界面如圖54所示。系統(tǒng)主體平臺(tái)的四個(gè)功能模塊，分別是系統(tǒng)管理、資料管理、物業(yè)管理、數(shù)據(jù)報(bào)表管理。在登錄進(jìn)入主體平臺(tái)的時(shí)候，系統(tǒng)會(huì)要求用戶(hù)輸入用戶(hù)名及密碼作為驗(yàn)證信息，為了防止非用戶(hù)在使用時(shí)重復(fù)試探登錄信息,在登錄時(shí)系統(tǒng)限制添加次數(shù)為三次,如果超出三次,將自動(dòng)退出。表411　 煤氣資料表字段名數(shù)據(jù)類(lèi)型可否為空儀表編號(hào)(主鍵)Char(10)NOT NULL住戶(hù)姓名Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL年份Int(4)NOT NULL月份Int(4)NOT NULL上月資料Float(8)NOT NULL本月用量Float(8)NOT NULL單價(jià)Float(8)NOT NULL本月費(fèi)用Float(8)NOT NULL上月抄表日期DatetimeNOT NULL字段名數(shù)據(jù)類(lèi)型可否為空本月抄表日期DatetimeNOT NULL本月交費(fèi)日期DatetimeNOT NULL辦理人Char(10)NULL (12) 物業(yè)收費(fèi)表(wysf)物業(yè)收費(fèi)表存放小區(qū)內(nèi)住戶(hù)的各種除儀表以外設(shè)備的各種收費(fèi)信息，如表412所示。表43 房產(chǎn)表字段名數(shù)據(jù)類(lèi)型可否為空住戶(hù)編號(hào)(主鍵)Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL建筑面積Float(8)NOT NULL使用面積Float(8)NOT NULL字段名數(shù)據(jù)類(lèi)型可否為空房型Char(20)NULL單價(jià)Float(8)NOT NULL總價(jià)Float(8)NOT NULL買(mǎi)主編號(hào)Char(10)NULL買(mǎi)主姓名Char(10)NULL備注Varchar(50)NULL是否已出售Char(2)NOT NULL (4) 物業(yè)設(shè)備表(wysb)物業(yè)設(shè)備表存放歸屬小區(qū)物業(yè)管理的所有設(shè)備，如表44所示。這些模塊主要用于匯總資料，以便于查看、統(tǒng)計(jì)、打印。：物業(yè)設(shè)備管理模塊 包括：顯示 添加 修改 刪除 查詢(xún)等。這一階段的主要任務(wù)就是將整個(gè)系統(tǒng)合理的劃分成各個(gè)功能模塊，正確處理模塊之間與模塊內(nèi)部的聯(lián)系以及它們之間的調(diào)用關(guān)系和數(shù)據(jù)聯(lián)系，定義各模塊的內(nèi)部結(jié)構(gòu)等等。(4) 住戶(hù)投訴基本信息的查詢(xún)。(4) 停車(chē)場(chǎng)基本信息的查詢(xún)。(4) 物業(yè)設(shè)備基本信息的查詢(xún)。(4) 住戶(hù)基本信息的查詢(xún)。主要的管理業(yè)務(wù)包括：物業(yè)設(shè)備管理、儀表（水、電、煤氣表）數(shù)據(jù)管理、收費(fèi)管理、住戶(hù)投訴管理、住戶(hù)報(bào)修管理、設(shè)備維修管理、停車(chē)場(chǎng)管理。(4) 實(shí)現(xiàn)對(duì)小區(qū)物業(yè)管理收費(fèi)，儀表使用情況收費(fèi)的錄入，管理和查詢(xún)的功能。(1) 信息需求： 物業(yè)管理（系統(tǒng)）：實(shí)現(xiàn)用戶(hù)注冊(cè)、登錄、密碼修改，等功能并對(duì)其權(quán)限進(jìn)行控制以方便不同用戶(hù)對(duì)其信息進(jìn)行操作，便于歸檔查詢(xún)統(tǒng)計(jì)，也保障了系統(tǒng)的安全性。對(duì)于這套小區(qū)物業(yè)管理系統(tǒng)而言，在投入使用前，會(huì)由開(kāi)發(fā)并能熟練操作本系統(tǒng)的工程人員對(duì)用戶(hù)群進(jìn)行專(zhuān)業(yè)系統(tǒng)的培訓(xùn)。一套完善的小區(qū)物業(yè)管理系統(tǒng)可持續(xù)使用并能隨著時(shí)代和工作的需求不斷更新，一期投入終身受用，按長(zhǎng)期的使用計(jì)算，開(kāi)發(fā)系統(tǒng)的造價(jià)平均到每年與傳統(tǒng)式的管理方式的年耗資本相對(duì)比，性?xún)r(jià)比是可行的。Visual Basic X 數(shù)據(jù)對(duì)象ADO（ActiveX Data Objects）這種新的數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)標(biāo)準(zhǔn)代替了原有的數(shù)據(jù)訪(fǎng)問(wèn)對(duì)象和遠(yuǎn)程數(shù)據(jù)訪(fǎng)問(wèn)對(duì)象。而Visual ，這就使得Visual ，從而具有強(qiáng)大的吸引力。所以我選擇Visual Basic 。Microsoft Visual Basic 、面向?qū)ο蟮腤indows開(kāi)發(fā)語(yǔ)言，Microsoft Visual Basic 、通用和開(kāi)發(fā)效率高的特點(diǎn)?？梢允褂肐mage或者Picture的DataField、DataMember和DataSource的屬性來(lái)對(duì)數(shù)據(jù)進(jìn)行捆綁。Mcrosoft SQL Server 2000是一個(gè)可縮放、高性能的數(shù)據(jù)庫(kù)管理系統(tǒng)，它提供了與Windows NT 線(xiàn)程和調(diào)度服務(wù)、性能監(jiān)視器和事件瀏覽器的集成，基于Windows 管理界面并提供對(duì)多個(gè)服務(wù)器上的遠(yuǎn)程數(shù)據(jù)復(fù)制管理、服務(wù)器管理、診斷和調(diào)整的可視化拖放控制。在此前提下，我國(guó)各地涌現(xiàn)出了一些運(yùn)用現(xiàn)代的計(jì)算機(jī)、控制與通信技術(shù)的智能化住宅小區(qū)。系統(tǒng)集成能力的高低和決策分析功能成為衡量此階段物業(yè)管理軟件水平的依據(jù)。 隨著人們生活水平的不斷提高，人們對(duì)生活環(huán)境要求日益提高，尤其是對(duì)居住環(huán)境不斷提出新的需求，為了適應(yīng)這種形式，小區(qū)的經(jīng)營(yíng)者不僅首先要有堅(jiān)實(shí)的硬件基礎(chǔ)，還要有一套現(xiàn)代化的物業(yè)管理系統(tǒng)。數(shù)據(jù)庫(kù)技術(shù)是數(shù)據(jù)管理的技術(shù)，它隨著數(shù)據(jù)管理任務(wù)的需要而產(chǎn)生于20世紀(jì)60年代中期。軟件設(shè)計(jì)綜合了具有一定代表性的多家物業(yè)管理公司的業(yè)務(wù)模式和需求。 本軟件的前臺(tái)設(shè)計(jì)由Visual Basic實(shí)現(xiàn)。 SQL Server 2000。適用于管理以下物業(yè)：房產(chǎn)業(yè)主、住宅群體、智能小區(qū)、各類(lèi)小區(qū)等等。為此，作為小區(qū)的實(shí)際管理者物業(yè)管理公司應(yīng)該運(yùn)用現(xiàn)代化的計(jì)算機(jī)管理手段，使物業(yè)的硬件管理結(jié)合軟件管理，為物業(yè)管理走向現(xiàn)代化、制度化與規(guī)范化創(chuàng)造條件?？茖W(xué)高效的管理是智能化的真正內(nèi)涵，簡(jiǎn)單的硬件拼湊對(duì)于智能小區(qū)的實(shí)際應(yīng)用是缺少實(shí)際意義的。住戶(hù)投訴管理和住戶(hù)維修管理分別記錄住戶(hù)對(duì)物業(yè)公司的不滿(mǎn)的投訴和針對(duì)各種設(shè)施向物業(yè)公司的報(bào)修，物業(yè)設(shè)備和設(shè)備維修管理則是對(duì)一些整個(gè)小區(qū)的公共設(shè)施的管理和維修記錄，比如小區(qū)大門(mén)。1991年Microsoft公司推出Windows應(yīng)用程序開(kāi)發(fā)工具——Visual Basic，在VB中，既繼承了其先輩Basic所具有的程序設(shè)計(jì)語(yǔ)言簡(jiǎn)單易用的特點(diǎn)，其編程系統(tǒng)又采用了面向?qū)ο螅录?qū)動(dòng)的編程機(jī)制，用一種巧妙的方法把Windows的編程復(fù)雜性封裝起來(lái)，提供了一種所見(jiàn)即所得的可視界面設(shè)計(jì)方法，給廣大非計(jì)算機(jī)專(zhuān)業(yè)人員學(xué)習(xí)、使用、研究和開(kāi)發(fā)Windows環(huán)境下的應(yīng)用程序帶來(lái)了福音。本系統(tǒng)介紹了小區(qū)物業(yè)管理系統(tǒng)的實(shí)現(xiàn)，它是小區(qū)物業(yè)管理的一個(gè)主要組成部分，其作用是對(duì)所有住戶(hù)，住房，設(shè)備情況以及各種維修，收費(fèi)進(jìn)行有效的管理。VB可以用于可以開(kāi)發(fā)多媒體、數(shù)據(jù)庫(kù)、網(wǎng)絡(luò)、圖形等方面的應(yīng)用程序。說(shuō)它是一場(chǎng)革命，不是對(duì)對(duì)象本身而言，而是對(duì)它們處理工作的能力而言。這種要求通?？梢杂脭?shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）來(lái)實(shí)現(xiàn)。在這個(gè)世紀(jì)中，高效化、系統(tǒng)化、規(guī)范化、自動(dòng)化已成為現(xiàn)代企業(yè)的代名詞。所以本系統(tǒng)的操作方式在這個(gè)用戶(hù)組織內(nèi)行得通。 雖然在可行性研究階段已經(jīng)粗略了解用戶(hù)的需求，甚至還提出了一些可行性的方案，但是，可行性研究的基本目的是用較小的成本在較短的時(shí)間內(nèi)確定是否存在可行的解法，因此許多細(xì)節(jié)被忽略了。(3) 安全性與完整性要求： 用戶(hù)進(jìn)入系統(tǒng)前必須登錄，輸入密碼，經(jīng)服務(wù)器確認(rèn)后方可進(jìn)入系統(tǒng)。經(jīng)過(guò)調(diào)研與可行性分析，出于對(duì)人們生活住房考慮，設(shè)計(jì)了這套小區(qū)物業(yè)管理系統(tǒng)，本系統(tǒng)主要考慮到小區(qū)物業(yè)管理的普遍要求，小區(qū)物業(yè)管理系統(tǒng)主要包括：(1)對(duì)小區(qū)所有房屋資料的錄入和增、刪、改、查詢(xún)等功能實(shí)現(xiàn)，在基于這些小區(qū)的房產(chǎn)資源對(duì)小區(qū)進(jìn)行管理。2．小區(qū)住戶(hù)信息管理功能(1) 住戶(hù)基本信息的錄入，包括住戶(hù)編號(hào)、住戶(hù)姓名、物業(yè)地址、使用面積、入住時(shí)間等信息。(1) 物業(yè)設(shè)備基本信息的錄入，包括設(shè)備編號(hào)、設(shè)備名稱(chēng)、型號(hào)、品牌、所屬部門(mén)、購(gòu)買(mǎi)日期、事故記錄信息。(1) 停車(chē)場(chǎng)基本信息的錄入，包括停車(chē)編號(hào)、車(chē)位位置、停車(chē)住戶(hù)、物業(yè)地址、使用日期、備注信息。(1) 住戶(hù)投訴基本信息的錄入，包括投訴編號(hào)、投訴日期、接待人員、處理日期、處理人員、投訴內(nèi)容等信息。 退出小區(qū)物業(yè)管理信息系統(tǒng)。修改密碼模塊 包括：用于操作員更改自己的系統(tǒng)口令。用戶(hù)報(bào)修管理模塊 包括：顯示 添加 修改 刪除 查詢(xún)。如下所示：(1) 登陸表(UserTable)登陸表存放登錄系統(tǒng)所需要的用戶(hù)名和密碼，修改密碼時(shí)也同樣需要訪(fǎng)問(wèn)此表,如表41所示。表48　 設(shè)備維修表字段名數(shù)據(jù)類(lèi)型可否為空維修編號(hào)(主鍵)Char(10)NOT NULL設(shè)備編號(hào)Char(10)NOT NULL設(shè)備名稱(chēng)Char(20)NOT NULL維修日期DatetimeNOT NULL完成日期DatetimeNOT NULL維修費(fèi)用Float(8)NOT NULL維修人員Varchar(50)NOT NULL維修內(nèi)容Varchar(50)NOT NULL字段名數(shù)據(jù)類(lèi)型可否為空維修情況Varchar(50)NULL (9) 水表資料表(sbzl)水表資料表存放小區(qū)內(nèi)住戶(hù)的水表的所有信息，如表49所示。1. 啟動(dòng)系統(tǒng)程序后,首先進(jìn)入加載系統(tǒng)界面如圖51所示。 39。在這個(gè)界面中用戶(hù)需要輸入兩次密碼，用來(lái)保證所輸入密碼的正確性，最大可能地減少因?yàn)槊艽a輸入錯(cuò)誤造成的麻煩。 amp。 Set xgsql = ExecuteSQL(sql, MsgText) If = True Then MsgBox 原用名或密碼錯(cuò)誤！, vbOKOnly + vbInformation, 注意 = = Exit Sub Else (1) = MsgBox 修改密碼成功！, vbOKOnly + vbInformation, 注意 Unload Me End If③退出點(diǎn)擊“退出”后系統(tǒng)將自動(dòng)退出。并且設(shè)置“后一條”和最后一條按鈕不可用 = False = False Exit Sub 39。 order by amp。 39。 圖59 物業(yè)設(shè)備管理窗體物業(yè)設(shè)備管理界面主要代碼，如下所示：Dim rs_check As New Dim sqlCheck As String Dim MsgText As String sqlCheck = select * from wysb where 設(shè)備編號(hào)= 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫(xiě) = True = True = True = False = False = True = True = True = True = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub②儀表數(shù)據(jù)管理儀表數(shù)據(jù)管理主要是對(duì)住戶(hù)的水表、電表、氣表基本信息如 (儀表編號(hào)、住戶(hù)姓名、物業(yè)地址、年份、月份、上月數(shù)據(jù)、本月用量、單價(jià)、本月費(fèi)用、上月抄表日期、本月抄表日期、本月交費(fèi)日期、辦理人) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。移動(dòng)rs_power記錄到第一條 39。圖511 停車(chē)管理窗體停車(chē)管理窗體界面，修改資料后，點(diǎn)擊保存按鈕，實(shí)現(xiàn)保存功能的主要代碼，如下所示：If Text1(0).Text = Then MsgBox 車(chē)位編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 車(chē)位位置不可為空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseI