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

1、題目：小型超市管理系統(tǒng)作者姓名：學(xué)號(hào)：系（院）、專業(yè)：指導(dǎo)教師姓名：2012 年第1章設(shè)計(jì)目的與要求1.1設(shè)計(jì)背景和功能錯(cuò)誤！未定義書(shū)簽錯(cuò)誤！未定義書(shū)簽1.2設(shè)計(jì)環(huán)境1第2章系統(tǒng)分析22.1需求分析2組織結(jié)構(gòu)分析 2業(yè)務(wù)流程分析 22.2數(shù)據(jù)流圖32.3數(shù)據(jù)字典4第3章系統(tǒng)設(shè)計(jì)73.1功能模塊設(shè)計(jì)73.2數(shù)據(jù)庫(kù)設(shè)計(jì) 9概念結(jié)構(gòu)設(shè)計(jì)9邏輯結(jié)構(gòu)設(shè)計(jì)11第4章系統(tǒng)實(shí)施144.1注冊(cè)及登錄14注冊(cè)功能及代碼（圖4.1） 一五登錄功能代碼 116登錄界面相關(guān)功能與數(shù)據(jù)庫(kù)連接的代碼 164.2登錄后主界面功能及界面及其相關(guān)功能代碼 16主界面相關(guān)功能代碼 1174.3商品信息查詢界面及其相關(guān)功能代碼 11

2、8查詢商品信息功能代碼 一八添加商品功能代碼119刪除商品信息功能代碼20商品信息功能與數(shù)據(jù)庫(kù)連接代碼 214.4銷售記錄查詢界面及其相關(guān)功能代碼 21查詢已銷售商品信息功能代碼22添加已銷售商品信息功能代碼22刪除已銷售商品信息功能代碼23銷售商品信息表與數(shù)據(jù)庫(kù)連接代碼 244.5員工信息查詢界面及其相關(guān)功能代碼 25添加員工信息功能代碼25查詢員信息功能代碼 26刪除員工信息功能代碼27員工信息查詢功能與數(shù)據(jù)庫(kù)連接的代碼 27第五章數(shù)據(jù)設(shè)計(jì)275.1數(shù)據(jù)庫(kù)中各數(shù)據(jù)表的說(shuō)明 27登陸表功能說(shuō)明及其創(chuàng)建的 SQL代碼（表5.1）.27商品表說(shuō)明及及其創(chuàng)建的SQL代碼（表5.2）.28銷售表說(shuō)明

3、及及其創(chuàng)建的 SQL代碼（表5.3）.30職工表說(shuō)明及及其創(chuàng)建的SQL代碼（表5.4）.31第六章經(jīng)驗(yàn)與體會(huì)33參考文獻(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ì)分析。而大型的超市管理系 統(tǒng)功能過(guò)于強(qiáng)大而造成操作繁瑣降低了小超市的工作效率。小型超市管理系統(tǒng)按分類、分級(jí)

4、的模式對(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.WIND0WS xp操作系統(tǒng)2.Visual Basic6.0 應(yīng)用程序3.SQL SERVER 2000 應(yīng)用程序第2章系統(tǒng)分析2.2需求分析組織結(jié)構(gòu)分析小型超市分為銷售部，庫(kù)存管理部，財(cái)務(wù)部

5、，人事部四個(gè)主要部門(mén)，超市的決策權(quán)和管理權(quán)歸超市經(jīng)營(yíng)者擁有，超市的每個(gè)部門(mén)的管理都有專職人員負(fù)責(zé)。小型超市管理系統(tǒng)的組織結(jié)構(gòu)的描述如圖2-1所示：圖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)銷售數(shù)據(jù)記錄、客戶退貨記錄和銷售、退貨信息查詢其他設(shè)置主要用于實(shí)現(xiàn)員工管理，供應(yīng)商的設(shè)置，省份的設(shè)置，商品的種類報(bào)表主要用于實(shí)現(xiàn)庫(kù)存的盤(pán)點(diǎn)、銷售的信息、

