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