【正文】 ?。 ? 處理列舉或查找 采購 的操作。 ? 處理刪除 采購 的操作。 采購 操作管理模塊 采購 操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加 采購 的 操作。 ? 處理刪除進(jìn)貨的操作。 進(jìn)貨操作管理模塊 進(jìn)貨操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加進(jìn)貨的操作。 ? 處理刪除供貨商的操作。 供貨商操作管理模塊 供貨商操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加供貨商的操作。 ? 處理分析藥品庫存量的操作。 ? 處理修改藥品的操作。 ? 處理列舉或查找藥品類型的操作。 ? 處理修改藥品類型的操作。 創(chuàng)建組件的公共模塊 為了將來擴(kuò)展方便，這里加入一個(gè)公共模塊，命名為 mdlMain ，現(xiàn)在只添加一個(gè)空的 Sub Main作為組件的初始化函數(shù)。 ? ObjsToCornbo：傳入?yún)?shù)為對(duì)象的單向類與組合框。 ? FillListView：顯示指定類型對(duì)象到列表控件。 ? InitListview：設(shè)置 ListView的顯示樣式。 ? Delete：管理刪除操作。 3)操作類的代碼結(jié)構(gòu) 同樣為了方便維護(hù)和快速開發(fā) ,每個(gè)操作類的代碼結(jié)構(gòu)也都很相似 ,大多包括如下方法 : ? Add:管理增加操作。 ? CancelButton_Click： [取消 ]按鈕單擊處理事件。 ? CheckValid：檢查用戶輸入有效性。 ? SetDefaultValue：設(shè)計(jì)對(duì)話框的默認(rèn)值。 2）輸入界面的代碼結(jié)構(gòu) 為了方便維護(hù)和快速開發(fā)，每個(gè)界面 的實(shí)現(xiàn)代碼結(jié)構(gòu)都很相似，大多都包括如下的方法： ? ShowDlg：用來顯示對(duì)話框，內(nèi)部調(diào)用 vbModal，程序停止在這里。 信息輸入界面加操作類的設(shè)計(jì)思想 1）每個(gè)模塊的組成 在本組件中，每一個(gè)模塊都是由信息輸入界面與相應(yīng)的操作類來實(shí)現(xiàn)的，具體完成的功能如下： ? 信息輸入界面：可供添加或修改時(shí)調(diào)用，用來獲取用戶輸入，將用戶輸入封裝到對(duì)應(yīng)的信息管理類中。 ? 報(bào)損操作管理，對(duì)應(yīng) clsDispose窗體和 clsOpDispose類。 ? 進(jìn)貨操作管理，對(duì)應(yīng) frmBuy窗體和 clsOpBuy類。 ? 藥品操作管理，對(duì)應(yīng) frmMerch窗體和 clsOpMerch類。 第六章、系統(tǒng)界面具體實(shí)現(xiàn) 藥品采購管理系統(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ì)話框，選擇“ VB類 生成器”，使用類生成器在工程中添加 clsAdmin類，如下圖所示。 ? 其他與管理員信息相關(guān)的常用操作。 ? 查找管理員信息。 ? 修改管理員信息。 屬性名稱 數(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ù)庫中的字段不同而已。 報(bào)損信息類 clsDispose用來具體處理單條報(bào)損信息，完成報(bào)損信息的基本操作功能，如添加、修改、刪除等。 ? 按藥品統(tǒng)計(jì)分析報(bào)損信息。 ? 刪除報(bào)損信息。 、報(bào)損信息管理模塊 報(bào)損信息管理模塊 的功能需要由 clsDispose和 clsDisposes兩個(gè)類來實(shí)現(xiàn)，它的主要功能是： ? 添加報(bào)損信息。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”框，選擇“ VB類生成器”，使用類生成器在工程中添加 clsSell類，如下表所示。 ? 其他與 采購 信息相關(guān)的常用操作。 ? 查找 采購 信息。 ? 修改 采購 信息。 ? 參數(shù)設(shè)計(jì)：參加下表 參數(shù)名 參數(shù)類型 功能 是否可選及默認(rèn)值 說明 IsDesc Boolean 表示是否采用降序 可選，默認(rèn)值=True 無 nCount Integer 最多顯示多少條記錄 可選，默認(rèn)值 =10 無 ? 返回值： clsBuys類型，一個(gè) clsBuy的集合。 ? 返回值： clsBuys類型，一個(gè) clsBuy的集合，省略參數(shù)時(shí)，返回全部進(jìn)貨。 2） 進(jìn)貨信息管理集合類 clsBuys （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找進(jìn)貨信息，結(jié)果以 clsBuys類型返回。 ? 參數(shù)設(shè)計(jì)：可選參數(shù) lngID表示供貨商信息 ID，默認(rèn)值為 1。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 3） Update方法 ? 功能：修改進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：無。 ? 其他與進(jìn)貨信息相關(guān)的常用操作。 ? 查找進(jìn)貨信息。 ? 修改進(jìn)貨信息。省略參數(shù)是，返回全部供貨商。 ? 參數(shù)設(shè)計(jì)：一個(gè)可選的類型 ID，默認(rèn)值為 1。應(yīng)用設(shè)置后系統(tǒng)會(huì)自動(dòng)生成一個(gè)標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，下面，為 clsProviders添加必要的方法。 2） 供貨商信息管理集合類 ClsProviders 供貨商信息集合類 clsProviders用來處理多條供貨商信息，其最小的單元是clsProvider，它完成與一組供貨商信息相關(guān)的操作，比如查找等。 ? 返回值： gxcDelete類型，參考 clsPublic類中 gxcDelete枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除供貨商信息。 ? 參數(shù)設(shè)計(jì)：無。 ? 返回值： gxcAddNew類型，參考 clsPublic類中的 gxcAddNew枚舉定義。 clsProvider類的屬性設(shè)置 屬性名稱 數(shù)據(jù)類型 說明 ID Long 供貨商編號(hào) ProviderName String 供貨商名稱 Introduce String 供貨商簡介 Remark String 備注 (2)AddNew方法 ? 功能：添加單個(gè)供貨商信息。 ? 修改供貨商信息 ? 刪除供貨商信息 ? 查找供貨商信息 ? 其他與供貨商信息相關(guān)的常用操作。 ? 返回值： clsMerchs類型，一個(gè) clsMerch的集合。 Find參數(shù)設(shè)計(jì) 參數(shù)名 參數(shù)類型 功能 是否可選及默認(rèn)值 說明 lngID Long 傳入藥品 ID 可選，默認(rèn)值 =0 如果取默認(rèn)值，表示不限制藥品 ID lngTypeId Long 傳入藥品類型 ID 可選，默認(rèn)值 =0 如果取默認(rèn)值，表示不限制藥品類型 （ 3） 添加 FindStorage方法 ? 功能：按庫存量排序查找藥品，結(jié)果以 clsMerchs類型返回。 ? 返回值： clsMerchs類型，一個(gè) clsMerch的集合。 （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 功能：根據(jù)給定參數(shù)查找藥品信息，結(jié)果以 clsMerchs類型返回。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開“添加類模塊”對(duì)話框，選擇“ VB類生成器”，使用類生成器在工程中添加一個(gè)集合類，命名為 clsMerchs類，在“基于”下拉列表框中選擇 clsDBbases，在“集合組成”欄中選擇 clsMerch類。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 （ 4） Delete方法 ? 功能：刪除藥品信息。 ? 參數(shù) 設(shè)計(jì)：無。 ? 返回值： gxcAddNew類型，參考 clsPublic類中 gxcAddNew枚舉類型的定義。省略參數(shù)時(shí)，返回全部藥品類型。 ? 參數(shù)設(shè)計(jì)：一個(gè)可選的類型 ID，默認(rèn)值為 1。應(yīng)用設(shè)置后系統(tǒng)會(huì)自動(dòng)生成一個(gè)標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，另外也加入了 clsDBbases中方法的定義。 2）、藥品類型信息管理集合類 clsMTypes 藥品類型信息集合類 clsMTypes用來處理多個(gè)藥品類型 的信息，其最小的單元是clsMType，它完成與一組藥品類型信息相關(guān)的操作，比如查找功能。 ? 參數(shù)設(shè)計(jì)：可選參數(shù) lngID表示藥品類型 ID，默認(rèn)為 1。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 ? 返回值： gxcAddNew類型 請(qǐng)參考 clsPublic類中 gxcAddNew枚舉類型的定義。 （ 2） AddNew方法 ? 功能：添加耽擱藥品類型。如下表所示。 1）、藥品類型信息管理類 clsMType （ 1）創(chuàng)建 clsMType類并添加屬性 藥品類型信息類 clsMType用來處理單個(gè)藥品類型的信息，實(shí)現(xiàn)藥品類型操作的基本功能，如添加、修改、刪除等。 ? 查找藥品類型信息。 ? 修改藥品類型信息。 名稱 參數(shù) 返回值 說明 AddNew Obj As clsDBbase 無 以對(duì)象為單位添加元素 Clear 無 清空集合 Find Optional lngID As Long=1 Optional lngTypeId As Long=0 clsDBbase 查找數(shù)據(jù) （ 3）使用模板類 模板類的使用很簡單，在用類生成器新建類 時(shí)，只要在“基于”下拉列表框中選擇所需要的模板類即可。 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，然后，如下表所示。 ? 返回值： Boolean類型， True表示成功， False表示失敗。 （ 3） ConnectToDatabase函數(shù) —— 與數(shù)據(jù)庫建立連接 ? 功能：根據(jù)傳入?yún)?shù)是 DBAccess還是 DBSQLSever來決定連接到 Access數(shù)據(jù)庫還是 SPLSever數(shù)據(jù)庫。在這個(gè)過程中假如對(duì) g_DBPath的默認(rèn)設(shè)置，并打開數(shù)據(jù)庫連接。 （ 1） 添加全局變量 （ 2） Sub Main()過程 —— 組件啟動(dòng)入口 手動(dòng)加入 Sub Main()過程，這個(gè)就是剛才在“工程屬性”中指定的啟動(dòng)對(duì)象。 2） 組件的公共模塊 在工程中添加一個(gè)模塊，命名為 mdlMain,此模塊有兩個(gè)功能： ? 用來連接數(shù)據(jù)庫及相關(guān)的初始化操作。 ? 公共模塊 mdlMain:組件初始化的函數(shù)和數(shù)據(jù)庫操作的常用函數(shù)與過程。 因此，每個(gè)模塊在設(shè)計(jì)上都是獨(dú)立的，除非它在邏輯上有不可分割的關(guān)系，如進(jìn)貨信息的操作，與藥品庫存直接掛鉤，將進(jìn)貨信息表的操作與藥品表的操作放入到一個(gè)事務(wù)中，這樣來確保數(shù)據(jù)的安全性與一致性。具體完成的功能如下： ? 在信息管理類：實(shí)現(xiàn)與單個(gè)信息相關(guān)的操作，包括添加、修改和刪除。 ? 管理員信息管理，對(duì)應(yīng) clsAdmini類和 clsAdminis類。 ? 采購 信息管理，對(duì)應(yīng) clsSell類和 clsSells類。 ? 供應(yīng)商信息管理，對(duì)應(yīng) ClsProvider類和 ClsProviders類。它包含以下功能： ? 藥品類型信息管理，對(duì)應(yīng) clsMType類和 clsMTypes類。打開引用對(duì)話框，在可用的引用列表中選擇 BuySellStorageUI和 BuySellStorageDB。 3)創(chuàng)建基本界面組件 新建 ActiveX DLL工程 設(shè)置工程屬性 加入對(duì)業(yè)務(wù)邏輯組件的引用。設(shè)置后將向?qū)傻哪K命名 mdlMain保存與文件夾 Merchandise中。 各個(gè)實(shí)體具體的描述Ｅ Ｒ圖如下 藥品類型信息實(shí)體 ER圖 藥品類型 藥品類型號(hào) 藥品類型名 備注 藥品信息實(shí)體 ER圖 單位信息實(shí)體 ER圖 供應(yīng)商信息實(shí)體 ER圖 進(jìn)貨信息實(shí)體 ER圖 供貨商 供貨商名稱 供貨商介紹 備注 供貨商編號(hào) 藥品 藥品名稱 藥品編 號(hào) 藥品類型 ID 庫存量 單 位 單位編號(hào)