6、供應(yīng)商信息圖2-2組織功能表業(yè)務(wù)流程分析超市管理系統(tǒng)工作流程為：登錄系統(tǒng)后，超市管理員可對(duì)系統(tǒng)相關(guān)信息進(jìn)行 操作，包括商品基本信息、供應(yīng)商信息、銷售信息、庫(kù)存信息、進(jìn)貨信息等過(guò)程 進(jìn)行管理。本系統(tǒng)的業(yè)務(wù)流程圖如圖2-3所示:圖2-3業(yè)務(wù)流程圖2.3數(shù)據(jù)流圖數(shù)據(jù)流程圖主要反映的是小型超市管理系統(tǒng)中各項(xiàng)功能模塊之間的數(shù)據(jù)流程 和簡(jiǎn)單的數(shù)據(jù)處理、加工過(guò)程和方法，為系統(tǒng)的設(shè)計(jì)打下基礎(chǔ)。超市管理系統(tǒng)的 數(shù)據(jù)流程：首先由系統(tǒng)管理員根據(jù)不同用戶的需要將信息保存到數(shù)據(jù)庫(kù)中，然后 再進(jìn)行發(fā)布。用戶可以對(duì)這些庫(kù)信息進(jìn)行查詢、添加、修改和刪除處理。通過(guò)對(duì) 本系統(tǒng)的需求分析，系統(tǒng)的基本功能已經(jīng)確定。整個(gè)流程圖如圖 2

7、-4所示：圖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è)填寫(xiě)的信息數(shù)據(jù)來(lái)源：用戶注冊(cè)填寫(xiě)數(shù)據(jù)去向：用戶信息表數(shù)據(jù)組成：管理員信息二管理信息唯一標(biāo)識(shí)+管理員帳號(hào)+管理員密碼+管理員權(quán)限+注冊(cè)時(shí)間描述：存儲(chǔ)了管理員的基本信息數(shù)據(jù)存儲(chǔ)名稱：商品信息簡(jiǎn)述：管理員填寫(xiě)的商品信息數(shù)據(jù)來(lái)源：管理員填寫(xiě)數(shù)據(jù)去向：商品信息表數(shù)據(jù)組成：商品信息=商品信息唯一標(biāo)識(shí)+貨物名稱+供貨編號(hào)+進(jìn)價(jià)+售價(jià)+數(shù)量+廠商等描述：存儲(chǔ)了商品信息數(shù)據(jù)存儲(chǔ)名稱：庫(kù)存信息簡(jiǎn)述

8、：管理員填寫(xiě)的庫(kù)存信息數(shù)據(jù)來(lái)源:管理員填寫(xiě)數(shù)據(jù)去向：庫(kù)存信息表數(shù)據(jù)組成：庫(kù)存信息-庫(kù)存信息唯一標(biāo)識(shí)+商品名稱+價(jià)格+數(shù)量+添加時(shí)間+單位+編號(hào)等描述：存儲(chǔ)了庫(kù)存信息數(shù)據(jù)存儲(chǔ)名稱：銷售信息簡(jiǎn)述：管理員填寫(xiě)的商品銷售信息數(shù)據(jù)來(lái)源：管理員填寫(xiě)數(shù)據(jù)去向：銷售信息表數(shù)據(jù)組成：銷售信息=銷售信息唯一標(biāo)識(shí)+貨物名稱+數(shù)量+介格+時(shí)間等描述：存儲(chǔ)了銷售詳細(xì)信息第3章系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)的任務(wù)就是依據(jù)系統(tǒng)分析文檔資料，采用正確的方法來(lái)確定系統(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á)出來(lái)， 另外考慮到實(shí)現(xiàn)系統(tǒng)功能的需

