vbsql超市管理系統(tǒng)課程設(shè)計(jì)

1、題目：_小型超市管理系統(tǒng)_作 者 姓 名：學(xué) 號(hào)：系(院)、專業(yè)：指導(dǎo)教師姓名：2012 年 月日目 錄TOC o 1-3 h z HYPERLINK l _Toc281288671 第1章設(shè)計(jì)目的與要求 PAGEREF _Toc281288671 h1 HYPERLINK l _Toc281288673 1.1設(shè)計(jì)背景和功能 PAGEREF _Toc281288673 h 1 HYPERLINK l _Toc281288674 1.2 設(shè)計(jì)環(huán)境1 HYPERLINK l _Toc281288678 第2章系統(tǒng)分析2 HYPERLINK l _Toc281288683 2.1需求分析2 HYP

2、ERLINK l _Toc281288684 2.1.1 組織結(jié)構(gòu)分析2 HYPERLINK l _Toc281288685 2.1.2 業(yè)務(wù)流程分析2 HYPERLINK l _Toc281288686 2.2數(shù)據(jù)流圖3 HYPERLINK l _Toc281288687 2.3 數(shù)據(jù)字典4 HYPERLINK l _Toc281288688 第3章系統(tǒng)設(shè)計(jì)7 HYPERLINK l _Toc281288689 3.1 功能模塊設(shè)計(jì)7 HYPERLINK l _Toc281288691 3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)9 HYPERLINK l _Toc281288692 3.2.1 概念結(jié)構(gòu)設(shè)計(jì)9 HY

3、PERLINK l _Toc281288693 3.2.2 邏輯結(jié)構(gòu)設(shè)計(jì)11 HYPERLINK l _Toc281288696 第4章系統(tǒng)實(shí)施14 HYPERLINK l _Toc297433061 4.1注冊(cè)及登錄14 HYPERLINK l _Toc297433062 4.1.1注冊(cè)功能及代碼（圖4.1）15 HYPERLINK l _Toc297433063 4.1.2登錄功能代碼1 PAGEREF _Toc297433063 h 6 HYPERLINK l _Toc297433064 4.1.3登錄界面相關(guān)功能與數(shù)據(jù)庫(kù)連接的代碼16 HYPERLINK l _Toc297433065

4、 4.2登錄后主界面功能及界面及其相關(guān)功能代碼16 HYPERLINK l _Toc297433066 4.2.2主界面相關(guān)功能代碼1 PAGEREF _Toc297433066 h 7 HYPERLINK l _Toc297433067 4.3商品信息查詢界面及其相關(guān)功能代碼1 PAGEREF _Toc297433067 h 8 HYPERLINK l _Toc297433068 4.3.1查詢商品信息功能代碼18 HYPERLINK l _Toc297433069 4.3.2添加商品功能代碼1 PAGEREF _Toc297433069 h 9 HYPERLINK l _Toc297433

5、070 4.3.3刪除商品信息功能代碼20 HYPERLINK l _Toc297433071 4.3.4商品信息功能與數(shù)據(jù)庫(kù)連接代碼 PAGEREF _Toc297433071 h 21 HYPERLINK l _Toc297433072 4.4銷售記錄查詢界面及其相關(guān)功能代碼21 HYPERLINK l _Toc297433073 4.4.1查詢已銷售商品信息功能代碼22 HYPERLINK l _Toc297433074 4.4.2添加已銷售商品信息功能代碼22 HYPERLINK l _Toc297433075 4.4.3刪除已銷售商品信息功能代碼23 HYPERLINK l _Toc

6、297433076 4.4.4銷售商品信息表與數(shù)據(jù)庫(kù)連接代碼24 HYPERLINK l _Toc297433077 4.5員工信息查詢界面及其相關(guān)功能代碼25 HYPERLINK l _Toc297433078 4.5.1添加員工信息功能代碼25 HYPERLINK l _Toc297433079 4.5.2查詢員信息功能代碼26 HYPERLINK l _Toc297433080 4.5.3刪除員工信息功能代碼27 HYPERLINK l _Toc297433081 4.5.4員工信息查詢功能與數(shù)據(jù)庫(kù)連接的代碼27 HYPERLINK l _Toc297433082 第五章 數(shù)據(jù)設(shè)計(jì) PA

