VB课程设计---仓库管理系统.docVIP

VB课程设计 题目: 仓库管理系统 学生姓名： xxxxx 学生学号： 所在专业： 计算机信息管理 任课教师： xxxx 2011年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 Sub Private Sub Command2_unload() End End Sub Private Sub Form_Load() Text2.Text = Text2.MaxLength = 10 最多可以接收10个字符 Text2.PasswordChar = * 以“*”形式显示输入的字符 End Sub Private Sub ckcpxxcx_Click() Load Form5 Form5.Show End Sub Private Sub ckcz_Click() Load Form3 Form3.Show End Sub Private Sub MDIForm_Load() End Sub Private Sub rcpxxccx_Click() Load Form4 Form4.Show End Sub Private Sub rkcz_Click() Load Form2 Form2.Show End Sub Private Sub sjbb_Click() Load Form7 Form7.Show End Sub Private Sub ywy_Click() Load Form6 Form6.Show End Sub Private Sub Command4_Click() 修改操作 Dim areturn As Integer areturn = 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 If End Sub Private Sub Command5_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 If End Sub Private Sub Command6_Click() 退出form2操作 MDIForm1.Show Form2.Hide End Sub Private Sub