倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)

1、倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)河北科技師范學(xué)院 數(shù)信學(xué)院網(wǎng)絡(luò)工程 一、 需求分析1.1系統(tǒng)需求分析倉(cāng)庫(kù)管理系統(tǒng)主要用于倉(cāng)庫(kù)貨品信息的管理，系統(tǒng)包括倉(cāng)庫(kù)管理、入庫(kù)、出庫(kù)和一些統(tǒng)計(jì)查詢等幾部分組成。倉(cāng)庫(kù)管理系統(tǒng)實(shí)現(xiàn)對(duì)貨品信息的管理和總體的統(tǒng)計(jì)等，倉(cāng)庫(kù)信息，供貨單位和操作員信息的查看及維護(hù)。倉(cāng)庫(kù)管理人員可以瀏覽、查詢、添加、刪除等產(chǎn)品的基本信息。 產(chǎn)品入庫(kù)管理，可以填寫(xiě)入庫(kù)單，確認(rèn)產(chǎn)品入庫(kù)； 產(chǎn)品出庫(kù)管理，可以填寫(xiě)出庫(kù)單，確認(rèn)產(chǎn)品出庫(kù)； 借出管理，憑借條借出，然后能夠還庫(kù)； 初始庫(kù)存設(shè)置，設(shè)置庫(kù)存的初始值，庫(kù)存的上下警戒限； 可以進(jìn)行盤(pán)庫(kù)，反映每月、年的庫(kù)存情況； 可以查詢產(chǎn)品入庫(kù)情況、出庫(kù)情況、當(dāng)前庫(kù)存情況，

2、可以按出庫(kù)單、入庫(kù)單，產(chǎn)品、時(shí)間進(jìn)行查詢；1.2 系統(tǒng)功能基本要求和功能描述 1.2.1 基本信息管理基本信息包括客戶信息、倉(cāng)庫(kù)信息和操作員信息。客戶可以分為供應(yīng)商和購(gòu)貨商兩種類(lèi)型。在產(chǎn)品入庫(kù)時(shí)，需要提供供應(yīng)商的信息；在產(chǎn)品出庫(kù)和退貨時(shí)，需要提供購(gòu)貨商的信息?；拘畔⒐芾砟K可以實(shí)現(xiàn)以下功能： 添加、修改、刪除和查看客戶信息； 添加、修改、刪除和查看倉(cāng)庫(kù)信息； 添加、修改、刪除和查看操作員信息。1.2.2 產(chǎn)品信息管理產(chǎn)品信息管理模塊可以實(shí)現(xiàn)以下功能： 添加產(chǎn)品信息； 修改產(chǎn)品信息； 刪除產(chǎn)品信息； 查詢產(chǎn)品信息；1.2.3 倉(cāng)庫(kù)管理操作進(jìn)行入庫(kù)和出庫(kù)操作。入庫(kù)操作需要記錄相關(guān)的產(chǎn)品信息、倉(cāng)庫(kù)

3、信息、客戶信息、入庫(kù)時(shí)間等信息；出庫(kù)操作需要記錄相關(guān)的產(chǎn)品信息、倉(cāng)庫(kù)信息、客戶信息、出庫(kù)時(shí)間等信息。1.2.4倉(cāng)庫(kù)警示管理倉(cāng)庫(kù)警示管理模塊可以實(shí)現(xiàn)倉(cāng)庫(kù)產(chǎn)品數(shù)量報(bào)警和倉(cāng)庫(kù)容量報(bào)警。1.2.5查詢管理功能查詢管理模塊可以對(duì)倉(cāng)庫(kù)產(chǎn)品進(jìn)行各種類(lèi)型的查詢，從而能夠全面的了解倉(cāng)庫(kù)情況。1.3系統(tǒng)功能模型根據(jù)以上所介紹的功能，可以設(shè)計(jì)出系統(tǒng)的總體功能模塊，如圖1-1所示。倉(cāng)庫(kù)管理系統(tǒng)基本信息管理操作員登陸產(chǎn)品信息管理倉(cāng)庫(kù)警示管理倉(cāng)庫(kù)管理操作客戶信息管理查詢產(chǎn)品信息入庫(kù)操作管路修改產(chǎn)品信息刪除產(chǎn)品信息添加產(chǎn)品信息倉(cāng)庫(kù)信息管理出庫(kù)操作管理查詢倉(cāng)庫(kù)信息圖1-1 倉(cāng)庫(kù)管理系統(tǒng)功能模塊示意圖查詢管理操作操作員信息管理

