vb課程設(shè)計(jì)---倉(cāng)庫(kù)管理系統(tǒng)

1、<p><b>　　VB課程設(shè)計(jì)</b></p><p>　　題目: 倉(cāng)庫(kù)管理系統(tǒng) </p><p>　　學(xué)生姓名： xxxxx </p><p>　　學(xué)生學(xué)號(hào)： 123456</p><p>　　所在專業(yè)：計(jì)算機(jī)信息管理

2、</p><p>　　任課教師：xxxx</p><p>　　2011年12月23日</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é)合起來(lái)，鍛煉學(xué)生的分析解決實(shí)際問(wèn)題的能力。提高用VB

3、編程實(shí)現(xiàn)具體問(wèn)題的能力。</p><p>　　二、課程設(shè)計(jì)的題目與簡(jiǎn)介：</p><p><b>　　題目：倉(cāng)庫(kù)管理系統(tǒng)</b></p><p>　　簡(jiǎn)介：實(shí)現(xiàn)對(duì)倉(cāng)庫(kù)信息的添加、刪除和修改，入庫(kù)和出庫(kù)的登記和查詢操作等。</p><p><b>　　三、設(shè)計(jì)說(shuō)明：</b></p>&l

4、t;p>　　根據(jù)簡(jiǎn)介的要求，倉(cāng)庫(kù)管理系統(tǒng)可以從如下幾個(gè)結(jié)構(gòu)設(shè)計(jì)：</p><p>　　由登錄界面進(jìn)入系統(tǒng)，顯示主界面（多文檔窗體），在主界面中編輯菜單：入庫(kù)管理、查詢、數(shù)據(jù)報(bào)表、業(yè)務(wù)員管理。</p><p><b>　　四、源代碼：</b></p><p>　　Private Sub Command1_Click()</p>

5、<p>　　If Text2.Text = "30" And Text1.Text = "dj" Then</p><p>　　form1.Hide</p><p>　　MDIForm1.Show</p><p><b>　　Else</b></p><p>　　Msg

6、Box "輸入有誤！請(qǐng)確認(rèn)后再輸"</p><p><b>　　End If</b></p><p>　　Text2.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_unlo

7、ad()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Text2.Text = ""</p><p>　　Text2

8、.MaxLength = 10 '最多可以接收10個(gè)字符</p><p>　　Text2.PasswordChar = "*" '以“*”形式顯示輸入的字符</p><p><b>　　End Sub</b></p><p>　　Private Sub ckcpxxcx_Click()</p>

9、<p>　　Load Form5</p><p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub ckcz_Click()</p><p>　　Load Form3</p><p>　　Form3.Show<

10、;/p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub rcpxxccx_Click()</p><p>　　Lo

11、ad Form4</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub rkcz_Click()</p><p>　　Load Form2</p><p>　　Form2.Show</p><p

12、><b>　　End Sub</b></p><p>　　Private Sub sjbb_Click()</p><p>　　Load Form7</p><p>　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　Pri

13、vate Sub ywy_Click()</p><p>　　Load Form6</p><p>　　Form6.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click() '修改操作</p><p>　　D

