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