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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：17 大?。?.67MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩16頁未讀，繼續(xù)免費閱讀

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

文檔簡介

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

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

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

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

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

6、入正確的用戶名", 11, "錯誤信息"　　ElseIf Text2.Text = "" Then　　MsgBox "請輸入正確的密碼", 11, "錯誤信息"　　End If</

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

8、t;　　Else　　MsgBox "用戶名或密碼錯誤", 11, "錯誤信息"　　End If　　End Sub　　退

9、出系統(tǒng)源代碼：　　Private Sub Command2_Click()　　End　　End Sub　　進入商品信息查詢、銷售信息查詢、員工信息查詢代碼：

10、　　Private Sub Command1_Click()　　Load Form3　　Form3.Show 1　　Unload Form1　　End Sub　　Priv

11、ate Sub Command2_Click()　　Load Form4　　Form4.Show 1　　Unload Form2　　End Sub　　Private Sub Command3_

12、Click()　　Load Form5　　Form5.Show 1　　Unload Form3　　End Sub　　對商品信息的添加的代碼　　Publ

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

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

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

16、.Recordset.Fields("單價") = Val(Text5.Text)　　End Sub　　對商品信息刪除的代碼　　Private Sub Command2_Click()　　Dim X As Inte

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

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

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

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

21、Text2.Text　　Data1.Recordset.Fields("商品類型") = Text3.Text　　Data1.Recordset.Fields("單價") = Val(Text4.Text)　　Data1.Recordset.Update

22、　　End If　　End Sub　　對商品信息查詢的代碼：　　Private Sub Command4_Click()　　msg = InputBox("請輸入商

23、品號", "查找記錄")　　Data1.Recordset.FindFirst "商品號 ='" & msg & "'"　　If Data1.Recordset.NoMatch Then　　MsgBox &quo

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

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

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

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

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

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

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

31、;　　Exit Sub　　End If　　Data1.Recordset.AddNew　　Data1.Recordset.Fields("銷售記錄號") = Val(Text1.Text)<

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

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

34、t;你確定要刪除記錄嗎?", vbYesNo)　　If X = vbYes Then　　Data1.Recordset.Delete　　Data1.Recordset.MoveNext　　If Data1.Recordset.EOF Then

35、　　Data1.Recordset.MoveLast　　End If　　End If　　End Sub　　“修改”&l

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

37、　　Data1.Recordset.Fields("銷售記錄號") = Val(Text1.Text)　　Data1.Recordset.Fields("商品名稱") = Val(Text2.Text)　　Data1.Recordset.Fields("銷售金額") = Val

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

39、 Sub　　“查詢”　　Private Sub Command4_Click()　　msg = InputBox("請輸入銷售記錄號", "查找記錄")　　Data1.Rec

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

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

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

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

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

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

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

47、gt;　　End If　　Data1.Recordset.AddNew　　Data1.Recordset.Fields("員工號") = Val(Text1.Text)　　Data1.Recordset.Fields("姓名

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

49、t;　　“刪除”　　Private Sub Command2_Click()　　Dim X As Integer　　X = MsgBox("你確定要刪除記錄嗎?", vbYesNo)<

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

51、gt;　　End If　　End If　　End Sub　　“修改”　　Private Sub C

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

53、s("員工號") = Val(Text1.Text)　　Data1.Recordset.Fields("姓名") = Val(Text2.Text)　　Data1.Recordset.Fields("性別") = Val(Text3.Text)　　Dat

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

55、ate Sub Command4_Click()　　msg = InputBox("請輸入員工號", "查找記錄")　　Data1.Recordset.FindFirst "銷售記錄號為='" & msg & "'"&l

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

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

58、.Show　　Form5.Hide　　End Sub　　“上一個”　　Private Sub Command6_Click()　　Data1.Record

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

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

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

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

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

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

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

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

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載