9、要，還要進(jìn)行數(shù)據(jù)庫(kù)的詳細(xì)設(shè)計(jì)、編碼設(shè)計(jì)、輸入/輸出界面設(shè)計(jì)等等。3.1功能模塊設(shè)計(jì)根據(jù)系統(tǒng)功能分析，可以畫(huà)出系統(tǒng)的功能模塊圖，從管理員界面對(duì)功能模塊圖加以描述。如圖3-1所示：小型超市管理系統(tǒng)用戶管理用戶 修 改修改系 統(tǒng) 管 理系 統(tǒng) 維 護(hù)基銷庫(kù)礎(chǔ)售存信管管息理理系銷銷銷銷統(tǒng)售售售售備查添報(bào)查份詢加表詢商供品應(yīng)信商息信息員 工 信 息(1)系統(tǒng)維護(hù)模塊庫(kù)存 查 詢圖3-1功能模塊圖進(jìn) 貨 查 詢進(jìn)貨管理進(jìn)貨管理進(jìn)貨 報(bào) 表供貨商管供供應(yīng)應(yīng)商商修查改詢系統(tǒng)維護(hù)模塊用于實(shí)現(xiàn)對(duì)用戶的添加、修改、刪除以及操作人員管理、密碼(2)其他設(shè)置其他設(shè)置主要用于實(shí)現(xiàn)員工的添加、修改、查詢以及管理，供應(yīng)商的設(shè)

10、置,省份的設(shè)置，商品的種類。3.2數(shù)據(jù)庫(kù)設(shè)計(jì)概念結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)設(shè)計(jì)是整個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)的關(guān)鍵，它能通過(guò)對(duì)需求進(jìn)行綜合，歸納與抽象，形成一個(gè)獨(dú)立于具體 DBMS的概念模型，既E-R圖如圖所示：圖3-2管理員實(shí)體的 E-R圖圖3-4供應(yīng)商實(shí)體的E-R圖圖3-5倉(cāng)庫(kù)的E-R圖類型名稱數(shù)量日期商品名稱數(shù)量數(shù)量聯(lián)系網(wǎng)址商品名稱單價(jià)保質(zhì)期庫(kù)存量種類商品名稱商品編號(hào)編號(hào)供貨商號(hào)C商品編號(hào)j-銷售一銷售表7客戶n供應(yīng)、nn /存放/1供應(yīng)商商品倉(cāng)庫(kù)n圖3-6各個(gè)實(shí)體之間的聯(lián)系圖邏輯結(jié)構(gòu)設(shè)計(jì)邏輯設(shè)計(jì)的任務(wù)是根據(jù)DBMS勺特征把概念結(jié)構(gòu)轉(zhuǎn)換為相應(yīng)的邏輯結(jié)構(gòu)。概念 設(shè)計(jì)所得到的E- R模型，是獨(dú)立于DBMS勺，這里的

11、轉(zhuǎn)換就是把表示概念結(jié)構(gòu)的 E-R圖轉(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ù)員，金額，客戶

12、編號(hào)）將各實(shí)體內(nèi)容的數(shù)據(jù)類型生成數(shù)據(jù)庫(kù)如圖5.3所示:表3-7密碼表字段名字段類型字段寬度說(shuō)明user nameChar6用戶名passwordlChar6密碼leixi ngChar6類型表3-8商品表字段名字段類型字段寬度說(shuō)明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員工表字段名字段類型字段寬度說(shuō)明ygbhChar6員工編號(hào)ygxmChar6員工姓名xbChar6性

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

14、度說(shuō)明ghshChar8供應(yīng)商號(hào)sfChar40省份cmChar50廠名lxfsChar20聯(lián)系方式wzChar20網(wǎng)址表3-一三入庫(kù)表字段名字段類型字段寬度說(shuō)明spbhChar6商品編號(hào)rksjDatetime8入庫(kù)時(shí)間spcjChar50商品廠家slInt4數(shù)量第四章.系統(tǒng)實(shí)施4.1注冊(cè)及登錄該功能可以實(shí)現(xiàn)用戶的注冊(cè)和登錄*小型超帀后臺(tái)菅理小型超市管理系統(tǒng)登陸界而用戶名密碼登錄注冊(cè)功能及代碼（圖4.1 ）小型超市管理系統(tǒng)登陸界面用戶名密碼登錄注冊(cè)退出圖4.1用戶注冊(cè)注冊(cè)功能代碼Private Sub 注冊(cè) _Click（）If Text1.Text = "" Or Te

