倉庫管理系統(tǒng)的設(shè)計

倉庫管理系統(tǒng)的設(shè)計PAGEPAGE33《數(shù)據(jù)庫原理及應(yīng)用》實驗報告（2015—2016學(xué)年第1學(xué)期）題目：倉庫管理系統(tǒng)的設(shè)計______專業(yè)：計算機科學(xué)與技術(shù)（嵌入式）班級：13計算機（2）班______姓名學(xué)號：何雨虹1307012214_____黃成旺1307012216___林國鳳1307012222_____莊海隆1307012249___指導(dǎo)教師：柳玲成績：___________________________計算機科學(xué)與技術(shù)系2016 年 1 月 7 日目錄一、需求分析 31.1系統(tǒng)需求分析 錯誤!未定義書簽。1.2系統(tǒng)功能基本要求和功能描述 錯誤!未定義書簽。1.2.1基本信息管理 錯誤!未定義書簽。1.2.2產(chǎn)品信息管理 錯誤!未定義書簽。1.2.3倉庫管理操作 錯誤!未定義書簽。1.2.4倉庫警示管理 錯誤!未定義書簽。1.2.5查詢管理功能 錯誤!未定義書簽。1.3系統(tǒng)功能模型 41.4數(shù)據(jù)分析 41.4.1數(shù)據(jù)流圖 41.4.2數(shù)據(jù)字典 5二、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 6三、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 10四、數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計 12五、數(shù)據(jù)庫的實施 15六、數(shù)據(jù)庫的運行 17參考文獻 25附錄1倉庫管理系統(tǒng)部分程序代碼 25倉庫管理系統(tǒng)的設(shè)計需求分析1.1系統(tǒng)需求分析倉庫管理系統(tǒng)主要用于倉庫貨品信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫和一些統(tǒng)計查詢等幾部分組成。倉庫管理系統(tǒng)實現(xiàn)對貨品信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和操作員信息的查看及維護。倉庫管理人員可以瀏覽、查詢、添加、刪除等產(chǎn)品的基本信息。⑴產(chǎn)品入庫管理，可以填寫入庫單，確認產(chǎn)品入庫；⑵產(chǎn)品出庫管理，可以填寫出庫單，確認產(chǎn)品出庫；⑶借出管理，憑借條借出，然后能夠還庫；⑷初始庫存設(shè)置，設(shè)置庫存的初始值，庫存的上下警戒限；⑸可以進行盤庫，反映每月、年的庫存情況；⑹可以查詢產(chǎn)品入庫情況、出庫情況、當(dāng)前庫存情況，可以按出庫單、入庫單，產(chǎn)品、時間進行查詢；1.2系統(tǒng)功能基本要求和功能描述1.2.1基本信息管理基本信息包括客戶信息、倉庫信息和操作員信息。客戶可以分為供應(yīng)商和購貨商兩種類型。在產(chǎn)品入庫時，需要提供供應(yīng)商的信息；在產(chǎn)品出庫和退貨時，需要提供購貨商的信息?；拘畔⒐芾砟K可以實現(xiàn)以下功能：⑴添加、修改、刪除和查看客戶信息；⑵添加、修改、刪除和查看倉庫信息；⑶添加、修改、刪除和查看操作員信息。1.2.2產(chǎn)品信息管理模塊可以實現(xiàn)以下功能：⑴添加產(chǎn)品信息；⑵修改產(chǎn)品信息；⑶刪除產(chǎn)品信息；⑷查詢產(chǎn)品信息；1.2.3倉庫管理操作進行入庫和出庫操作。入庫操作需要記錄相關(guān)的產(chǎn)品信息、倉庫信息、客戶信息、入庫時間等信息；出庫操作需要記錄相關(guān)的產(chǎn)品信息、倉庫信息、客戶信息、出庫時間等信息。1.2.4倉庫警示管理倉庫警示管理模塊可以實現(xiàn)倉庫產(chǎn)品數(shù)量報警和倉庫容量報警。1.2.5查詢管理功能查詢管理模塊可以對倉庫產(chǎn)品進行各種類型的查詢，從而能夠全面的了解倉庫情況。1.3系統(tǒng)功能模型根據(jù)以上所介紹的功能，可以設(shè)計出系統(tǒng)的總體功能模塊，如圖1-1所示。倉庫管理系統(tǒng)倉庫管理系統(tǒng)基本信息管理操作員登陸產(chǎn)品信息管理倉庫警示管理倉庫管理操作客戶信息管理查詢產(chǎn)品信息入庫操作管路修改產(chǎn)品信息刪除產(chǎn)品信息添加產(chǎn)品信息倉庫信息管理出庫操作管理查詢倉庫信息圖1-1倉庫管理系統(tǒng)功能模塊示意圖查詢管理操作操作員信息管理查詢產(chǎn)品信息查詢客戶信息填寫入庫單修改客戶信息添加客戶信息填寫出庫單刪除客戶信息產(chǎn)品數(shù)量報警倉庫容量報警查詢客戶信息1.4數(shù)據(jù)分析1.4.1數(shù)據(jù)流圖通過進行系統(tǒng)調(diào)查,了解用戶需求、分析應(yīng)用軟件系統(tǒng)的功能需求?？偨Y(jié)出了系統(tǒng)邏輯模型,即系統(tǒng)業(yè)務(wù)流程圖、數(shù)據(jù)流圖。如圖1-2和圖1-3所示。倉庫管理系統(tǒng)倉庫管理系統(tǒng)產(chǎn)品操作員客戶倉庫入庫出庫查詢操作返回結(jié)果進貨出貨供貨購貨圖1-2系統(tǒng)業(yè)務(wù)流程圖產(chǎn)品產(chǎn)品操作員注冊返回信息產(chǎn)品信息管理倉庫信息管理產(chǎn)品信息表入庫表P1P2D1D2基本信息管理P4管理返回信息D5倉庫信息D4操作員信息倉庫信息管理P3查詢返回信息出庫表D3庫存表D3倉庫存儲返回信息入庫添加填表返回信息圖1-3倉庫管理系統(tǒng)數(shù)據(jù)流圖1.4.2數(shù)據(jù)字典名字：產(chǎn)品別名：名字：產(chǎn)品別名：描述：唯一的標識一個產(chǎn)品的信息集合定義：產(chǎn)品=產(chǎn)品號+產(chǎn)品名+供應(yīng)商號+類別+產(chǎn)品單價+產(chǎn)品數(shù)量位置：存儲在數(shù)據(jù)庫名字：倉庫別名：描述：唯一的標識一個倉庫的信息集合定義：倉庫=倉庫號+倉庫名+剩余容量+總?cè)萘课恢茫捍鎯υ跀?shù)據(jù)庫名字：客戶別名：描述：唯一的標識一個客戶特征的信息集合定義：客戶=客戶號+客戶名+地址+電話+客戶類型位置：存儲在數(shù)據(jù)庫名字：操作員別名：描述：唯一的標識一個職工特征的信息集合定義：操作員=操作員號+操作員名+密碼位置：存儲在數(shù)據(jù)庫名字：庫存表別名：描述：倉庫存儲物資的情況定義：庫存表=倉庫號+產(chǎn)品號+產(chǎn)品總數(shù)量位置：存儲在數(shù)據(jù)庫名字：入庫表別名：描述：物資的入庫信息定義：入庫表=產(chǎn)品號+倉庫號+入庫時間+數(shù)量位置：存儲在數(shù)據(jù)庫名字：出庫表別名：描述：物資的出庫信息定義：出庫表=產(chǎn)品號+倉庫號+出庫時間+數(shù)量位置：存儲在數(shù)據(jù)庫二、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計經(jīng)考察和分析,本案例客房管理系統(tǒng)包括以下實體：客戶實體、客房實體、操作員實體、結(jié)算賬單實體,它們的E-R圖如以下所示。產(chǎn)品產(chǎn)品產(chǎn)品名供應(yīng)商號產(chǎn)品單價產(chǎn)品數(shù)量產(chǎn)品號圖2-1產(chǎn)品及其屬性庫存表庫存表倉庫號產(chǎn)品號產(chǎn)品總數(shù)量圖2-2庫存表及其屬性入庫表入庫表倉庫號產(chǎn)品號入庫時間數(shù)量圖2-3入庫表及其屬性出庫表出庫表倉庫號產(chǎn)品號出庫時間數(shù)量圖2-4出庫表及其屬性倉庫倉庫倉庫號倉庫名剩余容量總?cè)萘繄D2-5倉庫及其屬性客戶客戶客戶號客戶名客戶類型聯(lián)系地址聯(lián)系電話郵政編號客戶備注圖2-6客戶及其屬性操作員操作員操作員編號操作員名密碼圖2-7操作員及其屬性產(chǎn)品產(chǎn)品供應(yīng)商入庫表倉庫操作員購貨商出庫表管理提供取出存儲返回庫存表圖2-8倉庫管理系統(tǒng)E-R圖n11mn1nn1n三、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計根據(jù)E-R圖，數(shù)據(jù)庫倉庫管理系統(tǒng)包含以下8個表：客戶信息表“客戶”、倉庫信息表“倉庫”、操作員信息表“操作員”、產(chǎn)品類別表“產(chǎn)品類別”、產(chǎn)品信息表“產(chǎn)品”、入庫操作信息表“入庫”、出庫操作信息表“出庫”和庫存產(chǎn)品信息表“庫存”。1.客戶信息表“客戶”客戶信息表“客戶”主要是用來保存客戶信息，表“客戶”結(jié)構(gòu)如圖表2-1所示。表2-1客戶信息表“客戶”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1客戶號Int客戶編號2客戶名varchar(50)客戶名稱3客戶類型tinyint客戶類型，供應(yīng)商、購貨商4聯(lián)系地址varchar(50)客戶的聯(lián)系地址5郵政編號varchar(10)郵政編碼6聯(lián)系電話varchar(30)聯(lián)系電話7備注varchar(100)備注信息2.倉庫信息表“倉庫”倉庫信息表“倉庫”用來保存?zhèn)}庫信息，表“倉庫”的結(jié)構(gòu)如表2-2所示。表2-2倉庫信息表“倉庫”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1倉庫號int倉庫編號2倉庫名varchar(50)倉庫名稱3倉庫備注varchar(100)倉庫說明3.操作員表“操作員”操作員表“操作員”用來保存用戶信息，表“操作員”的結(jié)構(gòu)如表2-3表示。表2-3操作員信息表“操作員”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1操作員號Int操作員的編號2操作員名varchar(40)用戶名3密碼varchar(40)密碼4.產(chǎn)品信息表“產(chǎn)品”產(chǎn)品信息表“產(chǎn)品”用來保存產(chǎn)品的基本信息，表“產(chǎn)品”的結(jié)構(gòu)如表2-5表示。表2-5產(chǎn)品信息表“產(chǎn)品”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1產(chǎn)品號int產(chǎn)品編號2產(chǎn)品名varchar(50)產(chǎn)品名稱3產(chǎn)品數(shù)量int產(chǎn)品的數(shù)量4產(chǎn)品單價Varchar(20)產(chǎn)品的每單位價格5客戶號int供應(yīng)商編號5.入庫操作信息表“入庫表”入庫操作信息表“入庫表”用來保存入庫操作的基本信息，表“入庫表”的結(jié)構(gòu)如表2-6表示。表2-6入庫操作信息表“入庫表”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1產(chǎn)品號int入庫產(chǎn)品編號2入庫單價Varchar(20)入庫產(chǎn)品單價3入庫數(shù)量int入庫產(chǎn)品數(shù)量4客戶號int客戶編號5倉庫號int倉庫編號6入庫時間char(10)入庫日期6.出庫操作信息表“出庫表”出庫操作信息表“出庫表”用來保存出庫操作的基本信息。表“出庫表”的結(jié)構(gòu)如表2-7表示。表2-7出庫操作信息表“出庫表”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1產(chǎn)品號int出庫產(chǎn)品編號2出庫單價Varchar(20)出庫產(chǎn)品單價3出庫數(shù)量int出庫產(chǎn)品數(shù)量4客戶號int客戶編號5倉庫號int倉庫編號6出庫時間char(20)出庫日期7.庫存產(chǎn)品信息表“庫存表”庫存產(chǎn)品信息表“庫存表”用來保存庫存產(chǎn)品的基本信息，表“庫存表”的結(jié)構(gòu)如表2-8表示。表2-8庫存產(chǎn)品信息表“庫存”e編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1產(chǎn)品號int產(chǎn)品編號2入庫價格Varchar(20)產(chǎn)品入庫單價3現(xiàn)存數(shù)量Int產(chǎn)品數(shù)量4倉庫號Int倉庫編號四、數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計在進行了數(shù)據(jù)表的邏輯結(jié)構(gòu)定義后,需要為每個數(shù)據(jù)表創(chuàng)建其物理結(jié)構(gòu),即在數(shù)據(jù)庫系統(tǒng)中定義數(shù)據(jù)表具體存放的格式、位置等。這里列出利用SQLServer2000自帶的數(shù)據(jù)庫創(chuàng)建的數(shù)據(jù)表的物理結(jié)構(gòu)。1.“客戶”表的物理結(jié)構(gòu)“客戶”表的物理結(jié)構(gòu)如圖4-1所示,關(guān)鍵字為”客戶號”。圖4-1“客戶”表2.“產(chǎn)品”表的物理結(jié)構(gòu)“產(chǎn)品”表的物理結(jié)構(gòu)如圖4-2所示,關(guān)鍵字為”產(chǎn)品號”。圖4-2“產(chǎn)品”表3.“倉庫”表的物理結(jié)構(gòu)“倉庫”表的物理結(jié)構(gòu)如圖4-3所示,關(guān)鍵字為”倉庫號”。圖4-3“倉庫”表4.“庫存表”的物理結(jié)構(gòu)“庫存表”的物理結(jié)構(gòu)如圖4-4所示。圖4-4“庫存表”5.“入庫表”的物理結(jié)構(gòu)“入庫表”的物理結(jié)構(gòu)如圖4-5所示。圖4-5“入庫表”6.“出庫表”的物理結(jié)構(gòu)“出庫表”的物理結(jié)構(gòu)如圖4-6所示。圖4-6“出庫表”7.“操作員”表的物理結(jié)構(gòu)“操作員”表的物理結(jié)構(gòu)如圖4-7所示。圖4-7“操作員”表8.“產(chǎn)品視圖”的物理結(jié)構(gòu)“產(chǎn)品視圖”的物理結(jié)構(gòu)如圖4-8所示。圖4-8“產(chǎn)品視圖”五、數(shù)據(jù)庫的實施根據(jù)以上所進行的調(diào)查、設(shè)計和進行方案,建立并實施數(shù)據(jù)庫。此系統(tǒng)運用SQLServer2000進行數(shù)據(jù)庫的開發(fā)。1.數(shù)據(jù)庫建表語句⑴名稱:客戶表“客戶”標識：客戶建表語句如下：createtable客戶(客戶號intnotnull,客戶名varchar(50)null,客戶類型tinyintnull,聯(lián)系地址varchar(50)null,郵政編號varchar(10)null,聯(lián)系電話varchar(30)null,備注varchar(100)null,constraintPK_客戶primarykey(客戶號))go(2)名稱:產(chǎn)品表“產(chǎn)品”標識：產(chǎn)品號建表語句如下:createtable產(chǎn)品(產(chǎn)品號intnotnull,產(chǎn)品名varchar(50)null,產(chǎn)品數(shù)量intnull,產(chǎn)品單價varchar(20)null,客戶號intnull,constraintPK_產(chǎn)品primarykey(產(chǎn)品號))go(3)名稱：倉庫表“倉庫”標識：倉庫號建表語句如下：createtable倉庫(倉庫號intnotnull,倉庫名varchar(50)null,倉庫備注varchar(100)null,constraintPK_倉庫primarykey(倉庫號))go(4)名稱：“入庫表”建表語句如下：createtable入庫表(產(chǎn)品號intnull,入庫單價varchar(20)null,入庫數(shù)量intnull,客戶號intnull,倉庫號intnull,入庫時間varchar(10)null)go(5)名稱：“出庫表”建表語句如下：createtable出庫表(產(chǎn)品號intnull,出庫單價varchar(20)null,出庫數(shù)量intnull,客戶號intnull,倉庫號intnull,出庫時間varchar(10)null)go(6)名稱：“庫存表”建表語句如下：createtable庫存表(產(chǎn)品號intnull,入庫價格varchar(20)null,現(xiàn)存數(shù)量intnull,倉庫號intnull)go(7)名稱：“操作員”表建表語句如下：createtable操作員(操作員號intnotnull,操作員名varchar(40)null,密碼varchar(40)null,constraintPK_操作員primarykey(操作員號))go2.數(shù)據(jù)庫建視圖語句(1)名稱：“產(chǎn)品視圖'”建視圖語句如下：CREATEVIEWdbo.產(chǎn)品視圖ASSELECTdbo.產(chǎn)品.產(chǎn)品號,dbo.產(chǎn)品.產(chǎn)品名,dbo.產(chǎn)品.客戶號,dbo.庫存表.倉庫號,dbo.產(chǎn)品.產(chǎn)品數(shù)量,dbo.產(chǎn)品.產(chǎn)品單價,dbo.庫存表.入庫價格,dbo.庫存表.現(xiàn)存數(shù)量FROMdbo.產(chǎn)品INNERJOINdbo.庫存表ONdbo.產(chǎn)品.產(chǎn)品號=dbo.庫存表.產(chǎn)品號六、數(shù)據(jù)庫的運行根據(jù)以上所做的準備以及SQLServer2000建立好的表、試圖及各種關(guān)系，運用VisualBasic6.0為前臺開發(fā)工具，開發(fā)出客戶管理系統(tǒng)，主要運用了ADODC控件和DataGrid控件。1.系統(tǒng)登陸界填入用戶名和密碼后點擊【登錄】按鈕,系統(tǒng)將自動從數(shù)據(jù)庫中判斷是否存在相同的用戶名和密碼,如果有則進入系統(tǒng),進入系統(tǒng)的主頁面并出現(xiàn)歡迎使用系統(tǒng)的對話框,不成功則顯示錯誤信息頁面。如果不存在則提示用戶名和密碼有錯誤信息。系統(tǒng)登陸界面如圖6-1所示圖6-1系統(tǒng)登陸界面2.系統(tǒng)主界面主界面包括系統(tǒng)的主要功能包括新建客戶信息、客房信息查詢、客戶信息查詢、結(jié)算信息賬單，四個主要的功能。用戶可以根據(jù)需要點擊自己想使用的功能進入功能界面。系統(tǒng)主界面如圖6-2所示。圖6-2系統(tǒng)主界面3.管理界面圖6-3各信息管理界面4.添加界面用于添加新的信息，有添加客戶信息、添加倉庫信息、添加產(chǎn)品信息、添加操作員信息，各個添加界面如圖4-4所示。圖4-4-a添加客戶信息界面圖4-4-b添加倉庫信息界面圖4-4-c添加產(chǎn)品信息界面5.查詢界面用于查詢各種信息，有客戶信息查詢、倉庫信息查詢、產(chǎn)品信息查詢、操作員信息查詢。各個查詢界面如圖4-5所示。圖4-5-1倉庫信息查詢圖4-5-2產(chǎn)品信息查詢圖4-5-3入庫表信息查詢圖4-5-4客戶信息查詢6.刪除界面刪除界面用于刪除無用的、過時的信息。包括刪除客戶信息、刪除倉庫信息、刪除產(chǎn)品信息。各界面如下列圖4-6所示。圖4-6-1刪除客戶信息界面圖4-6-2圖4-6-3刪除產(chǎn)品信息界面參考文獻[1]王珊,陳紅.數(shù)據(jù)庫系統(tǒng)原理教程[M].北京：清華大學(xué)出版社,1998.7.[2]王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論（第四版）[M].北京：高等教育出版社,2006.5.[3]虞益誠,孫莉.SQLServer2000數(shù)據(jù)庫應(yīng)用技術(shù)[M].北京：中國鐵道出版社,2004.11.[4]劉鋼.VisualBasic程序設(shè)計與應(yīng)用案例[M].北京：高等教育出版社,2003.9.[5]AbrahamSilberschatz,HenryF.Korth,S.Sudarshan.DatabaseSystemConcepts（FourthEdition）.HigherEducationPress.[6]羅運模.完全掌握SQLServer2000[J].北京：人民郵電出版社，2001.[7]白尚旺.PowerDesigner軟件工程技術(shù)[M].北京：電子工業(yè)出版社，2004.附錄Ⅰ倉庫管理系統(tǒng)部分程序代碼登陸代碼PrivateSubCommand1_Click()DimcnAsNewADODB.Connectioncn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDimrs,rssAsNewADODB.RecordsetSetrs=cn.Execute("select*from操作員where操作員名='"&Text1.Text&"'")Setrss=cn.Execute("select*from操作員where密碼='"&Text2.Text&"'")Ifrs.EOFThenMsgBox"用戶名錯誤!"Text1.Text=""Text1.SetFocusElseIfrss.EOFThenMsgBox"密碼錯誤!"Text2.Text=""Text2.SetFocusElseMe.HideForm2.ShowMsgBox(Text1.Text+",歡迎您使用冰舞奇跡倉庫管理系統(tǒng)")EndIfEndIfEndSub添加客戶信息代碼PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3,a4,a5,a6,a7AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Texta4=Text4.Texta5=Text5.Texta6=Text6.Texta7=Combo1.Textsql="insertinto客戶values('"&a1&"','"&a2&"','"&a7&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"')"cn.Execute(sql)cn.CloseMsgBox"已添加客戶信息"EndSub根據(jù)客戶號查看、刪除客戶代碼PrivateSubCommand1_Click()DimkehuhaoAsStringkehuhao=Text8.TextAdodc1.Recordset.Find"客戶號="&Val(kehuhao)EndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringDimkehuhaoAsStringkehuhao=Text8.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Opensql="deletefrom客戶where客戶號='"&kehuhao&"'"cn.Execute(sql)MsgBox"已刪除編號為"&kehuhao&"的客戶信息"EndSub查看客戶信息代碼PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenIfCombo1.Text="供應(yīng)商"Thenrs.Open"select*from客戶where客戶類型='供應(yīng)商'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshElseIfCombo1.Text="購貨商"Thenrs.Open"select*from客戶where客戶類型='購貨商'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshElsers.Open"select*from客戶",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndIfEndIfEndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from客戶where客戶號='"&Text1.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand3_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from客戶where客戶名='"&Text2.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSub查詢倉庫信息DimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from倉庫where倉庫號='"&Text1.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from倉庫where倉庫名='"&Text2.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSub添加倉庫信息PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Textsql="insertinto倉庫values('"&a1&"','"&a2&"','"&a3&"')"cn.Execute(sql)cn.CloseMsgBox"已添加倉庫信息"EndSub查看刪除倉庫信息PrivateSubCommand1_Click()DimcangkuhaoAsStringcangkuhao=Text1.TextAdodc1.Recordset.Find"產(chǎn)品號="&Val(cangkuhao)EndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringDimcangkuhaoAsStringcangkuhao=Text1.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Opensql="deletefrom倉庫where倉庫號='"&cangkuhao&"'"cn.Execute(sql)MsgBox"已刪除編號為"&cangkuhao&"的倉庫信息"EndSub添加操作員信息PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Textsql="insertinto操作員values('"&a1&"','"&a2&"','"&a3&"')"cn.Execute(sql)cn.CloseMsgBox"已添加操作員信息"EndSub查看刪除操作員信息PrivateSubCommand3_Click()DimcaozuoyuanhaoAsStringcaozuoyuanhao=Text1.TextAdodc1.Recordset.Find"操作員號="&Val(caozuoyuanhao)EndSubPrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringDimkehuhaoAsStringcaozuoyuanhao=Text1.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Opensql="deletefrom操作員where操作員號='"&caozuoyuanhao&"'"cn.Execute(sql)MsgBox"已刪除編號為"&caozuoyuanhao&"的操作員信息"EndSub添加產(chǎn)品信息PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3,a4,a5AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Texta4=Text4.Texta5=Text5.Textsql="insertinto產(chǎn)品values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"')"cn.Execute(sql)cn.CloseMsgBox"已添加產(chǎn)品信息"EndSub查看刪除產(chǎn)品信息PrivateSubCommand3_Click()DimchanpinhaoAsStringchanpinhao=Text1.TextAdodc1.Recordset.Find"產(chǎn)品號="&Val(chanpinhao)EndSubPrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringDimkehuhaoAsStringchanpinhao=Text1.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Opensql="deletefrom產(chǎn)品where產(chǎn)品號='"&chanpinhao&"'"cn.Execute(sql)MsgBox"已刪除編號為"&chanpinhao&"的產(chǎn)品信息"EndSub查詢產(chǎn)品信息PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from產(chǎn)品where倉庫號='"&Text1.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from產(chǎn)品where產(chǎn)品號='"&Text2.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand3_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.Openrs.Open"select*from產(chǎn)品where客戶號='"&Text3.Text&"'",cn,adOpenKeyset,adLockBatchOptimistic,adCmdTextSetDataGrid1.DataSource=rsDataGrid1.RefreshEndSub填寫入庫表PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3,a4,a5,a6AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Texta4=Text4.Texta5=Text5.Texta6=Text6.Textsql="insertinto入庫表values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"')"cn.Execute(sql)cn.CloseMsgBox"已填寫入庫表信息"EndSub填寫出庫表PrivateSubCommand1_Click()DimcnAsNewADODB.ConnectionDimsqlAsStringcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=倉庫管理系統(tǒng);DataSource=WWW-4FDE9FFEC01"cn.OpenDima1,a2,a3,a4,a5,a6AsStringa1=Text1.Texta2=Text2.Texta3=Text3.Texta4=Text4.Texta5=Text5.Texta6=Text6.Textsql="insertinto出庫表values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"')"cn.Execute(sql)cn.CloseMsgBox"已填寫出庫表信息"EndSub入庫表信息查詢Private