【正文】 計分析銷售信息。 ? 刪除銷售信息。 銷售信息管理模塊 銷售信息管理模塊的功能需要由 clsSell和 clsSells兩個類實現(xiàn)，它的主要功能是： ? 添加銷售信息。 （ 3） 添加 FindStorage方法 ? 功能：統(tǒng)計各種商品的進(jìn)貨次數(shù)和累計進(jìn)貨總支出，最后按進(jìn)貨總支出來排序，結(jié)果以 clsBuys類型返回，最多返回前 nCount條記錄。 ? 參數(shù)設(shè)計：兩個可選參數(shù)，一個是進(jìn)貨編號，另一個是商品類型編號。 ? 返回值： gxcDelete類型，請參考 clsPublic類中 gxcDelete枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除進(jìn)貨信息。 ? 參數(shù)設(shè)計：無。 ? 返回值： gxcAddNew類型，請參考 clsPublic類中的 gxcAddNew枚舉定義。 1） 進(jìn)貨信息管理類 clsBuy （ 1） 創(chuàng)建 clsBuy類并添加屬性 屬性名稱 數(shù)據(jù)類型 說明 ID Long 進(jìn)貨 ID ProviderId String 供應(yīng)商 ID ProviderName String 供應(yīng)商名稱 MerchandiseID Long 商品 ID MerchName String 商品名稱 StockDate Date 進(jìn)貨 時間 Deliver String 送貨人姓名 Consignee String 經(jīng)手人姓名 Count Long 購入量 StockPrice Single 進(jìn)貨單價 OperatorId String 操作員 ID Remark String 備注 TypeName String 商品類型名稱 StockTimes Long 進(jìn)貨次數(shù) TotalPrice Single 總進(jìn)貨支出 （ 2） AddNew方法 ? 功能：添加單條進(jìn)貨信息。 ? 按商品統(tǒng)計分析進(jìn)貨信息。 ? 刪除進(jìn)貨信息。 進(jìn)貨信息管理模塊 進(jìn)貨信息管理模塊的功能需要由 clsBuy和 clsBuys兩個類實現(xiàn)，它的主要功能是： ? 添加進(jìn)貨信息。 ? 返回值： clsProviders類型，一個 clsProvider的集合。 (1)添加 AddEx方法 (2)添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找供貨商信息，結(jié)果以 clsProviders類型返回。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個集合類，命名為 clsProviders類，在“集合組成”欄中選擇clsProvider類。 在刪除供貨商的同時，必須先刪除與這個供貨商相關(guān)的進(jìn)貨信息，而且要把這兩個操作放在一個事務(wù)里面。 ? 參數(shù)設(shè)計：可選參數(shù) lngID表示供貨商信息 ID，默認(rèn)為 1。 ? 返回值： gxcUpdate類型，參考 clsPublic類中的 gxUpdate枚舉類型的定義。 (3) pdate方法 ? 功能：修改供貨商信息。 ? 參數(shù)設(shè)計：無。 1） 供貨商信息管理類 clsProvider (1)創(chuàng)建 clsProvider類并添加屬性 供貨商信息類 clsProvider用來具體處理單條供貨商信息，完成供貨商信息的基本操作功能，如添加、修改、刪除等。 FindStorage方法參數(shù)設(shè)計 參數(shù)名 參數(shù)類型 功能 是否可選及默認(rèn)值 說明 IsDesc Boolean 表示是否采用降序 可選，默認(rèn)值 =true 無 nCount Integer 最多顯示多少條記錄 可選，默認(rèn)值 =10 無 供貨商信息管理模塊 供貨商信息管理模塊的功能需要由 clsProvider和 clsProviders兩個類來實現(xiàn)，它的主要功能是： ? 添加供貨商信息。 ? 參數(shù)設(shè)計：參見下表。顯然當(dāng)上面兩個參數(shù)都不指定時，返回全部商品。 ? 參數(shù)設(shè)計：如下表。應(yīng)用設(shè)置后系統(tǒng)會自動生成一個標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，下面，為 clsMerchs添加必要的方法。 3） 商品信息管理集合類 clsMerchs 商品信息集合類 clsMerchs用來具體處理多個商品的信息，其最小的單元是 clsMerch，它完成與一組商品信息相關(guān)的操作，比如查找等。 ? 參數(shù)設(shè)計：可選參數(shù) lngID表示商品 ID，默認(rèn)為 1。 ? 返回值： gxcUpdate類型，請參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 3） Update方法 ? 功能：修改商品信息。 商品信息管理模塊 商品信息管理模塊的功能需要有 clsMerch和 clsMerchs兩個類來實現(xiàn)，它的 主要功能是： ? 添加商品信息 ? 修改商品信息 ? 刪除商品信息 ? 查找商品信息 ? 其他與商品信息相關(guān)的常用操作 1）、商品信息管理類 clsMerch （ 1）創(chuàng)建 clsMerch類并添加屬性 屬性名稱 數(shù)據(jù)類型 說明 ID Long 商品編號 MerchName String 商品名稱 Introduce Integer 商品介紹 TypeId gxcSex 商品類型 ID Storage Long 庫存量 UnitID String 單位編號 Remark String 備注 TypeName String 商品類型名稱 （ 2） AddNew方法 ? 功能：添加單個商品信息 ? 參數(shù)設(shè)計：無。 ? 返回值： clsMTypes類型，一個 clsMType的集合。 （ 1） 添加 AddEx方法 （ 2）添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找商品類型，結(jié)果以 clsMTypes類型返回。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個集合類，命名為 clsMTypes類，在“基于”下拉列表框中選擇 clsDBbases，在“集合組成”欄中選擇 clsMType類。 ? 返回值： gxcDelete類型，請參考 clsPublic類中 gxcDelete枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除商品類型。 （ 3） Update方法 ? 功能：修改商品類型。 ? 參數(shù)設(shè)計：無。 屬性名稱 數(shù)據(jù)類型 屬性聲明 ID Long Get/Let SuperID Long Get/Let TypeName String Get/Let 屬性添加完畢并應(yīng)用后，可以看到在 clsMType類中已經(jīng)自動添加了類的成員變量和屬性。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器向工程中添加 clsMType類，基于下拉列表框中選擇 clsDBbase。 ? 其他與商品類型相關(guān)的 常用操作。 ? 刪除商品類型信息。 商品類型信息管理模塊 商品類型信息管理模塊的功能需要由 clsMType和 clsMTypes兩個類來實現(xiàn)，它的主要功能是： ? 添加商品類型信息。 名稱 參數(shù) 返回值 說明 AddNew 無 gxcAddNew 添加數(shù)據(jù) Update 無 gxcUpdate 更新數(shù)據(jù) Delete gxcDelete 刪除數(shù)據(jù) DeleteEx 無 gxcDelete 刪除數(shù)據(jù) 然后再新建一個集合類 clsDBbase，作為集合類的模板類，集合組成選 clsDBbase，如下表所示。 （ 4） RealString—— 替換字符串的單引號 （ 5） MaxID—— 獲取編號的最大值 MaxID函數(shù)用來獲 取表中當(dāng)前主健的最大值，這個函數(shù)用于在數(shù)據(jù)庫中添加新記錄后，立即獲取剛才添加記錄的主健值。 ? 參數(shù)設(shè)計： gxDBType類型，參見 clsPublic類中的枚舉定義。 在 Sub Main 中的 ConnectToDatabase函數(shù)，功能是用來連接到數(shù)據(jù)庫。這個過程完成ActiveX DLL的初始化工作。 ? 存放在對數(shù)據(jù)庫的操作過程中可能用到的一些公共函數(shù)。 1） 自定義枚舉類 我們已經(jīng)將新建工程時自動生成的類名稱設(shè)為 clsPublic,此類沒有其他具體的 意義，主要功能是保存一些自定義枚舉類型，這些枚舉類型在以后其他各類中要經(jīng)常用到，所以這里首先介紹。 創(chuàng)建組件的通用模塊 這里需要給組件添加兩個通用模塊，他們分別是： ? 自定義枚舉類 clsPunliv:主要功能是保存一些自定義枚舉類型。 ? 在信息管理集合類：實現(xiàn)與多個信息先觀的操作，主要是 根據(jù)不用的條件查找。 信息管理類加集合類的設(shè)計思想 在本組件中，每一個模塊的設(shè)計都是由這個模塊的信息管理類加與之對應(yīng)的集合類求實現(xiàn)的。 ? 報損信息管理，對應(yīng) clsDispose類和 clsDisposes類。 ? 進(jìn)貨信息管理，對應(yīng) clsBuy類和 clsBuys類。 ? 商品信息管理，對應(yīng) clsMerchandise類和 clsMerchandises類。 四．模塊軟件設(shè)計 開發(fā)業(yè)務(wù)邏輯處理組件 進(jìn)銷存業(yè)務(wù)處理組件用來處理進(jìn)銷存管理系統(tǒng)中的業(yè)務(wù)邏輯，既負(fù)責(zé)與界面進(jìn)行數(shù)據(jù)傳遞，同時也要將界面端的請求應(yīng)用業(yè)務(wù)邏輯之后對數(shù)據(jù)庫進(jìn)行操作。 4）在界面端程序中使用組件 在工程資源管理器中選中工程 Merchandise,選擇菜單工程 引用命令。 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 S_ID_N 自動編號 長整型 是 銷售編號，遞增，主鍵 S_MerchandiseID_D 數(shù)字 長整型 是 商品 ID S_RegDate_D 日期 短日期 是 Date（） 登記日期 S_Count_N 數(shù)字 長整型 是 0 售出數(shù)量 S_SellPrice_N 數(shù)字 單精度型 是 0 賣出單價 S_OperatorId_S 文本 20 是 “” 操作員 ID S_Remark_R 備注 是 “” 備注 2）創(chuàng)建業(yè)務(wù)邏輯處理組件 新建 ActiveX DLL工程 設(shè)置工程屬性 加入對 ADO的引用。 創(chuàng)建應(yīng)用程序結(jié)構(gòu) 1）創(chuàng)建用戶界面端程序 VB中選擇文件 新建工程，打開，選擇 VB應(yīng)用程序向?qū)?。其各個表格的設(shè)計結(jié)果如下 數(shù)據(jù)表：商品類型信息表 (MerchandiseType) 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 MT_ID_N 自動編號 長整型 是 商品類型號，遞增，主鍵 MT_Name_S 文本 15 是 商品類型名 MT_RemarkR 備注 是 “” 備注 數(shù)據(jù)表：商品信息表 (Merchandise) 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 M_Id_N 自動編號 長整型 是 商品編號，遞增，主鍵 M_Name_S 文本 80 是 商品名稱 M_Introduce_S 文本 255 是 商品介紹 M_TypeId_N 數(shù)字 長整型 是 1 商品類型 ID M_Storage_N 數(shù)字 長整型 是 0 庫存量 M_UnitId_N 數(shù)字 長整型 是 1 單位編號 管理員 是否默認(rèn)用戶 用戶名 密碼 M_Remark_R 備注 是 “” 備注 數(shù)據(jù)表：商品單位信息表 (Unit) 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 U_ID_N 自動編號 長 整型 是 單位編號，遞增，主健 U_NAME_S 文本 10 是 單位名稱 數(shù)據(jù)表：供應(yīng)商信息表 (Provider) 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 P_Id_N 自動編號 長整型 是 供貨商編號，主健 P_Name_S 文本 50 是 供貨商名稱 P_Introduce_S 文本 255 是 “” 供貨商簡介 P_Remark_R 備注 是 “” 備注 數(shù)據(jù)表：進(jìn)貨信息表 (Buy) 列名 數(shù)據(jù)類型 字段大小 必填字段 默認(rèn)值 說明 B_ID_N 自動編號 長整型 是 進(jìn)貨 ID，遞增，主健 B_ProviderId_N 文本 長整型 是 供應(yīng)商 ID B_MerchandiseId_N 數(shù)學(xué) 長整型 是 商品 ID B_StockDate_D 日期 短日期 是 Dare() 進(jìn)貨時間 B_Deliver_S 文本 20 是 送貨人姓名 B_Consignee_S 文本 20 是 經(jīng)手人姓名 B_Count_N 數(shù)字 長整型 是 0 購入量 B_StockPrice_N 數(shù)字 單精度型 是 0 進(jìn)貨單價 B_OperatorId_S 文本 20 是 操作員 ID B