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