4、查詢產(chǎn)品信息查詢客戶信息填寫(xiě)入庫(kù)單修改客戶信息添加客戶信息填寫(xiě)出庫(kù)單刪除客戶信息產(chǎn)品數(shù)量報(bào)警倉(cāng)庫(kù)容量報(bào)警查詢客戶信息1.4 數(shù)據(jù)分析 1.4.1 數(shù)據(jù)流圖通過(guò)進(jìn)行系統(tǒng)調(diào)查,了解用戶需求、分析應(yīng)用軟件系統(tǒng)的功能需求?？偨Y(jié)出了系統(tǒng)邏輯模型,即系統(tǒng)業(yè)務(wù)流程圖、數(shù)據(jù)流圖。如圖1-2和圖1-3所示。倉(cāng)庫(kù)管理系統(tǒng)產(chǎn)品操作員客戶倉(cāng)庫(kù)入庫(kù)出庫(kù)查詢操作返回結(jié)果進(jìn)貨出貨供貨購(gòu)貨圖1-2 系統(tǒng)業(yè)務(wù)流程圖產(chǎn)品操作員注冊(cè)返回信息產(chǎn)品信息管理倉(cāng)庫(kù)信息管理產(chǎn)品信息表入庫(kù)表p1p2d1d2基本信息管理p4管理返回信息d5倉(cāng)庫(kù)信息d4操作員信息倉(cāng)庫(kù)信息管理p3查詢返回信息出庫(kù)表d3庫(kù)存表d3倉(cāng)庫(kù)存儲(chǔ)返回信息入庫(kù)添加填表返回信息

5、圖1-3 倉(cāng)庫(kù)管理系統(tǒng)數(shù)據(jù)流圖 1.4.2 數(shù)據(jù)字典名字：產(chǎn)品別名： 描述：唯一的標(biāo)識(shí)一個(gè)產(chǎn)品的信息集合定義：產(chǎn)品=產(chǎn)品號(hào)+產(chǎn)品名+供應(yīng)商號(hào)+類(lèi)別+產(chǎn)品單價(jià)+產(chǎn)品數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：倉(cāng)庫(kù)別名： 描述：唯一的標(biāo)識(shí)一個(gè)倉(cāng)庫(kù)的信息集合定義：倉(cāng)庫(kù)=倉(cāng)庫(kù)號(hào)+倉(cāng)庫(kù)名+剩余容量+總?cè)萘课恢茫捍鎯?chǔ)在數(shù)據(jù)庫(kù)名字：客戶別名： 描述：唯一的標(biāo)識(shí)一個(gè)客戶特征的信息集合定義：客戶=客戶號(hào)+客戶名+地址+電話 +客戶類(lèi)型位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：操作員別名： 描述：唯一的標(biāo)識(shí)一個(gè)職工特征的信息集合定義：操作員=操作員號(hào)+操作員名+密碼位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：庫(kù)存表別名： 描述：倉(cāng)庫(kù)存儲(chǔ)物資的情況定義：庫(kù)存表=倉(cāng)庫(kù)號(hào)

