【文章內(nèi)容簡(jiǎn)介】 圖2系統(tǒng)功能模塊圖. 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)是建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)的技術(shù)，是信息系統(tǒng)開(kāi)發(fā)和建設(shè)中的核心技術(shù)，具體說(shuō)，數(shù)據(jù)庫(kù)設(shè)計(jì)是指對(duì)于一個(gè)給定的應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫(kù)模式，建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)，使之能夠有效地存儲(chǔ)數(shù)據(jù)，滿(mǎn)足各種用戶(hù)的應(yīng)用需求（信息要求和處理要求）。. ER圖繪制系統(tǒng)的ER圖如圖3所示：實(shí)體： 關(guān)系： 屬性：行業(yè)分類(lèi)設(shè)置地域信息設(shè)置密碼客戶(hù)跟蹤商業(yè)機(jī)會(huì)客戶(hù)類(lèi)型聯(lián)系人客戶(hù)類(lèi)型設(shè)置基本信息職務(wù)名稱(chēng)設(shè)置項(xiàng)目類(lèi)型設(shè)置銷(xiāo)售人員管理NN用戶(hù)名客戶(hù)單位客戶(hù)信息1職務(wù)名稱(chēng)管理員用戶(hù)管理N 密碼商業(yè)往來(lái)信息N用戶(hù)名普通用戶(hù)圖3系統(tǒng)實(shí)體聯(lián)系圖. 數(shù)據(jù)庫(kù)建表 本系統(tǒng)采用Access2000作為后臺(tái)數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開(kāi)發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)后再進(jìn)行編碼，從而避免無(wú)所謂的重復(fù)工作。本系統(tǒng)數(shù)據(jù)庫(kù)中包含8個(gè)表，即基本信息表Types、地域信息表Area、銷(xiāo)售人員信息表Employess、客戶(hù)單位信息表Customer、聯(lián)系人信息表Contact、商業(yè)機(jī)會(huì)表SaleCHance、客戶(hù)跟蹤表SaltTask和用戶(hù)信息表Ｕsers。這樣整個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)后的結(jié)果如圖4所示： 圖4客戶(hù)管理系統(tǒng)數(shù)據(jù)庫(kù)下面分別介紹各表結(jié)構(gòu)：（1）基本信息表Types表Types用來(lái)保存客戶(hù)類(lèi)別信息、行業(yè)分類(lèi)信息、職務(wù)名稱(chēng)信息和項(xiàng)目類(lèi)型信息，結(jié)構(gòu)如表1所示：表1 Types的結(jié)構(gòu)編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1Id自動(dòng)編號(hào)記錄編號(hào)，主鍵2TypeName文本，長(zhǎng)度50信息名稱(chēng)3Flag數(shù)字／字節(jié)類(lèi)型標(biāo)記。1表示客戶(hù)類(lèi)別；2表示客戶(hù)所屬行業(yè)；3表示職務(wù)名稱(chēng)；4表示項(xiàng)目類(lèi)型（2）地域信息表Area表Area用來(lái)保存地域信息，結(jié)構(gòu)如表2所示：表2 Area的結(jié)構(gòu)編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1AreaId數(shù)字／長(zhǎng)整型記錄編號(hào)，主鍵2AreaName文本，長(zhǎng)度50地域名稱(chēng)3AreaType數(shù)字／字節(jié)地域類(lèi)型1表示洲；2表示國(guó)家。3表示??；4表示市縣4UpperId數(shù)字／長(zhǎng)整型上級(jí)地域編號(hào)表Employess用來(lái)保存銷(xiāo)售人員信息，結(jié)構(gòu)如表3所示：表3 Employess的結(jié)構(gòu)編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1EmpId自動(dòng)編號(hào)人員編號(hào)，主鍵2EmpName文本，長(zhǎng)度50姓名3Sex文本，長(zhǎng)度2性別4DepName文本，長(zhǎng)度50所在部門(mén)5ETitle文本，長(zhǎng)度50職務(wù)（3）客戶(hù)單位信息表Customer表Customer用來(lái)保存客戶(hù)單位信息，結(jié)構(gòu)如表4所示：表4 Customer表編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1CustId自動(dòng)編號(hào)記錄編號(hào)，主鍵2CEastman文本，長(zhǎng)度200課程名稱(chēng)3CustTypeId數(shù)字／長(zhǎng)整型所屬客戶(hù)類(lèi)型編號(hào)4Address文本，長(zhǎng)度200通信地址5Postcode文本，長(zhǎng)度50郵政編碼6AreaId數(shù)字／長(zhǎng)整型所屬地域編號(hào)7BussTypeId數(shù)字／長(zhǎng)整型所屬行業(yè)類(lèi)別編號(hào)8EmpId數(shù)字／長(zhǎng)整型銷(xiāo)售人員（4）聯(lián)系人信息表Contact表Contact用來(lái)保存聯(lián)系人信息，結(jié)構(gòu)如表5所示： 表5 Contact的結(jié)構(gòu)表編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1Id自動(dòng)編號(hào)記錄編號(hào)，主鍵2CustId數(shù)字／長(zhǎng)整型客戶(hù)單位編號(hào)3CName文本／長(zhǎng)度50姓名4Sex文本／長(zhǎng)度2性別5TitleId數(shù)字／長(zhǎng)整型職務(wù)編號(hào)6Office文本，長(zhǎng)度50辦公電話(huà)7Mobile文本，長(zhǎng)度50移動(dòng)電話(huà)8Birth文本，長(zhǎng)度50生日9Hobby文本，長(zhǎng)度50興趣愛(ài)好10Memo1備注備注信息11Input_date文本，長(zhǎng)度50記錄錄入日期12Input_time文本，長(zhǎng)度50記錄錄入時(shí)間（5）商業(yè)機(jī)會(huì)表SaleChance表SaleChance用來(lái)保存商業(yè)機(jī)會(huì)信息，結(jié)構(gòu)如表6所示: 表6 SaleChance的結(jié)構(gòu)表編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu) 說(shuō) 明1Id文本，長(zhǎng)度50記錄編號(hào)2CustId數(shù)字／長(zhǎng)整型客戶(hù)編號(hào)3CtId數(shù)字／長(zhǎng)整型聯(lián)系人編號(hào)4ProName文本／長(zhǎng)度200產(chǎn)品名稱(chēng)5PTypeId數(shù)字／長(zhǎng)整型項(xiàng)目類(lèi)型編號(hào)6EmpId數(shù)字／長(zhǎng)整型銷(xiāo)售人員編號(hào)7SignDate文本，長(zhǎng)度50預(yù)計(jì)簽訂日期8SignSum數(shù)字／長(zhǎng)整型預(yù)計(jì)成交金額9PPercent文本，長(zhǎng)度50目前進(jìn)度10Status文本，長(zhǎng)度50狀態(tài)11Detail備注詳細(xì)介紹12CreateDate日期／時(shí)間創(chuàng)建日期13Poster文本，長(zhǎng)度50創(chuàng)建人（6）客戶(hù)跟蹤表SaleTask表SaleTask用來(lái)保存客戶(hù)任務(wù)跟蹤信息，結(jié)構(gòu)如表7所示:表7 SaleTask的結(jié)構(gòu)表編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1Id自動(dòng)編號(hào)記錄編號(hào)2SaleId文本，長(zhǎng)度50商業(yè)機(jī)會(huì)編號(hào)3EmpId數(shù)字／長(zhǎng)整型銷(xiāo)售人員編號(hào)4TaskDate文本／長(zhǎng)度50任務(wù)日期5Purpose文本／長(zhǎng)度50拜訪(fǎng)目的6CtId數(shù)字／長(zhǎng)整型拜訪(fǎng)人員編號(hào)7Place文本，長(zhǎng)度100拜訪(fǎng)地點(diǎn)8StartTime數(shù)字／長(zhǎng)整型開(kāi)始時(shí)間9EndTime文本，長(zhǎng)度50目前進(jìn)度10EndTimeDetail結(jié)束時(shí)間11Detail備注詳細(xì)介紹12Result備注任務(wù)結(jié)果、進(jìn)展總結(jié) （7）用戶(hù)信息表Users表Users用來(lái)保存系統(tǒng)用戶(hù)信息，結(jié)構(gòu)如表8所示。表8 Users的結(jié)構(gòu)表編號(hào)字段名稱(chēng)數(shù)據(jù)結(jié)構(gòu)說(shuō)明1UserName文本，長(zhǎng)度50用戶(hù)名，主鍵2UserPwd文本，長(zhǎng)度50密碼3. 系統(tǒng)詳細(xì)設(shè)計(jì). 登錄窗體和系統(tǒng)主界面設(shè)計(jì)當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開(kāi)登錄窗體，只有有權(quán)限的用戶(hù)才能進(jìn)行系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。（1）設(shè)計(jì)登錄窗體登錄窗體的名稱(chēng)為FrmLogin，它的界面布局如圖5所示:圖5 登錄窗體的界面布局登錄窗體的屬性表如表9所示。表9 登錄窗體的屬性表窗體屬性設(shè)置值具體說(shuō)明名稱(chēng)FrmLogin設(shè)置窗體名稱(chēng)BorderStyle1Fixed Single設(shè)置窗體的邊框?qū)傩訡aption身份驗(yàn)證窗體的標(biāo)題條文本ControlBoxFalse取消控制按鈕，防止用戶(hù)通過(guò)控制按鈕關(guān)閉對(duì)話(huà)框StartUpPosition2屏幕中心設(shè)置窗體彈出時(shí)，位置在屏幕中心登錄窗體中控件的屬性如表10所示：表10 登錄窗體包含的控件及其屬性　　　對(duì)象名屬性屬性值Label1Caption用戶(hù)名Label2Caption密碼txtUserText空txtPwdText空PasswordChar＊Cmd_OkCaption確定Cmd_CancelCaption取消下面介紹登錄窗體的部分代碼①變量聲明登錄窗體的變量聲明如下：Public PasswordKey As StringPublic Try_times As IntegerPublic NameKey As String②Cmd_Click過(guò)程當(dāng)用戶(hù)單擊“確定”按鈕時(shí)觸發(fā)Cmd_Click事件，進(jìn)行身份驗(yàn)證，代碼如下：Private Sub Cmd_OK_Click() Dim j As Single39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請(qǐng)輸入用戶(hù)名 Exit Sub End If If txtPwd = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷用戶(hù)是否存在 If (NameKey) = False Then MsgBox 用戶(hù)名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄成功，將當(dāng)前用戶(hù)的信息保存在CurUser中 ()39。關(guān)閉自己 Unload MeEnd Sub程序的運(yùn)行過(guò)程如下：l 判斷是否輸入了用戶(hù)名和密碼，如果沒(méi)有輸入，則返回，要求用戶(hù)輸入。l 將輸入的用戶(hù)名和密碼賦值到變量NameKey和Passwordkey中，便于處理。l ()函數(shù)，判斷當(dāng)臆用戶(hù)名是否存在。如果不存在，則返回，要求用戶(hù)重新輸入，同時(shí)將計(jì)數(shù)變量Try_times加1。l 如果用戶(hù)名存在，()函數(shù)，讀取此用戶(hù)的數(shù)據(jù)，并將用戶(hù)密碼與輸入的密碼進(jìn)行比較。如果密碼不同，要求用戶(hù)重新輸入，同時(shí)將計(jì)數(shù)變量Try_times加1。l 如果Try_times大于或等于3，則退出系統(tǒng)。l 如果通過(guò)密碼驗(yàn)證，則將當(dāng)前用戶(hù)的信息保存到curUser對(duì)象中，以便以后使用。l 關(guān)閉登錄窗體。⑵設(shè)計(jì)主界面主窗體是工程的啟動(dòng)對(duì)象，可以在系統(tǒng)菜單中選擇“工程”/“屬性”，打開(kāi)屬性窗口設(shè)置啟動(dòng)對(duì)象。本系統(tǒng)中主窗體名為FrmMain。打開(kāi)窗體的設(shè)計(jì)窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯，菜單編輯器如圖6所示：圖6 菜單編輯器本系統(tǒng)的主界面如圖7所示：圖7 系統(tǒng)主界面在主窗體FrmMain中添加如下代碼：Private Sub Form_Load() 1End Sub當(dāng)主窗體啟動(dòng)時(shí)，將打開(kāi)“登錄”對(duì)話(huà)框。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)行系統(tǒng)。當(dāng)選擇“退出系統(tǒng)”菜單項(xiàng)時(shí)觸發(fā)mn_Click事件，代碼如下：Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub. 基本信息管理模塊設(shè)計(jì)基本信息管理模塊包括地域信息管理、客戶(hù)類(lèi)別管理、行業(yè)分類(lèi)管理、職務(wù)名稱(chēng)管理、項(xiàng)目類(lèi)型管理和銷(xiāo)售人員管理。. 設(shè)計(jì)地域信息編輯窗體 編輯地域信息的窗體可以用來(lái)添加和修改地域信息，窗體名稱(chēng)設(shè)置為FrmAreaEdit，窗體布局如圖8所示：圖8 窗體FrmAreaEdit布局Cmd_Ok_Click過(guò)程當(dāng)用戶(hù)單擊“確定”按鈕時(shí)觸發(fā)Cmd_Ok_Click事件，對(duì)應(yīng)的程序代碼如下：Private Sub Cmd_OK_Click() Dim TmpId As Integer If Trim(txtArea) = Then MsgBox 請(qǐng)輸入地域名稱(chēng) Exit Sub End If 39。將用戶(hù)輸入的輸入賦值到MyArea對(duì)象中 With MyArea .AreaName = Trim(txtArea) .AreaType = + 1 .UpperId = If Modify = False Then 39。插入 If .In_DB(Trim(txtArea), .UpperId) = True Then MsgBox Trim(tx