VB课程设计仓库管理系统.doc
VB课程设计题目: 仓库管理系统 学生姓名： xxxxx 学生学号： 123456所在专业：计算机信息管理任课教师：xxxx2011年12月23日一、课程设计目的： 课程设计为学生提供了一个既动手又动脑，独立实践的机会，将课本上的VB理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力。提高用VB编程实现具体问题的能力。二、课程设计的题目与简介： 题目：仓库管理系统 简介：实现对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。三、设计说明： 根据简介的要求，仓库管理系统可以从如下几个结构设计： 由登录界面进入系统，显示主界面（多文档窗体），在主界面中编辑菜单：入库管理、查询、数据报表、业务员管理。 登陆界面入出库管理查询数据报表入库产品信息查询业务员管理入库操作出库操作出库产品信息查询入库操作报表出库操作报表业务员的操作主界面四、源代码： Private Sub Command1_Click()If Text2.Text = "30" And Text1.Text = "dj" Then form1.Hide MDIForm1.Show Else MsgBox "输入有误！请确认后再输" End If Text2.Text = "" End SubPrivate Sub Command2_unload() EndEnd SubPrivate Sub Form_Load() Text2.Text = "" Text2.MaxLength = 10 '最多可以接收10个字符 Text2.PasswordChar = "*" '以“*”形式显示输入的字符End SubPrivate Sub ckcpxxcx_Click()Load Form5Form5.ShowEnd SubPrivate Sub ckcz_Click()Load Form3Form3.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub rcpxxccx_Click()Load Form4Form4.ShowEnd SubPrivate Sub rkcz_Click()Load Form2Form2.ShowEnd SubPrivate Sub sjbb_Click()Load Form7Form7.ShowEnd SubPrivate Sub ywy_Click()Load Form6Form6.ShowEnd Sub Private Sub Command4_Click() '修改操作Dim areturn As Integerareturn = MsgBox("你确定要修改记录吗？", vbYesNo)If areturn = vbYes Then Data1.Recordset.Edit Data1.Recordset.Fields("产品名") = Text5.Text Data1.Recordset.Fields("数量") = Text1.Text Data1.Recordset.Fields("价格") = Text2.Text Data1.Recordset.Fields("入库日期") = Text3.Text Data1.Recordset.Fields("入库总额") = Text4.Text End IfEnd SubPrivate Sub Command5_Click() '查找操作msg = InputBox("请输入产品名", "查找记录")Data1.Recordset.FindFirst "产品名='" & msg & "'" ' 找到产品的输出格式If Data1.Recordset.NoMatch Then MsgBox "没有符合的产品"ElseMsgBox "符合的产品为" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4) ' 输出的产品名、数量、价格、入库日期、入库总额End IfEnd SubPrivate Sub Command6_Click() '退出form2操作MDIForm1.ShowForm2.HideEnd SubPrivate Sub Command2_Click() '产品的添加操作 vb_msg = MsgBox("请输入", vbOKCancel) If vb_msg = vbCancel Then Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields("产品名") = Val(Text5.Text) Data1.Recordset.Fields("数量") = Text1.Text Data1.Recordset.Fields("价格") = Text2.Text Data1.Recordset.Fields("入库日期") = Text3.Text Data1.Recordset.Fields("入库总额") = Text4.Text Data1.Recordset.UpdateEnd SubPrivate Sub Command3_Click() '产品信息的删除 Dim areturn As Integer areturn = MsgBox("你确定要删除记录吗？", vbYesNo)If areturn = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command1_Click() '生成入库总额的运算操作 If Text1.Text = "" Then MsgBox "请输入产品数量!" Exit Sub ElseIf Text2.Text = "" Then MsgBox "请输入价格!" Exit Sub ElseIf Not IsNumeric(Text1.Text) Then MsgBox "请输入数字!" Text1.Text = "" Text1.SetFocus Exit Sub ElseIf Not IsNumeric(Text2.Text) Then MsgBox "请输入数字!" Text2.Text = "" Text2.SetFocus Exit Sub End If Text4.Text = Val(Text1.Text) * val(Text2.Text) End SubPrivate Sub Form_Load() '相对路径的设置Dim str As String '定义str = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End IfData1.DatabaseName = str & "仓库管理系统.mdb"Data1.RecordSource = "入库操作"Data1.RefreshEnd SubPrivate Sub Command4_Click()Dim areturn As Integerareturn = MsgBox("你确定要修改记录吗？", vbYesNo)If areturn = vbYes Then Data1.Recordset.Edit Data1.Recordset.Fields("产品名") = Text5.Text Data1.Recordset.Fields("数量") = Text1.Text Data1.Recordset.Fields("价格") = Text2.Text Data1.Recordset.Fields("入库日期") = Text3.Text Data1.Recordset.Fields("入库总额") = Text4.Text End IfEnd SubPrivate Sub Command5_Click()msg = InputBox("请输入产品名", "查找记录")Data1.Recordset.FindFirst "产品名='" & msg & "'"If Data1.Recordset.NoMatch Then MsgBox "没有符合的产品"ElseMsgBox "符合的产品为" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4)End IfEnd SubPrivate Sub Command6_Click()MDIForm1.ShowForm3.HideEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Dim str As String '定义str = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End IfData1.DatabaseName = str & "仓库管理系统.mdb"Data1.RecordSource = "出库操作"Data1.RefreshEnd SubPrivate Sub Command3_Click()Dim areturn As Integer areturn = MsgBox("你确定要删除记录吗？", vbYesNo)If areturn = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd If End SubPrivate Sub Command2_Click() vb_msg = MsgBox("请输入", vbOKCancel) If vb_msg = vbCancel Then Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields("产品名") = Val(Text5.Text) Data1.Recordset.Fields("数量") = Text1.Text Data1.Recordset.Fields("价格") = Text2.Text Data1.Recordset.Fields("出库日期") = Text3.TextData1.Recordset.Fields("出库总额") = Text4.TextData1.Recordset.Update End Sub Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入产品数量!" Exit Sub ElseIf Text2.Text = "" Then MsgBox "请输入价格!" Exit Sub ElseIf Not IsNumeric(Text1.Text) Then MsgBox "请输入数字!" Text1.Text = "" Text1.SetFocus Exit Sub ElseIf Not IsNumeric(Text2.Text) Then MsgBox "请输入数字!" Text2.Text = "" Text2.SetFocus Exit Sub End If Text4.Text = Val(Text1.Text) * Val(Text23.Text)End SubPrivate Sub Command1_Click() '入库产品的信息查询操作msg = InputBox("请输入产品名", "查询")Data1.Recordset.FindFirst "产品名='" & msg & "'" '格式If Data1.Recordset.NoMatch Then MsgBox "没有符合的产品"Else MsgBox "符合的产品：" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4) End IfEnd SubPrivate Sub Command2_Click()MDIForm1.ShowForm4.HideEnd SubPrivate Sub Form_Load() '相对路径的设置Dim str As String '定义str = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End IfData1.DatabaseName = str & "仓库管理系统.mdb"Data1.RecordSource = "入库操作"Data1.RefreshEnd SubPrivate Sub Command1_Click() '出库产品的信息查询msg = InputBox("请输入产品名", "查询")Data1.Recordset.FindFirst "产品名='" & msg & "'"If Data1.Recordset.NoMatch Then MsgBox "没有符合的产品"Else MsgBox "符合的产品：" & Data1.Recordset.Fields(0) & Data1.Recordset.Fields(1) & Data1.Recordset.Fields(2) & Data1.Recordset.Fields(3) & Data1.Recordset.Fields(4) End IfEnd SubPrivate Sub Command2_Click()MDIForm1.ShowForm5.HideEnd SubPrivate Sub Form_Load() '相对路径的设置Dim str As String '定义str = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End IfData1.DatabaseName = str & "仓库管理系统.mdb"Data1.RecordSource = "出库操作"Data1.RefresEnd SubPrivate Sub Command1_Click() '业务员的添加操作 vb_msg = MsgBox("请输入", vbOKCancel) If vb_msg = vbCancel Then Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields("编号") = Text1.Text Data1.Recordset.Fields("姓名 ") = Text2.Text Data1.Recordset.Update End SubPrivate Sub Command2_Click() '业务员的删除操作 Dim areturn As Integer areturn = MsgBox("你确定要删除记录吗？", vbYesNo)If areturn = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd If End SubPrivate Sub Command3_Click()MDIForm1.ShowForm6.HideEnd SubPrivate Sub Form_Load() '相对路径的设置Dim str As String '定义str = App.PathIf Right(str, 1) <> "" Thenstr = str + ""End IfData1.DatabaseName = str & "仓库管理系统.mdb"Data1.RecordSource = "业务员"Data1.RefreshEnd SubPrivate Sub Command1_Click() '入库操作表的数据报表显示操作DataReport1.ShowEnd SubPrivate Sub Command2_Click() '出库操作表的数据报表显示操作DataReport2.ShowEnd SubPrivate Sub Command3_Click() '返回到MDIForm1界面的操作MDIForm1.ShowForm7.HideEnd SubPrivate Sub Form_Load()End Sub六、运行结果：数据报表的结果运行如下：入库操作表：出库操作表：入库操作显示结果：出库操作显示结果：入库产品信息查询结果：六、课程设计体会： 通过一个星期的动手实践，我学到了很多的知识。上课听懂了不代表就一定会，只有通过实践才能判定出来自己到底学到了多少知识。通过这次的课程设计让我明白了自己对一些知识的缺乏，既然学了这门功课就要多掌握一些有用的知识，在实践中寻找自己的不足之处，然后吸纳其中的经验。在这一个星期的课程设计中，一开始有点抱怨，认为自己不会做这样的系统，担心自己做不好。开始动手做的时候不知道从哪开始着手，只好根据书上的一些程序来改编。不过在实践的时候遇到了很多问题，经常会出现一些小问题，这些问题在平常都不怎么会犯这样的错误。不过这样也正好有机会让自己发现自己的缺陷，可以在这次机会中学到很多，提高了自己的动手实践水平。课程设计是一个用来检验自己所学知识运用的平台，考验自己所学知识的基础测试。在这次实验中我对vb中的窗体设计、界面设计、数据报表、相对路径的设置等都有更深层次的了解。虽然说自己做的课程设计并不怎么成功，但我从其中学到了很多以前自己不知道的知识，从错误中学到了新的知识；在错误中学到的东西是印象最深刻的。一个星期的课程设计既是对所学知识的一种考核，也是一种更深层次的学习。
