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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：27 大小：1.18MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

超市收銀管理系統(tǒng)設(shè)計(jì)課程設(shè)計(jì)_第1頁

已閱讀1頁，還剩26頁未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡介

1、　　課程設(shè) 計(jì)　　超市收銀管理系統(tǒng)　　院系 　　2010年 1 月 6 日　　目錄&

2、lt;p>　　摘要 ……………………………………………… 1　　緒論 ……………………………………………… 2　　需求分析 ……………………………………………… 4　　2.1、數(shù)據(jù)庫基本信息 ………………………………………

3、 4　　2.2 系統(tǒng)的功能 ……………………………………… 4　　數(shù)據(jù)分析與建模 ……………………………………………… 5　　3.1、數(shù)據(jù)分析 ……………………………………… 5　　3.2、數(shù)據(jù)模型 …………………………

4、…………… 5　　數(shù)據(jù)庫建立 ……………………………………………… 6　　4.1、數(shù)據(jù)庫表的建立 ……………………………………… 6　　4.2、數(shù)據(jù)庫E-R圖和關(guān)系圖的建立………………………… 8　　數(shù)據(jù)庫應(yīng)用開發(fā) ………………………………………

5、……… 10　　5.1、數(shù)據(jù)庫實(shí)時(shí)數(shù)據(jù) ……………………………………… 10　　5.2、數(shù)據(jù)庫存儲(chǔ)過程 ……………………………………… 11　　5.3、數(shù)據(jù)庫觸發(fā)器 ……………………………………… 13　　5.4、VB前臺(tái)程序設(shè)計(jì) ………………

6、……………………… 14　　5.5、功能操作說明 ……………………………………… 25　　結(jié)論與體會(huì) ……………………………………………… 26　　致謝 ……………………………………………… 26　　參考

7、文獻(xiàn) ……………………………………………… 27　　摘要　　【摘要】　　選課系統(tǒng)是針對(duì)社會(huì)中一些小型超市使用，從消費(fèi)者的角度來說，結(jié)賬時(shí)應(yīng)該準(zhǔn)確和快速，畢竟時(shí)間就金錢。由于傳統(tǒng)的超市收銀管理給顧客和店主帶來

8、很多不便，針對(duì)這方面的缺陷，團(tuán)隊(duì)開發(fā)這個(gè)系統(tǒng)可以方便快捷查出顧客結(jié)賬情況，商品信息情況，每天的售貨情況。方便了對(duì)超市商品管理、人員管理。大大提高了超市銷售速度。進(jìn)而加速了社會(huì)的發(fā)展速度，提高了人民的生活水平。本系統(tǒng)還可以給顧客和超市節(jié)約更多時(shí)間，加快了超市的運(yùn)轉(zhuǎn)速度。　　關(guān)鍵詞：VB；小型超市收銀管理系統(tǒng)；SQL Server 2000

9、　　Abstract　　Shop-sale- system is aims at in the school student and the teacher uses, said from student's angle, as a result of the school teaching system reform, now the majority of ins

10、titutions of higher learning started to implement is the student independently chooses the class pattern, the traditional educational model (student to attend class according to curriculum which school arranged) already

11、cannot adapt the new teaching method, if still chose the class through the paper on way, on the one hand wa　　【關(guān)鍵詞】小型超市收銀管理系統(tǒng)　　一、緒論　　本系統(tǒng)編寫

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

13、的目標(biāo)。　　為了提高物資管理的水平和工作效率，盡可能杜絕商品流通中各環(huán)節(jié)中可能出現(xiàn)的資金流失不明現(xiàn)象，商品進(jìn)銷存領(lǐng)域迫切需要引入信息系統(tǒng)來加以管理。而商品銷售管理系統(tǒng)是當(dāng)前應(yīng)用于超市或者公司管理系統(tǒng)的典型代表。　　本組設(shè)計(jì)的超市銷售管理系統(tǒng)主要完成的功能有：商品基本信息維護(hù)、人員管理信息維護(hù)、銷售管理等，以及這一系列過程中涉及商品的數(shù)據(jù)修改、查詢統(tǒng)計(jì)、刪

