【正文】 /*預付比例 */ [out_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 12） jxc_stock（庫存）表：用于保存藥品的庫存信息，該表包括 7 個字段，分別用來保存 庫存更新日期、編號、倉庫編號、藥品編號、有效期、數量、金額等信息。 （ 5） 單擊“確定”按鈕，即可完成數據庫文件的創(chuàng)建。 （ 2） 右鍵單擊左側工具欄，在彈出的菜單中選擇“部件”命令，打開“部件”對話框，在該對話框中選擇“ Microsoft Windows ”部件，如圖 61 所示。M） mnuModifyPWD 添加用戶（ amp。U） mnuCust Ctrl+U 業(yè)務員（ amp。S） MnuOUT1 Ctrl+F4 庫存管理（ amp。E） mnuINSaler 銷售查詢（ amp。關于 10. 39。顯示“銷售訂單”窗體 20. End Sub 21. Private Sub mnuStore_Click() 39。入庫單 32. = SELECT in_id,in_date,in_saler,sup_id,st_id,_id, amp。顯示“進貨信息 —— 按倉庫查詢”窗體 46. End Sub 47. Private Sub mnuINSupp_Click() 39。顯示“進貨信息 —— 按業(yè)務員查詢”窗體 58. End Sub 59. Private Sub mnuCust_Click() 39。顯示“庫存信息”窗體 71. End Sub 72. Private Sub mnuCNType_Click() 39。 _ 83. _enddate,out_amount,out_price,out_discount,out_total, amp。倉庫調貨 96. = SELECT * FROM jxc_move 97. 39。定義主窗體類型 2 Public UserName As String 39。卸載登錄窗體 12 Set fMainForm = New frmMain 39。如果連接標記為真，則返回。 vbCrLf amp。 27 第七章 詳細設計 設計基本數據模塊 “基本數據”模塊用來管理系統(tǒng)經常引用的數據，如藥品、供應商、客戶、業(yè)務員、倉庫等數據。 ? 第 1519 行的函數用來根據系統(tǒng)當前時間，生成一個隨機的序號。user id=sa。得到當前時間 17 Randomize 18 GenNo = GenNo amp。應用程序標題 7 vbModal 39。在本例中，有的窗體初始化時就要顯示數據庫的數據，所以在打開這類窗體之前， 通過設置窗體的 strSQL 參數，使其獲取數據庫中的數據進行顯示。業(yè)務員類別 88. = SELECT * FROM jxc_SMType 89. 39。顯示“藥品類別”窗體 76. End Sub 24 77. Private Sub mnuCommName_Click() 39。顯示“修改密碼”窗體 65. End Sub 66. Private Sub mnuOUTStore_Click() 39。顯示“銷售信息 —— 按客戶查詢”窗體 52. End Sub 53. Private Sub mnuOUTSaler_Click() 39。退出 38. Unload Me 39. End Sub 40. Private Sub mnuSupp_Click() 39。 _ 27. od_enddate,od_amount,od_price,od_discount,od_total,od_memo amp。銷售訂單 16. = SELECT so_id,so_date,so_saler,cus_id,_id, amp。E） mnuOUTSaler 幫助（ amp。Q） mnuQuery 進貨查詢（ amp。O） mnuINOrders Ctrl+F1 入庫單（ amp。T） mnuCNType 業(yè)務員（ amp。 21 選擇菜單“工具 /菜單編輯器”命令，打開“菜單編輯器”對話框，逐個創(chuàng)建系統(tǒng)的菜單 。 （ 7） 當關閉圖 419 所示對話框時，將提示用戶輸入表名進行保存。 （ 1） 啟動 MS SQL Server2021 的“企業(yè)管理器”。在 MS SQL Server2021中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_store] ( [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號 */ [st_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL, /*倉庫名稱 */ [st_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ （ 8） jxc_orders（進貨訂單）表：用于保存進貨訂單信息，該表包括 11 個字段，分別用來保存訂單日期、業(yè)務員、訂單號、供應商編號、藥品編號、有效期、數量、單價等信息。該表包括 11 個字 段，分別用來保存藥品的標號、名稱、類型、有效期、進價、分銷價、零銷價、廠家等信息。 ? 藥品實體、客戶實體的 ER 圖，如圖 5圖 52 所示。 系統(tǒng)功能結構 本系統(tǒng)的功能主要包括基本數據、進貨管理、銷售管理、庫存管理、查詢等五部分。 ? 界面簡潔、框架清晰、美觀大方。這種方式的缺點是不能準確表達參數的意義。 1. 使用全局變量傳遞參數 在模塊文件中使用 Public 聲明全局變量，這些全局變量在整個項目中都可以被訪問。 通過向集合對象 Nodes 中添加 Node 對象，即可向控件中添加顯示項。 從計算機信息管理急速，以及企業(yè)的業(yè)務需求兩方面出發(fā)，對醫(yī)藥進銷存系統(tǒng)（下面稱為“本系統(tǒng)”）的可行性進行分析，為企業(yè)就決策提供依據。因此，開發(fā)這樣一套藥品進銷存系統(tǒng)是很有必要的工作。它是先進科學技術和現代企業(yè)經營管理結合的范例。 致謝 ........................................................................................................ 50 5 第一章 緒論 系統(tǒng)的開發(fā)背景 對于醫(yī)藥銷售 ，其藥品從入庫到銷售，要經過多個環(huán)節(jié)，處理大量的數據，用手工作業(yè)的方式處理大量的入庫、銷售數據，以及對庫存進行統(tǒng)計，其效率非常低，而且容易出錯，可能造 成入庫、銷售、庫存藥品的匯總困難，導致庫存積壓，使資金周轉緩慢。 4． 查詢 ? 分別按供應商、業(yè)務員、倉庫查詢進貨情況； ? 分別按客戶、業(yè)務員、倉庫查詢銷售情況。對于 Tree View 控件，主要是通過設置屬性和調用方法對各 Node 對象進行操作的，這些操作包括添加、刪除、修改標簽等。 ? Text 設置該節(jié)點的顯示內容（標簽值）。 ? 不能保證值的正確性：因為其作用域是全局，所以程序范圍內都可以修改它的值，如果出現錯誤，非常難以發(fā)現。 本章大部分窗體使用自定義屬性的方式來傳遞參數，具體內容可參 見后面的代碼。 ? 能在 不同倉庫之間調貨。 ? MS SQL Server2021 支持客戶機 /服務器結構，可方便地將數據庫不熟在公司機房服務器中，而各門店安裝本系統(tǒng)程序。由于本書篇幅所限 ，下面只列出各表的作用及創(chuàng)建表的 SQL 語言。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_supp] ( [sup_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號 */ [sup_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL, /*名稱 */ [sup_address] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*地址 */ [sup_post] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , /*郵政編號 */ [sup_tele] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*電話 */ [sup_] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*網址 */ [sup_] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*電子郵件 */ [sup_taxno] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*稅號 */ [sup_bankno] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*銀行賬號 */ [sup_bank] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*開戶銀行 */ [sup_linker] [char] (255) COLLATE Chinese_PRC_CI_AS NULL , /*聯(lián)系人 */ 16 [sup_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 5） jxc_SMType（業(yè)務員類別）表：用于保存業(yè)務員的分類，該表包括 3 個字段，分別用來保存業(yè)務員類別編號、類別名稱 和備注等信息。在 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 個字段，分別用來保存編號、調出倉庫編號、調入倉庫編號、藥品編號、有效期、數量、金額等信息。在“企業(yè)管 理器”左側的數據庫列表中可以看到新創(chuàng)建的數據庫“ MedicineJXC”。 圖 61：系統(tǒng)界面 （ 3） 單擊“確定”按鈕，在工具欄中 可以看到增加了幾個新的按鈕。A） mnuAddUser mnu1 推出（ amp。E） mnuSaler Ctrl+E 倉庫（ amp。T） mnuStore1 倉庫調貨（ amp。O） mnuQuerOUT 按客戶查詢（ amp。顯示“關于”對話框 11. End Sub 12. Private Sub mnuAdduser_Click() 39。倉庫 22. = SELECT * FROM jxc_store 23. 39。 _ 23 33. _enddate,in_amount,in_price,in_discount,in_total,in_cash, amp。進貨 按供應商查詢 48. 39?？蛻? 60. = SELECT * FROM jxc_cust 61. 39。藥品類別 73. = False 39。 _ 84. out_cash,out_arr,out_rate,out_memo FROM jxc_out 39。顯示“藥品轉倉”窗體 98. End Sub ? 第 16 行為裝載窗體事件代碼，從注冊表中獲取窗體左上角坐標位置和窗體的大小。保存當前登錄用 戶 3 Dim n As 39。生成新的主窗體 13 39。否則會出錯 22 Exit Sub 23 End If 24 On Error GoTo Db