【正文】 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。T） mnuOUTStore 按業(yè)務(wù)員查詢（ amp。T） mnuINStore 按業(yè)務(wù)員查詢（ amp。Q） mnuDetail Ctrl+F6 查詢（ amp。O） mnuOUTOrders Ctrl+F3 銷售單（ amp。I） mnuIN 進(jìn)貨訂 單（ amp。S） mnuSupp Ctrl+S 客戶（ amp。B） mnuBase 藥品類別（ amp。S） mnuSystem 修改密碼（ amp。 添加菜單欄 接下來介紹為主窗體添加菜單欄的步驟。 制作該主窗體的步驟如下： （ 1） 打開 Visual 中文版，新建一個標(biāo)準(zhǔn)工程，向工程中添加一個MDIForm 窗體，設(shè)置其名稱屬性為“ frmMain“，標(biāo)題為“濟(jì)世藥業(yè)進(jìn)銷存管理系統(tǒng)”。在“企業(yè)管理器”左側(cè)的數(shù)據(jù)庫列表中找到“ MedicineJXC”，右鍵單擊該數(shù)據(jù)庫，在彈出的快捷菜單中選擇“新建 /表”命令，將打開如圖 419 所示的對話框，在該對話框中輸入列名、數(shù)據(jù)類型、長度等內(nèi)容。 （ 4） 單擊“事務(wù)日志”選項卡，設(shè)置事務(wù)日志文件的保存位置為 C： \醫(yī)藥進(jìn)銷存 \DATA”，并設(shè)置數(shù)據(jù)文件名為“ ”，如圖 418所示。 本章介紹在 MS SQL Server2021 中創(chuàng)建數(shù)據(jù)庫的另一種方法 —— 使用企業(yè)管理器在圖形界面中創(chuàng)建數(shù)據(jù)庫和表。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： 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 , /*入庫單號 */ [sup_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*供應(yīng)商編號 */ [st_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*倉庫編號 */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號 */ [_enddate] [smalldatetime] NULL, /*有效期 */ [in_amount] [float] NULL , /*數(shù)量 */ [in_price] [float] NULL , /*單價 */ [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（銷售單）表：用于保存藥品銷售出庫信息，該表包括 15 個字段，分別用來保存銷售日期、業(yè)務(wù)員、銷售單號、客戶編號、倉庫編號、藥品編號、有效期、數(shù)量、單價等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_sales] ( [sl_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號 */ [sl_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL, /*姓名 */ [sl_type] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , /*業(yè)務(wù)員類別 */ [sl_tele] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*電話 */ [sl_address] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*地址 */ [sl_carid] [char] (18) COLLATE Chinese_PRC_CI_AS NULL , /*身份證號 */ [sl_typeid] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , /*類別 編號 */ [sl_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 7） jxc_store（倉庫信息）表：用于保存公司各倉庫的信息，該表包括 3 個字段，分別用來保存?zhèn)}庫編號、名稱和備注等信息。在MS SQL Server2021 中創(chuàng)建該表的 SQL 語句如下： CREATE TABLE [dbo] . [jxc_cust] ( [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*客戶編號 */ [_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL, /*客戶名稱 */ [_address] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*地址 */ [_post] [char] (6) COLLATE Chinese_PRC_CI_AS NULL , /*郵政編號 */ [_tele] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*聯(lián)系電話 */ [_] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*網(wǎng)址 */ [_linker] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , /*聯(lián)系人 */ [_] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*電子郵件 */ [_taxno] [nvarchar] (40) COLLATE Chinese_PRC_CI_AS NULL, /*稅號 */ [_bankno] [nvarchar] (40) COLLATE Chinese_PRC_CI_AS NULL, /*銀行賬號 */ [_bank] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL, /*開戶銀行 */ [_memberID] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , /*會員卡號 */ [_discount] [float] NULL , /*折扣比例 */ [_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 4） jxc_supp（供應(yīng)商信息）表：用于保存供應(yī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（藥品信息）表：用于保存銷售藥品的各項信息。 銷 售 日 期備 注金 額折 扣單 價數(shù) 量 有 效 期日 期業(yè) 務(wù) 員客 戶藥 品銷 售 日 期記 賬支 付 方 式金 額折 扣數(shù) 量 有 效 期日 期業(yè) 務(wù) 員倉 庫藥 品單 價供 應(yīng) 商預(yù) 付 比 例備 注 圖 57： 銷售訂單的 E=R 圖 圖 58： 入庫單的 ER 圖 ? 銷售單實體的 ER 圖，如圖 59 所示。下面將分別介紹這 9 個實體的 ER 圖，通過 ER 圖了解各實體的屬性。 數(shù)據(jù)庫分析 本系統(tǒng)由 VB6+MS SQL Server2021 數(shù)據(jù)庫構(gòu)成，本項目選擇使用數(shù)據(jù)庫MS SQL Server2021 系統(tǒng)的原因有： ? MS SQL Server2021 作為一個大型的數(shù)據(jù)庫系統(tǒng)，具備現(xiàn)代數(shù)據(jù)庫管理系統(tǒng)所需求的各種強(qiáng)大功能。 ? 對用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗，盡可能排除認(rèn)為輸入錯誤。 ? 能管理進(jìn)貨訂單、銷售訂單。 10 第四章 系統(tǒng)設(shè)計 系統(tǒng)目標(biāo) 根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實現(xiàn)的目標(biāo)如下。這種方式的有點是自定義屬性可由程序員設(shè)置有意義的名稱。 2. 使用窗體屬性傳遞參數(shù) 可通過窗體屬性傳遞，比如使用 屬性傳遞參數(shù)。但是其缺點也是顯而易見的。常用的幾種參數(shù)傳遞方法有如下幾種。 ? Tvwlast1：該節(jié)點置于任何其他的在 relative 中被命名的同一級別的節(jié)點后面： ? TvwNext2：該節(jié)點置于在 relative 中被命名的節(jié)點的后面： ? tvwPrevius3：該節(jié)點置于在 relative 中被命名的節(jié)點的前面： ? tvwChild4：該節(jié)點成為在 relative 中被命名的節(jié)點的子節(jié)點。如圖 45 所示顯示了具有兩個根節(jié)點的樹，其中第 1 個根節(jié)點又有兩個子節(jié)點。 系統(tǒng)目標(biāo) 醫(yī)藥進(jìn)銷存系統(tǒng)的目標(biāo)是：實現(xiàn)藥品進(jìn)、銷、存數(shù)據(jù)的信息化管理，提高藥品的周轉(zhuǎn)率，同時提高資金的利用率，提高藥品進(jìn)銷存信息的查詢效率，提高藥品進(jìn)銷存數(shù)據(jù)存儲的可靠性、保密性、降低管理成本，減少人力物力資源。 1. 引言 某醫(yī)藥公司為了能加強(qiáng)對藥品銷售的管理，提高藥品流通效率、使資金利用率更高，為了提高庫房人員管理進(jìn)銷 存數(shù)據(jù)的效率，計劃開發(fā)醫(yī)藥進(jìn)銷存系統(tǒng)。 2. 進(jìn)貨管理 ? 進(jìn)貨訂單管理； ? 入庫管理。 使用計算機(jī)對藥品的入庫、銷售、庫存數(shù)據(jù)進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點 ， 例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、