劉則芬07212151240羅春07212151210SQL課程設(shè)計

1、計算機科學(xué)與技術(shù)專業(yè)課 程 設(shè) 計設(shè)計題目 超市收銀管理系統(tǒng)學(xué)生姓名 劉則芬and羅春學(xué) 號 07212151240 、 07212151210專業(yè)班級 07計算機科學(xué)與技術(shù)二班指導(dǎo)教師孫燦明 院 新 華 學(xué) 院 系 信息工程 2010年 1 月 6 日目 錄摘要 1第1章 緒論 2第2章 需求分析 4 2.1、數(shù)據(jù)庫基本信息 4 2.2 系統(tǒng)的功能 4第3章 數(shù)據(jù)分析與建模 5 3.1、數(shù)據(jù)分析 5 3.2、數(shù)據(jù)模型 5第4章 數(shù)據(jù)庫建立 6 4.1、數(shù)據(jù)庫表的建立 6 4.2、數(shù)據(jù)庫E-R圖和關(guān)系圖的建立 8第5章 數(shù)據(jù)庫應(yīng)用開發(fā) 10 5.1、數(shù)據(jù)庫實時數(shù)據(jù) 10 5.2、數(shù)據(jù)庫存儲過程

2、 11 5.3、數(shù)據(jù)庫觸發(fā)器 13 5.4、VB前臺程序設(shè)計 14 5.5、功能操作說明 25第6章 結(jié)論與體會 26 致謝 26參考文獻 27摘要【摘要】選課系統(tǒng)是針對社會中一些小型超市使用，從消費者的角度來說，結(jié)賬時應(yīng)該準確和快速，畢竟時間就金錢。由于傳統(tǒng)的超市收銀管理給顧客和店主帶來很多不便，針對這方面的缺陷，團隊開發(fā)這個系統(tǒng)可以方便快捷查出顧客結(jié)賬情況，商品信息情況，每天的售貨情況。方便了對超市商品管理、人員管理。大大提高了超市銷售速度。進而加速了社會的發(fā)展速度，提高了人民的生活水平。本系統(tǒng)還可以給顧客和超市節(jié)約更多時間，加快了超市的運轉(zhuǎn)速度。關(guān)鍵詞：VB；小型超市收銀管理系統(tǒng)；SQL

3、 Server 2000AbstractShop-sale- system is aims at in the school student and the teacher uses, said from students angle, as a result of the school teaching system reform, now the majority of institutions of higher learning started to implement is the student independently chooses the class pattern, th

4、e traditional educational model (student to attend class according to curriculum which school arranged) already cannot adapt the new teaching method, if still chose the class through the paper on way, on the one hand wasted massive manpower, physical resource resources, on the other hand wasted the

5、time as well as situation and so on mistake which inevitably appeared in the artificial statistical process. Along with universities population increasing, this kind of malpractice can more and more many expositions. Therefore, student so long as inputs own in front of the computer candidate class i

6、nformation then to complete the original several time of work requirements. Said from teachers angle that, similarly has saved the massive work loads, because the teacher proposed served as a substitute teacher the application to complete the work which the curriculum issued to compare the student t

7、o choose the class to say even more complex, therefore through on-line carried on the curriculum to send the Puneng nationality large scale reduction teachers work load, reduced the wrong occurrence probability. As teacher, also so long as operates through own computer then, does not need to rush ab

8、out again between the school administration office and the office.【關(guān)鍵詞】 小型超市收銀管理系統(tǒng)一、緒論 本系統(tǒng)編寫目的在于研究城鄉(xiāng)式的小型超市銷售管理系統(tǒng)軟件的可行途徑和使用方法。21世紀，超市的競爭也進入到了一個全新的領(lǐng)域，競爭已不再是規(guī)模的競爭，而是技術(shù)的競爭、管理的競爭、人才的競爭。技術(shù)的提升和管理的升級是超市業(yè)的競爭核心。零售領(lǐng)域目前呈多元發(fā)展趨勢，多種業(yè)態(tài)：超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在激烈的競爭中擴大銷售額、降低經(jīng)營成本、擴大經(jīng)營規(guī)模，成為超市營業(yè)者努力追求的目標。 為了提高物資

