【正文】 ? 第 2041 行為連接數(shù)據(jù)庫的過程。 29 .ConnectionTimeout = 10 30 .Open 31 End With 32 IsConnect = True 39。生成隨機(jī)序號 19 End Function 20 Private Sub Connect() 39。如果登錄不成功 9 End 39。 下面列出 中的全局變量、 Sub Main 過程、生成序號過程的代碼。業(yè)務(wù)員 92. = SELECT * FROM jxc_sales 93. 39。顯示“藥品”窗體 80. End Sub 81. Private Sub mnuOUT1_Click() 39。顯示“銷售信息 —— 按倉庫查詢”窗體 68. End Sub 69. Private Sub mnuDetail_Click() 39。顯示“銷售信息 —— 按業(yè)務(wù)員查詢”窗 體 55. End Sub 56. Private Sub mnuINSaler_Click() 39。顯示“供應(yīng)商”窗體 43. End Sub 44. Private Sub mnuINStore_Click() 39。設(shè)置窗體參數(shù) 29. 39。 _ 18. FROM jxc_SalesOrders 39。A） mnuAbout F1 編寫主窗體代碼 為主窗體設(shè)計(jì)好菜單后，就可為主窗體的裝載、卸載事件，以及各菜單編寫代碼。S） mnuINSupp 按倉庫查詢（ amp。O） mnuOUT 銷售訂單（ amp。C） mnuCommName Ctrl+C 供應(yīng)商（ amp。 表 61 應(yīng)用程序菜單 菜單 子菜單 菜單名 快捷鍵 系統(tǒng)（ amp。 20 第六章 設(shè)計(jì)主窗體 制作主窗體界面 主窗體主要用來集成本系統(tǒng)的菜 單，并在下方顯示一個狀態(tài)欄，添加了菜單后的主窗體如圖 61 所示（菜單的制作將在下面進(jìn)行介紹）。 （ 3） 單擊“數(shù)據(jù)文件”選項(xiàng)卡，設(shè)置數(shù)據(jù)文件的保存位置為“ C： \醫(yī)藥進(jìn)銷存\DATA”，并設(shè)置數(shù)據(jù)文件名為“ ”，如圖 417 所示。在 MS SQL Server2021 中創(chuàng)建該表的 SQL語句如下： CREATE TABLE [dbo] . [jxc_SalesOrders] ( [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 , /*訂單號 */ [cus_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*客戶編號 */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號 */ [_enddate] [smalldatetime] NULL, /*有效期 */ [so_amount] [float] NULL , /*數(shù)量 */ [so_price] [float] NULL , /*單價(jià) */ [so_discount] [float] NULL , /*折扣 */ [so_total] [float] NULL , /*金額 */ [so_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 10） jxc_in（入庫單）表：用于保存藥品采購入庫信息，該表包括 15 個字段，分別用來保存入庫日期、業(yè)務(wù)員、入庫單號、供應(yīng)商編號、倉庫編號、藥品編號、有效期、數(shù)量、單價(jià)等信息。該表包括 14 個字段，15 分別用來保存客戶編號、名稱、地址、郵政編碼、聯(lián)系電話等信息。 13 倉庫名稱備注進(jìn)貨訂單數(shù)量單價(jià)日期供應(yīng)商業(yè)務(wù)員折扣有效期藥品金額備注 圖 55： 倉庫的 ER 圖 圖 56： 進(jìn)貨訂單的 ER 圖 ? 銷售實(shí)體、入庫單實(shí)體的 ER 圖、如圖 5圖 58 所示。下面介紹本系統(tǒng)數(shù)據(jù)庫的設(shè)計(jì)。 ? 靈活、快速地輸入藥品信息、供應(yīng)商信息、客戶信息、業(yè)務(wù)員信息、倉庫信息。與設(shè)置窗體的原來屬性相同，在其他模塊中可設(shè)置這些自定義屬性的值。 使用全局變量在窗體之間傳遞參數(shù)，操作很簡單，有很方便。 ? Relationship 設(shè)置 新添加節(jié)點(diǎn)的相對位置，可設(shè)置為以下值。在系統(tǒng)中應(yīng)能方便地增加、修改藥品信息，同時也能方便地增加、修改往來單位（供應(yīng)商、客戶） ，能對采購訂單、銷售訂單進(jìn)行管理，能方便地登記入庫、銷售數(shù)據(jù)，能方便地查詢庫存數(shù)據(jù)等。 1. 基本數(shù)據(jù)管理； ? 管理藥品信息； ? 管理供應(yīng)商信息； ? 管理客戶信息； ? 管理倉庫。 目前，全球藥品市場競爭日益激烈，企業(yè)要想獲得持續(xù)性的贏利取決于其是否能夠贏得和保持相當(dāng)?shù)目蛻舻臐M意度。經(jīng)過分析，我們使用 MICROSOFT 公司的VISUAL BASIC 開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始 原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。 2. 進(jìn)貨管理 ? 進(jìn)貨訂單管理； ? 入庫管理。 系統(tǒng)目標(biāo) 醫(yī)藥進(jìn)銷存系統(tǒng)的目標(biāo)是：實(shí)現(xiàn)藥品進(jìn)、銷、存數(shù)據(jù)的信息化管理，提高藥品的周轉(zhuǎn)率，同時提高資金的利用率，提高藥品進(jìn)銷存信息的查詢效率，提高藥品進(jìn)銷存數(shù)據(jù)存儲的可靠性、保密性、降低管理成本，減少人力物力資源。 ? Tvwlast1：該節(jié)點(diǎn)置于任何其他的在 relative 中被命名的同一級別的節(jié)點(diǎn)后面： ? TvwNext2：該節(jié)點(diǎn)置于在 relative 中被命名的節(jié)點(diǎn)的后面： ? tvwPrevius3：該節(jié)點(diǎn)置于在 relative 中被命名的節(jié)點(diǎn)的前面： ? tvwChild4：該節(jié)點(diǎn)成為在 relative 中被命名的節(jié)點(diǎn)的子節(jié)點(diǎn)。但是其缺點(diǎn)也是顯而易見的。這種方式的有點(diǎn)是自定義屬性可由程序員設(shè)置有意義的名稱。 ? 能管理進(jìn)貨訂單、銷售訂單。 數(shù)據(jù)庫分析 本系統(tǒng)由 VB6+MS SQL Server2021 數(shù)據(jù)庫構(gòu)成，本項(xiàng)目選擇使用數(shù)據(jù)庫MS SQL Server2021 系統(tǒng)的原因有： ? MS SQL Server2021 作為一個大型的數(shù)據(jù)庫系統(tǒng)，具備現(xiàn)代數(shù)據(jù)庫管理系統(tǒng)所需求的各種強(qiáng)大功能。 銷 售 日 期備 注金 額折 扣單 價(jià)數(shù) 量 有 效 期日 期業(yè) 務(wù) 員客 戶藥 品銷 售 日 期記 賬支 付 方 式金 額折 扣數(shù) 量 有 效 期日 期業(yè) 務(wù) 員倉 庫藥 品單 價(jià)供 應(yīng) 商預(yù) 付 比 例備 注 圖 57： 銷售訂單的 E=R 圖 圖 58： 入庫單的 ER 圖 ? 銷售單實(shí)體的 ER 圖，如圖 59 所示。在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)商的各項(xiàng)信息。在 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 , /*單價(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（銷售單）表：用于保存藥品銷售出庫信息，該表包括 15 個字段，分別用來保存銷售日期、業(yè)務(wù)員、銷售單號、客戶編號、倉庫編號、藥品編號、有效期、數(shù)量、單價(jià)等信息。 （