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