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