7、GEREF _Toc297433082 h 28 HYPERLINK l _Toc297433083 5.1數(shù)據(jù)庫(kù)中各數(shù)據(jù)表的說明 PAGEREF _Toc297433083 h 28 HYPERLINK l _Toc297433084 5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼（表5.1） PAGEREF _Toc297433084 h 28 HYPERLINK l _Toc297433085 5.1.2商品表說明及及其創(chuàng)建的SQL代碼（表5.2）28 HYPERLINK l _Toc297433086 5.1.3銷售表說明及及其創(chuàng)建的SQL代碼（表5.3）30 HYPERLINK l _

8、Toc297433087 5.1.3職工表說明及及其創(chuàng)建的SQL代碼（表5.4）31 HYPERLINK l _Toc297433088 第六章 經(jīng)驗(yàn)與體會(huì)33 HYPERLINK l _Toc297433089 參考文獻(xiàn)33第1章 設(shè)計(jì)目的與要求1.1設(shè)計(jì)背景和功能超市管理系統(tǒng)是市場(chǎng)上最流行的超市上常用的系統(tǒng)之一，它主要包含以下幾個(gè)模塊：用戶登陸管理、商品類型及商品的管理、進(jìn)貨和銷售的管理、銷售分析等。從而，實(shí)現(xiàn)對(duì)進(jìn)貨、銷售及員工信息等實(shí)現(xiàn)全面、動(dòng)態(tài)、及時(shí)的管理。隨著超市規(guī)模的發(fā)展和不斷擴(kuò)大，商品數(shù)量急劇增加，有關(guān)商品的各種信息量也成倍增長(zhǎng)。超市時(shí)時(shí)刻刻都需要對(duì)商品各種信息進(jìn)行統(tǒng)計(jì)分析。而大

9、型的超市管理系統(tǒng)功能過于強(qiáng)大而造成操作繁瑣降低了小超市的工作效率。小型超市管理系統(tǒng)按分類、分級(jí)的模式對(duì)倉(cāng)庫(kù)進(jìn)行全面的管理和監(jiān)控縮短了超市信息流轉(zhuǎn)時(shí)間，使企業(yè)的物資管理層次分明、井然有序，為采購(gòu)、銷售提供依據(jù)，智能化的預(yù)警功能可以自動(dòng)提示存貨短缺、超儲(chǔ)等異常狀況；系統(tǒng)還可進(jìn)行材料超市ABC分類匯總，減少資金積壓。完善的小型超市管理功能，可對(duì)企業(yè)的存貨進(jìn)行全面的控制和管理，降低超市成本，增強(qiáng)企業(yè)的市場(chǎng)競(jìng)爭(zhēng)力。1.2設(shè)計(jì)環(huán)境硬件環(huán)境：1.一臺(tái)Pentium 4 cpu以上的計(jì)算機(jī)軟件環(huán)境: 1.WINDOWS xp操作系統(tǒng) 2.Visual Basic6.0應(yīng)用程序3.SQL SERVER 2000

10、應(yīng)用程序第2章 系統(tǒng)分析2.2 需求分析2.2.1 組織結(jié)構(gòu)分析小型超市分為銷售部，庫(kù)存管理部，財(cái)務(wù)部，人事部四個(gè)主要部門，超市的決策權(quán)和管理權(quán)歸超市經(jīng)營(yíng)者擁有，超市的每個(gè)部門的管理都有專職人員負(fù)責(zé)。小型超市管理系統(tǒng)的組織結(jié)構(gòu)的描述如圖2-1所示：超市經(jīng)營(yíng)者超市經(jīng)營(yíng)者銷售部庫(kù)存管理部財(cái)務(wù)部人事部圖 2-1組織結(jié)構(gòu)圖組織功能表如圖2-2所示：登錄界面用戶輸入正確的用戶名和相對(duì)應(yīng)的密碼即可進(jìn)入，否則退出系統(tǒng)維護(hù)主要用于實(shí)現(xiàn)系統(tǒng)用戶設(shè)置、操作人員管理、密碼修改采購(gòu)管理主要用于實(shí)現(xiàn)采購(gòu)數(shù)據(jù)和采購(gòu)單查詢、采購(gòu)統(tǒng)計(jì)單查詢庫(kù)存管理主要用于實(shí)現(xiàn)商品出庫(kù)、入庫(kù)的添加修改，商品出庫(kù)、入庫(kù)的查詢銷售管理主要用于實(shí)現(xiàn)

