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