14、除等多種操作。此外，ＡＤＯ具有很多的優(yōu)點(diǎn)，其中包括易于使用，熟悉的界面，高嚴(yán)謹(jǐn)及較低的內(nèi)存空間戰(zhàn)勝。本系統(tǒng)的開發(fā)使用的是ＡＤＯ方式來開發(fā)數(shù)據(jù)庫。要使用這種訪問方式，必須在ＶＢ工程里面引用Microsoft ActiveX Data Objects庫。使用本系統(tǒng)大大提高超市的運(yùn)作效率；通過全面的信息采集和處理，輔助提高超市的決策水平；還可以迅速提升超市的管理水平，為降低經(jīng)營成本，提高效益，增強(qiáng)超市擴(kuò)張力，提供有效的技術(shù)保障。</p&

15、gt;　　二、需求分析　　2.1、數(shù)據(jù)庫基本信息　　銷售員工表　　商品表　　銷售表</p&g

16、t;　　登錄表 　　2.2、系統(tǒng)的功能　　添加員工、商品等基本信息如可添加每個(gè)員工的職工號(hào)、姓名、性別、用戶類型；　　查詢員工、商品的信息和查詢商品銷售情況，查詢的原理是首先在系統(tǒng)庫內(nèi)銷售員工表、商品表、銷售表都有自

17、己的主碼信息，若沒有，則必須通過添加功能模塊來給系統(tǒng)添加它們信息。然后根據(jù)此唯一特性來查出它們的所有信息。例如在商品表界面中，只要我們輸入商品號(hào)，然后單擊查詢按鈕，就可以出此商品的商品名稱、商品類型、庫存量和廠商即產(chǎn)地。　　刪除員工、商品表、銷售表的基本信息，根據(jù)其主碼，查詢出此商品的信息，然后刪除它們所包含的所有信息。　　修改員工、商品表、銷售表的基本

18、信息，通過根據(jù)它們的主碼號(hào)，查出它們的基本信息，然后根據(jù)需要對(duì)其作出相應(yīng)的信息進(jìn)行修改。　　對(duì)于登錄表，其有三個(gè)功能：注冊(cè)、登陸、退出；有兩個(gè)字段：用戶名、密碼。注冊(cè)實(shí)質(zhì)上就是向登錄表內(nèi)插入用戶信息。如：在登陸界面的用戶名窗口中輸入“羅春”，在密碼窗口內(nèi)輸入“123”，再點(diǎn)擊“注冊(cè)”按鈕，此時(shí)，系統(tǒng)會(huì)告訴：“注冊(cè)成功”。這時(shí)，你就可以看見登錄表中有一條信息：用戶名：羅春，密碼123。這就是注冊(cè)的

19、效果。然后通過登錄按鈕進(jìn)入系統(tǒng)。　　三、數(shù)據(jù)分析與建模　　3.1、數(shù)據(jù)分析　　小型超市收銀管理系統(tǒng)是一個(gè)針對(duì)超市收銀員管理的一個(gè)簡單系統(tǒng)。數(shù)據(jù)庫中主要含有四張表，登陸表中字段有用戶名，密碼。銷售表中字段有銷售號(hào)、職工號(hào)、商品號(hào)、銷售時(shí)間、

20、銷售數(shù)量。銷售員工表：職工號(hào)、姓名、性別、用戶類型。商品表：商品號(hào)、商品名稱、商品類型、單價(jià)、庫存量、廠商。　　數(shù)據(jù)建模　　四、數(shù)據(jù)庫建立　　4.1、數(shù)據(jù)庫中表的建立　　通過對(duì)數(shù)據(jù)庫德數(shù)據(jù)分析闡述

21、出系統(tǒng)中表的信息如下：　　登陸表：用戶名、密碼　　銷售表：銷售號(hào)、職工號(hào)、商品號(hào)、銷售時(shí)間、銷售數(shù)量　　小型超市收銀管理系統(tǒng) 　　銷售員工表：職工號(hào)、姓名、性別、用戶類型　　商品表：商品號(hào)、商品名稱、商品類型、單價(jià)、庫存量