11、銷售數(shù)據(jù)記錄、客戶退貨記錄和銷售、退貨信息查詢其他設(shè)置主要用于實(shí)現(xiàn)員工管理，供應(yīng)商的設(shè)置，省份的設(shè)置，商品的種類報(bào)表主要用于實(shí)現(xiàn)庫(kù)存的盤點(diǎn)、銷售的信息、供應(yīng)商信息圖2-2 組織功能表2.2.2 業(yè)務(wù)流程分析超市管理系統(tǒng)工作流程為：登錄系統(tǒng)后，超市管理員可對(duì)系統(tǒng)相關(guān)信息進(jìn)行操作，包括商品基本信息、供應(yīng)商信息、銷售信息、庫(kù)存信息、進(jìn)貨信息等過程進(jìn)行管理。本系統(tǒng)的業(yè)務(wù)流程圖如圖2-3所示：廠商廠商商品信息營(yíng)業(yè)員訂貨信息購(gòu)買信息顧客銷售信息用戶信息（員工）商品信息庫(kù)存信息超市管理員圖2-3 業(yè)務(wù)流程圖2.3 數(shù)據(jù)流圖數(shù)據(jù)流程圖主要反映的是小型超市管理系統(tǒng)中各項(xiàng)功能模塊之間的數(shù)據(jù)流程和簡(jiǎn)單的數(shù)據(jù)處理、加

12、工過程和方法，為系統(tǒng)的設(shè)計(jì)打下基礎(chǔ)。超市管理系統(tǒng)的數(shù)據(jù)流程：首先由系統(tǒng)管理員根據(jù)不同用戶的需要將信息保存到數(shù)據(jù)庫(kù)中，然后再進(jìn)行發(fā)布。用戶可以對(duì)這些庫(kù)信息進(jìn)行查詢、添加、修改和刪除處理。通過對(duì)本系統(tǒng)的需求分析，系統(tǒng)的基本功能已經(jīng)確定。整個(gè)流程圖如圖2-4所示：廠商廠商總經(jīng)理顧客超市管理系統(tǒng)總經(jīng)理F1商品信息F5進(jìn)貨信息F4庫(kù)存信息F3銷售額信息F1商品信息F2用戶信息F6購(gòu)買信息圖2-4 數(shù)據(jù)流圖2.4 數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息的集合，也就是對(duì)數(shù)據(jù)流圖中包含的所有元素的定義的集合。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型。1、數(shù)據(jù)字典列表數(shù)據(jù)存儲(chǔ)數(shù)據(jù)名稱 ：管理員信息簡(jiǎn) 述：用戶注冊(cè)填寫

13、的信息數(shù)據(jù)來源：用戶注冊(cè)填寫數(shù)據(jù)去向：用戶信息表數(shù)據(jù)組成：管理員信息管理信息唯一標(biāo)識(shí)+管理員帳號(hào)+管理員密碼+管理員權(quán)限+注冊(cè)時(shí)間描述：存儲(chǔ)了管理員的基本信息數(shù)據(jù)存儲(chǔ)名稱：商品信息簡(jiǎn)述：管理員填寫的商品信息數(shù)據(jù)來源：管理員填寫數(shù)據(jù)去向：商品信息表數(shù)據(jù)組成：商品信息=商品信息唯一標(biāo)識(shí)+貨物名稱+供貨編號(hào)+進(jìn)價(jià)+售價(jià)+數(shù)量+廠商等描述：存儲(chǔ)了商品信息數(shù)據(jù)存儲(chǔ)名稱：庫(kù)存信息簡(jiǎn)述：管理員填寫的庫(kù)存信息數(shù)據(jù)來源：管理員填寫數(shù)據(jù)去向：庫(kù)存信息表數(shù)據(jù)組成：庫(kù)存信息=庫(kù)存信息唯一標(biāo)識(shí)+商品名稱+價(jià)格+數(shù)量+添加時(shí)間+單位+編號(hào)等描述：存儲(chǔ)了庫(kù)存信息數(shù)據(jù)存儲(chǔ)名稱：銷售信息簡(jiǎn)述：管理員填寫的商品銷售信息數(shù)據(jù)來源：

