【正文】 望文知意，最好采用英文單詞或其組合，便于記憶和閱讀，切忌使用漢語拼音來命名。 　　復(fù)合表達(dá)式使用在適當(dāng)?shù)膱龊峡梢允勾a更加簡潔，但不能因?yàn)檫@個(gè)簡潔而帶來理解的復(fù)雜 登錄模塊登錄界面登錄代碼：Private Sub Command1_Click() //新增按鈕單擊事件 //確定按鈕事件 If CheckLogin Then ，則隱去登錄窗體，顯示主界面 Else 基本資料管理住戶資料錄入本窗體，實(shí)現(xiàn)了對住戶基本信息的維護(hù)問題，包括新增、刪除、修改等基本的編輯操作。 amp。添加繳費(fèi)信息 Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) Set Db = ( amp。 39。 amp。其主要代碼如下:Private Sub InitList1() //ListView初始化事件 With //設(shè)定標(biāo)題 .Add , , 車位編號, 1000 .Add , , 住戶名稱, 1600 .Add , , 使用日期, 1600 .Add , , 備注, 3000 End WithEnd SubPrivate Sub Command1_Click() //新增按鈕單擊事件 intType = 1 //當(dāng)前執(zhí)行新增操作 = True //使控件有效，可訪問 = True SetButton (False) SetInputBox //清輸入框?yàn)榭誆nd SubPrivate Sub Command2_Click() //刪除按鈕單擊事件 DelRepair //刪除信息 Call ListRepair(ListView1) //重新顯示數(shù)據(jù)End Sub第五章 系統(tǒng)運(yùn)行與維護(hù)管理信息系統(tǒng)在完成系統(tǒng)實(shí)施、投入正常運(yùn)行之后，就進(jìn)入了系統(tǒng)運(yùn)行與維護(hù)階段。 系統(tǒng)的維護(hù)系統(tǒng)維護(hù)的目的是保證管理信息系統(tǒng)正常而可靠地運(yùn)行，并能使系統(tǒng)不斷得到改善和提高，以充分發(fā)揮作用。 （2）適應(yīng)性維護(hù) 使系統(tǒng)適用環(huán)境的變化而進(jìn)行的維護(hù)。但它的前提是必須經(jīng)常利用“數(shù)據(jù)備份”功能將相應(yīng)數(shù)據(jù)庫的內(nèi)容進(jìn)行備份。第六章 開發(fā)總結(jié)在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。雖然網(wǎng)絡(luò)在物業(yè)管理系統(tǒng)中的應(yīng)用已經(jīng)很普遍，但在開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，在大多數(shù)物業(yè)管理系統(tǒng)單機(jī)版中，數(shù)據(jù)庫是用普通的單機(jī)版數(shù)據(jù)庫，那么在以后的系統(tǒng)更新過程中會(huì)造成不必要的損失。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝他耐心的輔導(dǎo)。對于后期的系統(tǒng)維護(hù)也提供了很大的幫助。同時(shí)，我還從馮老師身上學(xué)到了很多東西，劉老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺，這對于我以后的學(xué)習(xí)和工作都將是一種先導(dǎo)作用。附 錄/***************************登錄代碼：*************************/Private Sub Command1_Click() //新增按鈕單擊事件 //確定按鈕事件 If CheckLogin Then ，則隱去登錄窗體，顯示主界面 Else MsgBox (用戶名或密碼錯(cuò)) //顯示出錯(cuò)信息 End IfEnd SubPrivate Function CheckLogin() As Boolean //登錄檢查函數(shù) Dim Ws As Workspace //定義變量 //變量定義 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) Set Db = ( amp。 39。 39。添加住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) //創(chuàng)建到數(shù)據(jù)庫的連接 Set Db = ( amp。
39。 amp。修改住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) //創(chuàng)建到數(shù)據(jù)庫的連接 Set Db = ( amp。 39。 \) SQLs = Select * from TouShu Set Rs = (SQLs, dbOpenSnapshot) On Error Resume Next While Not Set itmX = = (投訴編號) (1) = (投訴住戶) (2) = (接待人員) (3) = (投訴日期) (4) = (投訴內(nèi)容) (5) = (處理人員) (6) = (處理情況) Wend Set itmX = Nothing Set Rs = Nothing Set Db = Nothing Set Ws = NothingEnd FunctionPrivate Function AddTouShu() As Boolean 39。(住戶編號) = (戶主名稱) = (聯(lián)系電話) = (樓宇名稱) = (樓層) = (房屋號) = (單元) = (遷入日期) = (房型) = (備注) = ，以保存數(shù)據(jù) MsgBox 修改成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) UpdateBaseInfo = True Else MsgBox 無此住戶信息!, 64, 小區(qū)物業(yè)管理系統(tǒng) UpdateBaseInfo = False End If //關(guān)閉數(shù)據(jù)庫對象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = Nothing Set Ws = NothingEnd FunctionPrivate Sub SetButton(ByVal bolStatue As Boolean) = bolStatue //設(shè)定新增、刪除、修改按鈕的有效性 = bolStatue = bolStatueEnd SubPrivate Sub SetInputBox //清輸入框?yàn)榭?) = //清空Text控件，以便輸入數(shù)據(jù) = = = = = = = = End SubPrivate Sub ListView1_Click() //ListView單擊事件Call GetData //調(diào)用此方法，將當(dāng)前記錄值，存入text的對應(yīng)控件End SubPrivate Sub GetData() //從當(dāng)前記錄獲取數(shù)據(jù) On Error Resume Next With = .Text //獲取數(shù)據(jù)住戶投訴功能管理代碼：Private Sub InitList1() With .Add , , 投訴編號, 1000 .Add , , 投訴住戶, 1000 .Add , , 接待人員, 1000 .Add , , 投訴日期, 1000 .Add , , 投訴內(nèi)容, 2000 .Add , , 處理人員, 1000 .Add , , 處理情況, 2000 End WithEnd SubPrivate Sub Command1_Click() intType = 1 = True = True SetButton (False) SetInputBoxEnd SubPrivate Sub Command2_Click() DelTouShu Call ListTouShu(ListView1)End SubPrivate Sub Command3_Click() intType = 2 = True = True Call SetButton(False)End SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub Command5_Click() If intType = 1 Then If AddTouShu Then SetButton (True) = False = False Call ListTouShu(ListView1) End If ElseIf intType = 2 Then If UpdateTouShu Then Call ListTouShu(ListView1) SetButton (True) = False = False End If End IfEnd SubPrivate Sub Command6_Click() SetButton (True) = False = FalseEnd SubPrivate Sub Command7_Click() FormChoose = 2 Load frmChooseUserEnd SubPrivate Sub Form_Load() InitList1 SetInputBox Call ListTouShu(ListView1) = False = FalseEnd SubPrivate Sub SetInputBox() = = = = = = End SubPrivate Sub SetButton(ByVal bolStatue As Boolean) = bolStatue = bolStatue = bolStatueEnd SubPrivate Function ListTouShu(ByRef ListView As ListView) 39。 amp。 39。刪除住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0)//創(chuàng)建到數(shù)據(jù)庫的連接 Set Db = ( amp。 amp。*主要代碼如下：**************************/Private Sub Command1_Click() //新增按鈕單擊事件 intType = 1 //當(dāng)前執(zhí)行新增操作 = True //使控件有效，可訪問 = 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 CSetButto