【文章內容簡介】 rovider類和 ClsProviders類。 ? 進貨信息管理，對應 clsBuy類和 clsBuys類。 ? 銷售信息管理，對應 clsSell類和 clsSells類。 ? 報損信息管理，對應 clsDispose類和 clsDisposes類。 ? 管理員信息管理，對應 clsAdmini類和 clsAdminis類。 信息管理類加集合類的設計思想 在本組件中，每一個模塊的設計都是由這個模塊的信息管理類加與之對應的集合類求實現(xiàn)的。具體完成的功能如下： ? 在信息管理類：實現(xiàn)與單個信息相關的操作，包括添加、修改和刪除。 ? 在信息管理集合類：實現(xiàn)與多個信息先觀的操作，主要是 根據(jù)不用的條件查找。 因此，每個模塊在設計上都是獨立的，除非它在邏輯上有不可分割的關系，如進貨信息的操作，與商品庫存直接掛鉤，將進貨信息表的操作與商品表的操作放入到一個事務中，這樣來確保數(shù)據(jù)的安全性與一致性。 創(chuàng)建組件的通用模塊 這里需要給組件添加兩個通用模塊，他們分別是： ? 自定義枚舉類 clsPunliv:主要功能是保存一些自定義枚舉類型。 ? 公共模塊 mdlMain:組件初始化的函數(shù)和數(shù)據(jù)庫操作的常用函數(shù)與過程。 1） 自定義枚舉類 我們已經(jīng)將新建工程時自動生成的類名稱設為 clsPublic,此類沒有其他具體的 意義，主要功能是保存一些自定義枚舉類型，這些枚舉類型在以后其他各類中要經(jīng)常用到，所以這里首先介紹。 2） 組件的公共模塊 在工程中添加一個模塊，命名為 mdlMain,此模塊有兩個功能： ? 用來連接數(shù)據(jù)庫及相關的初始化操作。 ? 存放在對數(shù)據(jù)庫的操作過程中可能用到的一些公共函數(shù)。 （ 1） 添加全局變量 （ 2） Sub Main()過程 —— 組件啟動入口 手動加入 Sub Main()過程，這個就是剛才在“工程屬性”中指定的啟動對象。這個過程完成ActiveX DLL的初始化工作。在這個過程中假如對 g_DBPath的默認設置，并打開數(shù)據(jù)庫連 接。 在 Sub Main 中的 ConnectToDatabase函數(shù)，功能是用來連接到數(shù)據(jù)庫。 （ 3） ConnectToDatabase函數(shù) —— 與數(shù)據(jù)庫建立連接 ? 功能：根據(jù)傳入?yún)?shù)是 DBAccess還是 DBSQLSever來決定連接到 Access數(shù)據(jù)庫還是SPLSever數(shù)據(jù)庫。 ? 參數(shù)設計： gxDBType類型，參見 clsPublic類中的枚舉定義。 ? 返回值： Boolean類型， True表示成功， False表示失敗。 （ 4） RealString—— 替換字符串的單引號 （ 5） MaxID—— 獲取編號的最大值 MaxID函數(shù)用來獲 取表中當前主健的最大值，這個函數(shù)用于在數(shù)據(jù)庫中添加新記錄后，立即獲取剛才添加記錄的主健值。 3）創(chuàng)建模塊類 （ 1）設計、總結公共屬性和方法 單個模型的信息管理類有以下共同的屬性和方法： ? 屬性 ID ? 方法 AddNew（） ? 方法 Update（） ? 方法 Delete（ lngID As Long） ? 方法 DeleteEx（） 多個模型的集合類有以下共同的屬性和方法： ? 方法 AddEx ? 方法 Clear ? 方法 Find （ 2）創(chuàng)建模板類 下面，首先利用類生成器創(chuàng)建一個類 clsDBbase，作為模板類，向其中添加一個屬性，名稱為 ID，類型為 Long，聲明為 Let/Get，然后，如下表所示。 名稱 參數(shù) 返回值 說明 AddNew 無 gxcAddNew 添加數(shù)據(jù) Update 無 gxcUpdate 更新數(shù)據(jù) Delete gxcDelete 刪除數(shù)據(jù) DeleteEx 無 gxcDelete 刪除數(shù)據(jù) 然后再新建一個集合類 clsDBbase，作為集合類的模板類，集合組成選 clsDBbase，如下表所示。 名稱 參數(shù) 返回值 說明 AddNew Obj As clsDBbase 無 以對象為單位添加元素 Clear 無 清空集合 Find Optional lngID As Long=1 Optional lngTypeId As Long=0 clsDBbase 查找數(shù)據(jù) （ 3）使用模板類 模板類的使用很簡單，在用類生成器新建類時，只要在“基于”下拉列表框中選擇所需要的模板類即可。 商品類型信息管理模塊 商品類型信息管理模塊的功能需要由 clsMType和 clsMTypes兩個類來實現(xiàn)，它的主要功能是： ? 添加商品類型信息。 ? 修改商品類型信息。 ? 刪除商品類型信息。 ? 查找商品類型信息。 ? 其他與商品類型相關的 常用操作。 1）、商品類型信息管理類 clsMType （ 1）創(chuàng)建 clsMType類并添加屬性 商品類型信息類 clsMType用來處理單個商品類型的信息，實現(xiàn)商品類型操作的基本功能，如添加、修改、刪除等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器向工程中添加 clsMType類，基于下拉列表框中選擇 clsDBbase。如下表所示。 屬性名稱 數(shù)據(jù)類型 屬性聲明 ID Long Get/Let SuperID Long Get/Let TypeName String Get/Let 屬性添加完畢并應用后，可以看到在 clsMType類中已經(jīng)自動添加了類的成員變量和屬性。 （ 2） AddNew方法 ? 功能：添加耽擱商品類型。 ? 參數(shù)設計：無。 ? 返回值： gxcAddNew類型請參考 clsPublic類中 gxcAddNew枚舉類型的定義。 （ 3） Update方法 ? 功能：修改商品類型。 ? 返回值： gxcUpdate類型，請參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除商品類型。 ? 參數(shù)設計：可選參數(shù) lngID表示商 品類型 ID，默認為 1。 ? 返回值： gxcDelete類型，請參考 clsPublic類中 gxcDelete枚舉類型的定義。 2）、商品類型信息管理集合類 clsMTypes 商品類型信息集合類 clsMTypes用來處理多個商品類型的信息，其最小的單元是 clsMType，它完成與一組商品類型信息相關的操作，比如查找功能。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個集合類，命名為 clsMTypes類，在“基于”下拉列表框中選擇 clsDBbases，在“集合組成”欄中選擇 clsMType類。應用設置后系統(tǒng)會自動生成一個標準集合類所具有的最基本屬性與方法，另外也加入了 clsDBbases中方法的定義。 （ 1） 添加 AddEx方法 （ 2）添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找商品類型，結果以 clsMTypes類型返回。 ? 參數(shù)設計：一個可選的類型 ID，默認值為 1。 ? 返回值： clsMTypes類型，一個 clsMType的集合。省略參數(shù)時，返回全部商品類型。 商品信息管理模塊 商品信息管理模塊的功能需要有 clsMerch和 clsMerchs兩個類來實現(xià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ù)設計：無。 ? 返回值： gxcAddNew類型，參考 clsPublic類中 gxcAddNew枚舉類型的定義。 （ 3） Update方法 ? 功能：修改商品信息。 ? 參數(shù)設計：無。 ? 返回值： gxcUpdate類型，請參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除商品信息。 ? 參數(shù)設計：可選參數(shù) lngID表示商品 ID，默認為 1。 ? 返回值： gxcUpdate類型，請參考 clsPublic類中 gxcUpdate枚 舉類型的定義。 3） 商品信息管理集合類 clsMerchs 商品信息集合類 clsMerchs用來具體處理多個商品的信息，其最小的單元是 clsMerch，它完成與一組商品信息相關的操作，比如查找等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個集合類，命名為 clsMerchs類，在“基于”下拉列表框中選擇 clsDBbases，在“集合組成”欄中選擇 clsMerch類。應用設置后系統(tǒng)會自動生成一個標準集合類所具有的最基本屬性與方法，下面，為 clsMerchs添加必要的方法。 （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 功能：根據(jù)給定參數(shù)查找商品信息，結果以 clsMerchs類型返回。 ? 參數(shù)設計：如下表。 ? 返回值： clsMerchs類型，一個 clsMerch的集合。顯然當上面兩個參數(shù)都不指定時，返回全部商品。 Find參數(shù)設計 參數(shù)名 參數(shù)類型 功能 是否可選及默認值 說明 lngID Long 傳入商品 ID 可選，默認值 =0 如果取默認值，表示不限制商品 ID lngTypeId Long 傳入商品類型 ID 可選，默認值 =0 如果取默認值，表示不限制 商品類型 （ 3） 添加 FindStorage方法 ? 功能：按庫存量排序查找商品，結果以 clsMerchs類型返回。 ? 參數(shù)設計：參見下表。 ? 返回值： clsMerchs類型，一個 clsMerch的集合。 FindStorage方法參數(shù)設計 參數(shù)名 參數(shù)類型 功能 是否可選及默認值 說明 IsDesc Boolean 表示是否采用降序 可選，默認值 =true 無 nCount Integer 最多顯示多少條記錄 可選，默認值 =10 無 供貨商信息管理模塊 供貨商信息管理模塊的功能需要由 clsProvider和 clsProviders兩個類來實現(xiàn)，它的主要功能是： ? 添加供貨商信息。 ? 修改供貨商信息 ? 刪除供貨商信息 ? 查找供貨商信息 ? 其他與供貨商信息相關的常用操作。 1） 供貨商信息管理類 clsProvider (1)創(chuàng)建 clsProvider類并添加屬性 供貨商信息類 clsProvider用來具體處理單條供貨商信息，完成供貨商信息的基本操作功能，如添加、修改、刪除等。 clsProvider類的屬性設置 屬性名稱 數(shù)據(jù)類型 說明 ID Long 供貨商編號 ProviderName String 供貨商名稱 Introduce String 供貨商簡介 Remark String 備注 (2)AddNew方法 ? 功能：添加單個供貨商信息。 ? 參數(shù)設計：無。 ? 返回值： gxcAddNew類型，參考 clsPublic類中的 gxcAddNew枚舉定義。 (3) pdate方法 ? 功能：修改供貨商信息。 ? 參數(shù)設計：無。 ? 返回值： gxcUpdate類型，參考 clsPublic類中的 gxUpdate枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除供貨商信息。 ? 參數(shù)設計：可選參數(shù) lngID表示供貨商信息 ID，默認為 1。 ? 返回值： gxcDelete類型，參考 clsPublic類中 gxcDelete枚舉類型的定義。 在刪除供貨商的同時，必須先刪除與這個供貨商相關的進貨信息，而且要把這兩個操作放在一個事務里面。 2） 供貨商信息管理集合類 ClsProviders 供貨商信息集合類 clsProviders用來處理多條供貨商信息，其最小的單元是 clsProvider，它完成與一組供貨商信息相關的操作，比如查找等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個集合類，命名為 clsProviders類，在“集合組成”欄中選擇clsProvider類。應用設置后系統(tǒng)會自動生成一個標準集合類所具有的最基本屬性與方法，下面，為 clsProviders添加必要的方法。 (1)添加 AddEx方法