14、管理員填寫數(shù)據(jù)去向：銷售信息表數(shù)據(jù)組成：銷售信息=銷售信息唯一標(biāo)識(shí)+貨物名稱+數(shù)量+價(jià)格+時(shí)間等描述：存儲(chǔ)了銷售詳細(xì)信息第3章 系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)的任務(wù)就是依據(jù)系統(tǒng)分析文檔資料，采用正確的方法來確定系統(tǒng)各功能模塊在計(jì)算機(jī)內(nèi)應(yīng)該由哪些程序組成，它們之間用什么方式聯(lián)結(jié)在一起以構(gòu)成一個(gè)最好的系統(tǒng)機(jī)內(nèi)結(jié)構(gòu)，同時(shí)還要使用一定的工具將所設(shè)計(jì)的成果表達(dá)出來，另外考慮到實(shí)現(xiàn)系統(tǒng)功能的需要，還要進(jìn)行數(shù)據(jù)庫(kù)的詳細(xì)設(shè)計(jì)、編碼設(shè)計(jì)、輸入/輸出界面設(shè)計(jì)等等 。3.1 功能模塊設(shè)計(jì)根據(jù)系統(tǒng)功能分析，可以畫出系統(tǒng)的功能模塊圖，從管理員界面對(duì)功能模塊圖加以描述。如圖3-1所示：系統(tǒng)管理系統(tǒng)管理銷售管理庫(kù)存管理進(jìn)貨管理供貨商管理

15、基礎(chǔ)信息小型超市管理系統(tǒng)統(tǒng)用戶管理系統(tǒng)備份系統(tǒng)維護(hù)用戶修改商品信息供應(yīng)商信息員工信息銷售查詢銷售添加銷售報(bào)表銷售查詢庫(kù)存查詢進(jìn)貨查詢進(jìn)貨報(bào)表進(jìn)貨管理供應(yīng)商修改供應(yīng)商查詢圖3-1 功能模塊圖 (1)系統(tǒng)維護(hù)模塊系統(tǒng)維護(hù)模塊用于實(shí)現(xiàn)對(duì)用戶的添加、修改、刪除以及操作人員管理、密碼修改。 (2)其他設(shè)置其他設(shè)置主要用于實(shí)現(xiàn)員工的添加、修改、查詢以及管理，供應(yīng)商的設(shè)置，省份的設(shè)置，商品的種類。3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)3.2.1 概念結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)設(shè)計(jì)是整個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)的關(guān)鍵，它能通過對(duì)需求進(jìn)行綜合，歸納與抽象，形成一個(gè)獨(dú)立于具體DBMS的概念模型，既E-R圖如圖所示：密碼表密碼表用戶名類型密碼圖3-2管理員實(shí)

16、體的E-R圖商品信息商品信息商品編號(hào)生產(chǎn)廠家單價(jià)種類庫(kù)存量進(jìn)貨量保質(zhì)期名稱圖3-3商品信息的E-R圖供應(yīng)商信息供應(yīng)商信息商品編號(hào)廠名聯(lián)系方式省份圖3-4供應(yīng)商實(shí)體的E-R圖入庫(kù)表入庫(kù)表商品編號(hào)分類編碼入庫(kù)時(shí)間數(shù)量商品廠家圖3-5倉(cāng)庫(kù)的E-R圖供貨商號(hào)供貨商號(hào)廠名商品編號(hào)供應(yīng)商聯(lián)系方式數(shù)量商品數(shù)量商品編號(hào)商品名稱保質(zhì)期單價(jià)數(shù)量客戶日期倉(cāng)庫(kù)編號(hào)商品名稱庫(kù)存量nnnn1名稱類型種類網(wǎng)址銷售存放供應(yīng)商品名稱銷售表圖3-6各個(gè)實(shí)體之間的聯(lián)系圖3.2.2 邏輯結(jié)構(gòu)設(shè)計(jì)邏輯設(shè)計(jì)的任務(wù)是根據(jù)DBMS的特征把概念結(jié)構(gòu)轉(zhuǎn)換為相應(yīng)的邏輯結(jié)構(gòu)。概念設(shè)計(jì)所得到的ER模型，是獨(dú)立于DBMS的，這里的轉(zhuǎn)換就是把表示概念結(jié)構(gòu)

