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

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