【正文】 選擇類別 Else TmpSource = TmpSource + And = And = _ + Trim() + ORDER BY End If Else If = 4 Then 39。設(shè)置列表綁定字段 End Sub（3）客戶基本信息管理窗體Private Sub Refresh_Customer() Dim TmpSource As String If = 0 And = 0 Then lblSel = 0 Exit Sub End If 39。設(shè)置連接字符串 = Conn 39。判斷是否存在此記錄信息 OriTypeName = Trim() 39。更新名稱 = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。刷新DataList1End SubPrivate Sub Cmd_Exit_Click() Unload MeEnd SubPrivate Sub Cmd_Modi_Click() 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱) Exit Sub End If 39。類型編號Private OriTypeName As String 39。根據(jù)關(guān)鍵字獲取地域信息 FocusKey = = TmpType = Asc(Left(, 1)) = TmpType Asc(a) = Val(Right(, Len() 1)) 39。你們的言傳身教將使我終生受益！感謝所有幫助過我的人! 主要參考文獻⑴馬力，《Visual Basic程序設(shè)計院》，北京大學(xué)出版社，200481⑵馮碩，費志博，《Visual Basic數(shù)據(jù)庫編程寶典》，電子工業(yè)出版社，200151⑶王守茂，《管理信息系統(tǒng)的分析與設(shè)計》，天津科技翻譯出版公司，1993年⑷曹青、邱李華、郭志強,《Visual Basic程序設(shè)計教程》,機械工業(yè)出版社, 2002年⑸姜旭平，《信息系統(tǒng)開發(fā)方法》，清華大學(xué)出版社，2002年⑹王珊，《數(shù)據(jù)庫系統(tǒng)概述》，高等教育出版社，1999年⑺姚達，《數(shù)據(jù)庫設(shè)計》，高等教育出版社，2000年⑻王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學(xué)出版社，1999年⑼Korth, Silberschatz, Abraha，《Database System Concepts》，New York ：McGrawHill, Inc. ⑽Patrick O’Neil Elizabeth O’Neil，《DATABASE Principles,Programming,and Performance》(Second Edition)，New York:Higher Education Press Morgan Kaufmann Publishers,附錄：部分窗體源代碼（1）地域管理窗體代碼Private Sub Cmd_Add_Click() If = 4 Then MsgBox 此地域已不能再細分 Exit Sub End If 39。此外，她們嚴謹?shù)闹螌W(xué)態(tài)度和忘我的工作精神值得我去學(xué)習(xí)。致 謝在論文的選題及其后的設(shè)計過程中得到指導(dǎo)老師的悉心指導(dǎo)，使本文得以順利完成，在此向趙老師表示衷心的感謝?，F(xiàn)在的系統(tǒng)還有一些數(shù)據(jù)的顯示不是很符合實際，這要在數(shù)據(jù)窗口中進行統(tǒng)一設(shè)置。由于本人自身能力的局限性，所以做編寫的代碼，即使經(jīng)過反復(fù)檢查也難免出錯所以在本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。一般來說，系統(tǒng)測試是功能性測試，不是結(jié)構(gòu)性測試。圖20 測試的基本層次(1) 單元測試 單元測試的用例從單元詳細設(shè)計中導(dǎo)出。因此，軟件測試在面向?qū)ο缶幊汤锔哂兴闹匾?。我們力求在每個階段結(jié)束之前通過嚴格的技術(shù)審查，盡可能早的發(fā)現(xiàn)并糾正錯誤。. 設(shè)計客戶單位信息編輯窗體 客戶單位信息編輯窗體的窗體為FrmCustomerEdit，窗體布局如圖12所示:圖12 客戶單位信息窗體. 設(shè)計客戶單位信息管理窗體客戶單位信息管理窗體的名稱為FrmCustomerMan，窗體布局如圖13所示:圖13 客戶單位信息管理窗體 窗體屬性與登錄窗體相似，窗體中主要控件的屬性如表13所示: 表13 設(shè)置窗體中主要控件的屬性對象名屬性屬性值ComboArea用于選擇地域Check1用于選擇全部地域Dco_Ctype用于選擇客戶類別Check2用于選擇全部客戶類別AdoType為dco_Ctype提供數(shù)據(jù)源lblTotal用于顯示全部客戶單位數(shù)量lblSel用于顯示當前選擇客戶單位的數(shù)量DataGrid1用于顯示客戶單位信息Adodc1為DataGrid1控件提供數(shù)據(jù)源Cmd_AddCaption添加Cmd_ModiCaption修改Cmd_DelCaption刪除Cmd_ExitCaption返回 . 設(shè)計客戶聯(lián)系人信息編輯窗體客戶聯(lián)系人信息管理窗體的名稱為FrmContactEdit，窗體布局如圖14所示:圖14 客戶聯(lián)系人信息管理窗體. 設(shè)計客戶聯(lián)系人信息管理窗體客戶聯(lián)系人信息管理窗體的名稱為FrmContactMan，窗體布局如圖15所示:圖15 客戶聯(lián)系人信息管理窗體. 設(shè)計客戶聯(lián)系人信息查看窗體客戶聯(lián)系人信息查看窗體的名稱為FrmContactView，窗體布局如圖16所示:圖16 客戶聯(lián)系人信息查看窗體. 商業(yè)往來管理模塊設(shè)計商業(yè)往來管理模塊包括商業(yè)機會管理和客戶跟蹤管理等功能。將地域信息讀取到CurArea對象中 ()End Sub. 設(shè)計選擇地域信息窗體為了方便用戶在其他模塊中選擇地域信息，設(shè)計一個選擇地域信息的窗體，窗體名為FrmAreaSel。確認刪除 If MsgBox(是否確定要刪除 + Trim(), vbYesNo, 請確認) = vbNo Then Exit Sub End If () TreeView1_ClickEnd Sub⑷TreeView1_Click過程當單擊TreeView列表時觸發(fā)TreeView1_Click事件，對應(yīng)的代碼如下：Private Sub TreeView1_Click() Dim TmpType As Integer 39。單擊“圖像”選項卡，通過單擊“插入圖像”和“刪除圖像”來編輯圖像列表，如圖9所示：圖9 地域信息管理窗體下面分析窗體FrmClassMan中部分過程的代碼。生成TreeView控件中新結(jié)點的關(guān)鍵字 Tmp_Key = Chr(Asc(a) + .AreaType) Tmp_Key = Tmp_Key + Trim(Str(TmpId)) = 1 = 2 = 3 Set TmpNode = (, _ tvwChild, Tmp_Key, .AreaName, 4, 5) = True Else 39。當選擇“退出系統(tǒng)”菜單項時觸發(fā)mn_Click事件，代碼如下：Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub. 基本信息管理模塊設(shè)計基本信息管理模塊包括地域信息管理、客戶類別管理、行業(yè)分類管理、職務(wù)名稱管理、項目類型管理和銷售人員管理。⑵設(shè)計主界面主窗體是工程的啟動對象，可以在系統(tǒng)菜單中選擇“工程”/“屬性”，打開屬性窗口設(shè)置啟動對象。如果密碼不同，要求用戶重新輸入，同時將計數(shù)變量Try_times加1。l 將輸入的用戶名和密碼賦值到變量NameKey和Passwordkey中，便于處理。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄成功后，將顯示系統(tǒng)主界面。這樣整個數(shù)據(jù)庫設(shè)計后的結(jié)果如圖4所示： 圖4客戶管理系統(tǒng)數(shù)據(jù)庫下面分別介紹各表結(jié)構(gòu)：（1）基本信息表Types表Types用來保存客戶類別信息、行業(yè)分類信息、職務(wù)名稱信息和項目類型信息，結(jié)構(gòu)如表1所示：表1 Types的結(jié)構(gòu)編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1Id自動編號記錄編號，主鍵2TypeName文本，長度50信息名稱3Flag數(shù)字／字節(jié)類型標記。. ER圖繪制系統(tǒng)的ER圖如圖3所示：實體： 關(guān)系： 屬性：行業(yè)分類設(shè)置地域信息設(shè)置密碼客戶跟蹤商業(yè)機會客戶類型聯(lián)系人客戶類型設(shè)置基本信息職務(wù)名稱設(shè)置項目類型設(shè)置銷售人員管理NN用戶名客戶單位客戶信息1職務(wù)名稱管理員用戶管理N 密碼商業(yè)往來信息N用戶名普通用戶圖3系統(tǒng)實體聯(lián)系圖. 數(shù)據(jù)庫建表 本系統(tǒng)采用Access2000作為后臺數(shù)據(jù)庫。 (4) 商業(yè)往來管理模塊商業(yè)往來管理模塊包括商業(yè)機會管理和客戶跟蹤管理等功能。. 系統(tǒng)功能概述本課題屬于一個數(shù)據(jù)庫開發(fā)的問題，主要功能簡述如下：(1) 登錄窗體和系統(tǒng)主界面模塊當系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進行系統(tǒng)?？傮w設(shè)計的基本目的就是回答“從總體上說，系統(tǒng)應(yīng)該如何實現(xiàn)？”這個問題。在進行逐層精化的過程中，必須維持層間數(shù)據(jù)流圖的平衡，即，被精化的的轉(zhuǎn)換的輸入、輸出流必須與精化它的數(shù)據(jù)流子圖的初始輸入流和最終輸出流嚴格一致。. 環(huán)境需求說明（1）軟件運行硬件環(huán)境： PII或更高檔的微機，筆記本電腦； 運行內(nèi)存要求:≥32MB； 安裝所需硬盤:≥20MB；（2）軟件要求： 中文 Windows 95/98/2000/Me/XP； 英文 Windows 95/98/2000/Me/XP。準確地表達被接受的用戶要求，也是需求分析的另一個重要方面，只有經(jīng)過確切描述的軟件需求才能成為軟件設(shè)計的基礎(chǔ)。. 目的需求分析不僅是軟件定義時期的最后一個階段，而且是軟件開發(fā)期的第一個階段，也是關(guān)系到軟件開發(fā)成敗的關(guān)鍵步驟。. 法律可行性本系統(tǒng)是完全有計算機學(xué)院的學(xué)生單獨開發(fā)完成的軟件，使用的是VB和MS Access等授權(quán)軟件，它不是模仿他人已有的軟件，在軟件中也不會設(shè)置各種邏輯陷阱、特洛伊木馬以及其它非法程序，也不會借此發(fā)布非法事件，故在法律上、專利問題上不會存在違反法律的行為。軟件要求：系統(tǒng)采用Visual Basic Access開發(fā)，用VB制作系統(tǒng)的用戶界面，Access制作后臺數(shù)據(jù)庫，兩者結(jié)合完成系統(tǒng)功能，可運行在Windows98及以上的系列操作系統(tǒng)上。Access 2000的優(yōu)點：完善地管理各種數(shù)據(jù)庫對象，提供了很高的系統(tǒng)安全性。（4）通過創(chuàng)建聯(lián)機窗體，用戶可以直接對數(shù)據(jù)庫中的記錄執(zhí)行查看和編輯操作。. Access的功能及優(yōu)點Access是一個基于關(guān)系型數(shù)據(jù)庫的中小型數(shù)據(jù)庫應(yīng)用系統(tǒng)，雖然它的“出道”時間比較晚，但由于它的強大的功能和出眾的易用性，很快得到了廣大數(shù)據(jù)庫應(yīng)用程序員們的青睞，從而成為當今最通用的數(shù)據(jù)庫軟件。對于一個小列表來說，這算不上什么，但對于經(jīng)常需要更新信息的列表來說（例如地址列表），用這種方法來保持最新的數(shù)據(jù)無疑是一項繁重的工作。例如，用數(shù)據(jù)庫可以生成最重要的電話號碼列表、打印賀卡的郵遞標簽、生日列表等等。方便地通過Web共享信息。按照用戶的工作方式組織信息；通過數(shù)據(jù)集可以對記錄以及組成記錄的列進行各種操作。 設(shè)置CommandTimeout屬性可以指定服務(wù)器等待醫(yī)療命令行執(zhí)行的時間。 使用Execute方法執(zhí)行命令行并返回一個數(shù)據(jù)集對象（Recordset）。命令行對象指定變量、參數(shù)以及可