22、、廠商　?。ǖ卿洷恚?lt;/b>　?。ㄉ唐繁恚?lt;/b>　?。ㄤN售人員表）　?。ㄤN售表）　　4.2、

23、數(shù)據(jù)庫中E-R圖和關(guān)系圖的建立　　由上述表的信息得出E-R圖如下　　登陸表　　（2）銷售員工表　?。?）銷售表<

24、;b>　?。?）商品表　?。?）各實(shí)體E-R圖　?。?）關(guān)系圖　　五、數(shù)據(jù)庫應(yīng)用和開發(fā)　　5.1、數(shù)據(jù)庫中實(shí)時(shí)數(shù)據(jù)　?。?）商品表中的實(shí)時(shí)數(shù)據(jù)

25、　?。?）銷售表中的實(shí)時(shí)數(shù)據(jù)　　（3）登陸表中的實(shí)時(shí)數(shù)據(jù)　　（4）銷售員工表中的實(shí)時(shí)數(shù)據(jù)　　5.2、數(shù)據(jù)庫中存儲(chǔ)過程源碼　　商品表刪除　　CREATE PROCEDURE s

26、pb_delete　　@sph varchar(50),@flag int output　　as　　if exists(select *from 商品表 where 商品號(hào)=@sph and 庫存量=0)　　b

27、egin　　delete from 商品表 where 商品號(hào)=@sph and 庫存量=0　　set @flag=0　　end　　else set @flag=1&

28、lt;b>　　GO　　商品表插入　　CREATE PROCEDURE spb_insert　　@sph varchar(50),@spmc varchar(50),@splx varchar(50),@dj float,@kcl char(10),

29、@cs varchar(50)　　as　　insert into 商品表 (商品號(hào),商品名稱,庫存量,商品類型,廠商,單價(jià))　　values (@sph,@spmc,@kcl,@splx,@cs,@dj)　　GO&l

30、t;/b>　　商品表修改　　CREATE PROCEDURE spb_update　　@sph varchar(50),@spmc varchar(50),@kcl char(50),@dj float ,@splx varchar(50),@cs varchar (5

31、0)　　as　　delete xs where 商品號(hào)=@sph　　insert into 商品表(商品號(hào),商品名稱,庫存量,單價(jià) ,商品類型,廠商)　　values (@sph,@spmc,@kcl,@dj,@splx,@cs)&l

32、t;/p>　　GO　　銷售表插入　　CREATE PROCEDURE xsb_insert　　@xsh varchar(50),@zgh varchar(50),@sph varchar(50),@xssl f

33、loat,@xssj datetime,　　@flag int output 　　as　　set @flag=(select 庫存量 from 商品表 where 商品號(hào)=@sph)　　if @flag>0

34、　　begin　　insert into 銷售表(銷售號(hào),職工號(hào),商品號(hào),銷售數(shù)量,銷售時(shí)間)　　values (@xsh,@zgh,@sph,@xssl,@xssj)　　end<p&g

35、t;　　else 　　set @flag=0　　GO　　員工表插入　　CREATE PROCEDURE ygb_insert<p

36、>　　@zgh varchar(50),@xm char(8),@xb char(8),@yhlx varchar(50)　　as　　insert into 銷售人員表 (職工號(hào),姓名,性別,用戶類型)　　values (@zgh,@xm,@xb,@yhlx)</

37、p>　　GO　　5.3、數(shù)據(jù)庫中觸發(fā)器源碼　　銷售表添加觸發(fā)器　　CREATE TRIGGER xsb1_insert ON 銷售表 　　FOR INSERT<

38、/p>　　as　　begin 　　update 銷售表 　　set 銷售數(shù)量=銷售數(shù)量+1　　where 銷售表.銷售號(hào) in (select inserted.

39、銷售號(hào) from inserted)　　update 商品表 　　set 庫存量=庫存量-1　　where 商品表.商品號(hào) in (select inserted.商品號(hào) from inserted)　　end

