【文章內(nèi)容簡(jiǎn)介】 喜好Hate備注是“未知”厭惡TypeId數(shù)字長(zhǎng)整型是0客戶類(lèi)型IDRemark備注是“ ”備注Birthday Warn是/否是False是否啟用生日提醒Importance數(shù)字整型是50重要度（0255）Friendly數(shù)字整型是50友好度（0255）Satisfaction數(shù)字整型是50滿意度（0255） 客戶類(lèi)型信息表(ClienType)列表數(shù)據(jù)類(lèi)型字段大小必填字段默認(rèn)值說(shuō)明TypeId自動(dòng)編號(hào)長(zhǎng)整型是遞增，主鍵SuperId數(shù)字長(zhǎng)整型是0上級(jí)類(lèi)型IDTypeName文本20否“”客戶類(lèi)型名 合作信息表（Cooperate）列表數(shù)據(jù)類(lèi)型字段大小必填字段默認(rèn)值說(shuō)明CooperateId自動(dòng)編號(hào)長(zhǎng)整型是主鍵，遞增ClientId數(shù)字長(zhǎng)整型是客戶ID，外碼Date日期/時(shí)間短日期是190011合作日期Satefaction數(shù)字整型是50滿意度（0255）Remark備注是“ ”備注 提醒信息表(Warning)列表數(shù)據(jù)類(lèi)型字段大小必填字段默認(rèn)值說(shuō)明WarnId自動(dòng)編號(hào)長(zhǎng)整型是主鍵，遞增ClientId數(shù)字長(zhǎng)整型是0客戶ID，為0時(shí)表時(shí)全體客戶ShowDate日期/時(shí)間短日期是190011提醒顯示日期TypeId數(shù)字整型是1提醒類(lèi)型Id,外碼Msg備注是“ ”提醒消息 提醒類(lèi)型信息表(WarnType)列表數(shù)據(jù)類(lèi)型字段大小必填字段默認(rèn)值說(shuō)明WTypeId自動(dòng)編號(hào)字節(jié)是提醒類(lèi)型編號(hào)WtypeName文本30是“定時(shí)提醒”提醒類(lèi)型名稱 數(shù)據(jù)庫(kù)的生成與配置經(jīng)過(guò)前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。下面在Acess數(shù)據(jù)庫(kù)創(chuàng)建數(shù)據(jù)表，本系統(tǒng)的數(shù)據(jù)庫(kù)文件名定為“”，這里需要注意數(shù)據(jù)庫(kù)的權(quán)限問(wèn)題，即：（1）去掉數(shù)據(jù)庫(kù)文件和所在文件夾的只讀屬性。（2）如果是NTFS分區(qū)，則要給適當(dāng)?shù)挠脩籼砑訖?quán)限，一般，簡(jiǎn)單的解決辦法是給它的Everyone用戶添加完全控制權(quán)限。 第4章 系統(tǒng)詳細(xì)設(shè)計(jì)后臺(tái)數(shù)據(jù)庫(kù)結(jié)構(gòu)的設(shè)計(jì)工作完成以后，可以進(jìn)入系統(tǒng)的詳細(xì)設(shè)計(jì)環(huán)節(jié)?？蛻艄芾硎聞?wù)處理組件用來(lái)處理客戶管理系統(tǒng)中的業(yè)務(wù)邏輯，既負(fù)責(zé)與界面進(jìn)行數(shù)據(jù)傳遞，同時(shí)也要將界面端的請(qǐng)求應(yīng)用業(yè)務(wù)邏輯之后對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。 組件設(shè)計(jì)客戶管理事務(wù)處理組件包括以下功能：（1）客戶類(lèi)型信息管理；（2）客戶信息管理；（3）業(yè)務(wù)合作信息管理；（4）客戶提醒信息管理。 客戶管理事務(wù)處理事件的創(chuàng)建為了給客戶管理事件創(chuàng)建組件，我們新建了ActiveX DLL工程，加入對(duì)ADO的引用，設(shè)置的工程的關(guān)鍵屬性如下：工程類(lèi)型為ActiveX DLL，啟動(dòng)對(duì)象為Sub Main，工程名稱為ClientManagerCom。 在工程中加入自定義枚舉新建工程時(shí)自動(dòng)生成的類(lèi)型名稱設(shè)為CPublic，此類(lèi)沒(méi)有別的具體意義，主要功能是保存一些自定義的枚舉類(lèi)型，這些枚舉類(lèi)型在以后其他各類(lèi)中要經(jīng)常用到，同時(shí)這個(gè)類(lèi)的實(shí)現(xiàn)沒(méi)有技術(shù)難度，根據(jù)需要我們定義了以下枚舉：Option Explicit39。該類(lèi)無(wú)實(shí)際意義，只為保存一些自定義枚舉39。自定義枚舉，用于表示性別Public Enum gxcSex Male = 0 Female = 1End Enum39。連接數(shù)據(jù)庫(kù)的類(lèi)型Public Enum gxcDBType DBAccess = 0 DBSQLServer = 1End Enum39。以下枚舉用于“客戶類(lèi)型”對(duì)象的操作,用于表示客戶類(lèi)型刪除結(jié)果的枚舉Public Enum gxcDelete DeleteOK = 0 DeleteFail = 1 39。未知原因?qū)е虏荒軇h除 DeleteSubExists = 2 39。由于存在子類(lèi)型，因此不能刪除 DeleteClientExists = 3 39。該客戶類(lèi)型存在客戶，不能刪除End Enum39。用于表示客戶類(lèi)型更新結(jié)果的枚舉Public Enum gxcUpdate UpdateOK = 0 UpdateFail = 1 DuplicateName_Update = 2 39。名字不可重復(fù) RecordNotExist = 3 39。當(dāng)前更新的記錄不存在End Enum39。用于表示客戶類(lèi)型新增結(jié)果的枚舉Public Enum gxcAddNew AddNewOK = 0 AddNewFail = 1 DuplicateName_AddNew = 2 39。名字不可重復(fù) SuperNotExist = 3 39。指定的上級(jí)客戶類(lèi)型的ID不存在End Enum39。用于提醒類(lèi)別設(shè)置Public Enum gxcWarnType BirthdayWarn = 1 39。生日提醒 CommonWarn = 2 39。定時(shí)提醒End Enum39。用于對(duì)話框顯示類(lèi)別設(shè)置Public Enum gxcViewType vtadd = 0 39。添加信息 vtModify = 1 39。修改信息 vtInfo = 2 39。查看信息End Enum 創(chuàng)建組件的公共模塊 在工程中添加一個(gè)模塊，命名為mdlpublic,此模塊有兩個(gè)功能：l 用來(lái)連接數(shù)據(jù)庫(kù)及相關(guān)的初始化操作。l 存放在對(duì)數(shù)據(jù)庫(kù)的操作過(guò)程中可能用到的一些公共函數(shù)。1) 添加全局變量我們加入兩個(gè)全局變量，它們的名稱和功能如下：Public g_Connection ‘ 用于全局的數(shù)據(jù)連接Public g_DBPath As String ‘如果是Access數(shù)據(jù)庫(kù)，記錄下數(shù)據(jù)庫(kù)的路徑2) Sub Main()過(guò)程—啟動(dòng)對(duì)象手動(dòng)加入Sub Main()過(guò)程，這個(gè)就是剛才在工程屬性設(shè)置里指定的啟動(dòng)對(duì)象。在這個(gè)過(guò)程中，完成ActiveX DLL的初始化工作。在Sub Main()中的ConnecToDatabase 函數(shù)時(shí)功能是用來(lái)連接到數(shù)據(jù)庫(kù)，下面來(lái)看它的實(shí)現(xiàn)方法。3) ConnecToDatabase 函數(shù)——與數(shù)據(jù)庫(kù)建立連接216。 功能：根據(jù)傳入?yún)?shù)是DBAccess 還是DBSQLSever 來(lái)決定連接到 Access數(shù)據(jù)庫(kù)還是SQL Sever數(shù)據(jù)庫(kù)。216。 參數(shù)設(shè)計(jì)：gxcDBType類(lèi)型，參見(jiàn)CPublic類(lèi)中的枚舉定義。216。 返回值：Boolean 類(lèi)型，True表示成功，F(xiàn)alse 表示失敗。216。 設(shè)計(jì)思路：根據(jù)傳入?yún)?shù)組織不同的連接字符串，然后打開(kāi)數(shù)據(jù)庫(kù)連接。現(xiàn)在，在mblPublic模塊中連接數(shù)據(jù)庫(kù)的功能已經(jīng)實(shí)現(xiàn)，下面添加在數(shù)據(jù)庫(kù)操作時(shí)比較常用的一些函數(shù)。4) RealString——替換字符串的單引號(hào)在用SQL語(yǔ)言存儲(chǔ)字符型數(shù)據(jù)時(shí)，單引號(hào)成為我們最大的天敵，如果在字符串中存在單引號(hào)，則可能會(huì)意外截?cái)嘧址斐蒘QL語(yǔ)法錯(cuò)誤。解決辦法是用兩個(gè)單引號(hào)來(lái)表示一個(gè)單引號(hào)。5) MaxID——替換字符串的單引號(hào)MaxID函數(shù)用來(lái)獲取表中當(dāng)前主鍵的最大值，這個(gè)函數(shù)用于在數(shù)據(jù)庫(kù)中添新記錄后，立即獲取剛才添加記錄的主鍵值。6) ExistByID——判斷記錄是否存在 ExistByID 函數(shù)用于給定一條記錄的ID號(hào)后，查看數(shù)據(jù)庫(kù)中是否存在此記錄。7) GetValueByID——根據(jù)主鍵名獲取某以字段的值這個(gè)函數(shù)根據(jù)輸入的ID來(lái)查找對(duì)應(yīng)的記錄，如果找到一條記錄，則根據(jù)輸入的字段名返回對(duì)應(yīng)值。比如知道客戶ID后，可以調(diào)用此函數(shù)來(lái)獲取客戶名。 客戶管理主界面設(shè)置 設(shè)計(jì)主窗體控件布局 為了對(duì)主界面的設(shè)計(jì)，首先我們對(duì)主窗體的控件的屬性，圖片列表的關(guān)鍵字，工具條的按鈕等做了些設(shè)置。（已有控件只需設(shè)置屬性即可）。 主窗體及其控件屬性的設(shè)置控件名稱屬性屬性取值功能frmMain(Form)Caption客戶管理系統(tǒng)系統(tǒng)主窗體imlViewSIcon(LisView)ImageHeight16樹(shù)形控件和列表框小圖標(biāo)所使用的圖片ImageWidth16imlViewBIcon(ImageList)ImageHeight32列表框大圖標(biāo)和工具條所使用的圖片ImageWidth32tbToolBar(ToolBar)AlignvbAlignBottom主窗體中的工具條StyletbrFlatTextAlignmenttbrTextAlignBottomImageListimlViewBIcontvTreeView(TreeView)LineStletvwRootLines顯示客戶類(lèi)型樹(shù)Style7ImageListimlViewSIconlvListView(ListView)FullRowSlelctTrue顯示客戶列表GridLinesTrueViewlvwReportIconimlViewBIconSmall IconimlViewSIcon 圖片列表的關(guān)鍵字設(shè)置按上述給窗體添加完控件并設(shè)置屬性后，下面是對(duì)系統(tǒng)中要用到的圖片做的初始化設(shè)置。對(duì)兩個(gè)ImageList的圖片選擇不做限制，但要求：imlViewSIcon必須包“group”、“group2”、“boy”、“girl”、“sboy”、“sgirl”等關(guān)鍵字；imlViewSIcon必須包括“boy”、“girl”、“bboy”、“bgirl”、“group”、“add”、“modify”、“del”“info”、“search”、 “warn”、“setting”、“IstView”、“exit”等關(guān)鍵字。 給工具條添加按鈕 為了使用的方便，我們?cè)诠ぞ邨l中設(shè)計(jì)了一下常用的按鈕。： 工具條按鈕的設(shè)置按鈕標(biāo)題關(guān)鍵字樣式圖像客戶類(lèi)型tbnClientType5tbrDropdowngroup3tbrSeperator添加客戶tbnAddClient0tbrDefualtadd修改客戶tbnModifyClient0tbrDefualtmodify刪除客戶tbnDelClient0tbrDefualtdel客戶信息TbnClientInfo0tbrDefualtinfo查找客戶tbnSearchClient0tbrDefualtsearch3tbrSeperator今日提醒tbnWarn0tbrDefualtwarn提醒設(shè)置tbnWarnsetting0tbrDefaultsettingtbnViewStyle3tbrSeperator顯示方式tbnViewStyle5tbrDropdownIstView3tbrSeperator退出系統(tǒng)tbnExit0tbrDefault 客戶類(lèi)型按鈕的按鈕菜單設(shè)計(jì)文本關(guān)鍵字添加客戶類(lèi)型tbnAddClientType修改客戶類(lèi)型tbnModifyClientType刪除客戶類(lèi)型tbnDelClientType 顯示方式按鈕的按鈕菜單設(shè)計(jì)文本關(guān)鍵字大圖標(biāo)大圖標(biāo)小圖標(biāo)小圖標(biāo)列表列表詳細(xì)資料詳細(xì)資料 添加菜單 下面是主界面編輯的最后一步，在主界面的界面設(shè)計(jì)模式下，打開(kāi)“菜單編輯器”對(duì)話框，其他屬性取值默認(rèn)值。 主界面菜單設(shè)置