【文章內(nèi)容簡介】 絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶服務(wù)器方案。Visual Basic 是專門為Microsoft的32位操作系統(tǒng)設(shè)計的，可用來建立32位的應(yīng)用程序。在Windows9x、WindowsNT或Windows2000環(huán)境下，用Visual Basic 。這樣的應(yīng)用程序在32位操作系統(tǒng)下運行，速度更快，更安全，并且更適合在多任務(wù)環(huán)境下運行。 Microsoft SQL與 ADO作為應(yīng)用程序與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 下開發(fā)的應(yīng)用程序訪問本地或遠(yuǎn)程數(shù)據(jù)庫提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。ADO 支持用于建立基于客戶端/服務(wù)器和 Web 的應(yīng)用程序的主要功能。在VB中，可以使用開發(fā)環(huán)境提供的ADO控件，數(shù)據(jù)庫訪問方法，對ACCESS中建立的關(guān)系數(shù)據(jù)庫簡單快捷的進(jìn)行訪問。 SQL查詢語言及使用SQL語言是結(jié)構(gòu)化語言（Structure Query Language）的縮寫，是一種用于數(shù)據(jù)庫查詢和編程的語言，已經(jīng)成為關(guān)系型數(shù)據(jù)庫普遍使用的標(biāo)準(zhǔn)，使用這種標(biāo)準(zhǔn)數(shù)據(jù)庫語言對程序設(shè)計和數(shù)據(jù)庫的維護(hù)都帶來了極大的方便，廣泛地應(yīng)用于各種數(shù)據(jù)查詢。VB和其他的應(yīng)用程序包括Access、Foxpro、Orcale、SQL Server等都支持SQL語言。SQL語言的常用操作有：建立數(shù)據(jù)庫數(shù)據(jù)表（CREATE TABLE），如本系統(tǒng)中的學(xué)生及成績備份就用到該語句；從數(shù)據(jù)庫中篩選一個記錄集（SELECT），這是最常用的一個語句，功能強大，能有效地對數(shù)據(jù)庫中一個或多個數(shù)據(jù)表中的數(shù)據(jù)進(jìn)行訪問，并兼有排序、分組等功能；在數(shù)據(jù)表中添加一個記錄（INSERT）；刪除符合條件的記錄（DELETE）；更改符合條件的記錄（UPDATE）； VB中的數(shù)據(jù)庫操作對象都提供了對SQL語句的支持。其一般的用法是以VB的各種控件接收用戶對數(shù)據(jù)庫訪問的請求，在事件響應(yīng)程序代碼中將其轉(zhuǎn)換成對數(shù)據(jù)庫的SQL查詢語句，并以字符串的形式存在，然后將其傳遞給相應(yīng)的數(shù)據(jù)庫操作對象，最終完成對數(shù)據(jù)庫的訪問。 功能模塊管理信息系統(tǒng)設(shè)計階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實施的基于計算機(jī)與通信系統(tǒng)的物理（技術(shù)）方案。具體要求對系統(tǒng)進(jìn)行功能分解，不斷下去，直到分解成含義明確，功能單一的單元功能模塊，從而繪制出系統(tǒng)的功能模塊圖，即HIPO圖。此管理信息系統(tǒng)的HIPO圖如下小區(qū)物業(yè)管理系統(tǒng)系統(tǒng)維護(hù)統(tǒng)計報表物業(yè)管理基本資料錄入住戶停車位住戶繳費住戶報修投訴管理數(shù)據(jù)備份數(shù)據(jù)恢復(fù)報修報表投訴報表住戶資料停車場資料 物業(yè)管理主要模塊流程圖 投訴管理流程圖保存投訴信息（保存功能）生成投訴報表登記投訴信息 （增加功能）修改投訴信息（修改功能）終止投訴刪除投訴信息（刪除功能） 住戶報修管理流程圖登記維修信息（增加功能）修改報修信息（修改功能）刪除報修信息（刪除功能）確定維修繳納費用生成維修統(tǒng)計報表 住戶繳費管理流程圖登記繳費信息（增加功能）繳費情況出現(xiàn)變動修改繳費信息（修改功能）住戶遷離刪除住戶所有繳費信息（刪除功能）保存住戶繳費信息（保存功能） 住戶停車車位管理流程圖住戶申請登記車位（增加功能）繳納停車位費用車輛遷出車位信息變更刪除車位信息（刪除功能）修改車位信息（修改功能）保存住戶停車位資料（保存功能） 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計是要在一個給定的應(yīng)用環(huán)境（DBMS）中，通過合理的邏輯設(shè)計和有效的物理設(shè)計，構(gòu)造較優(yōu)的數(shù)據(jù)庫模式、子模式，建立數(shù)據(jù)庫和設(shè)計應(yīng)用程序，滿足用戶的各種信息需求。 概念結(jié)構(gòu)設(shè)計在數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲進(jìn)行分析，然后得出系統(tǒng)的關(guān)系模式，可以采用實體——聯(lián)系圖（簡稱E——R圖）的方法進(jìn)行數(shù)據(jù)結(jié)構(gòu)的描述。E——R圖由實體、屬性、聯(lián)系三部分組成。E——R圖的有關(guān)符號說明如下：實體屬性聯(lián)系編號戶主名稱樓宇名稱遷入日期房屋號住戶信息實體實體間主要聯(lián)系如下：投訴信息n收費信息n記錄報修信息n記錄記錄111住戶信息1日期使用1車位信息 物理結(jié)構(gòu)設(shè)計物理結(jié)構(gòu)設(shè)計的原則如下：（1） 盡可能的減少數(shù)據(jù)冗余和重復(fù)。（2） 結(jié)構(gòu)設(shè)計與操作設(shè)計相結(jié)合。（3） 數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性?；谝陨显O(shè)計原則，本系統(tǒng)設(shè)計了一個數(shù)據(jù)庫，包含管理員、住戶信息、收費信息、車位使用信息、車位信息、報維信息、維護(hù)信息等幾個表。為了加快系統(tǒng)訪問的速度把這7個表放在一個數(shù)據(jù)庫中。本系統(tǒng)中相關(guān)數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計舉例如下：Ddmin（管理員）表：字段名稱字段類型寬度小數(shù)位ID自動編號UserName文本20Psw文本50BaseInfo（住戶信息）表：字段名稱字段類型寬度小數(shù)位住戶編號文本20戶主名稱文本20聯(lián)系電話文本20樓宇名稱文本50樓層文本20房屋號文本20單元文本20遷入日期日期/時間房型文本20備注備注DataMoney（收費信息）表：字段名稱字段類型寬度小數(shù)位編號自動編號單據(jù)編號文本20住戶名稱文本20繳費日期日期/時間20收費人員文本20繳費方式文本20繳費總額數(shù)字42備注備注Park（車位使用信息）表：字段名稱字段類型寬度小數(shù)位編號自動編號車位編號文本20住戶名稱文本20使用日期日期/時間備注備注ParkBase（車位信息）表：字段名稱字段類型寬度小數(shù)位編號自動編號車位編號文本20備注備注Repair（報修信息）表：字段名稱字段類型寬度小數(shù)位單據(jù)編號文本20住戶名稱文本20維修人員文本20報修日期日期/時間服務(wù)費用數(shù)字4物料費用數(shù)字4費用合計數(shù)字4報修內(nèi)容備注TouShu（投訴信息）表：字段名稱字段類型寬度小數(shù)位投訴編號文本20投訴住戶文本20接待人員文本20投訴日期日期/時間投訴內(nèi)容備注處理人員文本20處理情況備注第四章 系統(tǒng)編碼與實現(xiàn) 編碼原則1. 標(biāo)識符命名 標(biāo)識符應(yīng)當(dāng)直觀且可以拼讀，可望文知意，最好采用英文單詞或其組合，便于記憶和閱讀，切忌使用漢語拼音來命名。長名字能更好地表達(dá)含義。如系統(tǒng)中Form窗體的命名規(guī)則為:frm_main,frm_login；2. 運算符的優(yōu)先級 　　如果代碼行中的運算符比較多，應(yīng)該用括號確定表達(dá)式的操作順序，避免使用默認(rèn)的優(yōu)先級。 3. 不要編寫太復(fù)雜的復(fù)合表達(dá)式。 　　復(fù)合表達(dá)式使用在適當(dāng)?shù)膱龊峡梢允勾a更加簡潔，但不能因為這個簡潔而帶來理解的復(fù)雜 登錄模塊登錄界面登錄代碼：Private Sub Command1_Click() //新增按鈕單擊事件 //確定按鈕事件 If CheckLogin Then ，則隱去登錄窗體，顯示主界面 Else 基本資料管理住戶資料錄入本窗體，實現(xiàn)了對住戶基本信息的維護(hù)問題，包括新增、刪除、修改等基本的編輯操作。主要代碼如下：Private Sub Command1_Click() //新增按鈕單擊事件 intType = 1 //當(dāng)前執(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 //當(dāng)前執(zhí)行修改操作 = True //使控件有效，可訪問 = True Call CSetButton(False) //設(shè)按鈕不可用End Sub 住戶投訴管理本窗體用于管理用戶的投訴信息，實現(xiàn)了對此類信息的新增、刪除、修改。 此窗體的實現(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。 \) SQLs = Select * From Repair where 單據(jù)編號=39。 amp。 amp。 39。 Set Rs = (SQLs, dbOpenDynaset) If Then (單據(jù)編號) = (住戶名稱) = (維修人員) = (報修日期) = (服務(wù)費用) = (物料費用) = (費用合計) = (報修內(nèi)容) = MsgBox 添加成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) AddRepair = True Else 住戶繳費管理本窗體用于管理用戶的投訴信息，實現(xiàn)了對此類信息的增加、刪除2個主要功能，主要代碼如下：Private Function AddTouShu() As Boolean 39。添加繳費信息 Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) Set Db = ( amp。 \) SQLs = Select * From DataMoney where 單據(jù)編號=39。 amp。 amp。 39。 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。刪除繳費信息 Dim Ws As Workspace Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) Set Db = ( amp。 \) SQLs = Select * From DataMoney where 單據(jù)編號=39。 amp。 amp。 39。 Set R