17、的ER圖轉(zhuǎn)換成關(guān)系模型的邏輯結(jié)構(gòu)。將圖轉(zhuǎn)換為規(guī)范的關(guān)系模式為：密碼表（用戶名，密碼，類型）員工表（員工編號(hào)，員工姓名，性別，職務(wù)，聯(lián)系方式，家庭住址）生產(chǎn)廠家表（供應(yīng)商號(hào)，省份，廠名，聯(lián)系方式，網(wǎng)址）商品表（商品編號(hào)，商品名稱，種類，單價(jià)，單位，凈含量，庫(kù)存量，保質(zhì)期，生產(chǎn)時(shí)間，生產(chǎn)省份，生產(chǎn)廠家）采購(gòu)表（供貨商號(hào)，商品編號(hào)，進(jìn)貨日期，商品名稱，驗(yàn)收員，進(jìn)貨價(jià)，數(shù)量，金額）入庫(kù)表（商品編號(hào)，入庫(kù)時(shí)間，商品廠家，數(shù)量）銷售表（商品編號(hào)，客戶編號(hào)，銷售日期，數(shù)量，商品名稱，業(yè)務(wù)員，金額）退貨表（商品編號(hào)，商品名稱，生產(chǎn)廠家，退貨日期，退貨數(shù)量，制單人，業(yè)務(wù)員，金額，客戶編號(hào)）將各實(shí)體內(nèi)容的數(shù)據(jù)類型

18、生成數(shù)據(jù)庫(kù)如圖5.3所示：表3-7 密碼表字段名字段類型字段寬度說明usernameChar6用戶名password1Char6密碼leixingChar6類型表3-8商品表字段名字段類型字段寬度說明spbhChar20商品編號(hào)spmcChar20商品名稱zlChar10種類dwChar10單位djInt4單價(jià)jhlInt4凈含量kclInt4庫(kù)存量bzqInt4保質(zhì)期scsjDatetime8生產(chǎn)時(shí)間scsfChar20生產(chǎn)省份sccjChar50生產(chǎn)廠家表3-9員工表字段名字段類型字段寬度說明ygbhChar6員工編號(hào)ygxmChar6員工姓名xbChar6性別zwChar6職務(wù)lxfsC

19、har10聯(lián)系方式j(luò)tzzChar20家庭住址表3-10采購(gòu)表字段名字段類型字段寬度說明spbhChar6商品編號(hào)ghshChar6供貨商號(hào)jhrqMoney4進(jìn)貨日期spmcChar10商品名稱ysyChar20驗(yàn)收員jhjInt4進(jìn)貨價(jià)slChar4數(shù)量jeDatetime8金額表3-11銷售表字段名字段類型字段寬度說明spbhChar6商品編號(hào)khbhChar6客戶編號(hào)xsrqDatetime8銷售日期xsslInt4銷售數(shù)量spmcChar10商品名稱ywyChar10業(yè)務(wù)員zdrChar10制單人 jeChar6金額表3-12生產(chǎn)廠家表字段名字段類型字段寬度說明ghshChar8供應(yīng)

20、商號(hào)sfChar40省份cmChar50廠名lxfsChar20聯(lián)系方式wzChar20網(wǎng)址表3-13 入庫(kù)表字段名字段類型字段寬度說明spbhChar6商品編號(hào)rksjDatetime8入庫(kù)時(shí)間spcjChar50商品廠家slInt4數(shù)量第四章.系統(tǒng)實(shí)施4.1注冊(cè)及登錄該功能可以實(shí)現(xiàn)用戶的注冊(cè)和登錄4.1.1注冊(cè)功能及代碼（圖4.1）圖4.1 用戶注冊(cè)注冊(cè)功能代碼Private Sub 注冊(cè)_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 用戶名和密碼不能為空, 16 + 4, 警告ElseDim rs As New ADODB.Recor