9、管理的水平和工作效率，盡可能杜絕商品流通中各環(huán)節(jié)中可能出現(xiàn)的資金流失不明現(xiàn)象，商品進銷存領(lǐng)域迫切需要引入信息系統(tǒng)來加以管理。而商品銷售管理系統(tǒng)是當前應(yīng)用于超市或者公司管理系統(tǒng)的典型代表。 本組設(shè)計的超市銷售管理系統(tǒng)主要完成的功能有：商品基本信息維護、人員管理信息維護、銷售管理等，以及這一系列過程中涉及商品的數(shù)據(jù)修改、查詢統(tǒng)計、刪除等多種操作。此外，具有很多的優(yōu)點，其中包括易于使用，熟悉的界面，高嚴謹及較低的內(nèi)存空間戰(zhàn)勝。本系統(tǒng)的開發(fā)使用的是方式來開發(fā)數(shù)據(jù)庫。要使用這種訪問方式，必須在工程里面引用Microsoft ActiveX Data Objects庫。使用本系統(tǒng)大大提高超市的運作效率；通

10、過全面的信息采集和處理，輔助提高超市的決策水平；還可以迅速提升超市的管理水平，為降低經(jīng)營成本，提高效益，增強超市擴張力，提供有效的技術(shù)保障。二、需求分析2.1、數(shù)據(jù)庫基本信息（1） 銷售員工表（2） 商品表（3） 銷售表（4） 登錄表 2.2、系統(tǒng)的功能（1） 添加員工、商品等基本信息如可添加每個員工的職工號、姓名、性別、用戶類型；（2） 查詢員工、商品的信息和查詢商品銷售情況，查詢的原理是首先在系統(tǒng)庫內(nèi)銷售員工表、商品表、銷售表都有自己的主碼信息，若沒有，則必須通過添加功能模塊來給系統(tǒng)添加它們信息。然后根據(jù)此唯一特性來查出它們的所有信息。例如在商品表界面中，只要我們輸入商品號，然后單擊查詢按

11、鈕，就可以出此商品的商品名稱、商品類型、庫存量和廠商即產(chǎn)地。（3） 刪除員工、商品表、銷售表的基本信息，根據(jù)其主碼，查詢出此商品的信息，然后刪除它們所包含的所有信息。（4） 修改員工、商品表、銷售表的基本信息，通過根據(jù)它們的主碼號，查出它們的基本信息，然后根據(jù)需要對其作出相應(yīng)的信息進行修改。（5） 對于登錄表，其有三個功能：注冊、登陸、退出；有兩個字段：用戶名、密碼。注冊實質(zhì)上就是向登錄表內(nèi)插入用戶信息。如：在登陸界面的用戶名窗口中輸入“羅春”，在密碼窗口內(nèi)輸入“123”，再點擊“注冊”按鈕，此時，系統(tǒng)會告訴：“注冊成功”。這時，你就可以看見登錄表中有一條信息：用戶名：羅春，密碼123。這就是

12、注冊的效果。然后通過登錄按鈕進入系統(tǒng)。 三、數(shù)據(jù)分析與建模3.1、數(shù)據(jù)分析 小型超市收銀管理系統(tǒng)是一個針對超市收銀員管理的一個簡單系統(tǒng)。數(shù)據(jù)庫中主要含有四張表，登陸表中字段有用戶名，密碼。銷售表中字段有銷售號、職工號、商品號、銷售時間、銷售數(shù)量。銷售員工表：職工號、姓名、性別、用戶類型。商品表：商品號、商品名稱、商品類型、單價、庫存量、廠商。3.2、 數(shù)據(jù)建模 小型超市收銀管理系統(tǒng)登陸表銷售表銷售員工表商品表登錄注冊退出查詢添加刪除退出查詢添加退出刪除查詢刪除添加退出 四、數(shù)據(jù)庫建立4.1、數(shù)據(jù)庫中表的建立通過對數(shù)據(jù)庫德數(shù)據(jù)分析闡述出系統(tǒng)中表的信息如下： 登陸表：用戶名、密碼 銷售表：銷售號、