6、+產(chǎn)品號(hào)+產(chǎn)品總數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：入庫(kù)表別名： 描述：物資的入庫(kù)信息定義：入庫(kù)表=產(chǎn)品號(hào)+倉(cāng)庫(kù)號(hào)+入庫(kù)時(shí)間+數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：出庫(kù)表別名： 描述：物資的出庫(kù)信息定義：出庫(kù)表=產(chǎn)品號(hào)+倉(cāng)庫(kù)號(hào)+出庫(kù)時(shí)間+數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù) 二、數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 經(jīng)考察和分析,本案例客房管理系統(tǒng)包括以下實(shí)體：客戶實(shí)體、客房實(shí)體、操作員實(shí)體、結(jié)算賬單實(shí)體,它們的e-r圖如以下所示。 產(chǎn)品產(chǎn)品名供應(yīng)商號(hào)產(chǎn)品單價(jià)產(chǎn)品數(shù)量產(chǎn)品號(hào)圖2-1產(chǎn)品及其屬性庫(kù)存表倉(cāng)庫(kù)號(hào)產(chǎn)品號(hào)產(chǎn)品總數(shù)量圖2-2庫(kù)存表及其屬性入庫(kù)表倉(cāng)庫(kù)號(hào)產(chǎn)品號(hào)入庫(kù)時(shí)間數(shù)量圖2-3入庫(kù)表及其屬性出庫(kù)表倉(cāng)庫(kù)號(hào)產(chǎn)品號(hào)出庫(kù)時(shí)間數(shù)量圖2-4出庫(kù)表及其屬

7、性倉(cāng)庫(kù)倉(cāng)庫(kù)號(hào)倉(cāng)庫(kù)名剩余容量總?cè)萘繄D2-5倉(cāng)庫(kù)及其屬性客戶客戶號(hào)客戶名客戶類(lèi)型聯(lián)系地址聯(lián)系電話郵政編號(hào)客戶備注圖2-6客戶及其屬性操作員操作員編號(hào)操作員名密碼圖2-7操作員及其屬性產(chǎn)品供應(yīng)商入庫(kù)表倉(cāng)庫(kù)操作員購(gòu)貨商出庫(kù)表管理提供取出存儲(chǔ)返回庫(kù)存表圖2-8倉(cāng)庫(kù)管理系統(tǒng)e-r圖n11mn1nn1n三、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)e-r圖，數(shù)據(jù)庫(kù)倉(cāng)庫(kù)管理系統(tǒng)包含以下8個(gè)表：客戶信息表“客戶”、倉(cāng)庫(kù)信息表“倉(cāng)庫(kù)”、操作員信息表“操作員”、產(chǎn)品類(lèi)別表“產(chǎn)品類(lèi)別”、產(chǎn)品信息表“產(chǎn)品”、入庫(kù)操作信息表“入庫(kù)”、出庫(kù)操作信息表“出庫(kù)”和庫(kù)存產(chǎn)品信息表“庫(kù)存”。1. 客戶信息表“客戶”客戶信息表“客戶”主要是用來(lái)保存客戶

8、信息，表“客戶”結(jié)構(gòu)如圖表2-1所示。 表2-1 客戶信息表“客戶”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1客戶號(hào)int客戶編號(hào)2客戶名varchar(50)客戶名稱3客戶類(lèi)型tinyint客戶類(lèi)型，供應(yīng)商、購(gòu)貨商4聯(lián)系地址varchar(50)客戶的聯(lián)系地址5郵政編號(hào)varchar(10)郵政編碼6聯(lián)系電話varchar(30)聯(lián)系電話7備注varchar(100)備注信息 2. 倉(cāng)庫(kù)信息表“倉(cāng)庫(kù)”倉(cāng)庫(kù)信息表“倉(cāng)庫(kù)”用來(lái)保存?zhèn)}庫(kù)信息，表“倉(cāng)庫(kù)”的結(jié)構(gòu)如表2-2所示。表2-2 倉(cāng)庫(kù)信息表“倉(cāng)庫(kù)”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1倉(cāng)庫(kù)號(hào)int倉(cāng)庫(kù)編號(hào)2倉(cāng)庫(kù)名varchar(50)倉(cāng)庫(kù)名稱3倉(cāng)庫(kù)備注varchar(

9、100)倉(cāng)庫(kù)說(shuō)明3. 操作員表“操作員”操作員表“操作員”用來(lái)保存用戶信息，表“操作員”的結(jié)構(gòu)如表2-3表示。表2-3操作員信息表“操作員”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1操作員號(hào)int操作員的編號(hào)2操作員名varchar(40)用戶名3密碼varchar(40)密碼4. 產(chǎn)品信息表“產(chǎn)品”產(chǎn)品信息表“產(chǎn)品”用來(lái)保存產(chǎn)品的基本信息，表“產(chǎn)品”的結(jié)構(gòu)如表2-5表示。表2-5產(chǎn)品信息表“產(chǎn)品”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1產(chǎn)品號(hào)int產(chǎn)品編號(hào)2產(chǎn)品名varchar(50)產(chǎn)品名稱3產(chǎn)品數(shù)量int產(chǎn)品的數(shù)量4產(chǎn)品單價(jià)varchar(20)產(chǎn)品的每單位價(jià)格5客戶號(hào)int供應(yīng)商編號(hào)5. 入庫(kù)操作信息表“入庫(kù)表

