【正文】 .Fields(數(shù)量 ) = txtSum End If .Update End With End If End Sub 結(jié)算管理 窗體 選擇 “購銷管理 ”→“ 結(jié)算管理 ”菜單命令，客戶 “張揚(yáng) ”對在購物車編 “T03082500001”中所買的是 “50”個(gè) “潤潔滴眼液 ”藥品的合計(jì)金額進(jìn)行結(jié)算，如圖 411 所示。驗(yàn)證庫存數(shù)量 With If .State = adStateClosed Then .Open If .RecordCount = 0 Then 興盛藥房管理系統(tǒng) 第 22 頁 共 33 頁 MsgBox 目前庫存沒有任何藥品 ,請采購 !, vbOKOnly + vbInformation, 信息 Exit Sub End If .MoveFirst .Find 編號 =39。客戶 “張揚(yáng) ”創(chuàng)建了編號為 “T03080500001”的購物車，如圖 47 所示。 不是系統(tǒng)用戶編號，請修改編號重試！ , vbCritical, 登錄驗(yàn)證 txtLog(0).SetFocus txtLog(0).SelStart = 0 txtLog(0).SelLength = Len(txtLog(0)) ElseIf .Fields(口令 ) Trim(txtLog(1)) Then MsgBox 口令錯(cuò)誤，請重新輸入口令！ , vbCritical, 登錄驗(yàn)證 txtLog(1).SetFocus txtLog(1) = Else CurrentUserNumber = .Fields(編號 ) 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 頁 共 33 頁 系統(tǒng)主窗體 系統(tǒng)管理員 “00000”登錄系統(tǒng)主窗體，如圖 42 所示，應(yīng)為該管理員的權(quán)限設(shè)置為高級管理員，所以可進(jìn)行特殊的操作 ——系統(tǒng)管理。 vbCr _ amp。 表 35 庫存數(shù)據(jù)表 列名 數(shù)據(jù)類型 長度 允許空 編號 nchar 6 主鍵 庫存 smallint 2 否 下限 smallint 2 否 （ 6） 購物車數(shù)據(jù)表。在客戶 結(jié)算取藥之后，其購物車數(shù)據(jù)表和購物車記錄將被刪除，購買數(shù)據(jù)則被保存到藥品銷售表中。系統(tǒng)用戶編號形購物車 編號 數(shù)量 庫存藥品 庫存 編號 下限 興盛藥房管理系統(tǒng) 第 12 頁 共 33 頁 式如 00000、 00001， 用戶權(quán)限使用 0、 4 分別代表系統(tǒng)管理員、銷售員、收銀員、取藥員和采購員。 （ 3）購物車項(xiàng)目追加：該功能是將用戶所購買的藥品添加到購物車的具體操作。 （ 2）藥品信息查詢：獲得豐富的藥品信息，便于用戶的查詢，提高用戶對該藥品信息的了解，提高其對該藥品的購買率。否則將一直處在系統(tǒng)的登錄狀態(tài)。 4. 可以訪問多種數(shù)據(jù)源。 OLE DB 為任何數(shù)據(jù)源都提供了高性能的訪問，包括：關(guān)系型數(shù)據(jù)庫、非關(guān)系型數(shù)據(jù)庫、電子郵件、文件系統(tǒng)、文本和圖形以及自定義業(yè)務(wù)對象等。程序員可以輕松的使用 VB 提供的組件快速建立一個(gè)應(yīng)用程序 [3]。在藥房信息化建設(shè)及業(yè)務(wù)拓展到適當(dāng)規(guī)模后，由藥房專業(yè)技術(shù)人 員擔(dān)任此項(xiàng)工作十分容易。 （ 8） 銷售報(bào)表管理：根據(jù)每月藥品的銷售情況產(chǎn)生藥品銷售報(bào)表，藥房高級管理人員可以根據(jù)報(bào)表調(diào)整銷售策略。 （ 14） 當(dāng)進(jìn)行進(jìn)貨、銷售操作后，能相應(yīng)更新庫存。 （ 6） 通過計(jì)算機(jī) ，能夠直接“透視”倉庫存儲情況。銷售管理 子系統(tǒng)是整個(gè)計(jì)算機(jī)管理信息系統(tǒng)的核心 。手工管理方式的弊端畢現(xiàn)無遺。 興盛藥房管理系統(tǒng)的設(shè)計(jì)與開發(fā)就是運(yùn)用了信息化的技術(shù)對藥房進(jìn)行的科學(xué)化管理。實(shí)現(xiàn)了對藥房管理的信息化，使得對藥房信息的更新、修改、維護(hù)等工作變得更方便、快捷，在提高經(jīng)濟(jì)效益的同時(shí)也提高了工作效率。 本系統(tǒng)就考慮到了這一狀況，設(shè)定了系統(tǒng)管理員來進(jìn)行統(tǒng)一且獨(dú)立的用戶 管理。 即 有較好的權(quán)限管理。 （ 9） 需要記錄客戶購買的信息。 （ 3） 庫存信息管理：管理藥品的入庫，庫存量修改與查詢，制訂庫存報(bào)表。 （ 2） 經(jīng)濟(jì)可行性 現(xiàn)今，計(jì)算機(jī)的價(jià)格比較低廉，性能卻有著長足的進(jìn)步，它已經(jīng)被應(yīng)用于許多領(lǐng)域。 綜上所述，實(shí)施本系統(tǒng)，已具備技術(shù)可行、經(jīng)濟(jì)可行、運(yùn)營可行的條件，所以藥房決策層同意開發(fā)和使用本系統(tǒng) ]。因?yàn)?默認(rèn) 的屬性和方法已經(jīng)有一部分定義在了 控 件內(nèi)，所以程序員不用寫多少代碼就 可 以完成一個(gè)簡單的程序 [4]。 ADO 特點(diǎn)概述，用 ADO 訪問數(shù)據(jù)元的特點(diǎn)可概括如下： 1. 易于使用，可以說這是 ADO 最重要 的特點(diǎn)之一。 5. 方便的 Web 應(yīng)用。 系統(tǒng)用戶管理 （ 1）系統(tǒng)用戶添加：添加系統(tǒng)用戶（通過設(shè)置管理權(quán)限來區(qū)分高級管理員和普通管理員），實(shí)現(xiàn)對該系統(tǒng)的管理與維護(hù)。 （ 2）庫存信息修改：實(shí)現(xiàn)對庫存中的藥品各類信息進(jìn)行修改操作。 客 戶取藥管理 客戶將取得的藥品存放于購物車，便于以后的結(jié)算工作，同時(shí)可取消購物車，放棄對該藥品的購買。藥品信息數(shù)據(jù)表用于保存每種藥的基本信息，包括編號、名稱、售價(jià)、進(jìn)價(jià)、種類和廠家，數(shù)據(jù)表命名為“藥品信息”，表結(jié)構(gòu)如表 32 所示。每個(gè)客戶的興盛藥房管理系統(tǒng) 第 13 頁 共 33 頁 購物車啟示使用一個(gè)惟一的編號來標(biāo)識，形式如 0308170000 03081700002，“編號”字段作為主關(guān)鍵字。 表 36 購物車數(shù)據(jù)表 列名 數(shù)據(jù)類型 長度 允許空 編號 nchar 10 主鍵 客戶名 varchar 15 否 日期 smalldateint 4 否 結(jié)算 bit 1 否 列名 數(shù)據(jù)類型 長度 允許空 編號 nchar 6 主鍵 數(shù)量 Smallmoney 4 否 興盛藥房管理系統(tǒng) 第 14 頁 共 33 頁 4 系統(tǒng)詳細(xì)設(shè)計(jì) 系統(tǒng)登錄窗體 將 SystemLogon 窗體設(shè)置為工程啟動(dòng)對象，按 F5鍵運(yùn)行工程，首先顯示用戶登陸窗體如圖 41 所示。 amp。 圖 43 用戶管理窗體 興盛藥房管理系統(tǒng) 第 17 頁 共 33 頁 圖 44 修改口令窗體 藥品管理窗體 選擇 “藥品管理 ”→“ 數(shù)據(jù)管理 ”菜單命令，打開 “藥品管理 ”窗體，在該窗體中可完成藥品基本信息的添加、修改、刪除、保存、關(guān)閉操作?？蛻?“張揚(yáng) ”將藥品編號為 “000001”名稱 “潤潔滴眼液 ”采購量為 “50”的采購計(jì)劃添加到 “制訂采購計(jì)劃 ”窗體中，如圖 48 所示。 39。單擊 “選擇篩選月份 ”下拉菜單，將顯示具體月份的報(bào)表數(shù)據(jù)。 圖 421 退出系統(tǒng)窗體 興盛藥房管理系統(tǒng) 第 31 頁 共 33 頁 5 結(jié) 論 經(jīng)過近半年的學(xué)習(xí)、調(diào)查研究與設(shè)計(jì)，興盛藥房管理系統(tǒng)開發(fā)完畢。 感謝家人對我的關(guān)懷與照顧，是他們作我的堅(jiān)強(qiáng)后盾，讓我從農(nóng)村的窮 孩 子變成 撫順師范高等?？?的一員，在我的畢業(yè)設(shè)計(jì)過程中給了我前進(jìn)的動(dòng)力，使我順利的通過做好畢業(yè)設(shè)計(jì)答辯前的準(zhǔn)備工作！ 此外還 要感謝所有在我的學(xué)習(xí)和生活上給予過大力支持和熱情幫助的老師和朋友們，謝謝你們的關(guān)心與照顧！ 最后向評審們，參加論文答辯的各位老師表示最衷心的感謝，衷心地向各位評委老師們說一句，你們辛苦了！