15、xt2.Text = "" The nMsgBox "用戶名和密碼不能為空 ",16 + 4,"警告”ElseDim rs As New ADODB.Recordsetstr1 = "select * from 登錄表 where 用戶名='"& Text1.Text & "”'rs.Open str1, cn, 1, 3rs.AddNewrs（"用戶名"）=Text1.Textrs（"密碼"）=Text2.Textrs.UpdateMsgBo

16、x "注冊(cè)成功",64,"信息提示"End IfEnd Sub登錄功能代碼Private Sub Comma nd1_Click()strsql = "select * from 登錄表 where 用戶名="'& Textl.Text & ""' & "and密碼="'& Text2.Text& "”rs.Ope n strsql, cn, 1,3If rs.EOF ThenMsgBox "用戶名或密碼錯(cuò)了 &

17、quot;, 32,"警告”ElseForm5.ShowUn load MeEnd IfEnd Sub登錄界面相關(guān)功能與數(shù)據(jù)庫(kù)連接的代碼Private Sub Form_Load()cn.Connection Stri ng="Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityIn fo=False;I nitial Catalog=cn. Ope n超市管理”End Sub4.2登錄后主界面功能及界面及其相關(guān)功能代碼登錄后主界面（圖4.2）圖4.2登錄后主界面422主界面相關(guān)功能代碼Dim cn As

18、 New ADODB.Co nn ectionDim rs As New ADODB.Recordset 'Dow nl oad by xxcodefa Private Sub Comma nd1_Click() Form2.ShowUn load MeEnd SubPrivate Sub Comma nd2_Click()Form3.ShowUn load MeEnd SubPrivate Sub Comma nd3_Click()Form5.ShowUn load MeEnd SubPrivate Sub Comma nd4_Click()Form4.ShowUn load MeE

19、nd Sub4.3商品信息查詢界面及其相關(guān)功能代碼查詢商品信息功能代碼Private Sub Comma nd1_Click() strl = "select * from 商品表 where 商品號(hào)="'& Textl.Text & ""'If rs.State = 1 Then rs.CloseEnd If rs.Open strl, cn, 1, 3If rs.EOF The nMsgBox "該商品不存在Adodclxma ndType = adCmdTextAdodcI.RecordSource = s

20、trlAdodcl.RefreshElseTextl.Text = rs（"商品號(hào)”）Text2.Text = rs（"商品名稱"）Text3.Text = rs（"庫(kù)存量"）Text4.Text = rs（"商品類型"）Text5.Text = rs（"廠商"）Text6.Text = rs（"單價(jià)"）End IfEnd Sub添加商品功能代碼Private Sub Comma nd2_Click（）strl = "select * from 商品表 where 商品號(hào)=&

21、quot;'& Textl.Text & ""'If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF The nrs.AddNewrs（"商品號(hào)"）=Textl.Textrs（"商品名稱"）=Text2.Textrs（"庫(kù)存量"）=Text3.Textrs（"商品類型"）=Text4.Textrs（"廠商"）=Text5.Textrs（"單價(jià)"）

22、=Text6.Textrs.UpdateMsgBox "數(shù)據(jù)添加成功",64,"信息提示”Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 商品表”AdodcI.RefreshTextl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""ElseMsgB

23、ox "該商品已經(jīng)存在了 ", 16,"警告”End IfEnd Sub刪除商品信息功能代碼Private Sub Comma nd4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 The nrs.CloseEnd IfIf rs1.State = 1 The nrs1.CloseEnd Ifrs1.Open "select * from 商品表 where 商品號(hào)="'& Text1.Text & &q

