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

1、<p>　　課題名稱： 超市銷售系統(tǒng)管理 </p><p><b>　　一、課程設(shè)計(jì)目的：</b></p><p>　　課程設(shè)計(jì)為學(xué)生提供一個(gè)及動(dòng)手又動(dòng)腦，獨(dú)立實(shí)踐的機(jī)會(huì)，將課本上的VB理論知識(shí)和實(shí)踐有機(jī)的結(jié)合起來。鍛煉學(xué)生的分析解決實(shí)際問題的能力。提高用VB編程實(shí)現(xiàn)具體問題的能力。</p><p>　　二、課程設(shè)計(jì)的

2、題目：VB超市銷售管理系統(tǒng)課程設(shè)計(jì)</p><p>　　簡(jiǎn)介：這個(gè)超市銷售管理系統(tǒng)主要實(shí)現(xiàn)了商品信息和銷售信息以及員工信息的添加、刪除、修改和查詢。用戶在登錄系統(tǒng)之后可以在提示下做想進(jìn)行的操作。登陸后可以在刪除修改等操作，方便了超市銷售管理。</p><p><b>　　三、設(shè)計(jì)說明：</b></p><p>　　【超市銷售管理系統(tǒng)】</

3、p><p>　　{商品信息查詢} {（商品號(hào)）（商品名稱）（廠商）（商品類型）（單價(jià)）}</p><p>　　{銷售記錄查詢}{（銷售記錄號(hào)）（銷售金額）（銷售人）（商品名稱）}</p><p>　　{員工信息查詢}{（員工號(hào)）（姓名）（性別）（籍貫）}</p><p>　　整個(gè)銷售系統(tǒng)目前實(shí)現(xiàn)了商品、銷售、員工信息的增刪查改功能。進(jìn)入系統(tǒng)后，可

4、以選擇想要查詢的信息點(diǎn)入，進(jìn)入另一個(gè)界面后進(jìn)行相關(guān)操作。對(duì)商品信息查詢的時(shí)候輸入商品號(hào)即會(huì)出現(xiàn)商品相關(guān)擇 </p><p>　　“是”或“否”確定是否刪除。當(dāng)用戶點(diǎn)擊“修改”時(shí)，彈出對(duì)話框“確定呀修改記錄？”同樣選擇“是”或“否”決定是否修改記錄。查詢時(shí)，輸入商品號(hào)，或者銷售記錄號(hào)?？梢圆榈较胍男畔ⅰ｜c(diǎn)擊退出則回到登錄界面。整個(gè)系統(tǒng)涵蓋三個(gè)可查詢的大信息。再入進(jìn)行操作。設(shè)計(jì)界面清雅脫俗，給人清新的感覺。<

5、/p><p><b>　　源代碼</b></p><p>　　超市銷售系統(tǒng)登錄源代碼：</p><p>　　Public Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸

6、入正確的用戶名", 11, "錯(cuò)誤信息"</p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入正確的密碼", 11, "錯(cuò)誤信息"</p><p><b>　　End If</b></

7、p><p>　　If Text1.Text = "xlf" And Text2.Text = "xiong" Then</p><p>　　Load Form2</p><p>　　Form2.Show 1</p><p>　　Unload Form1</p><p><b&g

8、t;　　Else</b></p><p>　　MsgBox "用戶名或密碼錯(cuò)誤", 11, "錯(cuò)誤信息"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　退

9、出系統(tǒng)源代碼：</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　進(jìn)入商品信息查詢、銷售信息查詢、員工信息查詢代碼：</p>

10、<p>　　Private Sub Command1_Click()</p><p>　　Load Form3</p><p>　　Form3.Show 1</p><p>　　Unload Form1</p><p><b>　　End Sub</b></p><p>　　Priv

11、ate Sub Command2_Click()</p><p>　　Load Form4</p><p>　　Form4.Show 1</p><p>　　Unload Form2</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_

12、Click()</p><p>　　Load Form5</p><p>　　Form5.Show 1</p><p>　　Unload Form3</p><p><b>　　End Sub</b></p><p>　　對(duì)商品信息的添加的代碼</p><p>　　Publ

13、ic msg</p><p>　　Private Sub Command1_Click()</p><p>　　vb_msg = MsgBox("請(qǐng)輸入要添加的數(shù)據(jù)", vbOKCancel)</p><p>　　If vb_msg = vbCancel Then</p><p><b>　　Exit Sub&l

14、t;/b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("商品號(hào)") = Val(Text1.Text)</p><p>　　Data1.Recordset.

15、Fields("商品名稱") = Text2.Text</p><p>　　Data1.Recordset.Fields("廠商") = Text3.Text</p><p>　　Data1.Recordset.Fields("商品類型") = Val(Text4.Text)</p><p>　　Data1

16、.Recordset.Fields("單價(jià)") = Val(Text5.Text)</p><p><b>　　End Sub</b></p><p>　　對(duì)商品信息刪除的代碼</p><p>　　Private Sub Command2_Click()</p><p>　　Dim X As Inte

