【正文】 類型，參考 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用來處理多條供貨商信息，其最小的單元是clsProvider，它完成與一組供貨商信息相關(guān)的操作，比如查找等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對(duì)話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個(gè)集合類，命名為 clsProviders類，在“集合組成”欄中選擇 clsProvider類。應(yīng)用設(shè)置后系統(tǒng)會(huì)自動(dòng)生成一個(gè)標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，下面，為 clsProviders添加必要的方法。 (1) 添加 AddEx方法 (2) 添加 Find方 法 ? 功能：根據(jù)給定參數(shù)查找供貨商信息，結(jié)果以 clsProviders類型返回。 ? 參數(shù)設(shè)計(jì)：一個(gè)可選的類型 ID，默認(rèn)值為 1。 ? 返回值： clsProviders類型，一個(gè) clsProvider的集合。省略參數(shù)是，返回全部供貨商。 、進(jìn)貨信息管理模塊 進(jìn)貨信息管理模塊的功能需要由 clsBuy和 clsBuys兩個(gè)類實(shí)現(xiàn)，它的主要功能是： ? 添加進(jìn)貨信息。 ? 修改進(jìn)貨信息。 ? 刪除進(jìn)貨信息。 ? 查找進(jìn)貨信息。 ? 按藥品統(tǒng)計(jì)分析進(jìn)貨信息。 ? 其他與進(jìn)貨信息相關(guān)的常用操作。 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)貨時(shí)間 Deliver String 送貨人姓名 Consignee String 經(jīng)手人姓名 Count Long 購(gòu)入量 StockPrice Single 進(jìn)貨單價(jià) OperatorId String 操作員 ID Remark String 備注 TypeName String 藥品類型名稱 StockTimes Long 進(jìn)貨次數(shù) TotalPrice Single 總進(jìn)貨支出 （ 2） AddNew方法 ? 功能：添加單條進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：無。 ? 返回值： gxcAddNew類型，請(qǐng)參考 clsPublic類中的 gxcAddNew枚舉定義。 （ 3） Update方法 ? 功能：修改進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：無。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：可選參數(shù) lngID表示供貨商信息 ID，默認(rèn)值為 1。 ? 返回值： gxcDelete類型，請(qǐng)參考 clsPublic類中 gxcDelete枚舉類型的定義。 2） 進(jìn)貨信息管理集合類 clsBuys （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找進(jìn)貨信息，結(jié)果以 clsBuys類型返回。 ? 參數(shù)設(shè)計(jì)：兩個(gè)可選參數(shù)，一個(gè)是進(jìn)貨編號(hào)，另一個(gè)是藥品類型編號(hào)。 ? 返回值： clsBuys類型，一個(gè) clsBuy的集合，省略參數(shù)時(shí)，返回全部進(jìn)貨。 （ 3） 添加 FindStorage方法 ? 功能：統(tǒng) 計(jì)各種藥品的進(jìn)貨次數(shù)和累計(jì)進(jìn)貨總支出，最后按進(jìn)貨總支出來排序，結(jié)果以 clsBuys類型返回，最多返回前 nCount條記錄。 ? 參數(shù)設(shè)計(jì)：參加下表 參數(shù)名 參數(shù)類型 功能 是否可選及默認(rèn)值 說明 IsDesc Boolean 表示是否采用降序 可選，默認(rèn)值=True 無 nCount Integer 最多顯示多少條記錄 可選，默認(rèn)值 =10 無 ? 返回值： clsBuys類型，一個(gè) clsBuy的集合。 、 采購(gòu) 信息管理模塊 采購(gòu) 信息管理模塊的功能需要由 clsSell和 clsSells兩個(gè)類實(shí)現(xiàn)，它的主要功能是： ? 添加 采購(gòu) 信息。 ? 修改 采購(gòu) 信息。 ? 刪除 采購(gòu) 信息。 ? 查找 采購(gòu) 信息。 ? 按藥品統(tǒng)計(jì)分析 采購(gòu) 信息。 ? 其他與 采購(gòu) 信息相關(guān)的常用操作。 采購(gòu) 信息類 clsSell用來具體處理單條 采購(gòu) 信息，完成 采購(gòu) 信息的基本操作功能，如添加、修改、刪除等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”框，選擇“ VB類生成器”，使用類生成器在工程中添加 clsSell類，如下表所示。 屬性名稱 數(shù)據(jù)類型 說明 ID Long 采購(gòu) 編號(hào) MerchandiseID Long 藥品 ID MerchName String 藥品 名稱 RegDate Date 登記日期 Count Long 售出數(shù)量 SellPrice Single 售出單價(jià) OperatorId String 操作員 ID Remark String 備注 TypeName String 藥品類型名稱 RegTime Long 登記次數(shù) TotalPrice Single 售出總價(jià) clsASell類中的 AddNew、 Update和 Delete方法，與進(jìn)貨信息中的處理很類似，只是數(shù)據(jù)庫中的字段不同而已。 、報(bào)損信息管理模塊 報(bào)損信息管理模塊 的功能需要由 clsDispose和 clsDisposes兩個(gè)類來實(shí)現(xiàn)，它的主要功能是： ? 添加報(bào)損信息。 ? 修改報(bào)損信息。 ? 刪除報(bào)損信息。 ? 查找報(bào)損信息。 ? 按藥品統(tǒng)計(jì)分析報(bào)損信息。 ? 其他與報(bào)損信息相關(guān)的常用操作。 報(bào)損信息類 clsDispose用來具體處理單條報(bào)損信息，完成報(bào)損信息的基本操作功能，如添加、修改、刪除等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對(duì)話框，選擇“ VB類生成器”，使用類生成器在工程中添加 clsDispose類，如下表所示。 屬性名稱 數(shù)據(jù)類型 說明 ID Long 報(bào)損編號(hào) MerchandiseID Long 藥品 ID MerchName String 藥品名稱 RegDate Date 登記日期 Count Long 報(bào)損數(shù)量 Reason Single 報(bào)損原因 OperatorId String 操作員 ID Remark String 備注 RegTimes Long 登記次數(shù) TotalCount Long 報(bào)損總數(shù)量 TypeName String 藥品類型名 clsDispose類中的 AddNew、 Update和 Delete方法，與 進(jìn)貨信息中的處理很類似，只是數(shù)據(jù)庫中的字段不同而已。 、管理員信息管理模塊 管理員信息管理模塊的功能需要由 clsAdmin和 clsAdmins兩個(gè)類來實(shí)現(xiàn)，它的主要功能是： ? 添加管理員信息。 ? 修改管理員信息。 ? 刪除管理員信息。 ? 查找管理員信息。 ? 驗(yàn)證管理員密碼。 ? 其他與管理員信息相關(guān)的常用操作。 管理員信息類 clsAdmin用來具體處理單條管理員信息，完成管理員信息的基本操作功能，如添加、修改、刪除和驗(yàn)證密碼等。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對(duì)話框，選擇“ VB類生成器”，使 用類生成器在工程中添加 clsAdmin類，如下圖所示。 屬性名稱 數(shù)據(jù)類型 說明 Account String 管理員賬號(hào) Pwd String 密碼 IsDefault Boolean 是否是默認(rèn)用戶 clsAdmin中的 AddNew、 Update和 Delete方法，與以上各類中的處理很類似，只是數(shù)據(jù)庫中的字段不同而已。 第六章、系統(tǒng)界面具體實(shí)現(xiàn) 藥品采購(gòu)管理系統(tǒng) 基本界面組件用來處理進(jìn)銷存管理系統(tǒng)中與界面相關(guān)的操作，既負(fù)責(zé)與用戶界面層進(jìn)行數(shù)據(jù)傳遞，同時(shí)也要將界面端的請(qǐng)求傳遞給業(yè)務(wù)處理層，進(jìn) 一步轉(zhuǎn)化為數(shù)據(jù)庫操作。它包括以下功能： ? 藥品類型操作管理，對(duì)應(yīng) frmMType窗體和 clsOpMType類。 ? 藥品操作管理，對(duì)應(yīng) frmMerch窗體和 clsOpMerch類。 ? 供貨商操作管理，對(duì)應(yīng) frmProvider窗體和 clsOpProvider類。 ? 進(jìn)貨操作管理，對(duì)應(yīng) frmBuy窗體和 clsOpBuy類。 ? 采購(gòu) 操作管理，對(duì)應(yīng) frmSell窗體和 clsOpSell類。 ? 報(bào)損操作管理，對(duì)應(yīng) clsDispose窗體和 clsOpDispose類。 ? 管理員操作管理，對(duì)應(yīng) frmUser窗體和 clsOpAdmin類 。 信息輸入界面加操作類的設(shè)計(jì)思想 1）每個(gè)模塊的組成 在本組件中，每一個(gè)模塊都是由信息輸入界面與相應(yīng)的操作類來實(shí)現(xiàn)的，具體完成的功能如下： ? 信息輸入界面：可供添加或修改時(shí)調(diào)用，用來獲取用戶輸入，將用戶輸入封裝到對(duì)應(yīng)的信息管理類中。 ? 操作類：可供界面端程序調(diào)用，實(shí)現(xiàn)了兩個(gè)功能：其一是用來調(diào)出信息輸入界面，接收用戶輸入，將輸入存入數(shù)據(jù)庫，并給出數(shù)據(jù)庫操作的結(jié)果；其二是通過傳引用的方式，向用戶界面端傳入的控件添加數(shù)據(jù)，從而在用戶截面端顯示。 2）輸入界面的代碼結(jié)構(gòu) 為了方便維護(hù)和快速開發(fā)，每個(gè)界面的實(shí)現(xiàn)代碼結(jié) 構(gòu)都很相似，大多都包括如下的方法： ? ShowDlg：用來顯示對(duì)話框，內(nèi)部調(diào)用 vbModal，程序停止在這里。 ? SetStatus：設(shè)計(jì)對(duì)話框控件的默認(rèn)狀態(tài)。 ? SetDefaultValue：設(shè)計(jì)對(duì)話框的默認(rèn)值。 ? OKButton_Click： [確定 ]按鈕單擊處理事件。 ? CheckValid：檢查用戶輸入有效性。 ? SaveValue：保存用戶輸入。 ? CancelButton_Click： [取消 ]按鈕單擊處理事件。 當(dāng)用戶單擊 [確定 ]或 [取消 ]按鈕后，程序繼續(xù)執(zhí)行 ShowDlg函數(shù)后面的語句，用來保存或放棄用戶輸入。 3)操作類的代碼結(jié)構(gòu) 同樣為了方便維護(hù)和快速開發(fā) ,每個(gè)操作類的代碼結(jié)構(gòu)也都很相似 ,大多包括如下方法 : ? Add:管理增加操作。 ? Modify： 管理修改操作。 ? Delete：管理刪除操作。 ? AddToLvw：將單個(gè)對(duì)象加入列表，或在列表中更新。 ? InitListview：設(shè)置 ListView的顯示樣式。 ? ObjsToListView：將對(duì)象集合顯示到 ListView中。 ? FillListView：顯示指定類型對(duì)象到列表控件。 ? GetObjFromControl：從列表或樹形圖中得到一個(gè)對(duì) 象。 ? ObjsToCornbo：傳入?yún)?shù)為對(duì)象的單向類與組合框。 ? FillCombo：將全部對(duì)象加入到組合框中。 創(chuàng)建組件的公共模塊 為了將來擴(kuò)展方便，這里加入一個(gè)公共模塊，命名為 mdlMain ，現(xiàn)在只添加一個(gè)空的 Sub Main作為組件的初始化函數(shù)。 藥品類型操作管理模塊 藥品類型管理模塊實(shí)現(xiàn)以下功能： ? 處理添加藥品類型的操作。 ? 處理修改藥品類型的操作。 ? 處理刪除藥品類型的操作。 ? 處理列舉或查找藥品類型的操作。 藥品操作管理模塊 藥品操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加藥品的操作。 ? 處理修改 藥品的操作。 ? 處理刪除藥品的操作。 ? 處理分析藥品庫存量的操作。 ? 處理列舉或查找藥品的操作。 供貨商操作管理模塊 供貨商操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加供貨商的操作。 ? 處理修改供貨商的操作。 ? 處理刪除供貨商的操作。 ? 處理列舉或查找供貨商的操作。 進(jìn)貨操作管理模塊 進(jìn)貨操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加進(jìn)貨的操作。 ? 處理修改進(jìn)貨的操作。 ? 處理刪除進(jìn)貨的操作。 ? 處理分析進(jìn)貨總支出的操作 ? 處理列舉或查找進(jìn)貨的操作。 采購(gòu) 操作管理模塊 采購(gòu) 操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加 采購(gòu) 的操作。 ? 處理 修改 采購(gòu) 的操作。 ? 處理刪除 采購(gòu) 的操作。 ? 處理分析 采購(gòu) 總收入的操作。 ? 處理列舉或查找 采購(gòu) 的操作。 報(bào)損操作管理模塊 報(bào)損操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加報(bào)損的操作。