24、uot;'and 商品名稱="'&Text2.Text & "”', cn, 1,3If rs1.EOF The nMsgBox "沒(méi)有此種商品不能刪除！”Elsers.Open "delete 商品表 where 商品號(hào)="'& Text1.Text & "' and商品名稱="'& Text2.Text &"”,cn, 1,3MsgBox "確定刪除嗎",32 + 4,"警告"

25、Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 商品表”Adodc1.RefreshEnd IfText1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""End Sub商品信息功能與數(shù)據(jù)庫(kù)連接代碼Private Sub Form_Load()cn .Co nn ectio nS

26、tri ng= "Provider=SQLOLEDB.1;l ntegrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=超市管理"cn. Ope nEnd Sub4.4銷售記錄查詢界面及其相關(guān)功能代碼查詢已銷售商品信息功能代碼Private Sub Comma nd1_Click() str1 = "select * from 銷售表 where 銷售號(hào)="'& Textl.Text & ""'If rs.State = 1 T

27、henrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF ThenMsgBox "該銷售商品不存在”Adodc1xma ndType = adCmdTextAdodc1.RecordSource = str1Adodc1.RefreshElseText1.Text = rs（"銷售號(hào)”）Text2.Text = rs（"職工號(hào)"）Text3.Text = rs（"商品號(hào)"）Text4.Text = rs（"銷售數(shù)量"）Text6.Text = rs（"銷售時(shí)間&qu

28、ot;）End IfEnd Sub添加已銷售商品信息功能代碼Private Sub Comma nd2_Click（）str1 = "select * from 銷售表 where 銷售號(hào)="'& Textl.Text & ""'If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF The nrs.AddNewrs（"銷售號(hào)"）=Textl.Textrs（"職工號(hào)"）=Text2.Textrs（"

29、;商品號(hào)"）=Text3.Textrs（"銷售數(shù)量"）=Text4.Textrs（"銷售時(shí)間"）=Text6.Textrs.UpdateMsgBox "數(shù)據(jù)添加成功",64,"信息提示”Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 銷售表”AdodcI.RefreshText1.Text =""Text2.Text =""Text3.Text =""Text4.T

30、ext =""Text6.Text =""ElseMsgBox "該種銷售商品已經(jīng)存在了", 16,"警告"End IfEnd Sub刪除已銷售商品信息功能代碼Private Sub Comma nd3_Click()c = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎 ？", 32 + 4,"特別提示")X = If c = vbYes The nstr1 = "select * from 銷售表 where 銷售號(hào)='x" & "&q

31、uot;If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1,3Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 銷售表”Adodc1.RefreshMsgBox "銷售商品的所有信息成功刪除",64,"信息提示”Adodc1.RefreshText1.Text =""Text2.Text =""Text3.Text =""Text4.Text ="&

32、quot;Text6.Text =""End IfElseMsgBox "當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒(méi)有可刪除的記錄",64,"警告”End IfEnd Sub銷售商品信息表與數(shù)據(jù)庫(kù)連接代碼Private Sub Form_Load()cn .Co nn ectio nStri ng= "Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityInfo=False;Initial Catalog=超市管理"cn. Ope nEnd Sub4.5員工信息查詢界面及其相關(guān)功

33、能代碼添加員工信息功能代碼Private Sub Comma nd1_Click()strl = "select * from 銷售人員表 where 職工號(hào)="'& Textl.Text &If rs.State = 1 The nrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF The nrs.AddNewrs（"職工號(hào) ”）=Text1.Textrs（"姓名"）=Text2.Textrs（"性別"）=Text3.Textrs（"用戶類型&quo

34、t;）=Text4.Textrs.UpdateMsgBox "用戶添加成功",64,"信息提示"Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 銷售人員表”AdodcI.RefreshTextl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""ElseMsgBox "該職工已經(jīng)存在了 ", 16,"警告”