10、”入庫(kù)操作信息表“入庫(kù)表”用來(lái)保存入庫(kù)操作的基本信息，表“入庫(kù)表”的結(jié)構(gòu)如表2-6表示。表2-6入庫(kù)操作信息表“入庫(kù)表”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1產(chǎn)品號(hào)int入庫(kù)產(chǎn)品編號(hào)2入庫(kù)單價(jià)varchar(20)入庫(kù)產(chǎn)品單價(jià)3入庫(kù)數(shù)量int入庫(kù)產(chǎn)品數(shù)量4客戶號(hào)int客戶編號(hào)5倉(cāng)庫(kù)號(hào)int倉(cāng)庫(kù)編號(hào)6入庫(kù)時(shí)間char(10)入庫(kù)日期6. 出庫(kù)操作信息表“出庫(kù)表”出庫(kù)操作信息表“出庫(kù)表”用來(lái)保存出庫(kù)操作的基本信息。表“出庫(kù)表”的結(jié)構(gòu)如表2-7表示。 表2-7 出庫(kù)操作信息表“出庫(kù)表”編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1產(chǎn)品號(hào)int出庫(kù)產(chǎn)品編號(hào)2出庫(kù)單價(jià)varchar(20)出庫(kù)產(chǎn)品單價(jià)3出庫(kù)數(shù)量int出庫(kù)產(chǎn)品數(shù)量4

11、客戶號(hào)int客戶編號(hào)5倉(cāng)庫(kù)號(hào)int倉(cāng)庫(kù)編號(hào)6出庫(kù)時(shí)間char(20)出庫(kù)日期7. 庫(kù)存產(chǎn)品信息表“庫(kù)存表”庫(kù)存產(chǎn)品信息表“庫(kù)存表”用來(lái)保存庫(kù)存產(chǎn)品的基本信息，表“庫(kù)存表”的結(jié)構(gòu)如表2-8表示。 表2-8庫(kù)存產(chǎn)品信息表“庫(kù)存”e編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明1產(chǎn)品號(hào)int產(chǎn)品編號(hào)2入庫(kù)價(jià)格varchar(20)產(chǎn)品入庫(kù)單價(jià)3現(xiàn)存數(shù)量int產(chǎn)品數(shù)量4倉(cāng)庫(kù)號(hào)int倉(cāng)庫(kù)編號(hào)四、數(shù)據(jù)庫(kù)物理結(jié)構(gòu)設(shè)計(jì)在進(jìn)行了數(shù)據(jù)表的邏輯結(jié)構(gòu)定義后,需要為每個(gè)數(shù)據(jù)表創(chuàng)建其物理結(jié)構(gòu),即在數(shù)據(jù)庫(kù)系統(tǒng)中定義數(shù)據(jù)表具體存放的格式、位置等。這里列出利用sql server2000 自帶的數(shù)據(jù)庫(kù)創(chuàng)建的數(shù)據(jù)表的物理結(jié)構(gòu)。1.“客戶”表的物理結(jié)

