【正文】 刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。確實(shí)刪除 If answer = vbYes Then 39。簡單查詢可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。如果沒有數(shù)據(jù)，則顯示空 Else For i = 0 To 12 Text1(i + k).Text = Next i End If 39。如果當(dāng)前表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 12 Text1(i + k).Text = (i) Next i 39。添加、修改、刪除這些操作必須保存后才能生效。 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 13 If IsNull((i)) = True Then Text1(i + 28).Text = Else Text1(i + 28).Text = (i) End If Next i End If End If③停車管理停車管理主要是對(duì)住戶的停車場基本信息如 (車位編號(hào)、車位位置、停車住戶、物業(yè)地址、使用日期、備注) 的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。移動(dòng)rs_water記錄到第一條 39。添加、修改、刪除這些操作必須保存后才能生效。主鍵不重復(fù)，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。 amp。添加、修改、刪除這些操作必須保存后才能生效。 setrs_check = ExecuteSQL(sqlCheck, MsgText) If Not And Not Then MsgBox 該房間編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。圖58 房產(chǎn)資料窗體房產(chǎn)資料窗體：Dim rs_check As New Dim sqlCheck As String Dim MsgText As String sqlCheck = select * from fc where 房間編號(hào)= 39。 = adUseClient Set rs_order = ExecuteSQL(sql, MsgText) Set = rs_order End IfEnd Sub②房產(chǎn)資料房產(chǎn)資料主要是對(duì)住戶的基本信息如 (房間編號(hào)、物業(yè)地址、建筑面積、使用面積、房型、單價(jià)、總價(jià)、是否已出售，買主編號(hào)、買主姓名、備注)的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。設(shè)置DataGrid1的數(shù)據(jù)源 Set = rs_order 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 12 Text1(i).Text = (i) Next i If (13) = 男 Then = 0 Else = 1 End If End IfEnd Sub以表格形式查詢住戶資料，可以查詢住戶編號(hào)、住戶姓名、性別、籍貫、房型、建筑面積、使用面積、工作單位及地址、郵編、身份證號(hào)、電話、入住時(shí)間、遷出時(shí)間、物業(yè)地址，查詢窗體界面，如圖57所示。先移動(dòng)rs_client記錄到后一條 39。(2)資料管理①住戶資料住戶資料主要是對(duì)住戶的基本信息和另外兩個(gè)標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。 amp。 amp。本窗體中仍然采用密碼驗(yàn)證的方法，目的同樣是為了減少錯(cuò)誤輸入所造成的麻煩。然后添加真實(shí)姓名和注冊(cè)日期。如圖53所示。 Set rs_user = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個(gè)用戶,請(qǐng)重新輸入你的用戶名！, vbOKOnly + vbInformation, 注意 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確,請(qǐng)重新輸入！, vbOKOnly + vbInformation, 注意 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End IfEnd IfEnd Sub主窗口，是一個(gè)多文檔窗口，提供了對(duì)于各個(gè)模塊和各種操作的接口。圖52 系統(tǒng)登錄界面系統(tǒng)登錄界面部分代碼如下所示：Private Sub cmdLogin_Click()Dim rs_user As New Dim txtSQL As StringDim MsgText As StringIf = Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名！, vbOKOnly + vbInformation, 注意 Exit SubElse If = Then MsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbInformation, 注意 Exit Sub Else txtSQL = select * from UserTable where userId=39。 圖5１　加載系統(tǒng)界面 加載系統(tǒng)部分代碼如下：Private Sub Timer1_Timer()If dlaytime = 100 Then 39。表413　 儀表收費(fèi)表字段名數(shù)據(jù)類型可否為空收費(fèi)編號(hào)(主鍵)Char(10)NOT NULL住戶姓名Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL收費(fèi)項(xiàng)目Varchar(50)NOT NULL收費(fèi)方式Varchar(50)NOT NULL應(yīng)收總額Float(8)NOT NULL已交金額Float(8)NOT NULL欠費(fèi)金額Float(8)NOT NULL交費(fèi)日期DatetimeNOT NULL辦理人Char(10)NULL備注Varchar(50)NULL第五章 系統(tǒng)的界面及編碼的實(shí)現(xiàn)經(jīng)過以上的分析及建模，已經(jīng)完成了數(shù)據(jù)庫的后臺(tái)工作。表49　 水表資料表字段名數(shù)據(jù)類型可否為空儀表編號(hào)(主鍵)Char(10)NOT NULL住戶姓名Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL年份IntNOT NULL月份IntNOT NULL上月資料Float(8)NOT NULL字段名數(shù)據(jù)類型可否為空本月用量Float(8)NOT NULL單價(jià)Float(8)NOT NULL本月費(fèi)用Float(8)NOT NULL上月抄表日期DatetimeNOT NULL本月抄表日期DatetimeNOT NULL本月交費(fèi)日期DatetimeNOT NULL辦理人Char(10)NULL (10) 電表資料表(dbzl)電表資料表存放小區(qū)內(nèi)住戶的電表的所有信息，如表410所示。表45 停車管理信息表字段名數(shù)據(jù)類型可否為空車位編號(hào)(主鍵)Char(20)NOT NULL車位位置Varchar(50)NOT NULL停車住戶Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL開始日期DatetimeNULL截止日期DatetimeNULL備注Varchar(50)NULL (6) 住戶投訴表(zhts)住戶投訴表存放小區(qū)內(nèi)住戶的各種投訴的所有信息，如表46所示。表41 用戶表字段名數(shù)據(jù)類型可否為空userId（主鍵）Char(10)NOT NULLuserPwdIntNOT NULLTnameChar(20)NOT NULLRtimeDatetimeNOT NULL (2) 住戶表(zh)住戶表存放小區(qū)內(nèi)所有的住戶信息，這些信息也是小區(qū)物業(yè)管理的基本信息，在實(shí)現(xiàn)系統(tǒng)的各個(gè)功能中起真非常重要的作用，如表42所示。通過將局部實(shí)體ER圖進(jìn)行按照關(guān)系合并，得出總體簡化ER圖如圖48所示。設(shè)備維修管理模塊 包括：顯示 添加 修改 刪除 查詢等。停車管理模塊 包括：顯示 添加 修改 刪除 查詢等。2. 資料管理主要包括：住戶資料模塊 包括：顯示 添加 修改 刪除 查詢。本系統(tǒng)功能模塊結(jié)構(gòu)圖，如圖41所示。第四章 系統(tǒng)的設(shè)計(jì)系統(tǒng)設(shè)計(jì)階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實(shí)施的基于計(jì)算機(jī)與通信系統(tǒng)的物理（技術(shù)）方案。(2) 住戶報(bào)修基本信息的修改。(2) 住戶投訴基本信息的修改。(2) 收費(fèi)基本信息的修改。(2) 停車場基本信息的修改。(2) 儀表設(shè)備基本信息的修改。(2) 物業(yè)設(shè)備基本信息的修改。(2) 房產(chǎn)基本信息的修改。(2) 住戶基本信息的修改。(4)各項(xiàng)管理業(yè)務(wù)的統(tǒng)計(jì)報(bào)表，包括：物業(yè)設(shè)備統(tǒng)計(jì)報(bào)表、所有住戶的水、點(diǎn)、氣儀表資料統(tǒng)計(jì)、各種收費(fèi)統(tǒng)計(jì)、住戶投訴統(tǒng)計(jì)、住戶報(bào)修統(tǒng)計(jì)、物業(yè)設(shè)備維修統(tǒng)計(jì)等，這樣就可以便于物業(yè)公司對(duì)小區(qū)進(jìn)行全面的了解和管理了。(2)對(duì)小區(qū)內(nèi)住戶的詳細(xì)資料的管理，包括增、刪、改、查詢等功能的實(shí)現(xiàn)，這些也是一個(gè)小區(qū)的基本資源，畢竟物業(yè)管理最后是針對(duì)小區(qū)的所有住戶而言的。進(jìn)行需求分析首先是調(diào)查清楚用戶的實(shí)際需求，與用戶達(dá)成共認(rèn)識(shí)，然后分析與表達(dá)這些需求。 系統(tǒng)的功能：(1) 實(shí)現(xiàn)對(duì)入住業(yè)主信息的錄入，管理和查詢的功能。 住戶信息管理：業(yè)主信息管理包括（業(yè)主ID，業(yè)主姓名，出生年月，籍貫，性別，工作單位及地址，郵編，身份證號(hào)碼，聯(lián)系電話，入住時(shí)間，遷出時(shí)間等） 房產(chǎn)信息管理：房產(chǎn)信息管理包括（房間編號(hào)，物業(yè)地址，建筑面積，使用面積，轉(zhuǎn)修情況，單價(jià)，總價(jià)，是否已經(jīng)售出，買主編號(hào)，買主姓名，備注等） 物業(yè)設(shè)備管理：物業(yè)設(shè)備管理包括（設(shè)備編號(hào)，設(shè)備名稱，型號(hào)，品牌，所屬部門，購買日期，事故記錄等） 收費(fèi)管理：收費(fèi)管理主要包括（收費(fèi)編號(hào)，住戶姓名，物業(yè)地址，年份，月份，收費(fèi)項(xiàng)目，收費(fèi)方式，應(yīng)收總額，已交金額，欠款金額，交費(fèi)日期，辦理人，備注等）。然而在最終的系統(tǒng)鮮中卻不能遺漏任何一個(gè)微小的部分細(xì)節(jié)，所以可行性研究并不能代替需求分析，它實(shí)際上并沒有準(zhǔn)確地回“答系統(tǒng)必須做什么？”這個(gè)問題。所以本系統(tǒng)的操作是完全可行的。 必要時(shí)還應(yīng)該從法律社會(huì)效益等更廣泛的方面研究系統(tǒng)的可行性。主要從投資和收益方面來考慮，這個(gè)系統(tǒng)的經(jīng)濟(jì)效益必須要超過它的開發(fā)成本，一般這種軟件的生成都是由使用單位請(qǐng)專門的軟件公司或開發(fā)人員進(jìn)行設(shè)計(jì)開發(fā)來實(shí)現(xiàn)的，這同樣也存在一