1、 VB 课程设计课程设计 题目: 仓库管理系统仓库管理系统 学生姓名学生姓名： xxxxxxxxxx 学生学号学生学号： 123456123456 所在专业所在专业： 计算机信息管理计算机信息管理 任课教师：任课教师： xxxxxxxx 2011 年 12 月 23 日 一、课程设计目的： 课程设计为学生提供了一个既动手又动脑，独立实践的机会，将课本 上的 VB 理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题 的能力。提高用 VB 编程实现具体问题的能力。 二、课程设计的题目与简介： 题目：仓库管理系统 简介：实现对仓库信息的添加、删除和修改，入库和出库的登记和查询操 作等。 三、设
2、计说明： 根据简介的要求，仓库管理系统可以从如下几个结构设计： 由登录界面进入系统，显示主界面（多文档窗体） ，在主界面中编辑菜 单：入库管理、查询、数据报表、业务员管理。 登陆界 面 入出库 管理 查询 数据报 表 入库产品 信息查询 业务员 管理 入库操 作 出库操 作 出库产品 信息查询 入库操 作报表 出库操作 报表 业务员 的操作 主界面 四、源代码： Private Sub Command1_Click() If Text2.Text = “30“ And Text1.Text = “dj“ Then form1.Hide MDIForm1.Show Else MsgBox “输入
3、有误！请确认后再输“ 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 F
4、orm3.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 Data