12、構(gòu)“客戶”表的物理結(jié)構(gòu)如圖4-1所示,關(guān)鍵字為”客戶號(hào)”。圖4-1 “客戶”表2. “產(chǎn)品”表的物理結(jié)構(gòu) “產(chǎn)品”表的物理結(jié)構(gòu)如圖4-2所示,關(guān)鍵字為”產(chǎn)品號(hào)”。圖4-2 “產(chǎn)品”表3. “倉(cāng)庫(kù)”表的物理結(jié)構(gòu)“倉(cāng)庫(kù)”表的物理結(jié)構(gòu)如圖4-3所示,關(guān)鍵字為”倉(cāng)庫(kù)號(hào)”。圖4-3 “倉(cāng)庫(kù)”表4. “庫(kù)存表”的物理結(jié)構(gòu) “庫(kù)存表”的物理結(jié)構(gòu)如圖4-4所示。圖4-4“庫(kù)存表”5. “入庫(kù)表”的物理結(jié)構(gòu) “入庫(kù)表”的物理結(jié)構(gòu)如圖4-5所示。圖4-5“入庫(kù)表”6. “出庫(kù)表”的物理結(jié)構(gòu) “出庫(kù)表”的物理結(jié)構(gòu)如圖4-6所示。圖4-6“出庫(kù)表”7. “操作員”表的物理結(jié)構(gòu) “操作員”表的物理結(jié)構(gòu)如圖4-7所示。圖