40、;　　銷售表刪除觸發(fā)器　　CREATE TRIGGER xsb1_delete ON 銷售表 　　FOR DELETE 　　AS　　begin </b

41、>　　update 銷售表 set 銷售數(shù)量=銷售數(shù)量-1　　where 銷售表.銷售號(hào) in (select 銷售表.銷售號(hào) from deleted )　　update 商品表 set 庫存量=庫存量+1　　where 商品表.商品號(hào) in (select 商品

42、表 .銷售號(hào) from deleted )　　end　　5.4、VB前臺(tái)程序設(shè)計(jì)源碼　　登陸界面源碼　　Dim cn As New ADODB.Connection<

43、p>　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'" & "an

44、d 密碼='" & Text2.Text & "'"　　rs.Open strsql, cn, 1, 3　　If rs.EOF Then　　MsgBox "用戶名或密碼錯(cuò)了", 32, "警告"

45、;　　Else　　Form5.Show　　Unload Me　　End If　　End Sub&l

46、t;/p>　　Private Sub Command2_Click()　　End　　End Sub　　Private Sub Image1_Click()<b&g

47、t;　　End Sub　　Private Sub 注冊(cè)_Click()　　If Text1.Text = "" Or Text2.Text = "" Then　　MsgBox "用戶名和密碼不能為空", 16 + 4, "警

48、告"　　Else　　Dim rs As New ADODB.Recordset　　str1 = "select * from 登錄表 where 用戶名='" & Text1.Text & "'"

49、;　　rs.Open str1, cn, 1, 3　　rs.AddNew　　rs("用戶名") = Text1.Text　　rs("密碼") = Text2.Text&l

50、t;p>　　rs.Update　　MsgBox "注冊(cè)成功", 64, "信息提示"　　End If　　End Sub<p&

51、gt;　　Private Sub Form_Load()　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"　　cn.Open<

52、;/b>　　End Sub　?。?）商品表界面源代碼　　Public cn As New ADODB.Connection　　Public rs As New ADODB.Recordset<p&g

53、t;　　Private Sub Command1_Click()　　str1 = "select * from 商品表 where 商品號(hào)='" & Text1.Text & "'"　　If rs.State = 1 Then

54、;　　rs.Close　　End If　　rs.Open str1, cn, 1, 3　　If rs.EOF Then　　MsgBox "該商品不存在"

55、　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = str1　　Adodc1.Refresh　　Else　　Text1.Text = rs("商品號(hào)")&

56、lt;/p>　　Text2.Text = rs("商品名稱")　　Text3.Text = rs("庫存量")　　Text4.Text = rs("商品類型")　　Text5.Text = rs("廠商")

57、　　Text6.Text = rs("單價(jià)")　　End If　　End Sub　　Private Sub Command2_Click()<p&

58、gt;　　str1 = "select * from 商品表 where 商品號(hào)='" & Text1.Text & "'"　　If rs.State = 1 Then　　rs.Close

59、;　　End If　　rs.Open str1, cn, 1, 3　　If rs.EOF Then　　rs.AddNew　　rs("商品號(hào)") = Text1.Text&

60、lt;p>　　rs("商品名稱") = Text2.Text　　rs("庫存量") = Text3.Text　　rs("商品類型") = Text4.Text　　rs("廠商") = Text5.Text

61、　　rs("單價(jià)") = Text6.Text　　rs.Update　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"　　Adodc1.CommandType = adCmdText<

62、/p>　　Adodc1.RecordSource = "select * from 商品表"　　Adodc1.Refresh　　Text1.Text = ""　　Text2.Text = ""<p

63、>　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Else

64、;　　MsgBox "該商品已經(jīng)存在了", 16, "警告"　　End If　　End Sub　　Private Sub Command3_Click()&

65、lt;/p>　　Form5.Show　　Unload Me　　End Sub　　Private Sub Command4_Click()　　Dim rs As New

