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

1、數(shù)據(jù)庫原理及應用實驗報告（2015 2016學年 第 1學期）題 目： 倉庫管理系統(tǒng)的設(shè)計_專 業(yè)： 計算機科學與技術(shù)（嵌入式）班 級： 13計算機（2）班_ 姓名學號： 何雨虹 1307012214 _ 黃成旺 1307012216 _ 林國鳳 1307012222 _ 莊海隆 1307012249 _指導教師： 柳玲 成 績：_ 計算機科學與技術(shù)系 2016年 1月7日目錄一、需求分析31.1系統(tǒng)需求分析31.2系統(tǒng)功能基本要求和功能描述3基本信息管理3產(chǎn)品信息管理3倉庫管理操作3倉庫警示管理3查詢管理功能31.3系統(tǒng)功能模型41.4數(shù)據(jù)分析4數(shù)據(jù)流圖4數(shù)據(jù)字典5二、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計6三

2、、數(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è)置庫存的初始值，庫存的

3、上下警戒限； 可以進行盤庫，反映每月、年的庫存情況； 可以查詢產(chǎn)品入庫情況、出庫情況、當前庫存情況，可以按出庫單、入庫單，產(chǎn)品、時間進行查詢；1.2 系統(tǒng)功能基本要求和功能描述 基本信息管理基本信息包括客戶信息、倉庫信息和操作員信息?？蛻艨梢苑譃楣毯唾徹浬虄煞N類型。在產(chǎn)品入庫時，需要提供供應商的信息；在產(chǎn)品出庫和退貨時，需要提供購貨商的信息。基本信息管理模塊可以實現(xiàn)以下功能： 添加、修改、刪除和查看客戶信息； 添加、修改、刪除和查看倉庫信息； 添加、修改、刪除和查看操作員信息。1.2.2 產(chǎn)品信息管理產(chǎn)品信息管理模塊可以實現(xiàn)以下功能： 添加產(chǎn)品信息； 修改產(chǎn)品信息； 刪除產(chǎn)品信息； 查詢產(chǎn)

4、品信息； 倉庫管理操作進行入庫和出庫操作。入庫操作需要記錄相關(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)基本信息管理操作員登陸產(chǎn)品信息管理倉庫警示管理倉庫管理操作客戶信息管理查詢產(chǎn)品信息入庫操作管路修改產(chǎn)品信息刪除產(chǎn)品信息添加產(chǎn)品信息倉庫信息管理出庫操作

5、管理查詢倉庫信息圖1-1 倉庫管理系統(tǒng)功能模塊示意圖查詢管理操作操作員信息管理查詢產(chǎn)品信息查詢客戶信息填寫入庫單修改客戶信息添加客戶信息填寫出庫單刪除客戶信息產(chǎn)品數(shù)量報警倉庫容量報警查詢客戶信息1.4 數(shù)據(jù)分析 數(shù)據(jù)流圖通過進行系統(tǒng)調(diào)查,了解用戶需求、分析應用軟件系統(tǒng)的功能需求。總結(jié)出了系統(tǒng)邏輯模型,即系統(tǒng)業(yè)務(wù)流程圖、數(shù)據(jù)流圖。如 圖1-2和圖1-3所示。倉庫管理系統(tǒng)產(chǎn)品操作員客戶倉庫入庫出庫查詢操作返回結(jié)果進貨出貨供貨購貨圖1-2 系統(tǒng)業(yè)務(wù)流程圖產(chǎn)品操作員注冊返回信息產(chǎn)品信息管理倉庫信息管理產(chǎn)品信息表入庫表P1P2D1D2基本信息管理P4管理返回信息D5倉庫信息D4操作員信息倉庫信息管理P3

