超市管理系統(tǒng)課程設(shè)計(jì)_第1頁(yè)
超市管理系統(tǒng)課程設(shè)計(jì)_第2頁(yè)
超市管理系統(tǒng)課程設(shè)計(jì)_第3頁(yè)
已閱讀5頁(yè),還剩33頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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è)主要部門,超市的決策權(quán)和管理權(quán)歸超市經(jīng)營(yíng)者擁有,超市的每個(gè)部門的管理都有專職人員負(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ù)存的盤點(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_

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論