66、ADODB.Recordset　　Dim rs1 As New ADODB.Recordset　　If rs.State = 1 Then　　rs.Close　　End If

67、　　If rs1.State = 1 Then　　rs1.Close　　End If　　rs1.Open "select * from 商品表 where 商品號(hào)='" & Text

68、1.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3　　If rs1.EOF Then　　MsgBox "沒有此種商品不能刪除！"　　E

69、lse　　rs.Open "delete 商品表 where 商品號(hào)='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'", cn, 1, 3　　MsgBox

70、 "確定刪除嗎", 32 + 4, "警告"　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 商品表"　　Adodc1.Refresh&l

71、t;p>　　End If　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text4.Text = "

72、"　　Text5.Text = ""　　Text6.Text = ""　　End Sub　　Private Sub DataGrid1_Click()<p

73、>　　If Adodc1.Recordset.RecordCount <= 0 Then　　MsgBox "當(dāng)前表是空表", 16, "信息提示"　　Else　　Text1.Text = Adodc1.Recordset.F

74、ields(0)　　Text2.Text = Adodc1.Recordset.Fields(1)　　End If　　End Sub　　Private Sub Form_Load()</p&

75、gt;　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"　　cn.Open<b&g

76、t;　　End Sub　　Private Sub Image1_Click()　　End Sub　?。?）銷售商品信息表界面源代碼　　Public cn As New ADODB.Connection</p&

77、gt;　　Public rs As New ADODB.Recordset　　Private Sub Command1_Click()　　str1 = "select * from 銷售表 where 銷售號(hào)='" & Text1.Text & "'"</

78、p>　　If rs.State = 1 Then　　rs.Close　　End If　　rs.Open str1, cn, 1, 3　　If rs.EOF Then&l

79、t;/p>　　MsgBox "該銷售商品不存在"　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = str1　　Adodc1.Refresh　　E