14、im areturn As Integer</p><p>　　areturn = MsgBox("你確定要修改記錄嗎？", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset

15、.Fields("產(chǎn)品名") = Text5.Text</p><p>　　Data1.Recordset.Fields("數(shù)量") = Text1.Text</p><p>　　Data1.Recordset.Fields("價(jià)格") = Text2.Text</p><p>　　Data1.Record

16、set.Fields("入庫(kù)日期") = Text3.Text</p><p>　　Data1.Recordset.Fields("入庫(kù)總額") = Text4.Text</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p

17、><p>　　Private Sub Command5_Click() '查找操作</p><p>　　msg = InputBox("請(qǐng)輸入產(chǎn)品名", "查找記錄")</p><p>　　Data1.Recordset.FindFirst "產(chǎn)品名='" & msg & &qu

18、ot;'" ' 找到產(chǎn)品的輸出格式</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox "沒(méi)有符合的產(chǎn)品"</p><p><b>　　Else</b></p><p>　　MsgBox "符合的產(chǎn)品

19、為" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4) ' 輸出的產(chǎn)品名、數(shù)量、價(jià)格、入庫(kù)日期、入庫(kù)總額</p><p>&l

20、t;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click() '退出form2操作</p><p>　　MDIForm1.Show</p><p>　　Form2.Hide</p>

21、<p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '產(chǎn)品的添加操作</p><p>　　vb_msg = MsgBox("請(qǐng)輸入", vbOKCancel)</p><p>　　If vb_msg = vbCancel Then<

22、;/p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("產(chǎn)品名") = Val(Text5.Text)

23、</p><p>　　Data1.Recordset.Fields("數(shù)量") = Text1.Text</p><p>　　Data1.Recordset.Fields("價(jià)格") = Text2.Text</p><p>　　Data1.Recordset.Fields("入庫(kù)日期") = Text3.

24、Text</p><p>　　Data1.Recordset.Fields("入庫(kù)總額") = Text4.Text</p><p>　　Data1.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Cl

25、ick() '產(chǎn)品信息的刪除</p><p>　　Dim areturn As Integer</p><p>　　areturn = MsgBox("你確定要?jiǎng)h除記錄嗎？", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.Recordset.

26、Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p><p>&

27、lt;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click() '生成入庫(kù)總額的運(yùn)算操作</p><p>　　If Text1.Text = "" Then</p><p>

28、　　MsgBox "請(qǐng)輸入產(chǎn)品數(shù)量!"</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入價(jià)格!"</p><p><b>　　E

29、xit Sub</b></p><p>　　ElseIf Not IsNumeric(Text1.Text) Then</p><p>　　MsgBox "請(qǐng)輸入數(shù)字!"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p>

30、<p><b>　　Exit Sub</b></p><p>　　ElseIf Not IsNumeric(Text2.Text) Then</p><p>　　MsgBox "請(qǐng)輸入數(shù)字!"</p><p>　　Text2.Text = ""</p><p>　　T

31、ext2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Text4.Text = Val(Text1.Text) * val(Text2.Text)</p><p><b>　　End Sub&

32、lt;/b></p><p>　　Private Sub Form_Load() '相對(duì)路徑的設(shè)置</p><p>　　Dim str As String '定義</p><p>　　str = App.Path</p><p>　　If Right(str, 1) <> "\" Then

33、</p><p>　　str = str + "\"</p><p><b>　　End If</b></p><p>　　Data1.DatabaseName = str & "\倉(cāng)庫(kù)管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = &qu

34、ot;入庫(kù)操作"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Dim areturn As Integer</p><p>　　are

35、turn = MsgBox("你確定要修改記錄嗎？", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields("產(chǎn)品名") = Text5.Text</p>

36、<p>　　Data1.Recordset.Fields("數(shù)量") = Text1.Text</p><p>　　Data1.Recordset.Fields("價(jià)格") = Text2.Text</p><p>　　Data1.Recordset.Fields("入庫(kù)日期") = Text3.Text</p

37、><p>　　Data1.Recordset.Fields("入庫(kù)總額") = Text4.Text</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()&l

38、t;/p><p>　　msg = InputBox("請(qǐng)輸入產(chǎn)品名", "查找記錄")</p><p>　　Data1.Recordset.FindFirst "產(chǎn)品名='" & msg & "'"</p><p>　　If Data1.Recordset.N

39、oMatch Then</p><p>　　MsgBox "沒(méi)有符合的產(chǎn)品"</p><p><b>　　Else</b></p><p>　　MsgBox "符合的產(chǎn)品為" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) &

40、amp; Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Privat

41、e Sub Command6_Click()</p><p>　　MDIForm1.Show</p><p>　　Form3.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Text1.Text

42、= ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Combo1.Text = ""</p><p>　　Dim str As String '定義</p>&

43、lt;p>　　str = App.Path</p><p>　　If Right(str, 1) <> "\" Then</p><p>　　str = str + "\"</p><p><b>　　End If</b></p><p>　　Data1.Data

44、baseName = str & "\倉(cāng)庫(kù)管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "出庫(kù)操作"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private

45、Sub Command3_Click()</p><p>　　Dim areturn As Integer</p><p>　　areturn = MsgBox("你確定要?jiǎng)h除記錄嗎？", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.Recordse

46、t.Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p><p>

47、;<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　vb_msg = MsgBox("請(qǐng)輸入", vbOKCancel)</p><p>　　If

48、 vb_msg = vbCancel Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("產(chǎn)品

49、名") = Val(Text5.Text)</p><p>　　Data1.Recordset.Fields("數(shù)量") = Text1.Text</p><p>　　Data1.Recordset.Fields("價(jià)格") = Text2.Text</p><p>　　Data1.Recordset.Fields(

50、"出庫(kù)日期") = Text3.Text</p><p>　　Data1.Recordset.Fields("出庫(kù)總額") = Text4.Text</p><p>　　Data1.Recordset.Update</p><p><b>　　End Sub</b></p><p>

51、;　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入產(chǎn)品數(shù)量!"</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Tex

52、t2.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入價(jià)格!"</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Not IsNumeric(Text1.Text) Then</p><p>　　MsgBox "

53、;請(qǐng)輸入數(shù)字!"</p><p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Not IsNumeric(Text2.Text) Then</p>

54、<p>　　MsgBox "請(qǐng)輸入數(shù)字!"</p><p>　　Text2.Text = ""</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&

55、lt;/p><p>　　Text4.Text = Val(Text1.Text) * Val(Text23.Text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click() '入庫(kù)產(chǎn)品的信息查詢操作</p><p>　　msg = Input

56、Box("請(qǐng)輸入產(chǎn)品名", "查詢")</p><p>　　Data1.Recordset.FindFirst "產(chǎn)品名='" & msg & "'" '格式</p><p>　　If Data1.Recordset.NoMatch Then</p><

57、;p>　　MsgBox "沒(méi)有符合的產(chǎn)品"</p><p><b>　　Else</b></p><p>　　MsgBox "符合的產(chǎn)品：" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Field

58、s(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()<

59、/p><p>　　MDIForm1.Show</p><p>　　Form4.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load() '相對(duì)路徑的設(shè)置</p><p>　　Dim str As String '定

60、義</p><p>　　str = App.Path</p><p>　　If Right(str, 1) <> "\" Then</p><p>　　str = str + "\"</p><p><b>　　End If</b></p><p&g

61、t;　　Data1.DatabaseName = str & "\倉(cāng)庫(kù)管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "入庫(kù)操作"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p

62、>　　Private Sub Command1_Click() '出庫(kù)產(chǎn)品的信息查詢</p><p>　　msg = InputBox("請(qǐng)輸入產(chǎn)品名", "查詢")</p><p>　　Data1.Recordset.FindFirst "產(chǎn)品名='" & msg & "'

63、"</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox "沒(méi)有符合的產(chǎn)品"</p><p><b>　　Else</b></p><p>　　MsgBox "符合的產(chǎn)品：" & Data1.Reco

64、rdset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4)</p><p><b>　　End If</b></p><p><b>

65、;　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　MDIForm1.Show</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　Private

66、Sub Form_Load() '相對(duì)路徑的設(shè)置</p><p>　　Dim str As String '定義</p><p>　　str = App.Path</p><p>　　If Right(str, 1) <> "\" Then</p><p>　　str = str + "

67、;\"</p><p><b>　　End If</b></p><p>　　Data1.DatabaseName = str & "\倉(cāng)庫(kù)管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "出庫(kù)操作"</p><p>　　Data

68、1.Refres</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click() '業(yè)務(wù)員的添加操作</p><p>　　vb_msg = MsgBox("請(qǐng)輸入", vbOKCancel)</p><p>　　If vb_ms

69、g = vbCancel Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields("編號(hào)"

70、) = Text1.Text</p><p>　　Data1.Recordset.Fields("姓名 ") = Text2.Text</p><p>　　Data1.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Co

71、mmand2_Click() '業(yè)務(wù)員的刪除操作</p><p>　　Dim areturn As Integer</p><p>　　areturn = MsgBox("你確定要?jiǎng)h除記錄嗎？", vbYesNo)</p><p>　　If areturn = vbYes Then</p><p>　　Data1.

72、Recordset.Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p>

73、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　MDIForm1.Show</p><p>　　Form6.Hide</p><

74、;p><b>　　End Sub</b></p><p>　　Private Sub Form_Load() '相對(duì)路徑的設(shè)置</p><p>　　Dim str As String '定義</p><p>　　str = App.Path</p><p>　　If Right(str, 1) &l

75、t;> "\" Then</p><p>　　str = str + "\"</p><p><b>　　End If</b></p><p>　　Data1.DatabaseName = str & "\倉(cāng)庫(kù)管理系統(tǒng).mdb"</p><p>　

76、　Data1.RecordSource = "業(yè)務(wù)員"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click() '入庫(kù)操作表的數(shù)據(jù)報(bào)表顯示操作</p><p>　　Dat

77、aReport1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '出庫(kù)操作表的數(shù)據(jù)報(bào)表顯示操作</p><p>　　DataReport2.Show</p><p><b>　　End Sub</b&

78、gt;</p><p>　　Private Sub Command3_Click() '返回到MDIForm1界面的操作</p><p>　　MDIForm1.Show</p><p>　　Form7.Hide</p><p><b>　　End Sub</b></p><p>　　Pr

79、ivate Sub Form_Load()</p><p><b>　　End Sub</b></p><p><b>　　六、運(yùn)行結(jié)果：</b></p><p>　　數(shù)據(jù)報(bào)表的結(jié)果運(yùn)行如下：</p><p><b>　　入庫(kù)操作表：</b></p><p&

80、gt;<b>　　出庫(kù)操作表：</b></p><p><b>　　入庫(kù)操作顯示結(jié)果：</b></p><p><b>　　出庫(kù)操作顯示結(jié)果：</b></p><p>　　入庫(kù)產(chǎn)品信息查詢結(jié)果：</p><p><b>　　六、課程設(shè)計(jì)體會(huì)：</b><

81、;/p><p>　　通過(guò)一個(gè)星期的動(dòng)手實(shí)踐，我學(xué)到了很多的知識(shí)。上課聽(tīng)懂了不代表就一定會(huì)，只有通過(guò)實(shí)踐才能判定出來(lái)自己到底學(xué)到了多少知識(shí)。通過(guò)這次的課程設(shè)計(jì)讓我明白了自己對(duì)一些知識(shí)的缺乏，既然學(xué)了這門(mén)功課就要多掌握一些有用的知識(shí)，在實(shí)踐中尋找自己的不足之處，然后吸納其中的經(jīng)驗(yàn)。在這一個(gè)星期的課程設(shè)計(jì)中，一開(kāi)始有點(diǎn)抱怨，認(rèn)為自己不會(huì)做這樣的系統(tǒng)，擔(dān)心自己做不好。開(kāi)始動(dòng)手做的時(shí)候不知道從哪開(kāi)始著手，只好根據(jù)書(shū)上的一些程序

82、來(lái)改編。不過(guò)在實(shí)踐的時(shí)候遇到了很多問(wèn)題，經(jīng)常會(huì)出現(xiàn)一些小問(wèn)題，這些問(wèn)題在平常都不怎么會(huì)犯這樣的錯(cuò)誤。不過(guò)這樣也正好有機(jī)會(huì)讓自己發(fā)現(xiàn)自己的缺陷，可以在這次機(jī)會(huì)中學(xué)到很多，提高了自己的動(dòng)手實(shí)踐水平。課程設(shè)計(jì)是一個(gè)用來(lái)檢驗(yàn)自己所學(xué)知識(shí)運(yùn)用的平臺(tái)，考驗(yàn)自己所學(xué)知識(shí)的基礎(chǔ)測(cè)試。在這次實(shí)驗(yàn)中我對(duì)vb中的窗體設(shè)計(jì)、界面設(shè)計(jì)、數(shù)據(jù)報(bào)表、相對(duì)路徑的設(shè)置等都有更深層次的了解。雖然說(shuō)自己做的課程設(shè)計(jì)并不怎么成功，但我從其中學(xué)到了很多以前自己不知道的知識(shí)，從錯(cuò)