6、查詢返回信息出庫表D3庫存表D3倉庫存儲返回信息入庫添加填表返回信息圖1-3 倉庫管理系統(tǒng)數(shù)據(jù)流圖 數(shù)據(jù)字典 名字：產(chǎn)品別名： 描述：唯一的標識一個產(chǎn)品的信息集合定義：產(chǎn)品=產(chǎn)品號+產(chǎn)品名+供應商號+類別+產(chǎn)品單價+產(chǎn)品數(shù)量位置：存儲在數(shù)據(jù)庫名字：倉庫別名： 描述：唯一的標識一個倉庫的信息集合定義：倉庫=倉庫號+倉庫名+剩余容量+總?cè)萘课恢茫捍鎯υ跀?shù)據(jù)庫名字：客戶別名： 描述：唯一的標識一個客戶特征的信息集合定義：客戶=客戶號+客戶名+地址+電話 +客戶類型位置：存儲在數(shù)據(jù)庫名字：操作員別名： 描述：唯一的標識一個職工特征的信息集合定義：操作員=操作員號+操作員名+密碼位置：存儲在數(shù)據(jù)庫名字：

7、庫存表別名： 描述：倉庫存儲物資的情況定義：庫存表=倉庫號+產(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)品單價產(chǎn)品數(shù)量產(chǎn)品號圖2-1產(chǎn)品及其屬性庫存表倉庫號產(chǎn)品號產(chǎn)品總數(shù)量圖2-2庫存表及其屬性入庫表倉庫號產(chǎn)品號入庫時間數(shù)量圖2-3入庫表及

8、其屬性出庫表倉庫號產(chǎn)品號出庫時間數(shù)量圖2-4出庫表及其屬性倉庫倉庫號倉庫名剩余容量總?cè)萘繄D2-5倉庫及其屬性客戶客戶號客戶名客戶類型聯(lián)系地址聯(lián)系電話郵政編號客戶備注圖2-6客戶及其屬性操作員操作員編號操作員名密碼圖2-7操作員及其屬性產(chǎn)品供應商入庫表倉庫操作員購貨商出庫表管理提供取出存儲返回庫存表圖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.

9、 客戶信息表“客戶”客戶信息表“客戶”主要是用來保存客戶信息，表“客戶”結(jié)構(gòu)如圖表2-1所示。 表2-1 客戶信息表“客戶”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1客戶號Int客戶編號2客戶名varchar(50)客戶名稱3客戶類型tinyint客戶類型，供應商、購貨商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倉庫名

10、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)品的每單位

11、價格5客戶號int供應商編號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出庫單價Varc

12、har(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ù)表具體存放的格式、位置等。這里列出利用SQL Server2000 自