35、End IfEnd Sub查詢員信息功能代碼Private Sub Comma nd2_Click（）strl = "select * from 銷售人員表 where 職工號(hào)="'& Textl.Text &milmilIf rs.State = 1 The n rs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF ThenMsgBox "這個(gè)職工不存在”Adodclxma ndType = adCmdTextAdodcI.RecordSource = strlAdodcI.RefreshElseTe

36、xtl.Text = rs（"職工號(hào)”）Text2.Text = rs（"姓名"）Text3.Text = rs（"性別"）Text4.Text = rs（"用戶類型"）Adodc1xma ndType = adCmdTextAdodc1.RecordSource = str1Adodc1.RefreshEnd IfEnd Sub刪除員工信息功能代碼Private Sub Comma nd4_Click（）c = MsgBox（"您確認(rèn)要?jiǎng)h除該記錄嗎 ？", 32 + 4,"特別提示"

37、）X = If c = vbYes The nstr1 = "select * from 銷售人員表 where 職工號(hào)='x" & “"If rs.State = 1 Thenrs.CloseEnd Ifrs.Open strl, cn, 1,3Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 銷售人員表”AdodcI.RefreshMsgBox "職工信息成功刪除",64,"信息提示”AdodcI.RefreshTextl.T

38、ext =""Text2.Text ="”Text3.Text =""Text4.Text =""End IfElseMsgBox "當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒(méi)有可刪除的記錄",64,"警告”End IfEnd Sub員工信息查詢功能與數(shù)據(jù)庫(kù)連接的代碼Private Sub Form_Load()cn .Co nn ectio nStri ng= "Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityInfo=False;I

39、nitial Catalog=超市管理"cn. Ope nEnd Sub第五章.數(shù)據(jù)設(shè)計(jì)5.1數(shù)據(jù)庫(kù)中各數(shù)據(jù)表的說(shuō)明登陸表功能說(shuō)明及其創(chuàng)建的 SQL代碼（表5.1）用戶名：存放用戶登錄系統(tǒng)的用戶名charC 10)char(10)數(shù)據(jù)類型允許Null值milair hi I用戶名riniHii-iiHinni密碼密碼：存放用戶登錄系統(tǒng)的密碼圖5.1登陸表 創(chuàng)建登錄表的SQI代碼USE 超市管理GOSET ANSI NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE dbo. 登錄表(用戶名char

40、(10) NOT NULL,密碼char(10) NOT NULL)ON PRIMARYGOSET ANSI_PADDING OFFGO商品表說(shuō)明及及其創(chuàng)建的 SQL代碼（表5.2 ）商品號(hào)：系統(tǒng)分配給商品的唯一的標(biāo)示值（主鍵） 商品名稱：用于存放商品的名稱的信息單價(jià)：用于存放商品的價(jià)格的信息商品類型：用于存放商品所屬的類型信息庫(kù)存量：用于存放商品的庫(kù)存的信息廠商：用于存放商品的生產(chǎn)商家的信息1列名1數(shù)據(jù)類型允許Niil值IYarchar(SO)商品名稱varchar(SO)單價(jià)float0商品類型varchar(SO)0庫(kù)存量char( 10)0廠商varchar(5O)0表5.2商品表創(chuàng)建

41、商品表的SQL代碼USE 超市管理GOSET 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 (PADNDEX = OFF, STATIS

42、TICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY=OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON PRIMARY)ON PRIMARYGOSET ANSI_PADDING OFFGO銷售表說(shuō)明及及其創(chuàng)建的 SQL代碼(表5.3)銷售號(hào)：系統(tǒng)分配給所銷售商品的唯一編號(hào)職工號(hào)：存放銷售該商品的職工編號(hào)銷售數(shù)量：存放銷售商品的數(shù)量銷售時(shí)間：存放銷售該商品的時(shí)間列名數(shù)據(jù)類型允許Ndl值varchar(50)職工號(hào)varchar(50)商品尋varchar(5O)銷售數(shù)星float梢售時(shí)間datetime表5.3銷售表創(chuàng)建銷售表的SQL代碼USE 超市管理GOSET ANSI_NULLS ONGOSET QUOTED_