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

1、題目：小型超市管理系統(tǒng)作者姓名：學(xué)號：系（院）、專業(yè)：指導(dǎo)教師姓名：2012 年第1章設(shè)計目的與要求1.1設(shè)計背景和功能錯誤！未定義書簽錯誤！未定義書簽1.2設(shè)計環(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è)計73.1功能模塊設(shè)計73.2數(shù)據(jù)庫設(shè)計 9概念結(jié)構(gòu)設(shè)計9邏輯結(jié)構(gòu)設(shè)計11第4章系統(tǒng)實施144.1注冊及登錄14注冊功能及代碼（圖4.1） 一五登錄功能代碼 116登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼 164.2登錄后主界面功能及界面及其相關(guān)功能代碼 16主界面相關(guān)功能代碼 1174.3商品信息查詢界面及其相關(guān)功能代碼 11

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

3、及及其創(chuàng)建的 SQL代碼（表5.3）.30職工表說明及及其創(chuàng)建的SQL代碼（表5.4）.31第六章經(jīng)驗與體會33參考文獻(xiàn)33第1章設(shè)計目的與要求1.1設(shè)計背景和功能超市管理系統(tǒng)是市場上最流行的超市上常用的系統(tǒng)之一，它主要包含以下幾 個模塊：用戶登陸管理、商品類型及商品的管理、進(jìn)貨和銷售的管理、銷售分析 等。從而，實現(xiàn)對進(jìn)貨、銷售及員工信息等實現(xiàn)全面、動態(tài)、及時的管理。隨著 超市規(guī)模的發(fā)展和不斷擴大，商品數(shù)量急劇增加，有關(guān)商品的各種信息量也成倍 增長。超市時時刻刻都需要對商品各種信息進(jìn)行統(tǒng)計分析。而大型的超市管理系 統(tǒng)功能過于強大而造成操作繁瑣降低了小超市的工作效率。小型超市管理系統(tǒng)按分類、分級

4、的模式對倉庫進(jìn)行全面的管理和監(jiān)控縮短了 超市信息流轉(zhuǎn)時間，使企業(yè)的物資管理層次分明、井然有序，為采購、銷售提供 依據(jù)，智能化的預(yù)警功能可以自動提示存貨短缺、超儲等異常狀況；系統(tǒng)還可進(jìn) 行材料超市ABC分類匯總，減少資金積壓。完善的小型超市管理功能，可對企業(yè) 的存貨進(jìn)行全面的控制和管理，降低超市成本，增強企業(yè)的市場競爭力。1.2設(shè)計環(huán)境硬件環(huán)境：1.一臺Pentium 4 cpu以上的計算機軟件環(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)分析小型超市分為銷售部，庫存管理部，財務(wù)部

5、，人事部四個主要部門，超市的決策權(quán)和管理權(quán)歸超市經(jīng)營者擁有，超市的每個部門的管理都有專職人員負(fù)責(zé)。小型超市管理系統(tǒng)的組織結(jié)構(gòu)的描述如圖2-1所示：圖2-1組織結(jié)構(gòu)圖組織功能表如圖2-2所示:登錄界面用戶輸入正確的用戶名和相對應(yīng)的密碼即可進(jìn)入，否則退出系統(tǒng)維護(hù)主要用于實現(xiàn)系統(tǒng)用戶設(shè)置、操作人員管理、密碼修改采購管理主要用于實現(xiàn)采購數(shù)據(jù)和采購單查詢、采購統(tǒng)計單查詢庫存管理主要用于實現(xiàn)商品出庫、入庫的添加修改，商品出庫、入庫的查詢銷售管理主要用于實現(xiàn)銷售數(shù)據(jù)記錄、客戶退貨記錄和銷售、退貨信息查詢其他設(shè)置主要用于實現(xiàn)員工管理，供應(yīng)商的設(shè)置，省份的設(shè)置，商品的種類報表主要用于實現(xiàn)庫存的盤點、銷售的信息、

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

7、-4所示：圖2-4數(shù)據(jù)流圖2.4數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息的集合，也就是對數(shù)據(jù)流圖中包含的所有元素的定義的集合。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型。1、數(shù)據(jù)字典列表數(shù)據(jù)存儲數(shù)據(jù)名稱：管理員信息簡 述：用戶注冊填寫的信息數(shù)據(jù)來源：用戶注冊填寫數(shù)據(jù)去向：用戶信息表數(shù)據(jù)組成：管理員信息二管理信息唯一標(biāo)識+管理員帳號+管理員密碼+管理員權(quán)限+注冊時間描述：存儲了管理員的基本信息數(shù)據(jù)存儲名稱：商品信息簡述：管理員填寫的商品信息數(shù)據(jù)來源：管理員填寫數(shù)據(jù)去向：商品信息表數(shù)據(jù)組成：商品信息=商品信息唯一標(biāo)識+貨物名稱+供貨編號+進(jìn)價+售價+數(shù)量+廠商等描述：存儲了商品信息數(shù)據(jù)存儲名稱：庫存信息簡述

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

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

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

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

