【正文】 為 clsMerchs類，在“基于”下拉列表框中選擇 clsDBbases，在“集合組成”欄中選擇 clsMerch類。 ? 返回值： clsMerchs類型，一個(gè) clsMerch的集合。 ? 返回值： clsMerchs類型，一個(gè) clsMerch的集合。 clsProvider類的屬性設(shè)置 屬性名稱 數(shù)據(jù)類型 說(shuō)明 ID Long 供貨商編號(hào) ProviderName String 供貨商名稱 Introduce String 供貨商簡(jiǎn)介 Remark String 備注 (2)AddNew方法 ? 功能：添加單個(gè)供貨商信息。 ? 參數(shù)設(shè)計(jì)：無(wú)。 ? 返回值： gxcDelete類型，參考 clsPublic類中 gxcDelete枚舉類型的定義。應(yīng)用設(shè)置后系統(tǒng)會(huì)自動(dòng)生成一個(gè)標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，下面，為 clsProviders添加必要的方法。省略參數(shù)是，返回全部供貨商。 ? 查找進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：無(wú)。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 2） 進(jìn)貨信息管理集合類 clsBuys （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 ? 功能：根據(jù)給定參數(shù)查找進(jìn)貨信息，結(jié)果以 clsBuys類型返回。 ? 參數(shù)設(shè)計(jì)：參加下表 參數(shù)名 參數(shù)類型 功能 是否可選及默認(rèn)值 說(shuō)明 IsDesc Boolean 表示是否采用降序 可選，默認(rèn)值=True 無(wú) nCount Integer 最多顯示多少條記錄 可選，默認(rèn)值 =10 無(wú) ? 返回值： clsBuys類型，一個(gè) clsBuy的集合。 ? 查找 采購(gòu) 信息。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開(kāi)“添加類模塊”框，選擇“ VB類生成器”，使用類生成器在工程中添加 clsSell類，如下表所示。 ? 刪除報(bào)損信息。 報(bào)損信息類 clsDispose用來(lái)具體處理單條報(bào)損信息，完成報(bào)損信息的基本操作功能，如添加、修改、刪除等。 ? 修改管理員信息。 ? 其他與管理員信息相關(guān)的常用操作。 第六章、系統(tǒng)界面具體實(shí)現(xiàn) 藥品采購(gòu)管理系統(tǒng) 基本界面組件用來(lái)處理進(jìn)銷存管理系統(tǒng)中與界面相關(guān)的操作，既負(fù)責(zé)與用戶界面層進(jìn)行數(shù)據(jù)傳遞，同時(shí)也要將界面端的請(qǐng)求傳遞給業(yè) 務(wù)處理層，進(jìn)一步轉(zhuǎn)化為數(shù)據(jù)庫(kù)操作。 ? 進(jìn)貨操作管理，對(duì)應(yīng) frmBuy窗體和 clsOpBuy類。 信息輸入界面加操作類的設(shè)計(jì)思想 1）每個(gè)模塊的組成 在本組件中，每一個(gè)模塊都是由信息輸入界面與相應(yīng)的操作類來(lái)實(shí)現(xiàn)的，具體完成的功能如下： ? 信息輸入界面：可供添加或修改時(shí)調(diào)用，用來(lái)獲取用戶輸入，將用戶輸入封裝到對(duì)應(yīng)的信息管理類中。 ? SetDefaultValue：設(shè)計(jì)對(duì)話框的默認(rèn)值。 ? CancelButton_Click： [取消 ]按鈕單擊處理事件。 ? Delete：管理刪除操作。 ? FillListView：顯示指定類型對(duì)象到列表控件。 創(chuàng)建組件的公共模塊 為了將來(lái)擴(kuò)展方便，這里加入一個(gè)公共模塊，命名為 mdlMain ，現(xiàn)在只添加一個(gè)空的 Sub Main作為組件的初始化函數(shù)。 ? 處理列舉或查找藥品類型的操作。 ? 處理分析藥品庫(kù)存量的操作。 ? 處理刪除供貨商的操作。 ? 處理刪除進(jìn)貨的操作。 ? 處理刪除 采購(gòu) 的操作。 ?。 ? 處理列舉或查找 采購(gòu) 的操作。 采購(gòu) 操作管理模塊 采購(gòu) 操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加 采購(gòu) 的 操作。 進(jìn)貨操作管理模塊 進(jìn)貨操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加進(jìn)貨的操作。 供貨商操作管理模塊 供貨商操作管理模塊實(shí)現(xiàn)以下的功能： ? 處理添加供貨商的操作。 ? 處理修改藥品的操作。 ? 處理修改藥品類型的操作。 ? ObjsToCornbo：傳入?yún)?shù)為對(duì)象的單向類與組合框。 ? InitListview：設(shè)置 ListView的顯示樣式。 3)操作類的代碼結(jié)構(gòu) 同樣為了方便維護(hù)和快速開(kāi)發(fā) ,每個(gè)操作類的代碼結(jié)構(gòu)也都很相似 ,大多包括如下方法 : ? Add:管理增加操作。 ? CheckValid：檢查用戶輸入有效性。 2）輸入界面的代碼結(jié)構(gòu) 為了方便維護(hù)和快速開(kāi)發(fā)，每個(gè)界面 的實(shí)現(xiàn)代碼結(jié)構(gòu)都很相似，大多都包括如下的方法： ? ShowDlg：用來(lái)顯示對(duì)話框，內(nèi)部調(diào)用 vbModal，程序停止在這里。 ? 報(bào)損操作管理，對(duì)應(yīng) clsDispose窗體和 clsOpDispose類。 ? 藥品操作管理，對(duì)應(yīng) frmMerch窗體和 clsOpMerch類。 選擇菜單 [工程 ]— [添加類模塊 ]命令，打開(kāi)“添加類模塊”對(duì)話框，選擇“ VB類 生成器”，使用類生成器在工程中添加 clsAdmin類，如下圖所示。 ? 查找管理員信息。 屬性名稱 數(shù)據(jù)類型 說(shuō)明 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ù)庫(kù)中的字段不同而已。 ? 按藥品統(tǒng)計(jì)分析報(bào)損信息。 、報(bào)損信息管理模塊 報(bào)損信息管理模塊 的功能需要由 clsDispose和 clsDisposes兩個(gè)類來(lái)實(shí)現(xiàn)，它的主要功能是： ? 添加報(bào)損信息。 ? 其他與 采購(gòu) 信息相關(guān)的常用操作。 ? 修改 采購(gòu) 信息。 ? 返回值： clsBuys類型，一個(gè) clsBuy的集合，省略參數(shù)時(shí)，返回全部進(jìn)貨。 ? 參數(shù)設(shè)計(jì)：可選參數(shù) lngID表示供貨商信息 ID，默認(rèn)值為 1。 （ 3） Update方法 ? 功能：修改進(jìn)貨信息。 ? 其他與進(jìn)貨信息相關(guān)的常用操作。 ? 修改進(jìn)貨信息。 ? 參數(shù)設(shè)計(jì)：一個(gè)可選的類型 ID，默認(rèn)值為 1。 2） 供貨商信息管理集合類 ClsProviders 供貨商信息集合類 clsProviders用來(lái)處理多條供貨商信息，其最小的單元是clsProvider，它完成與一組供貨商信息相關(guān)的操作，比如查找等。 （ 4） Delete方法 ? 功能：刪除供貨商信息。 ? 返回值： gxcAddNew類型，參考 clsPublic類中的 gxcAddNew枚舉定義。 ? 修改供貨商信息 ? 刪除供貨商信息 ? 查找供貨商信息 ? 其他與供貨商信息相關(guān)的常用操作。 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類型返回。 （ 1） 添加 AddEx方法 （ 2） 添加 Find方法 功能：根據(jù)給定參數(shù)查找藥品信息，結(jié)果以 clsMerchs類型返回。 ? 返回值： gxcUpdate類型，請(qǐng)參考 clsPublic類中 gxcUpdate枚舉類型的定義。 ? 參數(shù) 設(shè)計(jì)：無(wú)。省略參數(shù)時(shí)，返回全部藥品類型。應(yīng)用設(shè)置后系統(tǒng)會(huì)自動(dòng)生成一個(gè)標(biāo)準(zhǔn)集合類所具有的最基本屬性與方法，另外也加入了 clsDBbases中方法的定義。 ? 參數(shù)設(shè)計(jì)：可選參數(shù) lngID表示藥品類型 ID，默認(rèn)為 1。 ? 返回值： gxcAddNew類型 請(qǐng)參考 clsPublic類中 gxcAddNew枚舉類型的定義。如下表所示。 ? 查找藥品類型信息。 名稱 參數(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í)，只要在“基于”下拉列表框中選擇所需要的模板類即可。 ? 返回值： Boolean類型， True表示成功， False表示失敗。在這個(gè)過(guò)程中假如對(duì) g_DBPath的默認(rèn)設(shè)置，并打開(kāi)數(shù)據(jù)庫(kù)連接。 2） 組件的公共模塊 在工程中添加一個(gè)模塊，命名為 mdlMain,此模塊有兩個(gè)功能： ? 用來(lái)連接數(shù)據(jù)庫(kù)及相關(guān)的初始化操作。 因此，每個(gè)模塊在設(shè)計(jì)上都是獨(dú)立的，除非它在邏輯上有不可分割的關(guān)系，如進(jìn)貨信息的操作，與藥品庫(kù)存直接掛鉤，將進(jìn)貨信息表的操作與藥品表的操作放入到一個(gè)事務(wù)中，這樣來(lái)確保數(shù)據(jù)的安全性與一致性。 ? 管理員信息管理，對(duì)應(yīng) clsAdmini類和 clsAdminis類。 ? 供應(yīng)商信息管理，對(duì)應(yīng) ClsProvider類和 ClsProviders類。打開(kāi)引用對(duì)話框，在可用的引用列表中選擇 BuySellStorageUI和 BuySellStorageDB。設(shè)置后將向?qū)傻哪K命名 mdlMain保存與文件夾 Merchandise中。 管理員信息，包括管理員賬號(hào)、密碼、是否是默認(rèn)賬號(hào)等。 供應(yīng)商信息，包括供應(yīng)商名稱、介紹等。 需要對(duì)進(jìn)貨、 采購(gòu) 、庫(kù)存、報(bào)損進(jìn)行分析，總結(jié)熱門(mén)藥品。 只有管理員登錄之后才可以使用系統(tǒng)。 藥品 采購(gòu) 信息單中要包含登記藥品 采購(gòu) 數(shù)量、單價(jià)等信息。 藥品必須屬于一個(gè)藥品類型。本系統(tǒng)采用的上有三層結(jié)構(gòu)進(jìn)一步擴(kuò)展而成的多層結(jié)構(gòu)。 分類查看：可以根據(jù)藥品類型來(lái)查看某種藥品的報(bào)損情況。 更新庫(kù)存： 采購(gòu) 信息的變動(dòng)直接關(guān)系到庫(kù)存的變化。 庫(kù)存分析：列出當(dāng)前庫(kù)存量最多的前幾項(xiàng)藥品和庫(kù)存量最少的前幾項(xiàng)藥品。藥品進(jìn)貨管理功能完成進(jìn)貨信息登記、修改和刪除等。 藥品基本信息管理：包括藥品基本信息的新建、修改和刪除等。這種以統(tǒng)一的語(yǔ)法結(jié)構(gòu)提供兩種不同的使用方式的做法，提供了極大的靈活性與方便性。而 SQL語(yǔ)言采用集合操作方式，不僅操作對(duì)象、查找結(jié)果可以是元組的集合，而且一次插入、刪除、更新操作的對(duì)象也可以是元組的集合。而用 SQL 語(yǔ)言進(jìn)行數(shù)據(jù)操作，只要提出“做什么”，而無(wú)須指明“怎么做”，因此無(wú)須了解存取路徑，存取路徑的選擇以及 SQL 語(yǔ)句的操作過(guò)程由系統(tǒng)自 動(dòng)完成。 SQL 語(yǔ)言集數(shù)據(jù)查詢（ Data Query）、數(shù)據(jù)操縱（ Data Manipulation）、數(shù)據(jù)定義（ Data Definition）和數(shù)據(jù)控制（ Data Control）功能于一體，主要特點(diǎn)包括： （ 1） 綜合統(tǒng)一 數(shù)據(jù)庫(kù)系統(tǒng)的主要功能是通過(guò)數(shù)據(jù)庫(kù)支持的數(shù)據(jù)語(yǔ)言來(lái)實(shí)現(xiàn)的。 Record 對(duì)象用于指定行 ,移動(dòng)行 、 添加 、 更改 、 刪除記錄 。 一般情況下 ,Command對(duì)象可以在數(shù)據(jù)庫(kù)中添加 ,刪除或更新數(shù)據(jù) ,或者在表中進(jìn)行數(shù)據(jù)查詢 。 (1) Connection 對(duì)象 Connection 對(duì)象用于建立與數(shù)據(jù)庫(kù)的連接 。 ADO 向我們提供了一個(gè)熟悉的，高層的對(duì) OLE DB 的 Automation 的封裝接口。 Access 還完全支持Microsoft 的 OLE 技術(shù)。 ACCESS 數(shù)據(jù)庫(kù)介紹 Microsoft Access 是微軟公司開(kāi)發(fā)的第一個(gè)面 向 Windows 平臺(tái)的桌面數(shù)據(jù)庫(kù)管理系統(tǒng)，它充分利用了 Windows 平臺(tái)的優(yōu)越性，如圖形界面和 Windows 的事件驅(qū)動(dòng)機(jī)制等。 （ 4）提供了 IntelliSense 技術(shù)。利用這些向?qū)?，可以快速地完成一般性的任?wù)，例如生成其控件不綁定到數(shù)據(jù)控件上的純代碼窗體，建立查詢，添加工具，制作圖表，以及發(fā)布創(chuàng)建的應(yīng)用程序等，這樣可以大大加快應(yīng)用程序的開(kāi)發(fā)過(guò)程。它在 Windows 平臺(tái)上提供了圖形用戶界面（ GUI）的集成開(kāi)發(fā)環(huán)境（ IDE）。傳統(tǒng)的管理模式已經(jīng)跟不上顧客對(duì)快節(jié)奏生活的要求了！隨著計(jì)算機(jī)的普及和計(jì)算機(jī)軟件的不斷發(fā)展，越來(lái)越多的醫(yī)療機(jī)構(gòu)開(kāi)始注視計(jì)算機(jī)這個(gè)輔助工具為自己帶來(lái)的 效益了。數(shù)據(jù)庫(kù)系統(tǒng)是由數(shù)據(jù)，數(shù)據(jù)庫(kù)管理系統(tǒng)，應(yīng)用程序，用戶組成。數(shù)據(jù)庫(kù)技術(shù)是數(shù)據(jù)管理的技術(shù)，它隨著 數(shù)據(jù)管理任務(wù)的需要而產(chǎn)生于 20世紀(jì) 60年代中期。s data base package, the Warehouse management. 關(guān)鍵字：控件、窗體、數(shù)據(jù)庫(kù)， visual basic語(yǔ) 言，藥店，藥品 系統(tǒng)概況 課題名稱 《藥品采購(gòu)管理系統(tǒng)》 開(kāi)發(fā)工具 Visual Basic 運(yùn)行環(huán)境 （ 1） 、硬件環(huán)境 CP