【正文】 由于本書 篇幅限制，本節(jié)介紹兩類基本數(shù)據(jù)管理窗體的設(shè)計(jì)過(guò)程。其中第 28 行為具體的連接字符串，若數(shù)據(jù)庫(kù)名稱不同，可修改此行代碼。生成各種編號(hào)時(shí)可通過(guò)該函數(shù)返回序號(hào)。 ? 第 414 行為啟動(dòng)應(yīng)用程序的 Main 過(guò)程。 vbCrLf amp。設(shè)置連接標(biāo)記，表示 已經(jīng)連接到數(shù)據(jù)庫(kù) 33 Exit Sub 34 DbOpenErr: 35 If Err = 2147467259 Then 36 Set n = Nothing 37 MsgBox 連接 MS SQL Server 數(shù)據(jù)庫(kù)失??！ amp。password=111。initial catalog=MedicineJXC。否則會(huì)出錯(cuò) 22 Exit Sub 23 End If 24 On Error GoTo DbOpenErr 25 Set n = New 39。連接數(shù)據(jù)庫(kù) 21 If IsConnect = True Then 39。 Int((99 10 + 1) * Rnd + 10) 39。生成序號(hào) 16 GenNo = Format(Now, yymmddhhmmss) 39。生成新的主窗體 13 39。結(jié)束應(yīng)用程序 10 End If 11 Unload fLogin 39。顯示登錄窗體 8 If Not Then 39。定義登錄窗口對(duì)象 6 = 醫(yī)藥進(jìn)銷存系統(tǒng) 39。保存當(dāng)前登錄用 戶 3 Dim n As 39。 1 Public fMainForm As frmMain 39。 編寫通用模塊程序 向工程中添加一個(gè)模塊文件“ ”，在該模塊中聲明全局變量，創(chuàng)建一個(gè)名為“ SubMain”的過(guò)程，用來(lái)啟動(dòng)應(yīng)用程序，另外再創(chuàng)建連接數(shù)據(jù)庫(kù)及從數(shù)據(jù)庫(kù)中獲取數(shù)據(jù)的過(guò)程。 ? 第 15104 行為各菜單項(xiàng)對(duì)應(yīng)的事件代碼，分別用來(lái)顯示對(duì)應(yīng)功能的窗體。顯示“藥品轉(zhuǎn)倉(cāng)”窗體 98. End Sub ? 第 16 行為裝載窗體事件代碼，從注冊(cè)表中獲取窗體左上角坐標(biāo)位置和窗體的大小。顯示“業(yè)務(wù)員”窗體 94. End Sub 95. Private Sub mnuMove_Click() 39。顯示“業(yè)務(wù)員類別”窗體 90. End Sub 91. Private Sub mnuSaler_Click() 39。顯示“銷售單”窗體 86. End Sub 87. Private Sub mnuSalerType_Click() 39。 _ 84. out_cash,out_arr,out_rate,out_memo FROM jxc_out 39。銷售單 82. = SELECT out_id,out_date,out_saler,cus_id,st_id,_id, amp。藥品 78. = SELECT * FROM jxc_CommName 79. 39。修改“取消”按鈕標(biāo)題為“退出” 75. 39。藥品類別 73. = False 39。庫(kù)存信息 70. 39。銷售 按倉(cāng)庫(kù)查詢 67. 39。修改密碼 64. 39?？蛻? 60. = SELECT * FROM jxc_cust 61. 39。進(jìn)貨 按業(yè)務(wù)員查詢 57. 39。銷售 按業(yè)務(wù)員查詢銷售 54. 39。銷售 按客戶查詢 51. 39。進(jìn)貨 按供應(yīng)商查詢 48. 39。進(jìn)貨 按倉(cāng)庫(kù)查詢 45. 39。供應(yīng)商 41. = SELECT * FROM jxc_supp 42. 39。顯示“入庫(kù)單”窗體 36. End Sub 37. Private Sub mnuExit_Click() 39。 _ 23 33. _enddate,in_amount,in_price,in_discount,in_total,in_cash, amp。顯示“進(jìn)貨訂單”窗體 30. End Sub 31. Private Sub mnuIN1_Click() 39。 _ 28. FROM jxc_orders 39。進(jìn)貨訂單 26. = SELECT od_id,od_date,od_saler,sup_id,_id, amp。倉(cāng)庫(kù) 22. = SELECT * FROM jxc_store 23. 39。設(shè)置窗體參數(shù) 19. 39。 _ 17. _enddate,so_amount,so_price,so_amount,so_total,so_memo amp。顯示“添加用戶”窗體 14. End Sub 15. Private Sub mnuOUTOrders_Click() 39。顯示“關(guān)于”對(duì)話框 11. End Sub 12. Private Sub mnuAdduser_Click() 39。 1. Private Sub MDIForm_Unload(Cancel As Integer) 2. If vbMinimized Then 3. SaveSetting , Settings, MainLeft, 4. SaveSetting , Settings, MainTop, 5. SaveSetting , Settings, MainWidth, 6. SaveSetting , Settings, MainHeight, 7. End If 8. End Sub 9. Private Sub mnuAbout_Click() 39。H） mnuHelp 關(guān)于（ amp。T） mnuOUTStore 按業(yè)務(wù)員查詢（ amp。O） mnuQuerOUT 按客戶查詢（ amp。T） mnuINStore 按業(yè)務(wù)員查詢（ amp。I） mnuQueryIN 按供應(yīng)商查詢 （ amp。Q） mnuDetail Ctrl+F6 查詢（ amp。T） mnuStore1 倉(cāng)庫(kù)調(diào)貨（ amp。O） mnuOUTOrders Ctrl+F3 銷售單（ amp。I） mnuIN1 Ctrl+F2 銷售管理（ amp。I） mnuIN 進(jìn)貨訂 單（ amp。E） mnuSaler Ctrl+E 倉(cāng)庫(kù)（ amp。S） mnuSupp Ctrl+S 客戶（ amp。A） mnuSalerType mnu2 藥品（ amp。B） mnuBase 藥品類別（ amp。A） mnuAddUser mnu1 推出（ amp。S） mnuSystem 修改密碼（ amp。本系統(tǒng)中各菜單項(xiàng)的標(biāo)題和名稱如表 61 所示。 添加菜單欄 接下來(lái)介紹為主窗體添加菜單欄的步驟。 圖 61：系統(tǒng)界面 （ 3） 單擊“確定”按鈕，在工具欄中 可以看到增加了幾個(gè)新的按鈕。 制作該主窗體的步驟如下： （ 1） 打開(kāi) Visual 中文版，新建一個(gè)標(biāo)準(zhǔn)工程，向工程中添加一個(gè)MDIForm 窗體，設(shè)置其名稱屬性為“ frmMain“，標(biāo)題為“濟(jì)世藥業(yè)進(jìn)銷存管理系統(tǒng)”。 重復(fù)進(jìn)行操作，即可將本系統(tǒng)中要使用的表創(chuàng)建完成。在“企業(yè)管理器”左側(cè)的數(shù)據(jù)庫(kù)列表中找到“ MedicineJXC”，右鍵單擊該數(shù)據(jù)庫(kù)，在彈出的快捷菜單中選擇“新建 /表”命令，將打開(kāi)如圖 419 所示的對(duì)話框，在該對(duì)話框中輸入列名、數(shù)據(jù)類型、長(zhǎng)度等內(nèi)容。在“企業(yè)管 理器”左側(cè)的數(shù)據(jù)庫(kù)列表中可以看到新創(chuàng)建的數(shù)據(jù)庫(kù)“ MedicineJXC”。 （ 4） 單擊“事務(wù)日志”選項(xiàng)卡，設(shè)置事務(wù)日志文件的保存位置為 C： \醫(yī)藥進(jìn)銷存 \DATA”，并設(shè)置數(shù)據(jù)文件名為“ ”，如圖 418所示。 （ 2） 在“企業(yè)管理器”左側(cè)一次展開(kāi)找到一個(gè)數(shù)據(jù)庫(kù)服務(wù)器（如“（ Local）”表示當(dāng)前計(jì)算機(jī)），單擊上方工具 欄中的“新數(shù)據(jù)庫(kù)”圖標(biāo)，打開(kāi)“數(shù)據(jù)庫(kù)屬性”對(duì)話框，在對(duì)話框的“常規(guī)”選項(xiàng)卡中輸入數(shù)據(jù)庫(kù)的名稱“ MedicineJXC”，如圖 416 所示。 本章介紹在 MS SQL Server2021 中創(chuàng)建數(shù)據(jù)庫(kù)的另一種方法 —— 使用企業(yè)管理器在圖形界面中創(chuàng)建數(shù)據(jù)庫(kù)和表。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_stock] ( [sk_date] [smalldatetime] NOT NULL , /*更新日期 */ [sk_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號(hào) */ [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*倉(cāng)庫(kù)編號(hào) */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號(hào) */ [_enddate] [smalldatetime] NULL, /*有效期 */ [sk_amount] [float] NULL , /*數(shù)量 */ [sk_total] [float] NULL , /*金額 */ ) ON [PRIMARY] （ 13） jxc_move（倉(cāng)庫(kù)調(diào)貨信息）表：用于保存在不同倉(cāng)庫(kù)之間調(diào)貨的信息，該表包括 10 個(gè)字段，分別用來(lái)保存編號(hào)、調(diào)出倉(cāng)庫(kù)編號(hào)、調(diào)入倉(cāng)庫(kù)編號(hào)、藥品編號(hào)、有效期、數(shù)量、金額等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_in] ( [in_date] [smalldatetime] NOT NULL , /*訂貨日期 */ [in_saler] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*業(yè)務(wù)員 */ [in_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*入庫(kù)單號(hào) */ [sup_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*供應(yīng)商編號(hào) */ [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*倉(cāng)庫(kù)編號(hào) */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號(hào) */ [_enddate] [smalldatetime] NULL, /*有效期 */ [in_amount] [float] NULL , /*數(shù)量 */ [in_price] [float] NULL , /*單價(jià) */ [in_discount] [float] NULL , /*折扣 */ [in_total] [float] NULL , /*金額 */ [in_cash] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , /*支付方式 */ [in_arr] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , /*是否記賬 */ [in_rate] [float] NULL , /*預(yù)付比例 */ 18 [in_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 11） jxc_out（銷售單）表：用于保存藥品銷售出庫(kù)信息，該表包括 15 個(gè)字段，分別用來(lái)保存銷售日期、業(yè)務(wù)員、銷售單號(hào)、客戶編號(hào)、倉(cāng)庫(kù)編號(hào)、藥品編號(hào)、有效期、數(shù)量、單價(jià)等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_orders] ( [so_date] [smalldatetime] NOT NULL , /*訂貨日期 */ [so_saler] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*業(yè)務(wù)員 */ [so_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*訂單號(hào) */ [so_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*客戶編號(hào) */ [so_id] [char] (14) COLLATE Chinese_PRC_CI_AS