21、dsetstr1 = select * from 登錄表 where 用戶名= & Text1.Text & rs.Open str1, cn, 1, 3rs.AddNewrs(用戶名) = Text1.Textrs(密碼) = Text2.Textrs.UpdateMsgBox 注冊(cè)成功, 64, 信息提示End IfEnd Sub4.1.2登錄功能代碼Private Sub Command1_Click()strsql = select * from 登錄表 where 用戶名= & Text1.Text & & and 密碼= & Text2.Text & rs.Open strsql,

22、 cn, 1, 3If rs.EOF ThenMsgBox 用戶名或密碼錯(cuò)了, 32, 警告ElseForm5.ShowUnload MeEnd IfEnd Sub4.1.3登錄界面相關(guān)功能與數(shù)據(jù)庫(kù)連接的代碼Private Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub4.2登錄后主界面功能及界面及其相關(guān)功能代碼4.2.1登錄后主界面（圖4.2）圖4.2

23、登錄后主界面4.2.2主界面相關(guān)功能代碼Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDownload by Private Sub Command1_Click()Form2.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Form4.ShowUnload Me

24、End Sub4.3商品信息查詢界面及其相關(guān)功能代碼4.3.1查詢商品信息功能代碼Private Sub Command1_Click()str1 = select * from 商品表 where 商品號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 該商品不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(商

25、品號(hào))Text2.Text = rs(商品名稱)Text3.Text = rs(庫(kù)存量)Text4.Text = rs(商品類型)Text5.Text = rs(廠商)Text6.Text = rs(單價(jià))End IfEnd Sub4.3.2添加商品功能代碼Private Sub Command2_Click()str1 = select * from 商品表 where 商品號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(商品號(hào)) = T

26、ext1.Text rs(商品名稱) = Text2.Text rs(庫(kù)存量) = Text3.Text rs(商品類型) = Text4.Text rs(廠商) = Text5.Text rs(單價(jià)) = Text6.Text rs.Update MsgBox 數(shù)據(jù)添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 商品表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text =

27、Text6.Text = Else MsgBox 該商品已經(jīng)存在了, 16, 警告 End If End Sub4.3.3刪除商品信息功能代碼Private Sub Command4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 Thenrs.CloseEnd If If rs1.State = 1 Thenrs1.CloseEnd Ifrs1.Open select * from 商品表 where 商品號(hào)= & Text1.Text & and 商品名稱= & Text2.

28、Text & , cn, 1, 3If rs1.EOF ThenMsgBox 沒有此種商品不能刪除！Elsers.Open delete 商品表 where 商品號(hào)= & Text1.Text & and 商品名稱= & Text2.Text & , cn, 1, 3MsgBox 確定刪除嗎, 32 + 4, 警告 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 商品表 Adodc1.Refresh End If Text1.Text = Text2.Text = Text3.Text = Text4.Tex

29、t = Text5.Text = Text6.Text = End Sub4.3.4商品信息功能與數(shù)據(jù)庫(kù)連接代碼Private Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub4.4銷售記錄查詢界面及其相關(guān)功能代碼4.4.1查詢已銷售商品信息功能代碼Private Sub Command1_Click()str1 = select * from 銷售表 wh

30、ere 銷售號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 該銷售商品不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(銷售號(hào))Text2.Text = rs(職工號(hào))Text3.Text = rs(商品號(hào))Text4.Text = rs(銷售數(shù)量)Text6.Text = rs(銷售時(shí)間)End IfEnd

31、 Sub4.4.2添加已銷售商品信息功能代碼Private Sub Command2_Click()str1 = select * from 銷售表 where 銷售號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(銷售號(hào)) = Text1.Text rs(職工號(hào)) = Text2.Text rs(商品號(hào)) = Text3.Text rs(銷售數(shù)量) = Text4.Text rs(銷售時(shí)間) = Text6.Text rs.Update M

32、sgBox 數(shù)據(jù)添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 銷售表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text6.Text = Else MsgBox 該種銷售商品已經(jīng)存在了, 16, 警告 End If End Sub4.4.3刪除已銷售商品信息功能代碼Private Sub Command3_Click()If Adodc1.Recordset.EOF = False Th