12、編號）將各實體內(nèi)容的數(shù)據(jù)類型生成數(shù)據(jù)庫如圖5.3所示:表3-7密碼表字段名字段類型字段寬度說明user nameChar6用戶名passwordlChar6密碼leixi ngChar6類型表3-8商品表字段名字段類型字段寬度說明spbhChar20商品編號spmcChar20商品名稱zlChar10種類dwChar10單位djInt4單價jhlInt4凈含量kclInt4庫存量bzqInt4保質(zhì)期scsjDatetime8生產(chǎn)時間scsfChar20生產(chǎn)省份sccjChar50生產(chǎn)廠家表3-9員工表字段名字段類型字段寬度說明ygbhChar6員工編號ygxmChar6員工姓名xbChar6性

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

14、度說明ghshChar8供應(yīng)商號sfChar40省份cmChar50廠名lxfsChar20聯(lián)系方式wzChar20網(wǎng)址表3-一三入庫表字段名字段類型字段寬度說明spbhChar6商品編號rksjDatetime8入庫時間spcjChar50商品廠家slInt4數(shù)量第四章.系統(tǒng)實施4.1注冊及登錄該功能可以實現(xiàn)用戶的注冊和登錄*小型超帀后臺菅理小型超市管理系統(tǒng)登陸界而用戶名密碼登錄注冊功能及代碼（圖4.1 ）小型超市管理系統(tǒng)登陸界面用戶名密碼登錄注冊退出圖4.1用戶注冊注冊功能代碼Private Sub 注冊 _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 "注冊成功",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 "用戶名或密碼錯了 &

17、quot;, 32,"警告”ElseForm5.ShowUn load MeEnd IfEnd Sub登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼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 商品號="'& 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（"商品號”）Text2.Text = rs（"商品名稱"）Text3.Text = rs（"庫存量"）Text4.Text = rs（"商品類型"）Text5.Text = rs（"廠商"）Text6.Text = rs（"單價"）End IfEnd Sub添加商品功能代碼Private Sub Comma nd2_Click（）strl = "select * from 商品表 where 商品號=&

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

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 商品號="'& Text1.Text & &q

24、uot;'and 商品名稱="'&Text2.Text & "”', cn, 1,3If rs1.EOF The nMsgBox "沒有此種商品不能刪除！”Elsers.Open "delete 商品表 where 商品號="'& 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ù)庫連接代碼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 銷售號="'& 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（"銷售號”）Text2.Text = rs（"職工號"）Text3.Text = rs（"商品號"）Text4.Text = rs（"銷售數(shù)量"）Text6.Text = rs（"銷售時間&qu

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

29、;商品號"）=Text3.Textrs（"銷售數(shù)量"）=Text4.Textrs（"銷售時間"）=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)要刪除該記錄嗎 ？", 32 + 4,"特別提示")X = If c = vbYes The nstr1 = "select * from 銷售表 where 銷售號='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ù)庫中已經(jīng)沒有可刪除的記錄",64,"警告”End IfEnd Sub銷售商品信息表與數(shù)據(jù)庫連接代碼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 職工號="'& Textl.Text &If rs.State = 1 The nrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF The nrs.AddNewrs（"職工號 ”）=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 職工號="'& Textl.Text &milmilIf rs.State = 1 The n rs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF ThenMsgBox "這個職工不存在”Adodclxma ndType = adCmdTextAdodcI.RecordSource = strlAdodcI.RefreshElseTe

36、xtl.Text = rs（"職工號”）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)要刪除該記錄嗎 ？", 32 + 4,"特別提示"

37、）X = If c = vbYes The nstr1 = "select * from 銷售人員表 where 職工號='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ù)庫中已經(jīng)沒有可刪除的記錄",64,"警告”End IfEnd Sub員工信息查詢功能與數(shù)據(jù)庫連接的代碼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è)計5.1數(shù)據(jù)庫中各數(shù)據(jù)表的說明登陸表功能說明及其創(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商品表說明及及其創(chuàng)建的 SQL代碼（表5.2 ）商品號：系統(tǒng)分配給商品的唯一的標(biāo)示值（主鍵） 商品名稱：用于存放商品的名稱的信息單價：用于存放商品的價格的信息商品類型：用于存放商品所屬的類型信息庫存量：用于存放商品的庫存的信息廠商：用于存放商品的生產(chǎn)商家的信息1列名1數(shù)據(jù)類型允許Niil值IYarchar(SO)商品名稱varchar(SO)單價float0商品類型varchar(SO)0庫存量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. 商品表(商品號varchar(50) NOT NULL,商品名稱varchar(50) NOT NULL,單價float NULL,商品類型varchar(50) NULL,庫存量char(10) NULL,廠商varchar(50) NULL,CONSTRAINT PK_ 商品表PRIMARY KEY CLUSTERED(商品號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銷售表說明及及其創(chuàng)建的 SQL代碼(表5.3)銷售號：系統(tǒng)分配給所銷售商品的唯一編號職工號：存放銷售該商品的職工編號銷售數(shù)量：存放銷售商品的數(shù)量銷售時間：存放銷售該商品的時間列名數(shù)據(jù)類型允許Ndl值varchar(50)職工號varchar(50)商品尋varchar(5O)銷售數(shù)星float梢售時間datetime表5.3銷售表創(chuàng)建銷售表的SQL代碼USE 超市管理GOSET ANSI_NULLS ONGOSET QUOTED_