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

2、</p><p>　　任課教師：xxxx</p><p>　　2011年12月23日</p><p><b>　　一、課程設(shè)計目的：</b></p><p>　　課程設(shè)計為學(xué)生提供了一個既動手又動腦，獨立實踐的機會，將課本上的VB理論知識和實際有機的結(jié)合起來，鍛煉學(xué)生的分析解決實際問題的能力。提高用VB

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

4、t;p>　　根據(jù)簡介的要求，倉庫管理系統(tǒng)可以從如下幾個結(jié)構(gòu)設(shè)計：</p><p>　　由登錄界面進入系統(tǒng)，顯示主界面（多文檔窗體），在主界面中編輯菜單：入庫管理、查詢、數(shù)據(jù)報表、業(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 "輸入有誤！請確認后再輸"</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個字符</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("價格") = Text2.Text</p><p>　　Data1.Record

16、set.Fields("入庫日期") = Text3.Text</p><p>　　Data1.Recordset.Fields("入庫總額") = 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("請輸入產(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 "沒有符合的產(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ù)量、價格、入庫日期、入庫總額</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("請輸入", 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("價格") = Text2.Text</p><p>　　Data1.Recordset.Fields("入庫日期") = Text3.

24、Text</p><p>　　Data1.Recordset.Fields("入庫總額") = 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("你確定要刪除記錄嗎？", 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() '生成入庫總額的運算操作</p><p>　　If Text1.Text = "" Then</p><p>

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

29、xit Sub</b></p><p>　　ElseIf Not IsNumeric(Text1.Text) Then</p><p>　　MsgBox "請輸入數(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 "請輸入數(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() '相對路徑的設(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 & "\倉庫管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = &qu

34、ot;入庫操作"</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("價格") = Text2.Text</p><p>　　Data1.Recordset.Fields("入庫日期") = Text3.Text</p

37、><p>　　Data1.Recordset.Fields("入庫總額") = 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("請輸入產(chǎn)品名", "查找記錄")</p><p>　　Data1.Recordset.FindFirst "產(chǎn)品名='" & msg & "'"</p><p>　　If Data1.Recordset.N

39、oMatch Then</p><p>　　MsgBox "沒有符合的產(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 & "\倉庫管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "出庫操作"</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("你確定要刪除記錄嗎？", 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("請輸入", 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("價格") = Text2.Text</p><p>　　Data1.Recordset.Fields(

50、"出庫日期") = Text3.Text</p><p>　　Data1.Recordset.Fields("出庫總額") = 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 "請輸入產(chǎn)品數(shù)量!"</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Tex

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

53、;請輸入數(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 "請輸入數(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() '入庫產(chǎn)品的信息查詢操作</p><p>　　msg = Input

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

57、;p>　　MsgBox "沒有符合的產(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() '相對路徑的設(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 & "\倉庫管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "入庫操作"</p><p>　　Data1.Refresh</p><p><b>　　End Sub</b></p><p

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

63、"</p><p>　　If Data1.Recordset.NoMatch Then</p><p>　　MsgBox "沒有符合的產(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() '相對路徑的設(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 & "\倉庫管理系統(tǒng).mdb"</p><p>　　Data1.RecordSource = "出庫操作"</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("請輸入", 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("編號"

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("你確定要刪除記錄嗎？", 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() '相對路徑的設(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 & "\倉庫管理系統(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() '入庫操作表的數(shù)據(jù)報表顯示操作</p><p>　　Dat

77、aReport1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '出庫操作表的數(shù)據(jù)報表顯示操作</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>　　六、運行結(jié)果：</b></p><p>　　數(shù)據(jù)報表的結(jié)果運行如下：</p><p><b>　　入庫操作表：</b></p><p&

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

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

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