13、職工號、商品號、銷售時間、銷售數(shù)量 小型超市收銀管理系統(tǒng) 銷售員工表：職工號、姓名、性別、用戶類型 商品表：商品號、商品名稱、商品類型、單價、庫存量、廠商 （登錄表） （商品表） （銷售人員表） （銷售表）4.2、數(shù)據(jù)庫中E-R圖和關(guān)系圖的建立由上述表的信息得出E-R圖如下(1) 登陸表登陸表用戶名密碼（2）銷售員工表銷售員工表職工號姓名性別用戶類型（3）銷售表銷售表銷售號職工號商品號銷售時間銷售數(shù)量（4）商品表商品表商品號廠商單價庫存量商品類型商品名稱（5）各實體E-R圖銷售表銷售數(shù)量銷售號職工號商品號銷售時間銷售員工表決定用戶類型姓名性別職工號商品表決定商品號商品名稱商品類型單價廠商庫存量

14、登陸表用戶名密碼登陸（6）關(guān)系圖五、數(shù)據(jù)庫應(yīng)用和開發(fā)5.1、數(shù)據(jù)庫中實時數(shù)據(jù)（1）商品表中的實時數(shù)據(jù)（2）銷售表中的實時數(shù)據(jù)（3）登陸表中的實時數(shù)據(jù)（4）銷售員工表中的實時數(shù)據(jù)5.2、數(shù)據(jù)庫中存儲過程源碼（1） 商品表刪除CREATE PROCEDURE spb_deletesph varchar(50),flag int outputasif exists(select *from 商品表 where 商品號=sph and 庫存量=0)begindelete from 商品表 where 商品號=sph and 庫存量=0set flag=0endelse set flag=1GO（2）

15、商品表插入CREATE PROCEDURE spb_insertsph varchar(50),spmc varchar(50),splx varchar(50),dj float,kcl char(10),cs varchar(50)asinsert into 商品表 (商品號,商品名稱,庫存量,商品類型,廠商,單價)values (sph,spmc,kcl,splx,cs,dj)GO（3） 商品表修改CREATE PROCEDURE spb_updatesph varchar(50),spmc varchar(50),kcl char(50),dj float ,splx varchar(

16、50),cs varchar (50)asdelete xs where 商品號=sphinsert into 商品表(商品號,商品名稱,庫存量,單價 ,商品類型,廠商)values (sph,spmc,kcl,dj,splx,cs)GO（4） 銷售表插入CREATE PROCEDURE xsb_insertxsh varchar(50),zgh varchar(50),sph varchar(50),xssl float,xssj datetime,flag int output asset flag=(select 庫存量 from 商品表 where 商品號=sph)if flag0be

17、gin insert into 銷售表(銷售號,職工號,商品號,銷售數(shù)量,銷售時間) values (xsh,zgh,sph,xssl,xssj)endelse set flag=0GO（5） 員工表插入CREATE PROCEDURE ygb_insertzgh varchar(50),xm char(8),xb char(8),yhlx varchar(50)asinsert into 銷售人員表 (職工號,姓名,性別,用戶類型)values (zgh,xm,xb,yhlx)GO5.3、數(shù)據(jù)庫中觸發(fā)器源碼（1） 銷售表添加觸發(fā)器CREATE TRIGGER xsb1_insert ON 銷

18、售表 FOR INSERTasbegin update 銷售表 set 銷售數(shù)量=銷售數(shù)量+1where 銷售表.銷售號 in (select inserted.銷售號 from inserted)update 商品表 set 庫存量=庫存量-1where 商品表.商品號 in (select inserted.商品號 from inserted)end(2) 銷售表刪除觸發(fā)器(3) CREATE TRIGGER xsb1_delete ON 銷售表 (4) FOR DELETE (5) AS(6) begin (7) update 銷售表 set 銷售數(shù)量=銷售數(shù)量-1(8) where 銷

19、售表.銷售號 in (select 銷售表.銷售號 from deleted )(9) update 商品表 set 庫存量=庫存量+1(10) where 商品表.商品號 in (select 商品表 .銷售號 from deleted )(11) end5.4、VB前臺程序設(shè)計源碼（1） 登陸界面源碼Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()strsql = select * from 登錄表 where 用戶名= & Text1.Text & & and 密

20、碼= & Text2.Text & rs.Open strsql, cn, 1, 3If rs.EOF ThenMsgBox 用戶名或密碼錯了, 32, 警告ElseForm5.ShowUnload MeEnd IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Image1_Click()End SubPrivate Sub 注冊_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 用戶名和密碼不能為空, 16 + 4, 警告ElseDim rs As New ADODB.Re

21、cordsetstr1 = select * from 登錄表 where 用戶名= & Text1.Text & rs.Open str1, cn, 1, 3rs.AddNewrs(用戶名) = Text1.Textrs(密碼) = Text2.Textrs.UpdateMsgBox 注冊成功, 64, 信息提示End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Cat