13、帶的數(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. “操作員

14、”表的物理結(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)運用SQL Server 2000進行數(shù)據(jù)庫的開發(fā)。1.數(shù)據(jù)庫建表語句 名稱: 客戶表“客戶” 標識：客戶建表語句如下： create table 客戶 ( 客戶號 int not null, 客戶名 varchar(50) null, 客戶類型 tinyint null, 聯(lián)系地址 varchar(50) null, 郵政編號 varchar(10) nu

15、ll, 聯(lián)系電話 varchar(30) null, 備注 varchar(100) null, constraint PK_客戶 primary key (客戶號)go(2) 名稱: 產(chǎn)品表“產(chǎn)品” 標識：產(chǎn)品號建表語句如下: create table 產(chǎn)品 ( 產(chǎn)品號 int not null, 產(chǎn)品名 varchar(50) null, 產(chǎn)品數(shù)量 int null, 產(chǎn)品單價 varchar(20) null, 客戶號 int null, constraint PK_產(chǎn)品 primary key (產(chǎn)品號)go(3) 名稱：倉庫表“倉庫” 標識：倉庫號建表語句如下： create tab

16、le 倉庫 ( 倉庫號 int not null, 倉庫名 varchar(50) null, 倉庫備注 varchar(100) null, constraint PK_倉庫 primary key (倉庫號)go(4) 名稱：“入庫表” 建表語句如下：create table 入庫表 ( 產(chǎn)品號 int null, 入庫單價 varchar(20) null, 入庫數(shù)量 int null, 客戶號 int null, 倉庫號 int null, 入庫時間 varchar(10) null)go(5) 名稱：“出庫表” 建表語句如下：create table 出庫表 ( 產(chǎn)品號 int nu

17、ll, 出庫單價 varchar(20) null, 出庫數(shù)量 int null, 客戶號 int null, 倉庫號 int null, 出庫時間 varchar(10) null)go(6) 名稱：“庫存表” 建表語句如下：create table 庫存表 ( 產(chǎn)品號 int null, 入庫價格 varchar(20) null, 現(xiàn)存數(shù)量 int null, 倉庫號 int null)go(7) 名稱：“操作員”表 建表語句如下： create table 操作員 ( 操作員號 int not null, 操作員名 varchar(40) null, 密碼 varchar(40) nu

18、ll, constraint PK_操作員 primary key (操作員號)go2.數(shù)據(jù)庫建視圖語句(1) 名稱：“產(chǎn)品視圖'”建視圖語句如下：CREATE VIEW dbo.產(chǎn)品視圖ASSELECT dbo.產(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ù)量FROM dbo.產(chǎn)品 INNER JOIN dbo.庫存表 ON dbo.產(chǎn)品.產(chǎn)品號 = dbo.庫存表.產(chǎn)品號六、數(shù)據(jù)庫的運行根據(jù)以上所做的準備以及SQL Server 2000

19、建立好的表、試圖及各種關(guān)系，運用Visual Basic 6.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ù)需要點擊自己想使用的功能進入功能界面

20、。系統(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. 刪除界面 刪除界面用于刪除無用的、過時的信息。包括刪除客戶信息、刪除倉

21、庫信息、刪除產(chǎn)品信息。各界面如下列圖4-6所示。圖4-6-1 刪除客戶信息界面圖 4-6-2 刪除倉庫信息界面圖4-6-3 刪除產(chǎn)品信息界面參考文獻1 王珊,陳紅.數(shù)據(jù)庫系統(tǒng)原理教程M.北京：清華大學出版社,1998.7.2 王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論（第四版）M.北京：高等教育出版社,2006.5.3 虞益誠,孫莉.SQL Server 2000 數(shù)據(jù)庫應用技術(shù)M.北京：中國鐵道出版社,2004.11.4 劉鋼.Visual Basic 程序設(shè)計與應用案例M.北京：高等教育出版社,2003.9.5 Abraham Silberschatz, Henry F.Korth ,S.Sudarsh

22、an.Database System Concepts（Fourth Edition）. Higher Education Press.6 羅運模.完全掌握SQL Server 2000J.北京：人民郵電出版社，2001.7 白尚旺.PowerDesigner軟件工程技術(shù)M.北京：電子工業(yè)出版社，2004.附錄倉庫管理系統(tǒng)部分程序代碼1. 登陸代碼Private Sub Command1_Click()Dim cn As New ADODB.Connectioncn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security

23、=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim rs, rss As New ADODB.RecordsetSet rs = cn.Execute("select * from 操作員 where 操作員名='" & Text1.Text & "'")Set rss = cn.Execute("select * from 操作員 where 密碼='&q

24、uot; & Text2.Text & "'")If rs.EOF Then MsgBox "用戶名錯誤!" Text1.Text = "" Text1.SetFocus Else If rss.EOF Then MsgBox "密碼錯誤!" Text2.Text = "" Text2.SetFocus Else Me.Hide Form2.Show MsgBox (Text1.Text + ",歡迎您使用冰舞奇跡倉庫管理系統(tǒng)") End IfEnd

25、IfEnd Sub2. 添加客戶信息代碼Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6, a7 As Stringa

26、1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Texta7 = Combo1.Textsql = "insert into 客戶 values('" & a1 & "','" & a2 & "','" & a7 & "','" & a3 & "','

27、" & a4 & "','" & a5 & "','" & a6 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加客戶信息"End Sub3. 根據(jù)客戶號查看、刪除客戶代碼Private Sub Command1_Click()Dim kehuhao As Stringkehuhao = Text8.TextAdodc1.Recordset.Find "客戶號="

28、& Val(kehuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringkehuhao = Text8.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn

29、.Opensql = "delete from 客戶 where 客戶號='" & kehuhao & "'"cn.Execute (sql)MsgBox "已刪除編號為" & kehuhao & "的客戶信息"End Sub4. 查看客戶信息代碼Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.Conne

30、ctionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenIf Combo1.Text = "供應商" Thenrs.Open "select * from 客戶 where 客戶類型='供應商'", cn, adOpenKeyset, adLockBatchOptimistic, adC

31、mdTextSet DataGrid1.DataSource = rsDataGrid1.Refresh Else If Combo1.Text = "購貨商" Then rs.Open "select * from 客戶 where 客戶類型='購貨商'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.Refresh Else rs.Open "select * from 客戶", c

32、n, adOpenKeyset, adLockBatchOptimistic, adCmdText Set DataGrid1.DataSource = rsDataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist

33、Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 客戶 where 客戶號='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command

34、3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 客戶 where 客戶名='"

35、; & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub5. 查詢倉庫信息Dim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Dat

36、a Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 倉庫 where 倉庫號='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs

37、As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 倉庫 where 倉庫名='" & Text2.Text & "'", cn

38、, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub6. 添加倉庫信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalo

39、g=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 倉庫 values('" & a1 & "','" & a2 & "','" & a3 & "')"cn.Execute (sql)cn.CloseM

40、sgBox "已添加倉庫信息"End Sub7. 查看刪除倉庫信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = Text1.TextAdodc1.Recordset.Find "產(chǎn)品號=" & Val(cangkuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim cangkuhao As Stringcangkuhao = Text1.Te

41、xtcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 倉庫 where 倉庫號='" & cangkuhao & "'"cn.Execute (sql)MsgBox "已刪除編號為" &

42、; cangkuhao & "的倉庫信息"End Sub8. 添加操作員信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a

43、2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 操作員 values('" & a1 & "','" & a2 & "','" & a3 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加操作員信息"End Sub9. 查看刪除操作員信息Private Sub

44、Command3_Click()Dim caozuoyuanhao As Stringcaozuoyuanhao = Text1.TextAdodc1.Recordset.Find "操作員號=" & Val(caozuoyuanhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringcaozuoyuanhao = Text1.Textcn.ConnectionString = "Provider=S

45、QLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 操作員 where 操作員號='" & caozuoyuanhao & "'"cn.Execute (sql)MsgBox "已刪除編號為" & caozuoyuanhao & "的操作員信息

46、"End Sub10. 添加產(chǎn)品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5 As Stringa1 = T

47、ext1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Textsql = "insert into 產(chǎn)品 values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "')&q

48、uot;cn.Execute (sql)cn.CloseMsgBox "已添加產(chǎn)品信息"End Sub11. 查看刪除產(chǎn)品信息Private Sub Command3_Click()Dim chanpinhao As Stringchanpinhao = Text1.TextAdodc1.Recordset.Find "產(chǎn)品號=" & Val(chanpinhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuha

49、o As Stringchanpinhao = Text1.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 產(chǎn)品 where 產(chǎn)品號='" & chanpinhao & "'"cn.Execute (s

50、ql)MsgBox "已刪除編號為" & chanpinhao & "的產(chǎn)品信息"End Sub12. 查詢產(chǎn)品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial C

51、atalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 產(chǎn)品 where 倉庫號='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.

52、ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 產(chǎn)品 where 產(chǎn)品號='" & Text2.Text & &quo

53、t;'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persi

54、st Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 產(chǎn)品 where 客戶號='" & Text3.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub13. 填寫入庫表Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6