【正文】 表 31 系統(tǒng)用戶數(shù)據(jù)表結(jié)構(gòu) 列名 數(shù)據(jù)類型 長度 允許空 編號 nchar 5 主鍵 口令 nchar 6 否 權(quán)限 nchar 1 否 （ 2） 藥品信息數(shù)據(jù)表。藥品銷售數(shù)據(jù)表用于保存每種藥的銷售記錄數(shù)據(jù)，包括銷售記錄編號、日期、藥編號，命名為“藥房銷售”，表結(jié)構(gòu)如 表 33 所 示。購物車記錄表用于保存客戶購物車記錄，包括購物車編號、客戶名、日期和結(jié)算，數(shù)據(jù)表命名為“購物車記錄”表結(jié)構(gòu)如表 35 所示。庫存數(shù)據(jù)表用于保存每種藥的庫存信息，包括庫存編號、庫存量和庫存下限，數(shù)據(jù)表命名為“庫存數(shù)據(jù)”，表結(jié)構(gòu)如表 34 所示。光臨藥房購藥的顧客是動態(tài)的，所以數(shù)據(jù)庫中客戶購物車數(shù)據(jù)表的數(shù)量也是動態(tài)的，對于每一個(gè)打算購買的顧客，首先在客戶購物車記錄表中添加一個(gè)記錄，并分配一個(gè)惟一的編號來標(biāo)識，然后使用該編號來命名為客戶創(chuàng)建購物車數(shù)據(jù)表，表結(jié)構(gòu)如表 36 所示。靜態(tài)常量 intLogTimes 用于保存用戶請求驗(yàn)證的次數(shù) Static intLogTimes As Integer intLogTimes = intLogTimes + 1 //保存登錄次數(shù) If intLogTimes MaxLogTimes Then 39。結(jié)束應(yīng)用程序 Else //打開紀(jì)錄集 With //檢驗(yàn)用戶名和口令的合法性 If .RecordCount 0 Then .MoveFirst .Find 編號 =39。 興盛藥房管理系統(tǒng) 第 15 頁 共 33 頁 If .EOF Then MsgBox 編號： amp。 圖 42 系統(tǒng)主窗體 該管理員，選擇 “系統(tǒng)管理 ”→“ 用戶管理 ”菜單命令，打開 “系統(tǒng)用戶管理 ”窗體，如圖 43 所示，在該窗體中將自己的系統(tǒng)管理權(quán)限設(shè)置成 “0”級，該窗體只對系統(tǒng)管理員是可見的；普通用戶登錄時(shí)，可選擇 “系統(tǒng)管理 ”→“ 修改口令 ”菜單命令，打開 “修改登陸口令 ”窗體，如圖 44 所示。該系統(tǒng)管理員將藥品編號為 “ZC0001”的藥品信息從藥品信息表中刪除，單擊 “是（ Y） ”按鈕 ， 可完成此操作，如圖 46 所示。 興盛藥房管理系統(tǒng) 第 19 頁 共 33 頁 圖 47 創(chuàng)建購物車窗體 選擇 “購銷管理 ”→“ 制訂采購計(jì)劃 ”菜單命令，打開 “制訂采購計(jì)劃 ”窗體，通過該窗體制定采購計(jì)劃。 “張揚(yáng) ”的購買信息已被添加到已創(chuàng)建的 “T03080500001”購物車中，如圖如圖 410 所示。 Trim() amp。 txtNum amp。單擊 “查看報(bào)表 ”按鈕，顯示興盛藥房管理系統(tǒng)藥品銷售信息報(bào)表，如圖 413 所示。此后，該客戶將“T03080500001”購物車進(jìn)行注銷，如圖 417 所示，該購物車注銷成功。 圖 418 庫存管理窗體 1 興盛藥房管理系統(tǒng) 第 29 頁 共 33 頁 圖 419 庫存管理窗體 2 興盛藥房管理系統(tǒng) 第 30 頁 共 33 頁 圖 420 庫存管理窗體 3 退出系統(tǒng)窗體 選擇 ”退出 ” 按鈕，結(jié)束對興盛藥房管理系統(tǒng)本次操作，單擊 “是（ Y） ”按鈕，退出系統(tǒng)， 如圖 421 所示。 興盛藥房管理系統(tǒng)實(shí)現(xiàn)了對不同級別管理員的權(quán)限管理；實(shí)現(xiàn)對藥品信息與庫存信息的管 理，滿足了用戶與管理員其查看與管理的基本信息；在購銷模塊中，實(shí)現(xiàn)了藥品的銷售、制定采購計(jì)劃、結(jié)算、制定銷售報(bào)表等功能。 本系統(tǒng)雖已基本滿足所想要達(dá)到的功能要求，但是還不夠完 善，對系統(tǒng)的設(shè)計(jì)和程序的編排上還存在一些不足之處，還有些功能需要改進(jìn)，希望老師們能夠給與指導(dǎo)，也希望通過自身的努力在以后的工作過程中把該程序的不足之處 一一 彌補(bǔ)并改正！ 興盛藥房管理系統(tǒng) 第 32 頁 共 33 頁 參考文獻(xiàn) [1] 衛(wèi)紅春 .軟件工程概論 [M].北京： 清華大學(xué)出版社， 2020： 2026. [2] 普雷斯曼 ,鄭人杰 .軟件工程實(shí)踐者的研究方法 [M].北京：機(jī)械工業(yè)出版社， 2020： 3145. [3] 夏邦貴 ,劉凡馨 .Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā) 經(jīng)典實(shí)例精解 [M].北京：機(jī)械工業(yè)出版社， 2020：202233. [4] 張路平 ,喻波 ,邵謙謙 .Visual 編程實(shí)例精解 [M]. 電子工業(yè)出版社， 2020： 135153 [5] 徐國智 ,汪孝宜 .SQL Sever 數(shù)據(jù)庫開發(fā)實(shí)例精髓 [M].北京：電子工業(yè)出版社， 2020： 410445 [6] 楊樺 .SQL SERVER 2020 實(shí)用教程 [M].北京： 清華大學(xué)出版社 ， 2020： 5869. [7] Bob Reselman,Richard Peasley,Wayne Basic 使用指南 [M]. 北京：電子工業(yè)出版社， 2020:115137. [8] 湯涌濤 .Visual Basic 2020 從入門到精通 [M].北京：清華大學(xué)出版 社， 2020： 3758. 興盛藥房管理系統(tǒng) 第 33 頁 共 33 頁 致 謝 在我的畢業(yè)設(shè)計(jì)過程中， XXX 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺，老師淵博的知識、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、敬業(yè)的工作精神給我留下了深刻的印象，讓我受益匪淺，所有這一切必將在我將來的工作和學(xué)習(xí)中激勵我繼續(xù)努力，鞭策我不斷上進(jìn)。不過遺憾的事，由于時(shí)間有限，個(gè)人的能力比較有限，該系統(tǒng)在運(yùn)行過程中可能會有意想不到的 bug，希望在以后的學(xué)習(xí)過程中不斷提高技術(shù)，完善系統(tǒng)的功能。該設(shè)計(jì)的系統(tǒng)功能已經(jīng)滿足 消費(fèi)者 與藥房企業(yè)管理的基本要求。此后，該系統(tǒng)管理員將名稱為“雙氧水 ”，編號 “XZ0003”，庫存 “1000”的藥品數(shù)據(jù)信息進(jìn)行入庫操作，窗體如圖 419所示，數(shù)據(jù)保存到庫存數(shù)據(jù)表中。選擇 “2020興盛藥房管理系統(tǒng) 第 24 頁 共 33 頁 年 05 月 ”，單擊 “查看報(bào)表 ”，該 “報(bào)表數(shù)據(jù) ”的窗體如圖 414 所示，再單擊 “查看報(bào)表 ”按鈕，顯示 “2020 年 05 月 ”興盛藥房管理系統(tǒng)藥品銷售信息報(bào)表，如圖 415 所示。 If .EOF Then .AddNew .Fields(編號 ) = txtNum .Fields(數(shù)量 ) = txtSum Else .Fields(數(shù)量 ) = .Fields(數(shù)量 ) + Val(txtSum) End If Else 興盛藥房管理系統(tǒng) 第 23 頁 共 33 頁 .AddNew .Fields(編號 ) = txtNum .Fields(數(shù)量 ) = txtSum End If .Update End With End If End Sub 結(jié)算管理 窗體 選擇 “購銷管理 ”→“ 結(jié)算管理 ”菜單命令，客戶 “張揚(yáng) ”對在購物車編 “T03082500001”中所買的是 “50”個(gè) “潤潔滴眼液 ”藥品的合計(jì)金額進(jìn)行結(jié)算，如圖 411 所示。 If .RecordCount = 0 Then MsgBox 查無該類型藥品 !, vbOKOnly + vbInformation, 信息 Exit Sub End If If .Fields(庫存 ) Val() Then MsgBox 藥品庫存數(shù)量不足 !, vbOKOnly + vbInformation, 信息 Exit Sub End If .Fields(庫存 ) = .Fields(庫存 ) Val() .Update .Close End With With objC