13、4-7“操作員”表8. “產(chǎn)品視圖”的物理結(jié)構(gòu)“產(chǎn)品視圖”的物理結(jié)構(gòu)如圖4-8所示。圖4-8 “產(chǎn)品視圖”五、數(shù)據(jù)庫(kù)的實(shí)施根據(jù)以上所進(jìn)行的調(diào)查、設(shè)計(jì)和進(jìn)行方案,建立并實(shí)施數(shù)據(jù)庫(kù)。此系統(tǒng)運(yùn)用sql server 2000進(jìn)行數(shù)據(jù)庫(kù)的開(kāi)發(fā)。1.數(shù)據(jù)庫(kù)建表語(yǔ)句 名稱: 客戶表“客戶” 標(biāo)識(shí)：客戶建表語(yǔ)句如下： create table 客戶 ( 客戶號(hào) int not null, 客戶名 varchar(50) null, 客戶類(lèi)型 tinyint null, 聯(lián)系地址 varchar(50) null, 郵政編號(hào) varchar(10) null, 聯(lián)系電話 varchar(30) null, 備

14、注 varchar(100) null, constraint pk_客戶 primary key (客戶號(hào))go(2) 名稱: 產(chǎn)品表“產(chǎn)品” 標(biāo)識(shí)：產(chǎn)品號(hào)建表語(yǔ)句如下: create table 產(chǎn)品 ( 產(chǎn)品號(hào) int not null, 產(chǎn)品名 varchar(50) null, 產(chǎn)品數(shù)量 int null, 產(chǎn)品單價(jià) varchar(20) null, 客戶號(hào) int null, constraint pk_產(chǎn)品 primary key (產(chǎn)品號(hào))go(3) 名稱：倉(cāng)庫(kù)表“倉(cāng)庫(kù)” 標(biāo)識(shí)：倉(cāng)庫(kù)號(hào)建表語(yǔ)句如下： create table 倉(cāng)庫(kù) ( 倉(cāng)庫(kù)號(hào) int not null, 倉(cāng)庫(kù)

15、名 varchar(50) null, 倉(cāng)庫(kù)備注 varchar(100) null, constraint pk_倉(cāng)庫(kù) primary key (倉(cāng)庫(kù)號(hào))go(4) 名稱：“入庫(kù)表” 建表語(yǔ)句如下：create table 入庫(kù)表 ( 產(chǎn)品號(hào) int null, 入庫(kù)單價(jià) varchar(20) null, 入庫(kù)數(shù)量 int null, 客戶號(hào) int null, 倉(cāng)庫(kù)號(hào) int null, 入庫(kù)時(shí)間 varchar(10) null)go(5) 名稱：“出庫(kù)表” 建表語(yǔ)句如下：create table 出庫(kù)表 ( 產(chǎn)品號(hào) int null, 出庫(kù)單價(jià) varchar(20) null, 出

16、庫(kù)數(shù)量 int null, 客戶號(hào) int null, 倉(cāng)庫(kù)號(hào) int null, 出庫(kù)時(shí)間 varchar(10) null)go(6) 名稱：“庫(kù)存表” 建表語(yǔ)句如下：create table 庫(kù)存表 ( 產(chǎn)品號(hào) int null, 入庫(kù)價(jià)格 varchar(20) null, 現(xiàn)存數(shù)量 int null, 倉(cāng)庫(kù)號(hào) int null)go(7) 名稱：“操作員”表 建表語(yǔ)句如下： create table 操作員 ( 操作員號(hào) int not null, 操作員名 varchar(40) null, 密碼 varchar(40) null, constraint pk_操作員 primar

17、y key (操作員號(hào))go2.數(shù)據(jù)庫(kù)建視圖語(yǔ)句(1) 名稱：“產(chǎn)品視圖”建視圖語(yǔ)句如下：create view dbo.產(chǎn)品視圖asselect dbo.產(chǎn)品.產(chǎn)品號(hào), dbo.產(chǎn)品.產(chǎn)品名, dbo.產(chǎn)品.客戶號(hào), dbo.庫(kù)存表.倉(cāng)庫(kù)號(hào), dbo.產(chǎn)品.產(chǎn)品數(shù)量, dbo.產(chǎn)品.產(chǎn)品單價(jià), dbo.庫(kù)存表.入庫(kù)價(jià)格, dbo.庫(kù)存表.現(xiàn)存數(shù)量from dbo.產(chǎn)品 inner join dbo.庫(kù)存表 on dbo.產(chǎn)品.產(chǎn)品號(hào) = dbo.庫(kù)存表.產(chǎn)品號(hào)六、數(shù)據(jù)庫(kù)的運(yùn)行根據(jù)以上所做的準(zhǔn)備以及sql server 2000建立好的表、試圖及各種關(guān)系，運(yùn)用visual basic 6.0

18、為前臺(tái)開(kāi)發(fā)工具，開(kāi)發(fā)出客戶管理系統(tǒng)，主要運(yùn)用了adodc控件和datagrid控件。1. 系統(tǒng)登陸界填入用戶名和密碼后點(diǎn)擊【登錄】按鈕,系統(tǒng)將自動(dòng)從數(shù)據(jù)庫(kù)中判斷是否存在相同的用戶名和密碼,如果有則進(jìn)入系統(tǒng), 進(jìn)入系統(tǒng)的主頁(yè)面并出現(xiàn)歡迎使用系統(tǒng)的對(duì)話框,不成功則顯示錯(cuò)誤信息頁(yè)面。如果不存在則提示用戶名和密碼有錯(cuò)誤信息。 系統(tǒng)登陸界面如圖6-1所示 圖6-1 系統(tǒng)登陸界面2. 系統(tǒng)主界面主界面包括系統(tǒng)的主要功能包括新建客戶信息、客房信息查詢、客戶信息查詢、結(jié)算信息賬單，四個(gè)主要的功能。用戶可以根據(jù)需要點(diǎn)擊自己想使用的功能進(jìn)入功能界面。系統(tǒng)主界面如圖6-2所示。 圖 6-2 系統(tǒng)主界面3. 管理界面

19、圖6-3 各信息管理界面4.添加界面 用于添加新的信息，有添加客戶信息、添加倉(cāng)庫(kù)信息、添加產(chǎn)品信息、添加操作員信息，各個(gè)添加界面如圖4-4所示。圖4-4-a 添加客戶信息界面圖4-4-b 添加倉(cāng)庫(kù)信息界面圖4-4-c 添加產(chǎn)品信息界面5.查詢界面 用于查詢各種信息，有客戶信息查詢、倉(cāng)庫(kù)信息查詢、產(chǎn)品信息查詢、操作員信息查詢。各個(gè)查詢界面如圖4-5所示。圖4-5-1倉(cāng)庫(kù)信息查詢圖4-5-2 產(chǎn)品信息查詢圖4-5-3 入庫(kù)表信息查詢圖4-5-4 客戶信息查詢6. 刪除界面 刪除界面用于刪除無(wú)用的、過(guò)時(shí)的信息。包括刪除客戶信息、刪除倉(cāng)庫(kù)信息、刪除產(chǎn)品信息。各界面如下列圖4-6所示。圖4-6-1 刪除

20、客戶信息界面圖 4-6-2 刪除倉(cāng)庫(kù)信息界面圖4-6-3 刪除產(chǎn)品信息界面參考文獻(xiàn)1 王珊,陳紅.數(shù)據(jù)庫(kù)系統(tǒng)原理教程m.北京：清華大學(xué)出版社,1998.7.2 王珊,薩師煊.數(shù)據(jù)庫(kù)系統(tǒng)概論（第四版）m.北京：高等教育出版社,2006.5.3 虞益誠(chéng),孫莉.sql server 2000 數(shù)據(jù)庫(kù)應(yīng)用技術(shù)m.北京：中國(guó)鐵道出版社,2004.11.4 劉鋼.visual basic 程序設(shè)計(jì)與應(yīng)用案例m.北京：高等教育出版社,2003.9.5 abraham silberschatz, henry f.korth ,s.sudarshan.database system concepts（fourt

21、h edition）. higher education press.6 羅運(yùn)模.完全掌握sql server 2000j.北京：人民郵電出版社，2001.7 白尚旺.powerdesigner軟件工程技術(shù)m.北京：電子工業(yè)出版社，2004.附錄倉(cāng)庫(kù)管理系統(tǒng)部分程序代碼1. 登陸代碼private sub command1_click()dim cn as new adodb.connectioncn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initi

22、al catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim rs, rss as new adodb.recordsetset rs = cn.execute(select * from 操作員 where 操作員名= & text1.text & )set rss = cn.execute(select * from 操作員 where 密碼= & text2.text & )if rs.eof then msgbox 用戶名錯(cuò)誤! text1.text = text1.setfocus else if rss.eof then msgbo

23、x 密碼錯(cuò)誤! text2.text = text2.setfocus else me.hide form2.show msgbox (text1.text + ,歡迎您使用冰舞奇跡倉(cāng)庫(kù)管理系統(tǒng)) end ifend 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;i

24、nitial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim a1, a2, a3, a4, a5, a6, a7 as stringa1 = text1.texta2 = text2.texta3 = text3.texta4 = text4.texta5 = text5.texta6 = text6.texta7 = combo1.textsql = insert into 客戶 values( & a1 & , & a2 & , & a7 & , & a3 & , & a4 & , & a5 & , & a6 & )cn.exec

25、ute (sql)cn.closemsgbox 已添加客戶信息end sub3. 根據(jù)客戶號(hào)查看、刪除客戶代碼private sub command1_click()dim kehuhao as stringkehuhao = text8.textadodc1.recordset.find 客戶號(hào)= & val(kehuhao)end subprivate sub command2_click()dim cn as new adodb.connectiondim sql as stringdim kehuhao as stringkehuhao = text8.textcn.connectio

26、nstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opensql = delete from 客戶 where 客戶號(hào)= & kehuhao & cn.execute (sql)msgbox 已刪除編號(hào)為 & kehuhao & 的客戶信息end sub4. 查看客戶信息代碼private sub command1_click()dim cn as new adodb.con

27、nectiondim rs as new adodb.recordsetdim sql as stringcn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openif combo1.text = 供應(yīng)商 thenrs.open select * from 客戶 where 客戶類(lèi)型=供應(yīng)商, cn, adopenkeyset, adlockbatch

28、optimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refresh else if combo1.text = 購(gòu)貨商 then rs.open select * from 客戶 where 客戶類(lèi)型=購(gòu)貨商, cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refresh else rs.open select * from 客戶, cn, adopenkeyset, adlockbatchopt

29、imistic, 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 security info=false;initial catalog=倉(cāng)

30、庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 客戶 where 客戶號(hào)= & text1.text & , 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 string

31、cn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 客戶 where 客戶名= & text2.text & , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refres

32、hend sub5. 查詢倉(cāng)庫(kù)信息dim sql as stringcn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)號(hào)= & text1.text & , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagri

33、d1.datasource = rsdatagrid1.refreshend 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 security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs

34、.open select * from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)名= & text2.text & , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refreshend sub6. 添加倉(cāng)庫(kù)信息private sub command1_click()dim cn as new adodb.connectiondim sql as stringcn.connectionstring = provider=sqloledb.1;integrated security=

35、sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim a1, a2, a3 as stringa1 = text1.texta2 = text2.texta3 = text3.textsql = insert into 倉(cāng)庫(kù) values( & a1 & , & a2 & , & a3 & )cn.execute (sql)cn.closemsgbox 已添加倉(cāng)庫(kù)信息end sub7. 查看刪除倉(cāng)庫(kù)信息private sub command1_click()di

36、m cangkuhao as stringcangkuhao = text1.textadodc1.recordset.find 產(chǎn)品號(hào)= & val(cangkuhao)end subprivate sub command2_click()dim cn as new adodb.connectiondim sql as stringdim cangkuhao as stringcangkuhao = text1.textcn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security inf

37、o=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opensql = delete from 倉(cāng)庫(kù) where 倉(cāng)庫(kù)號(hào)= & cangkuhao & cn.execute (sql)msgbox 已刪除編號(hào)為 & cangkuhao & 的倉(cāng)庫(kù)信息end sub8. 添加操作員信息private sub command1_click()dim cn as new adodb.connectiondim sql as stringcn.connectionstring = provider=sqloledb.1;integr

38、ated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim a1, a2, a3 as stringa1 = text1.texta2 = text2.texta3 = text3.textsql = insert into 操作員 values( & a1 & , & a2 & , & a3 & )cn.execute (sql)cn.closemsgbox 已添加操作員信息end sub9. 查看刪除操作員信息private sub c

39、ommand3_click()dim caozuoyuanhao as stringcaozuoyuanhao = text1.textadodc1.recordset.find 操作員號(hào)= & val(caozuoyuanhao)end subprivate sub command1_click()dim cn as new adodb.connectiondim sql as stringdim kehuhao as stringcaozuoyuanhao = text1.textcn.connectionstring = provider=sqloledb.1;integrated se

40、curity=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opensql = delete from 操作員 where 操作員號(hào)= & caozuoyuanhao & cn.execute (sql)msgbox 已刪除編號(hào)為 & caozuoyuanhao & 的操作員信息end sub10. 添加產(chǎn)品信息private sub command1_click()dim cn as new adodb.connectiondim sql as stringcn.co

41、nnectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim a1, a2, a3, a4, a5 as stringa1 = text1.texta2 = text2.texta3 = text3.texta4 = text4.texta5 = text5.textsql = insert into 產(chǎn)品 values( & a1 & , & a2 & ,

42、 & a3 & , & a4 & , & a5 & )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)品號(hào)= & val(chanpinhao)end subprivate sub command1_click()dim cn as new adodb.connectiondim sql as stringdim kehuhao as

43、stringchanpinhao = text1.textcn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opensql = delete from 產(chǎn)品 where 產(chǎn)品號(hào)= & chanpinhao & cn.execute (sql)msgbox 已刪除編號(hào)為 & chanpinhao & 的產(chǎn)品信息end sub12. 查詢產(chǎn)品信息priva

44、te 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 catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 產(chǎn)品 where 倉(cāng)庫(kù)號(hào)= & text1.text

45、& , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refreshend 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 security info=

46、false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 產(chǎn)品 where 產(chǎn)品號(hào)= & text2.text & , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasource = rsdatagrid1.refreshend subprivate sub command3_click()dim cn as new adodb.connectiondim rs as new adodb.rec

47、ordsetdim sql as stringcn.connectionstring = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.openrs.open select * from 產(chǎn)品 where 客戶號(hào)= & text3.text & , cn, adopenkeyset, adlockbatchoptimistic, adcmdtextset datagrid1.datasour

48、ce = rsdatagrid1.refreshend sub13. 填寫(xiě)入庫(kù)表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=倉(cāng)庫(kù)管理系統(tǒng);data source=www-4fde9ffec01cn.opendim a1, a2, a3, a4, a5, a6 as stringa1 = text1.texta2