【正文】 OpenErr 25 Set n = New 39。 vbCrLf amp。由于本書(shū) 篇幅限制，本節(jié)介紹兩類基本數(shù)據(jù)管理窗體的設(shè)計(jì)過(guò)程。 ? 第 414 行為啟動(dòng)應(yīng)用程序的 Main 過(guò)程。initial catalog=MedicineJXC。生成序號(hào) 16 GenNo = Format(Now, yymmddhhmmss) 39。定義登錄窗口對(duì)象 6 = 醫(yī)藥進(jìn)銷存系統(tǒng) 39。 ? 第 15104 行為各菜單項(xiàng)對(duì)應(yīng)的事件代碼，分別用來(lái)顯示對(duì)應(yīng)功能的窗體。顯示“銷售單”窗體 86. End Sub 87. Private Sub mnuSalerType_Click() 39。修改“取消”按鈕標(biāo)題為“退出” 75. 39。修改密碼 64. 39。銷售 按客戶查詢 51. 39。顯示“入庫(kù)單”窗體 36. End Sub 37. Private Sub mnuExit_Click() 39。進(jìn)貨訂單 26. = SELECT od_id,od_date,od_saler,sup_id,_id, amp。顯示“添加用戶”窗體 14. End Sub 15. Private Sub mnuOUTOrders_Click() 39。T） mnuOUTStore 按業(yè)務(wù)員查詢（ amp。Q） mnuDetail Ctrl+F6 查詢（ amp。I） mnuIN 進(jìn)貨訂 單（ amp。B） mnuBase 藥品類別（ amp。 添加菜單欄 接下來(lái)介紹為主窗體添加菜單欄的步驟。在“企業(yè)管理器”左側(cè)的數(shù)據(jù)庫(kù)列表中找到“ MedicineJXC”，右鍵單擊該數(shù)據(jù)庫(kù)，在彈出的快捷菜單中選擇“新建 /表”命令，將打開(kāi)如圖 419 所示的對(duì)話框，在該對(duì)話框中輸入列名、數(shù)據(jù)類型、長(zhǎng)度等內(nèi)容。 本章介紹在 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_sales] ( [sl_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號(hào) */ [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 , /*身份證號(hào) */ [sl_typeid] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , /*類別 編號(hào) */ [sl_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*備注 */ ) ON [PRIMARY] （ 7） jxc_store（倉(cāng)庫(kù)信息）表：用于保存公司各倉(cāng)庫(kù)的信息，該表包括 3 個(gè)字段，分別用來(lái)保存?zhèn)}庫(kù)編號(hào)、名稱和備注等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_type] ( [bigtype] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號(hào) */ [bigname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號(hào) */ [type] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號(hào) */ [name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL , /*大類編號(hào)*/ [memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NOT NULL /*備注 */ ) ON [PRIMARY] （ 2） jxc_CommName（藥品信息）表：用于保存銷售藥品的各項(xiàng)信息。下面將分別介紹這 9 個(gè)實(shí)體的 ER 圖，通過(guò) ER 圖了解各實(shí)體的屬性。 ? 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除認(rèn)為輸入錯(cuò)誤。 10 第四章 系統(tǒng)設(shè)計(jì) 系統(tǒng)目標(biāo) 根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實(shí)現(xiàn)的目標(biāo)如下。 2. 使用窗體屬性傳遞參數(shù) 可通過(guò)窗體屬性傳遞，比如使用 屬性傳遞參數(shù)。常用的幾種參數(shù)傳遞方法有如下幾種。如圖 45 所示顯示了具有兩個(gè)根節(jié)點(diǎn)的樹(shù)，其中第 1 個(gè)根節(jié)點(diǎn)又有兩個(gè)子節(jié)點(diǎn)。 1. 引言 某醫(yī)藥公司為了能加強(qiáng)對(duì)藥品銷售的管理，提高藥品流通效率、使資金利用率更高，為了提高庫(kù)房人員管理進(jìn)銷 存數(shù)據(jù)的效率，計(jì)劃開(kāi)發(fā)醫(yī)藥進(jìn)銷存系統(tǒng)。 使用計(jì)算機(jī)對(duì)藥品的入庫(kù)、銷售、庫(kù)存數(shù)據(jù)進(jìn)行管理，具有手工管理所無(wú)法比擬的優(yōu)點(diǎn) ， 例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等，這些優(yōu)點(diǎn)能夠極大地提高藥品進(jìn)銷存管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理的重要條件。1 蘇 州 技 師 學(xué) 院 2021 屆畢業(yè)設(shè)計(jì)（論文） 蘇州星地 醫(yī)藥進(jìn)銷存管理系統(tǒng)的 開(kāi)發(fā)與實(shí)現(xiàn) 院 （系） 信息工程系 專 業(yè) 高級(jí)計(jì)算機(jī)網(wǎng)絡(luò)技術(shù) 班 級(jí) 信息 0707 班 姓 名 曹璐 指導(dǎo)教師 華康 起迄日期 3 月 1 日～ 6 月 10 日 2021 年 6 月 10 日 2 摘要 計(jì)算機(jī)管理信息系統(tǒng)是一項(xiàng)系統(tǒng)工程， 綜合了計(jì)算機(jī) 、網(wǎng)絡(luò)、數(shù)據(jù)庫(kù)、通訊技術(shù)，也包括了企業(yè)管理科學(xué)和眾多豐富實(shí)踐經(jīng)驗(yàn)的總結(jié)。通過(guò)建立的進(jìn)銷存管理系統(tǒng)可解決這些問(wèn)題。 可行性分析 可行性分析是上層進(jìn)行決策的重要依據(jù)，通過(guò)對(duì)需求分析的研究，對(duì)項(xiàng)目的可行性分析如下。 Tree View 控件由一些折疊的節(jié)點(diǎn)（ Node 對(duì)象）構(gòu)成，每個(gè)節(jié)點(diǎn)通常包括圖像、標(biāo)簽、 Key 屬性。 Image 和 selectedimage 設(shè)置顯示的圖標(biāo)和選中后的圖標(biāo) 在窗體間 傳遞參數(shù) 在實(shí)際的項(xiàng)目開(kāi)發(fā)中，常常需要在窗體間傳遞參數(shù)。 ? 增加 了窗體之間的耦合，修改窗體的代碼或移植窗體很不方便。 系統(tǒng)設(shè)計(jì) 通過(guò)前面的需求分析和可行性分析，對(duì)功能要求、性能要求有了大概的了解，下面就應(yīng)該確定系統(tǒng)的最終目標(biāo)及初步的功能結(jié)構(gòu)。 ? 提供豐富的查詢功能，可查詢制定藥品的庫(kù)存情；能按供應(yīng)商、業(yè)務(wù)員、倉(cāng)庫(kù)查詢進(jìn)貨情況；能按客戶、業(yè)務(wù)員、倉(cāng)庫(kù)查詢銷售情況。 項(xiàng)目 ER 圖 本系統(tǒng)包括的實(shí)體有 9 個(gè)，分別為：藥品、客戶、供應(yīng)商、業(yè)務(wù)員、倉(cāng)庫(kù)、進(jìn)貨訂單、銷售訂單、進(jìn)貨單和銷售單。 （ 1） jxc_type（藥品類別）表：用于保存藥品的類別信息，該表包括 5 個(gè)字段，分別用來(lái) 保存藥品類別的大類標(biāo)號(hào)、大類名稱、子類標(biāo)號(hào)、子類名稱等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_SMType] ( [SMT_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*類別編號(hào) */ [SMT_name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL, /*類別名稱 */ [SMT_memo] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL, /*名稱 */ ) ON [PRIMARY] （ 6） jxc_sales（業(yè)務(wù)員信息）表：用于保存業(yè)務(wù)員的各項(xiàng)信息，該表包括 8個(gè)字段，分別用來(lái)保存業(yè)務(wù)員編號(hào)、名、類別、電話、地址、身份證號(hào)等信息。在 MS SQL Server2021 中創(chuàng)建該表的 SQL 語(yǔ)句如下： CREATE TABLE [dbo] . [jxc_move] ( [mv_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*編號(hào) */ [mv_date] [smalldatetime] NULL, /*調(diào)倉(cāng)日期 */ 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)出倉(cāng)庫(kù)編號(hào) */ [st_id_i] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*調(diào)入倉(cāng)庫(kù)編號(hào) */ [_id] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL , /*藥品編號(hào) */ [_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ù)庫(kù) 上節(jié)列出了本系統(tǒng)中將要用的表及表的字段，下面介紹創(chuàng)建數(shù)據(jù)庫(kù)的方法。 （ 6） 接下來(lái)在該數(shù)據(jù)庫(kù)中創(chuàng)建本系統(tǒng)需要使用的 13 個(gè)工作表。在工具欄中單擊選擇“ StatusBar”按鈕，在主窗體中拖到鼠標(biāo)，可看到主窗體地步增加了一個(gè)狀態(tài)欄。X） mnuExit Ctrl+X 基礎(chǔ)數(shù)據(jù)（ amp。T） mnuStore Ctrl+T 進(jìn)貨管理（ amp。M） mnuMove Ctrl+F5 庫(kù)存信息（ amp。C） mnuOUTCust 22 按倉(cāng)庫(kù)查詢（ amp。添加用戶 13. 39。顯示“倉(cāng)庫(kù)”窗體 24. End Sub 25. Private Sub mnuINOrders_Click() 39。 _ 34. in_arr,in_rate,in_memo FROM jxc_in WHERE in_memo1 IS NULL 35. 39。顯示“進(jìn)貨信息 —— 按供應(yīng)商查詢”窗體 49. End Sub 50. Private Sub mnuOUTCust_Click() 39。顯示“客戶”窗體 62. End Sub 63. Private Sub mnuModifypwd_Click() 39。禁止窗體中的“確定”按鈕 74. = 退出 39。設(shè)置窗體參數(shù) 85. 39。 ? 第 714 行為卸載窗體事件代碼，將主窗體的坐標(biāo)位置和窗體大小保存到注冊(cè)表中。數(shù)據(jù)庫(kù)連接 4 Sub Main() 25 5 Dim fLogin As New frmLogin 39。顯示主窗體 14 End Sub 15 Public Function GenNo() As String 39。關(guān)鍵 New 用于創(chuàng)建新對(duì)象 n 26 With n 27 .Provider = sqloledb 28 .ConnectionString = data source=st65\sqlexpress。 38 請(qǐng)檢查配置是否完好，醫(yī)藥進(jìn)銷存數(shù)據(jù)庫(kù)是否存在？ , vbOKOnly + vbInformation, 醫(yī)藥進(jìn)銷存 管理系統(tǒng) 39 End 40 End If 41 End Sub 26 ? 第 13 行定義全局變量，用來(lái)引用主窗體、保存當(dāng)前登錄用戶、保存數(shù)據(jù)庫(kù)連接對(duì)象。 藥品類別 “藥品類別”窗體有兩個(gè)用途：一個(gè)用途是用來(lái)管理藥品類