22、alog=超市管理cn.OpenEnd Sub（2）商品表界面源代碼Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = select * from 商品表 where 商品號= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then MsgBox 該商品不存在 Adodc1.CommandType = adCmdText Adodc1

23、.RecordSource = str1 Adodc1.Refresh Else Text1.Text = rs(商品號)Text2.Text = rs(商品名稱)Text3.Text = rs(庫存量)Text4.Text = rs(商品類型)Text5.Text = rs(廠商)Text6.Text = rs(單價) End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 商品表 where 商品號= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1

24、, cn, 1, 3If rs.EOF Then rs.AddNew rs(商品號) = Text1.Text rs(商品名稱) = Text2.Text rs(庫存量) = Text3.Text rs(商品類型) = Text4.Text rs(廠商) = Text5.Text rs(單價) = Text6.Text rs.Update MsgBox 數(shù)據(jù)添加成功, 64, 信息提示 Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 商品表 Adodc1.Refresh Text1.Text = Text2.

25、Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Else MsgBox 該商品已經(jīng)存在了, 16, 警告 End If End SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 Thenrs.CloseEnd If If rs1.State = 1 Thenr

26、s1.CloseEnd Ifrs1.Open select * from 商品表 where 商品號= & Text1.Text & and 商品名稱= & Text2.Text & , cn, 1, 3If rs1.EOF ThenMsgBox 沒有此種商品不能刪除！Elsers.Open delete 商品表 where 商品號= & Text1.Text & and 商品名稱= & Text2.Text & , cn, 1, 3MsgBox 確定刪除嗎, 32 + 4, 警告 Adodc1.CommandType = adCmdText Adodc1.RecordSource = sel

27、ect * from 商品表 Adodc1.Refresh End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub DataGrid1_Click()If Adodc1.Recordset.RecordCount = 0 ThenMsgBox 當前表是空表, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End

28、IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd SubPrivate Sub Image1_Click()End Sub（3）銷售商品信息表界面源代碼Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub Command1_Click

29、()str1 = select * from 銷售表 where 銷售號= & 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(銷售號)Text2.Text = rs(職工號)Text3.Text = rs(商品號)Text4.Text = rs(銷售數(shù)量)T

30、ext6.Text = rs(銷售時間) End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 銷售表 where 銷售號= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(銷售號) = Text1.Text rs(職工號) = Text2.Text rs(商品號) = Text3.Text rs(銷售數(shù)量) = Text4.Text rs(銷售時間) = Text6.Text

31、 rs.Update MsgBox 數(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 SubPrivate Sub Command3_Click()If Adodc1.Recordset.EOF = False Then c =

32、 MsgBox(您確認要刪除該記錄嗎?, 32 + 4, 特別提示) X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = select * from 銷售表 where 銷售號=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 MsgBox

33、銷售商品的所有信息成功刪除, 64, 信息提示 Adodc1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text6.Text = End If Else MsgBox 當前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄, 64, 警告 End IfEnd SubPrivate Sub Command4_Click() Form5.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 當前表是空表

34、, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd SubPrivate Sub Image1_Click()End Sub（4）銷售員工信息表

35、Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = select * from 銷售人員表 where 職工號= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Then rs.AddNew rs(職工號) = Text1.Text rs(姓名) = Text2.Text rs(性別) = Text3.Text rs(用戶類型) = T

36、ext4.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 If End SubPrivate Sub Command2_Click()str1 = select * from 銷售人員表 where 職工號= & Text1

37、.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(職工號)Text2.Text = rs(姓名)Text3.Text = rs(性別)Text4.Text = rs(用戶類型) Adodc1.CommandType = adCmdText Adodc1.RecordSour

38、ce = str1 Adodc1.Refresh End If End SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.EOF = False Then c = MsgBox(您確認要刪除該記錄嗎?, 32 + 4, 特別提示) X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = select * from 銷售人員表 where 職工號=x & If rs.State =

39、1 Then rs.Close End 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 當前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄, 64, 警告 End I

40、fEnd SubPrivate Sub DataGrid1_Click()If Adodc1.Recordset.RecordCount = 0 ThenMsgBox 當前表是空表, 16, 信息提示ElseText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理cn.OpenEnd SubPrivate Sub Image1_Click()End Sub5.