17、ger</p><p>　　X = MsgBox("你確定要?jiǎng)h除記錄嗎?", vbYesNo)</p><p>　　If X = vbYes Then</p><p>　　Data1.Recordset.Delete</p><p>　　Data1.Recordset.MoveNext</p><p&g

18、t;　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b&

19、gt;</p><p>　　對(duì)商品信息修改的代碼：</p><p>　　Private Sub Command3_Click()</p><p>　　Dim areturn As Integer</p><p>　　areturn = MsgBox("你確定要修改記錄嗎?", vbYesNo)</p><

20、;p>　　If areturn = vbYes Then</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields("商品號(hào)") = Val(Text1.Text)</p><p>　　Data1.Recordset.Fields("商品名稱") =

21、Text2.Text</p><p>　　Data1.Recordset.Fields("商品類型") = Text3.Text</p><p>　　Data1.Recordset.Fields("單價(jià)") = Val(Text4.Text)</p><p>　　Data1.Recordset.Update</p>

22、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　對(duì)商品信息查詢的代碼：</p><p>　　Private Sub Command4_Click()</p><p>　　msg = InputBox("請(qǐng)輸入商

23、品號(hào)", "查找記錄")</p><p>　　Data1.Recordset.FindFirst "商品號(hào) ='" & msg & "'"</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox &quo

24、t;沒有你所找商品!"</p><p><b>　　Else</b></p><p>　　MsgBox "合您查找條件的商品為" & Data1.Recordset.Fields(1)</p><p><b>　　End If</b></p><p><b

25、>　　End Sub</b></p><p><b>　　“退出”的代碼</b></p><p>　　Private Sub Command5_Click()</p><p>　　Form2.Show</p><p>　　Form3.Hide</p><p><b>　

26、　End Sub</b></p><p>　　要查看“上一個(gè)”的代碼</p><p>　　Private Sub Command6_Click()</p><p>　　Data1.Recordset.MovePrevious</p><p>　　If Data1.Recordset.BOF Then</p><

27、p>　　Data1.Recordset.MoveFirst</p><p>　　MsgBox ("已經(jīng)是第一條記錄了!")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　要查看“下一個(gè)“的代碼<

28、;/p><p>　　Private Sub Command7_Click()</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　MsgBo

29、x ("已經(jīng)是最后一條記錄了!")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　對(duì)銷售信息進(jìn)行操作的源代碼</p><p>　　Public msg ‘ 公共消息框’</p><p&

30、gt;<b>　　“添加”</b></p><p>　　Private Sub Command1_Click()</p><p>　　vb_msg = MsgBox("請(qǐng)輸入要添加的數(shù)據(jù)", vbOKCancel)</p><p>　　If vb_msg = vbCancel Then</p><p>

31、;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("銷售記錄號(hào)") = Val(Text1.Text)</p><

32、;p>　　Data1.Recordset.Fields("商品名稱") = Text2.Text</p><p>　　Data1.Recordset.Fields("銷售金額") = Text3.Text</p><p>　　Data1.Recordset.Fields("銷售人") = Val(Text4.Text)<

33、;/p><p><b>　　End Sub</b></p><p><b>　　“刪除”</b></p><p>　　Private Sub Command2_Click()</p><p>　　Dim X As Integer</p><p>　　X = MsgBox(&quo

34、t;你確定要?jiǎng)h除記錄嗎?", vbYesNo)</p><p>　　If X = vbYes Then</p><p>　　Data1.Recordset.Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p>

35、<p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　“修改”&l

36、t;/b></p><p>　　Private Sub Command3_Click()</p><p>　　X = MsgBox("你確定要修改記錄嗎?", vbYesNo)</p><p>　　If X = vbYes Then</p><p>　　Data1.Recordset.Edit</p>

37、<p>　　Data1.Recordset.Fields("銷售記錄號(hào)") = Val(Text1.Text)</p><p>　　Data1.Recordset.Fields("商品名稱") = Val(Text2.Text)</p><p>　　Data1.Recordset.Fields("銷售金額") = Val

38、(Text3.Text)</p><p>　　Data1.Recordset.Fields("銷售人") = Val(Text4.Text)</p><p>　　Data1.Recordset.Update</p><p><b>　　End If</b></p><p><b>　　End

39、 Sub</b></p><p><b>　　“查詢”</b></p><p>　　Private Sub Command4_Click()</p><p>　　msg = InputBox("請(qǐng)輸入銷售記錄號(hào)", "查找記錄")</p><p>　　Data1.Rec

40、ordset.FindFirst "銷售記錄號(hào) ='" & msg & "'"</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox "沒有你所找商品!"</p><p><b>　　Else</

41、b></p><p><b>　　“退出”</b></p><p>　　Private Sub Command5_Click()</p><p>　　Form2.Show</p><p>　　Form4 .Hide</p><p><b>　　End Sub</b>&l

42、t;/p><p><b>　　“上一個(gè)”</b></p><p>　　Private Sub Command6_Click()</p><p>　　Data1.Recordset.MovePrevious</p><p>　　If Data1.Recordset.BOF Then</p><p>　　

43、Data1.Recordset.MoveFirst</p><p>　　MsgBox ("已經(jīng)是第一條記錄了!")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　“下一個(gè)”</b&

44、gt;</p><p>　　Private Sub Command7_Click()</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　

45、　MsgBox ("已經(jīng)是最后一條記錄了!")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　對(duì)員工信息進(jìn)行操作的代碼</p><p><b>　　“添加”</b></p>

46、;<p>　　Private Sub Command1_Click()</p><p>　　vb_msg = MsgBox("請(qǐng)輸入要添加的數(shù)據(jù)", vbOKCancel)</p><p>　　If vb_msg = vbCancel Then</p><p><b>　　Exit Sub</b></p&

47、gt;<p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("員工號(hào)") = Val(Text1.Text)</p><p>　　Data1.Recordset.Fields("姓名

48、") = Text2.Text</p><p>　　Data1.Recordset.Fields("性別") = Text3.Text</p><p>　　Data1.Recordset.Fields("籍貫") = Val(Text4.Text)</p><p><b>　　End Sub</b&g

49、t;</p><p><b>　　“刪除”</b></p><p>　　Private Sub Command2_Click()</p><p>　　Dim X As Integer</p><p>　　X = MsgBox("你確定要?jiǎng)h除記錄嗎?", vbYesNo)</p><

50、p>　　If X = vbYes Then</p><p>　　Data1.Recordset.Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p&

51、gt;<p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　“修改”</b></p><p>　　Private Sub C

52、ommand3_Click()</p><p>　　areturn = MsgBox("你確定要修改記錄嗎?", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Field

53、s("員工號(hào)") = Val(Text1.Text)</p><p>　　Data1.Recordset.Fields("姓名") = Val(Text2.Text)</p><p>　　Data1.Recordset.Fields("性別") = Val(Text3.Text)</p><p>　　Dat

54、a1.Recordset.Fields("籍貫") = Val(Text4.Text)</p><p>　　Data1.Recordset.Update</p><p><b>　　End Sub</b></p><p><b>　　“查詢”</b></p><p>　　Priv

55、ate Sub Command4_Click()</p><p>　　msg = InputBox("請(qǐng)輸入員工號(hào)", "查找記錄")</p><p>　　Data1.Recordset.FindFirst "銷售記錄號(hào)為='" & msg & "'"</p>&l

56、t;p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox "沒有你所找人!"</p><p><b>　　Else</b></p><p>　　MsgBox "合您查找條件的人為" & Data1.Recordset.Fields(1)&l

57、t;/p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　“退出”</b></p><p>　　Private Sub Command5_Click()</p><p>　　Form1

58、.Show</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p><b>　　“上一個(gè)”</b></p><p>　　Private Sub Command6_Click()</p><p>　　Data1.Record

59、set.MovePrevious</p><p>　　If Data1.Recordset.BOF Then</p><p>　　Data1.Recordset.MoveFirst</p><p>　　MsgBox ("已經(jīng)是第一條記錄了!")</p><p><b>　　End If</b><

60、/p><p><b>　　End Sub</b></p><p><b>　　“下一個(gè)”</b></p><p>　　Private Sub Command7_Click()</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data

61、1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　MsgBox ("已經(jīng)是最后一條記錄了!")</p><p><b>　　End If</b></p><p><b>　　End Sub</b>&

62、lt;/p><p><b>　　五、運(yùn)行結(jié)果：</b></p><p><b>　　數(shù)據(jù)報(bào)表</b></p><p><b>　　商品信息表:</b></p><p><b>　　銷售記錄表:</b></p><p><b>

63、　　員工信息表：</b></p><p><b>　　七、課程設(shè)計(jì)體會(huì)：</b></p><p>　　在做課程設(shè)計(jì)之前，整個(gè)人對(duì)課程設(shè)計(jì)的流程可謂是一頭霧水。</p><p>　　在結(jié)課之前，我們學(xué)了VB的數(shù)據(jù)庫(kù)制作。在課上積累的基礎(chǔ)上，我</p><p>　　開始了數(shù)據(jù)庫(kù)課程設(shè)計(jì)的制作。設(shè)計(jì)時(shí)，最初想到的是

64、界面如何更</p><p>　　加美觀。在好奇心的驅(qū)使下，到網(wǎng)上下載好多圖片作為背景。慢慢地，</p><p>　　開始讀入編程階段。要進(jìn)入一個(gè)系統(tǒng)，最開始需要寫一段代碼運(yùn)行進(jìn)</p><p>　　入系統(tǒng)。這讓我想起了平常的很多登錄界面，比如QQ登錄。每次人</p><p>　　的登錄界面，現(xiàn)在終于自己面臨設(shè)計(jì)界面，剛開始確實(shí)迷茫，但是想&l

65、t;/p><p>　　想平常的很多界面的運(yùn)行方式方法問題就迎楞而解了。在添加、刪除、</p><p>　　修改、查詢這一方面的代碼是不盡相同的。為了實(shí)現(xiàn)這些功能，我查</p><p>　　找了書上的各個(gè)章節(jié)的練習(xí)題，希望能夠找到點(diǎn)靈感。終于功夫不負(fù)</p><p>　　有心人，我也成功地讓這些按鈕能夠運(yùn)行。并且還輸入了提示功能。</p>