【正文】 txtLog(1) = Else CurrentUserNumber = .Fields(編號(hào) ) CurrentUserPassword = .Fields(口令 ) CurrentUserStatus = .Fields(權(quán)限 ) MsgBox 歡迎使用興盛藥房管理系統(tǒng)！ , vbInformation, 登錄成功 Unload Me End If End If End With //關(guān)閉紀(jì)錄集 End If End Sub 興盛藥房管理系統(tǒng) 第 16 頁(yè) 共 33 頁(yè) 系統(tǒng)主窗體 系統(tǒng)管理員 “00000”登錄系統(tǒng)主窗體，如圖 42 所示，應(yīng)為該管理員的權(quán)限設(shè)置為高級(jí)管理員，所以可進(jìn)行特殊的操作 ——系統(tǒng)管理。 興盛藥房管理系統(tǒng) 第 15 頁(yè) 共 33 頁(yè) If .EOF Then MsgBox 編號(hào)： amp。 Trim(txtLog(0)) amp。結(jié)束應(yīng)用程序 Else //打開紀(jì)錄集 With //檢驗(yàn)用戶名和口令的合法性 If .RecordCount 0 Then .MoveFirst .Find 編號(hào) =39。 vbCr _ amp。靜態(tài)常量 intLogTimes 用于保存用戶請(qǐng)求驗(yàn)證的次數(shù) Static intLogTimes As Integer intLogTimes = intLogTimes + 1 //保存登錄次數(shù) If intLogTimes MaxLogTimes Then 39。以默認(rèn)的系統(tǒng)管理員身份登陸（編號(hào) 00000，口令 222222）。光臨藥房購(gòu)藥的顧客是動(dòng)態(tài)的，所以數(shù)據(jù)庫(kù)中客戶購(gòu)物車數(shù)據(jù)表的數(shù)量也是動(dòng)態(tài)的，對(duì)于每一個(gè)打算購(gòu)買的顧客，首先在客戶購(gòu)物車記錄表中添加一個(gè)記錄，并分配一個(gè)惟一的編號(hào)來(lái)標(biāo)識(shí)，然后使用該編號(hào)來(lái)命名為客戶創(chuàng)建購(gòu)物車數(shù)據(jù)表，表結(jié)構(gòu)如表 36 所示。 表 35 庫(kù)存數(shù)據(jù)表 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 編號(hào) nchar 6 主鍵 庫(kù)存 smallint 2 否 下限 smallint 2 否 （ 6） 購(gòu)物車數(shù)據(jù)表。庫(kù)存數(shù)據(jù)表用于保存每種藥的庫(kù)存信息，包括庫(kù)存編號(hào)、庫(kù)存量和庫(kù)存下限，數(shù)據(jù)表命名為“庫(kù)存數(shù)據(jù)”，表結(jié)構(gòu)如表 34 所示。結(jié)算字段用于標(biāo)識(shí)客戶是否已執(zhí)行過結(jié)算操作，默認(rèn)值設(shè)置為 0。購(gòu)物車記錄表用于保存客戶購(gòu)物車記錄，包括購(gòu)物車編號(hào)、客戶名、日期和結(jié)算，數(shù)據(jù)表命名為“購(gòu)物車記錄”表結(jié)構(gòu)如表 35 所示。在客戶 結(jié)算取藥之后，其購(gòu)物車數(shù)據(jù)表和購(gòu)物車記錄將被刪除，購(gòu)買數(shù)據(jù)則被保存到藥品銷售表中。藥品銷售數(shù)據(jù)表用于保存每種藥的銷售記錄數(shù)據(jù)，包括銷售記錄編號(hào)、日期、藥編號(hào)，命名為“藥房銷售”，表結(jié)構(gòu)如 表 33 所 示。編號(hào)形式如 Z0000 ZC0001，該字段作為主關(guān)鍵字。 表 31 系統(tǒng)用戶數(shù)據(jù)表結(jié)構(gòu) 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 編號(hào) nchar 5 主鍵 口令 nchar 6 否 權(quán)限 nchar 1 否 （ 2） 藥品信息數(shù)據(jù)表。系統(tǒng)用戶編號(hào)形購(gòu)物車 編號(hào) 數(shù)量 庫(kù)存藥品 庫(kù)存 編號(hào) 下限 興盛藥房管理系統(tǒng) 第 12 頁(yè) 共 33 頁(yè) 式如 00000、 00001， 用戶權(quán)限使用 0、 4 分別代表系統(tǒng)管理員、銷售員、收銀員、取藥員和采購(gòu)員。 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)概要設(shè)計(jì) （ 1）系統(tǒng)用戶表（編號(hào) ， 口令，權(quán)限） （ 2）庫(kù)存數(shù)據(jù)表（編號(hào)，庫(kù)存，下限） （ 3）藥品信息表（編號(hào) ， 名稱，售價(jià)，進(jìn)價(jià)，種類，廠家） （ 4）藥品 銷售表（編號(hào)，日期，藥編號(hào)，數(shù)量） （ 5）購(gòu)物車記錄表（編號(hào)，客戶名，日期，結(jié)算） （ 6）購(gòu)物車數(shù)據(jù)表（編號(hào)，數(shù)量） 下圖是各個(gè)實(shí)體的 ER 模型圖： 興盛藥房管理系統(tǒng) 第 10 頁(yè) 共 33 頁(yè) 圖 33 系統(tǒng)用戶實(shí)體圖 圖 34 藥品信息實(shí)體圖 圖 35 藥品銷售實(shí)體圖 圖 36 購(gòu)物車記錄實(shí)體圖 購(gòu)物車 客戶名 編號(hào) 結(jié)算 日期 銷售藥品 數(shù)量 編號(hào) 藥編號(hào) 日期 藥品 名稱 編號(hào) 售價(jià) 進(jìn)價(jià) 廠家 種類 系統(tǒng)用戶 口令 編號(hào) 權(quán)限 興盛藥房管理系統(tǒng) 第 11 頁(yè) 共 33 頁(yè) 圖 37 庫(kù)存數(shù)據(jù)實(shí)體圖 圖 38 購(gòu)物車數(shù)據(jù)實(shí)體圖 藥品信息表和藥品銷售表的 E/R 圖： 圖 39 系統(tǒng)關(guān)系 ER 圖 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì) “興盛藥房管理系統(tǒng)”數(shù)據(jù)庫(kù)中的各個(gè)數(shù)據(jù)表名稱和結(jié)構(gòu)如下： （ 1） 系 統(tǒng)用戶數(shù)據(jù)表。 藥房高級(jí)管理 （ 1）制訂采購(gòu)計(jì)劃：用戶通過該窗體實(shí)現(xiàn)對(duì)藥品的采購(gòu)計(jì)劃進(jìn)行制訂，便于以后的采購(gòu)工作。 （ 2）藥品結(jié)算與消費(fèi)：藥品結(jié)算的具體操作，并對(duì)藥品的結(jié)算金額進(jìn)行付費(fèi)操作。 （ 3）購(gòu)物車項(xiàng)目追加：該功能是將用戶所購(gòu)買的藥品添加到購(gòu)物車的具體操作。 （ 2）購(gòu)物車項(xiàng)目編輯：該功能實(shí)現(xiàn)將用戶購(gòu)買的藥品存放到購(gòu)物車當(dāng)中。 （ 3）制訂庫(kù)存報(bào)表：將庫(kù)存信息形成報(bào)表，并進(jìn)行打印，便于閱覽。 庫(kù)存信息管理 （ 1）藥品入庫(kù)：將藥品信息存放到數(shù)據(jù)庫(kù)中，便于對(duì)其信息的保存，實(shí)現(xiàn)對(duì)其藥品信息做統(tǒng)計(jì)工作。 （ 2）藥品信息查詢：獲得豐富的藥品信息，便于用戶的查詢，提高用戶對(duì)該藥品信息的了解，提高其對(duì)該藥品的購(gòu)買率。 （ 4）查詢用戶口令：實(shí)現(xiàn)用戶該登錄口令的查詢操作。 （ 2）系統(tǒng)用戶刪除：取消該用戶對(duì)系統(tǒng)的任何操作。 圖 31 興盛藥房系統(tǒng)流 程圖 興盛藥房管理系統(tǒng) 第 7 頁(yè) 共 33 頁(yè) 系統(tǒng)功能模塊 興盛藥房管理系統(tǒng)功能模塊圖： 圖 32 興盛藥房系統(tǒng)功能模塊 系統(tǒng)用戶添加 系統(tǒng)用戶刪除 修改用戶口令 查詢用戶口令 藥品信息添加 藥品信息編輯 藥品信息查詢 藥品入庫(kù) 庫(kù)存信息修改 制訂庫(kù)存報(bào)表 客戶購(gòu)物車創(chuàng)建 購(gòu)物車項(xiàng)目編輯 購(gòu)物車項(xiàng)目查詢 購(gòu)物車項(xiàng)目編輯 藥品結(jié)算與收費(fèi) 客戶購(gòu)物車注銷 制訂采購(gòu)計(jì)劃 制訂銷售報(bào)表 系統(tǒng)用戶管理 藥品信息管理 庫(kù)存信息管理 前臺(tái)銷售管理 購(gòu)買結(jié)算管理 客戶取藥管理 藥房高級(jí)管理 興盛藥房管理系統(tǒng) 興盛藥房管理系統(tǒng) 第 8 頁(yè) 共 33 頁(yè) 興盛藥房管理系統(tǒng)總的來(lái)說(shuō)包括：系統(tǒng)用戶管理；藥品信息管理；庫(kù)存信息管理；前臺(tái)銷售管理；購(gòu)買結(jié)算管理；客戶取藥管理；藥房高級(jí)管理。否則將一直處在系統(tǒng)的登錄狀態(tài)。 ADO 支持 Visual C++、 Visual Basic、 VBS、 JS 等 [8]。 ADO 可以以 ActiveX 控件的形式出現(xiàn)，這就大大方便了 Web應(yīng)用程序的編制 [7]。訪問數(shù)據(jù)源效率高 [6]。 4. 可以訪問多種數(shù)據(jù)源。比如，在應(yīng)用程序中如果要使用記錄集對(duì)象，不一定要先建立連接、會(huì)話對(duì)象，如果需要就可以直接構(gòu)造記錄集對(duì)象。 2. ADO 是高層數(shù)據(jù)庫(kù)訪問技術(shù)，相對(duì)與 ODBC 來(lái)說(shuō)，具有 面向?qū)ο蟮?特點(diǎn)。 ADO 里的新技術(shù)有：異步操作和事件模型；數(shù)據(jù)集的持續(xù)性層次化的數(shù)據(jù)傳輸。 OLE DB 為任何數(shù)據(jù)源都提供了高性能的訪問，包括：關(guān)系型數(shù)據(jù)庫(kù)、非關(guān)系型數(shù)據(jù)庫(kù)、電子郵件、文件系統(tǒng)、文本和圖形以及自定義業(yè)務(wù)對(duì)象等。此外， SQL SERVER 2020 還提供了對(duì)分布式事務(wù)處理的支持，并具有對(duì)開發(fā)工具的良好支持，能為大型數(shù)據(jù)庫(kù)項(xiàng)目提供優(yōu)秀的企業(yè)級(jí)解決方案 [5]。 SQL Server 2020 數(shù)據(jù)庫(kù)簡(jiǎn)介 SQL Server 2020 中文版是微軟公司最新開發(fā)的大型關(guān)系數(shù)據(jù) 庫(kù)管理系統(tǒng)，具有非常強(qiáng)大的關(guān)系數(shù)據(jù)庫(kù)創(chuàng)建、開發(fā)、設(shè)計(jì)及管理功能。 VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加 代碼 來(lái)指定組 件 的屬性和方法。程序員可以輕松的使用 VB 提供的組件快速