33、en c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎?, 32 + 4, 特別提示) X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = select * from 銷售表 where 銷售號(hào)=x & If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 Adodc1.Recordset.Delete Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 銷售表 Adodc1.Refresh M

34、sgBox 銷售商品的所有信息成功刪除, 64, 信息提示 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text6.Text = End If Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒有可刪除的記錄, 64, 警告 End IfEnd Sub4.4.4銷售商品信息表與數(shù)據(jù)庫(kù)連接代碼Private Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=F

35、alse;Initial Catalog=超市管理cn.OpenEnd Sub4.5員工信息查詢界面及其相關(guān)功能代碼4.5.1添加員工信息功能代碼Private Sub Command1_Click()str1 = select * from 銷售人員表 where 職工號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(職工號(hào)) = Text1.Text rs(姓名) = Text2.Text rs(性別) = Text3.Text rs(用

36、戶類型) = Text4.Text rs.Update MsgBox 用戶添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 銷售人員表 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Else MsgBox 該職工已經(jīng)存在了, 16, 警告 End IfEnd Sub4.5.2查詢員信息功能代碼Private Sub Command2_Click()str1 = select * from 銷售人

37、員表 where 職工號(hào)= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 這個(gè)職工不存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(職工號(hào))Text2.Text = rs(姓名)Text3.Text = rs(性別)Text4.Text = rs(用戶類型) Adodc1.CommandType = adCmdT

38、ext Adodc1.RecordSource = str1 Adodc1.Refresh End IfEnd Sub4.5.3刪除員工信息功能代碼Private Sub Command4_Click()If Adodc1.Recordset.EOF = False Then c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎?, 32 + 4, 特別提示) X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = select * from 銷售人員表 where 職工號(hào)=x & If rs.State = 1 Then rs.Close End

39、 If rs.Open str1, cn, 1, 3 Adodc1.Recordset.Delete Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 銷售人員表 Adodc1.Refresh MsgBox 職工信息成功刪除, 64, 信息提示 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = End If Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒有可刪除的記錄, 64, 警告 End IfEnd Sub4.5.4員工信息查詢

40、功能與數(shù)據(jù)庫(kù)連接的代碼Private Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd Sub第五章.數(shù)據(jù)設(shè)計(jì)5.1數(shù)據(jù)庫(kù)中各數(shù)據(jù)表的說明5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼（表5.1）用戶名：存放用戶登錄系統(tǒng)的用戶名密 碼：存放用戶登錄系統(tǒng)的密碼圖5.1 登陸表創(chuàng)建登錄表的SQl代碼USE 超市管理GOSET ANSI_NULLS ONGOSET QUOT

41、ED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE dbo.登錄表(用戶名 char(10) NOT NULL,密碼 char(10) NOT NULL) ON PRIMARYGOSET ANSI_PADDING OFFGO5.1.2商品表說明及及其創(chuàng)建的SQL代碼（表5.2）商品號(hào)：系統(tǒng)分配給商品的唯一的標(biāo)示值（主鍵）商品名稱：用于存放商品的名稱的信息單價(jià)：用于存放商品的價(jià)格的信息商品類型：用于存放商品所屬的類型信息庫(kù)存量：用于存放商品的庫(kù)存的信息廠商：用于存放商品的生產(chǎn)商家的信息表5.2 商品表創(chuàng)建商品表的SQL代碼USE 超市管理GOS

42、ET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE dbo.商品表(商品號(hào) varchar(50) NOT NULL,商品名稱 varchar(50) NOT NULL,單價(jià) float NULL,商品類型 varchar(50) NULL,庫(kù)存量 char(10) NULL,廠商 varchar(50) NULL, CONSTRAINT PK_商品表 PRIMARY KEY CLUSTERED (商品號(hào) ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON PRIMARY) ON PRIMARYGOSET ANSI_PADDING OFFGO5.1.3銷售表說明及及其創(chuàng)建的SQL代碼（表5.3）銷售號(hào)：系統(tǒng)分配給所銷售商品的唯一編號(hào)職工號(hào)：存放銷售該商品的職工編號(hào)銷售數(shù)量：存放銷售商品的數(shù)量銷售時(shí)間：存放銷售該