80、lse　　Text1.Text = rs("銷售號(hào)")　　Text2.Text = rs("職工號(hào)")　　Text3.Text = rs("商品號(hào)")　　Text4.Text = rs(&qu

81、ot;銷售數(shù)量")　　Text6.Text = rs("銷售時(shí)間")　　End If　　End Sub　　Private Sub Command2_Click()&l

82、t;/p>　　str1 = "select * from 銷售表 where 銷售號(hào)='" & Text1.Text & "'"　　If rs.State = 1 Then　　rs.Close&

83、lt;p>　　End If　　rs.Open str1, cn, 1, 3　　If rs.EOF Then　　rs.AddNew　　rs("銷售號(hào)") = Text1.T

84、ext　　rs("職工號(hào)") = Text2.Text　　rs("商品號(hào)") = Text3.Text　　rs("銷售數(shù)量") = Text4.Text　　rs("銷售時(shí)間") = Text6

85、.Text　　rs.Update　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSourc

86、e = "select * from 銷售表"　　Adodc1.Refresh　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""</p

87、>　　Text4.Text = ""　　Text6.Text = ""　　Else　　MsgBox "該種銷售商品已經(jīng)存在了", 16, "警告"

88、　　End If　　End Sub　　Private Sub Command3_Click()　　If Adodc1.Recordset.EOF = False Then　　c

89、 = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎?", 32 + 4, "特別提示")　　X = Adodc1.Recordset.Fields(0)　　If c = vbYes Then　　str1 = "select * from 銷售表 where 銷售號(hào)=&#

90、39;x" & "'"　　If rs.State = 1 Then　　rs.Close　　End If　　rs.Open str1, cn, 1, 3

91、　　'Adodc1.Recordset.Delete　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 銷售表"　　Adodc1.Refresh</

92、p>　　MsgBox "銷售商品的所有信息成功刪除", 64, "信息提示"　　Adodc1.Refresh　　Text1.Text = ""　　Text2.Text = ""<

93、;p>　　Text3.Text = ""　　Text4.Text = ""　　Text6.Text = ""　　End If　　Else</b&

94、gt;　　MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"　　End If　　End Sub　　Private Sub Command

95、4_Click()　　Form5.Show　　Unload Me　　End Sub　　Private Sub DataGrid1_Click()　　If

96、Adodc1.Recordset.RecordCount <= 0 Then　　MsgBox "當(dāng)前表是空表", 16, "信息提示"　　Else　　Text1.Text = Adodc1.Recordset.Fields(0)&

97、lt;/p>　　Text2.Text = Adodc1.Recordset.Fields(1)　　End If　　End Sub　　Private Sub Form_Load()<

98、p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"　　cn.Open　　End S

99、ub　　Private Sub Image1_Click()　　End Sub　　（4）銷售員工信息表　　Public cn As New ADODB.Connection

100、　　Public rs As New ADODB.Recordset　　Private Sub Command1_Click()　　str1 = "select * from 銷售人員表 where 職工號(hào)='" & Text1.Text & "'"<p

101、>　　If rs.State = 1 Then　　rs.Close　　End If　　rs.Open str1, cn, 1, 3　　If rs.EOF Then&l

102、t;p>　　rs.AddNew　　rs("職工號(hào)") = Text1.Text　　rs("姓名") = Text2.Text　　rs("性別") = Text3.Text

103、;　　rs("用戶類型") = Text4.Text　　rs.Update　　MsgBox "用戶添加成功", 64, "信息提示"　　Adodc1.CommandType = adCmdText

104、　　Adodc1.RecordSource = "select * from 銷售人員表"　　Adodc1.Refresh　　Text1.Text = ""　　Text2.Text = ""

105、　　Text3.Text = ""　　Text4.Text = ""　　Else　　MsgBox "該職工已經(jīng)存在了", 16, "警告"

106、;　　End If　　End Sub　　Private Sub Command2_Click()　　str1 = "select * from 銷售人員表 where 職工號(hào)='" & Text1.Text &

107、"'"　　If rs.State = 1 Then　　rs.Close　　End If　　rs.Open str1, cn, 1, 3<p

108、>　　If rs.EOF Then　　MsgBox "這個(gè)職工不存在"　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = str1　　Adodc1.Refresh

109、　　Else　　Text1.Text = rs("職工號(hào)")　　Text2.Text = rs("姓名")　　Text3.Text = rs("性別")

110、Text4.Text = rs("用戶類型")　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = str1　　Adodc1.Refresh　　End If

111、　　End Sub　　Private Sub Command3_Click()　　Form5.Show　　Unload Me　　End

112、Sub　　Private Sub Command4_Click()　　If Adodc1.Recordset.EOF = False Then　　c = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎?", 32 + 4, "特別提示")&

113、lt;p>　　X = Adodc1.Recordset.Fields(0)　　If c = vbYes Then　　str1 = "select * from 銷售人員表 where 職工號(hào)='x" & "'"　　If rs.State =

114、1 Then　　rs.Close　　End If　　rs.Open str1, cn, 1, 3　　Adodc1.Recordset.Delete　　Ad

115、odc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 銷售人員表"　　Adodc1.Refresh　　MsgBox "職工信息成功刪除", 64, "信息提示"</p&

116、gt;　　Adodc1.Refresh　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text4.Text = "&quo

117、t;　　End If　　Else　　MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"　　End If</b&g

118、t;　　End Sub　　Private Sub DataGrid1_Click()　　If Adodc1.Recordset.RecordCount <= 0 Then　　MsgBox "當(dāng)前表是空表",

119、16, "信息提示"　　Else　　Text1.Text = Adodc1.Recordset.Fields(0)　　Text2.Text = Adodc1.Recordset.Fields(1)

120、　　End If　　End Sub　　Private Sub Form_Load()　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Sec

121、urity Info=False;Initial Catalog=超市管理"　　cn.Open　　End Sub　　Private Sub Image1_Click()

122、　　End Sub　　5.5、功能操作說明　　1.打開劉則芬、羅春SQL課程設(shè)計(jì) 文件夾　　2.打開SQL Server 2000 　　3.附加數(shù)據(jù)庫，打開主文件夾里的數(shù)據(jù)庫子文件夾，然后把里面的兩個(gè)數(shù)據(jù)庫文件附加到數(shù)據(jù)庫里。

123、　　4.打開VB6.0　　5.打開SQL課程設(shè)計(jì)—工程—小型超市收銀管理系統(tǒng).vbp，然后雙擊工程1里面的窗體進(jìn)行一些設(shè)置，然后保存。　　6.再到SQL課程設(shè)計(jì) 文件夾里面的exe文件，雙擊打開即可。　　7.第一次登錄需注冊(cè)，然后再登陸，進(jìn)入界面可以對(duì)各

124、個(gè)表進(jìn)行刪除，查詢，添加和退出操作。　　。　　六、結(jié)論與體會(huì)　　通過這次的課程設(shè)計(jì)，使我們了解了一個(gè)簡單的學(xué)生選課系統(tǒng)的設(shè)計(jì)過程，并且基本掌握了MS SQL server 2000的基本用法，Visual Basic 6.0的基本用法，掌

125、握數(shù)據(jù)庫的基本知識(shí)及其應(yīng)用情況，加深對(duì)該課程的理解，在這次設(shè)計(jì)過程中使我們對(duì)編程和數(shù)據(jù)庫的開發(fā)建立了濃厚的興趣。　　在設(shè)計(jì)過程中遇到了很多的問題，但是最后通過自己的努力、孫燦明老師不厭其煩的解答和在網(wǎng)上尋找最后都得到了解決，雖然這次的設(shè)計(jì)是一個(gè)很小的程序但是設(shè)計(jì)這樣的程序真的不簡單呀，首先要想好設(shè)計(jì)的界面，以及這些界面是怎樣連接起來的。然后要考慮數(shù)據(jù)庫怎么樣和應(yīng)用程序連接起來。在設(shè)計(jì)中我深知自己

126、掌握的知識(shí)還遠(yuǎn)遠(yuǎn)不夠，掌握的一些理論知識(shí)應(yīng)用到實(shí)踐中去，總會(huì)出現(xiàn)這樣或那樣的問題，不是理論沒有掌握好，而是光知道書本上的知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，一定要把理論知識(shí)和實(shí)踐結(jié)合起來。把學(xué)到的知識(shí)應(yīng)用到時(shí)間中去，多做多練，才可以把理論的精華發(fā)揮出來。知識(shí)不是知道，了解就好，一定要去應(yīng)用它，發(fā)展它，讓它在現(xiàn)實(shí)生活中得到充分的應(yīng)用，從而解決一些問題，這才是學(xué)習(xí)的根本目的。而且知識(shí)又不是單一的，它是互相聯(lián)系的，學(xué)科與學(xué)科之間都有著內(nèi)在的聯(lián)系。計(jì)算機(jī)是一門非

127、常復(fù)雜且龐大的學(xué)科，一項(xiàng)課題往往需要多項(xiàng)技術(shù)才可以完成的。在設(shè)計(jì)階段，通過對(duì)課題的深入分析與研究，迫使我對(duì)技術(shù)有了一定的了解。在遇到問題時(shí)，得到了指導(dǎo)老師與同學(xué)的悉心幫助，使我感受到集體的力量是無窮的。通過這次設(shè)計(jì)，我學(xué)會(huì)了和別人配合工作，因?yàn)橐粋€(gè)人所學(xué)的知識(shí)不可能面　　致謝　　在設(shè)計(jì)程序的時(shí)候遇到了一些問

128、題，首先要感謝我們的xx教授，是他給了我們創(chuàng)作思想和靈感還幫助我們改正了不少錯(cuò)誤，還有編程論壇的版主的幫助，再次感謝你們。　　參考文獻(xiàn)　　1.康博工作室，張紅軍，王紅等縞著《Visual Basic 6.0中文版高級(jí)應(yīng)用與開發(fā)指南》，人民郵電出版社，2001年4月第一版　　2

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(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ì)自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評(píng)論

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

文檔簡介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載