【正文】 38 請檢查配置是否完好，醫(yī)藥進銷存數據庫是否存在？ , vbOKOnly + vbInformation, 醫(yī)藥進銷存 管理系統(tǒng) 39 End 40 End If 41 End Sub 26 ? 第 13 行定義全局變量，用來引用主窗體、保存當前登錄用戶、保存數據庫連接對象。顯示主窗體 14 End Sub 15 Public Function GenNo() As String 39。 ? 第 714 行為卸載窗體事件代碼，將主窗體的坐標位置和窗體大小保存到注冊表中。禁止窗體中的“確定”按鈕 74. = 退出 39。顯示“進貨信息 —— 按供應商查詢”窗體 49. End Sub 50. Private Sub mnuOUTCust_Click() 39。顯示“倉庫”窗體 24. End Sub 25. Private Sub mnuINOrders_Click() 39。C） mnuOUTCust 22 按倉庫查詢（ amp。T） mnuStore Ctrl+T 進貨管理（ amp。在工具欄中單擊選擇“ StatusBar”按鈕，在主窗體中拖到鼠標，可看到主窗體地步增加了一個狀態(tài)欄。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_move] ( [mv_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號 */ [mv_date] [smalldatetime] NULL, /*調倉日期 */ 19 [mv_saler] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*業(yè)務員 */ [st_id_o] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*調出倉庫編號 */ [st_id_i] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*調入倉庫編號 */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號 */ [_enddate] [smalldatetime] NULL, /*有效期 */ [mv_amount] [float] NULL , /*數量 */ [mv_total] [float] NULL , /*金額 */ [mv_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] 創(chuàng)建數據庫 上節(jié)列出了本系統(tǒng)中將要用的表及表的字段，下面介紹創(chuàng)建數據庫的方法。 （ 1） jxc_type（藥品類別）表：用于保存藥品的類別信息，該表包括 5 個字段，分別用來 保存藥品類別的大類標號、大類名稱、子類標號、子類名稱等信息。 ? 提供豐富的查詢功能，可查詢制定藥品的庫存情；能按供應商、業(yè)務員、倉庫查詢進貨情況；能按客戶、業(yè)務員、倉庫查詢銷售情況。 ? 增加 了窗體之間的耦合，修改窗體的代碼或移植窗體很不方便。 Tree View 控件由一些折疊的節(jié)點（ Node 對象）構成，每個節(jié)點通常包括圖像、標簽、 Key 屬性。通過建立的進銷存管理系統(tǒng)可解決這些問題。 使用計算機對藥品的入庫、銷售、庫存數據進行管理，具有手工管理所無法比擬的優(yōu)點 ， 例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，這些優(yōu)點能夠極大地提高藥品進銷存管理的效率，也是企業(yè)的科學化、正規(guī)化管理的重要條件。如圖 45 所示顯示了具有兩個根節(jié)點的樹，其中第 1 個根節(jié)點又有兩個子節(jié)點。 2. 使用窗體屬性傳遞參數 可通過窗體屬性傳遞，比如使用 屬性傳遞參數。 ? 對用戶輸入的數據，系統(tǒng)進行嚴格的數據檢驗，盡可能排除認為輸入錯誤。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_type] ( [bigtype] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號 */ [bigname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號 */ [type] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號 */ [name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號*/ [memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NOT NULL /*備注 */ ) ON [PRIMARY] （ 2） jxc_CommName（藥品信息）表：用于保存銷售藥品的各項信息。 本章介紹在 MS SQL Server2021 中創(chuàng)建數據庫的另一種方法 —— 使用企業(yè)管理器在圖形界面中創(chuàng)建數據庫和表。 添加菜單欄 接下來介紹為主窗體添加菜單欄的步驟。I） mnuIN 進貨訂 單（ amp。T） mnuOUTStore 按業(yè)務員查詢（ amp。進貨訂單 26. = SELECT od_id,od_date,od_saler,sup_id,_id, amp。銷售 按客戶查詢 51. 39。修改“取消”按鈕標題為“退出” 75. 39。 ? 第 15104 行為各菜單項對應的事件代碼，分別用來顯示對應功能的窗體。生成序號 16 GenNo = Format(Now, yymmddhhmmss) 39。 ? 第 414 行為啟動應用程序的 Main 過程。 vbCrLf amp。生成新的主窗體 13 39。顯示“藥品轉倉”窗體 98. End Sub ? 第 16 行為裝載窗體事件代碼，從注冊表中獲取窗體左上角坐標位置和窗體的大小。藥品類別 73. = False 39。進貨 按供應商查詢 48. 39。倉庫 22. = SELECT * FROM jxc_store 23. 39。O） mnuQuerOUT 按客戶查詢（ amp。E） mnuSaler Ctrl+E 倉庫（ amp。 圖 61：系統(tǒng)界面 （ 3） 單擊“確定”按鈕，在工具欄中 可以看到增加了幾個新的按鈕。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_stock] ( [sk_date] [smalldatetime] NOT NULL , /*更新日期 */ [sk_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號 */ [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*倉庫編號 */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號 */ [_enddate] [smalldatetime] NULL, /*有效期 */ [sk_amount] [float] NULL , /*數量 */ [sk_total] [float] NULL , /*金額 */ ) ON [PRIMARY] （ 13） jxc_move（倉庫調貨信息）表：用于保存在不同倉庫之間調貨的信息，該表包括 10 個字段，分別用來保存編號、調出倉庫編號、調入倉庫編號、藥品編號、有效期、數量、金額等信息。由于本書篇幅所限 ，下面只列出各表的作用及創(chuàng)建表的 SQL 語言。 ? 能在 不同倉庫之間調貨。 ? 不能保證值的正確性：因為其作用域是全局，所以程序范圍內都可以修改它的值，如果出現錯誤，非常難以發(fā)現。對于 Tree View 控件，主要是通過設置屬性和調用方法對各 Node 對象進行操作的，這些操作包括添加、刪除、修改標簽等。 致謝 ........................................................................................................ 50 5 第一章 緒論 系統(tǒng)的開發(fā)背景 對于醫(yī)藥銷售 ，其藥品從入庫到銷售，要經過多個環(huán)節(jié)，處理大量的數據，用手工作業(yè)的方式處理大量的入庫、銷售數據，以及對庫存進行統(tǒng)計，其效率非常低，而且容易出錯，可能造 成入庫、銷售、庫存藥品的匯總困難，導致庫存積壓，使資金周轉緩慢。因此，開發(fā)這樣一套藥品進銷存系統(tǒng)是很有必要的工作。 通過向集合對象 Nodes 中添加 Node 對象，即可向控件中添加顯示項。這種方式的缺點是不能準確表達參數的意義。 系統(tǒng)功能結構 本系統(tǒng)的功能主要包括基本數據、進貨管理、銷售管理、庫存管理、查詢等五部分。該表包括 11 個字 段，分別用來保存藥品的標號、名稱、類型、有效期、進價、分銷價、零銷價、廠家等信息。 （ 1） 啟動 MS SQL Server2021 的“企業(yè)管理器”。 21 選擇菜單“工具 /菜單編輯器”命令，打開“菜單編輯器”對話框，逐個創(chuàng)建系統(tǒng)的菜單 。O） mnuINOrders Ctrl+F1 入庫單（ amp。E） mnuOUTSaler 幫助（ amp。 _ 27. od_enddate,od_amount,od_price,od_discount,od_total,od_memo amp。顯示“銷售信息 —— 按客戶查詢”窗體 52. End Sub 53. Private Sub mnuOUTSaler_Click() 39。顯示“藥品類別”窗體 76. End Sub 24 77. Private Sub mnuCommName_Click() 39。在本例中，有的窗體初始化時就要顯示數據庫的數據，所以在打開這類窗體之前， 通過設置窗體的 strSQL 參數，使其獲取數據庫中的數據進行顯示。得到當前時間 17 Randomize 18 GenNo = GenNo amp。 ? 第 1519 行的函數用來根據系統(tǒng)當前時間，生成一個隨機的序號。 vbCrLf amp。卸載登錄窗體 12 Set fMainForm = New frmMain 39。倉庫調貨 96. = SELECT * FROM jxc_move 97. 39。顯示“庫存信息”窗體 71. End Sub 72. Private Sub mnuCNType_Click() 39。顯示“進貨信息 —— 按倉庫查詢”窗體 46. End Sub 47. Private Sub mnuINSupp_Click() 39。顯示“銷售訂單”窗體 20. End Sub 21. Private Sub mnuStore_Click() 39。E） mnuINSaler 銷售查詢（ amp。U） mnuCust Ctrl+U 業(yè)務員（ amp。 （ 2） 右鍵單擊左側工具欄，在彈出的菜單中選擇“部件”命令，打開“部件”對話框，在該對話框中選擇“ Microsoft Windows ”部件，如圖 61 所示。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_out] ( [out_date] [smalldatetime] NOT NULL , /*銷售日期 */ [out_saler] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*業(yè)務員 */ [out_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*銷售單號 */ [cus_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*客戶編號 */ [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*倉庫編號 */ [_id] [char] (14) COLLATE Ch