仓库管理系统设计(陈超--).doc

仓库管理系统课程设计报告 1 理工学院 MIS课程设计 课程设计题目 仓库管理系统 专 业 班 级 工业工程 062 班 学 生 姓 名 陈超 学 号 061641204 指 导 教 师 杨明欣 2009 年 6 月 20 日 仓库管理系统课程设计报告 2 摘 要 本数据库是一个简单仓库管理系统 通过它可以实现对原料 物料 产品的入库 出库等管理 包含注册用户的信息 可以对原料 物料 产品的分种类 分不同型号 进行管理 而且对各种各样的查询 以及对各种各样的组合条件的查询也是非常的方 便 可以在实践当中运行 通过它我们可以很方便的给仓库划分种类 使得什么样仓库存什么样的东西 还可 以对各种产品以及物料进行很好的管理 还包括可以自己定义仓库中的剩余容量少于 多少时给出很友好的提示 关键词 仓库管理 数据流 E R 触发器 存储过程 仓库管理系统课程设计报告 II 目 录 1 设计内容与要求 1 1 1 设计内容 1 1 2 设计要求 1 2 需求分析 2 2 1 系统需求概述 2 2 2 系统需求说明 3 2 2 1 功能需求 3 2 2 2 性能需求 3 2 3 模块分析 3 2 3 1 总体模块 3 2 3 2 分模块功能 4 2 4 数据流图 4 2 5 数据字典 5 2 5 1 具体表 5 2 5 2 表里的具体清单 5 3 概念结构设计 6 3 1 入出库信息尸体 E R 图 6 3 2 货物信息实体 E R 图 6 3 3 用户信息实体 E R 图 7 4 仓库管理系统应用程序设计 7 4 1 登陆 模块详细设计 7 4 2 主窗体 模块详细设计 9 4 3 各项子模块详细设计 12 5 设计体会与建议 63 致谢 63 参考文献 63 仓库管理系统课程设计报告 1 1 1 设计内容与要求设计内容与要求 1 1 设计内容 本次设计是要求设计一个仓库管理系统 能对原料 物料和产品的入库进行分开管 理 还能够进行一种或者多种要求的组合的查询 1 2 设计要求 这个系统设计出来以后能够在实际当中发挥作用 并能够在实际当中给仓库管理员 带来方便 也能够在以后有需要的时候能够很方便的进行扩展 很方便的对这个数据 库进行维护 而且用较小的资源消耗就能够实现这些基本功能 这个系统主要能实现以下的功能 该系统能够实现对货物的各种信息的查询 并且查询时可以按照以货单号或日期进 行查询 包括逐个浏览 及对货物出入库信息的增加 删除和编辑操作 另外可以 根据输入的信息来检索某货物的信息 对库房的货物信息进行汇总 其中汇总的主要内容主要包括日期 货单号 货物名 称 货源地 金额等 汇总时可以按照各种情况进行汇总 比如说按照日期 或者 按照条件组合进行汇总 另外 管理人员也可以直接增加和删除用户信息 系统还可以提供一定的附加功能 来方便用户 仓库管理系统课程设计报告 2 2 需求分析 2 1 系统需求概述 近年来 改革开放使我国企业得到了前所未有的发展机遇 同时也面对市场竞争 的严重挑战 虽然我国制造企业飞速发展 但是 由于制造企业的管理水平低 导致 了生产力的降低和众多企业的倒闭 随着全球范围内大市场的形成与发展 加剧了企 业之间在国内外市场的激烈竞争 迫使企业必须从时间 质量 成本和服务上不断增 强自己的竞争力以求得生存与发展 这就要求企业在生产管理上必须做出新的努力 寻求新的理论和技术 面临这种严峻的形势 我们国家必须引进先进的企业管理思想 和技术并不断创新 信息技术的广泛应用 正改变着企业生产与管理的面貌 信息技 术已成为改善生产力 提高产品质量和增加经济效益的主要力量 近年来为了适应新 的竞争形势出现了一些新型生产方式 如计算机集成制造系统 精益生产方式 敏捷 制造 虚拟企业等 都是在计算机系统的支持下得以实现的 这样 又产生了如何在 生产管理中应用计算机技术来改善管理工作的问题 众所周知 企业是通过向社会提供所需要的产品或服务而获得利润的经济组织 对工业企业而言 企业生产经过原材料购入 产品加工等环节 产生价值的转移 从 而生产出社会所需要的新的产品 在这样的一个从原材料采购到生产 再由生产到销 售的过程中 企业必然要对它的各种物资进行有计划的采购 供应 保管 组织和合 理使用等一系列的管理工作 通常将上述工作统称为物资管理 物资管理工作的核心 是库存控制工作 此仓库管理系统为了适应新形势的需要 借鉴了 MRP 制造资源计划 Manufacturing Resource Planning 的先进管理思想 其功能覆盖了物料需求和库存控制 两个方面的生产经营过程以及相关的财务活动 从而为制造业管理提供了比较有效的 工具 仓库管理系统课程设计报告 3 2 2 系统需求说明 2 2 1 功能需求功能需求分析分析 1 该系统能够实现对货物的各种信息查询 并且查询时可以按照以货单号或日期进行 查询 包括逐个浏览 及时出入库信息的增加 删除和编辑操作 另外可以根据输入 的信息来检索某货物的信息 2 对库房的货物进行汇总 其中汇总的内容主要包括日期 货单号 货物名称 货源 地 金额等 汇总时可以按照各种情况进行汇总 比如说按照日期 或者按照条件组 合进行汇总 3 另外 管理人员也可以直接增加和删除用户信息 系统还可以提供一定的附加功能 来方便用户 2 2 2 性能需求 在保证质量的情况下 提高运行速度 实现界面友好性 易操作性和跨平台性 仓库管理系统 应有良好的安全性 系统管理员通过 用户设置 可以建立任意多 个账户并为其设置权限和密码 保证系统信息的保密性 2 3 模块分析 2 3 1 总体模块 经过整体分析 此系统主要包含以下几个主要模块如图 2 1 仓库管理系统 系统管理 出库入库 货物详况 货物汇总 用户管理 密码管理 出库管理 入库管理 货物管理 货物查询 日期汇总 客户汇总 货物汇总 综合汇总 仓库管理系统课程设计报告 4 图 2 1 总体模块 2 3 2 分模块功能 系统的各个模块的功能如表 2 1 演示 表 2 1 模块名称模块功能 物料入库模块完成各种物料入库登记工作 并增加库存量 物料出库模块完成各种物料出库登记工作 并减少库存量 物料查询模块实现对入库单 出库单以及前库存情况进行组合查询的功能 用户 系统设置模 块 实现系统用户及其权限设置 参数设置和退出设置的功能 2 4 数据流图 物料入库 物料入库信息 记录 物料入库信息 登记 物料出库 物料出库信息 记录 物料出库信息 登记 库存设置库存信息登记库存信息记录 物料查询查询信息登记 查询信息记录 物料控制物料信息登记 物料信息记录 设置用户信息登机用户信息记录 仓库管理 物料入库 表 物料出库 表 库存设置 表 物料查询 表 物料控制表 用户设置表 统计信息 统计信息 统计信息 统计信息 统计信息 统计信息 图 2 2 数据流图 仓库管理系统课程设计报告 5 2 5 数据字典 2 5 1 具体表 本数据库包含以下几个表 见表 2 2 表 2 2 名称主键注释 货源地 货源地描述货源地的信息 货物详况货单号描述货单信息 入出库货单号描述产品入出库信息 客户客户名描述客户信息 系统管理用户名 用户信息注册表 2 5 2 表里的具体的列清单表里的具体的列清单 如表 2 3 所示 表 2 3 名称数据类型长度 货源地文本20 货单号文本30 日期日期 时间 货物名称文本 单价文本10 数量数字10 单位文本10 金额货币 客户名文本 编号文本50 经手人文本10 备注文本10 用户名文本10 密码文本 权限文本 入出库是 否 仓库管理系统课程设计报告 6 3 概念结构设计概念结构设计 3 1 入出库信息实体入出库信息实体 E R 图图 入出库信息实体 货源地 编号 日期 经手 人 货单号入出库备注 原料 仓库 E R 图 3 2 货物信息实体货物信息实体 E R 图图 货物货物 货 物 信 息 实 体 货单号货源地货物名称客户名 信息实体信息实体 E R 图图 仓库管理系统课程设计报告 7 3 33 3 用户信息实体用户信息实体 E RE R 图图 用户信息实体 用户名密码权限 用户信息实体 E R 图 4 4 仓库管理系统应用程序设计 仓库管理系统应用程序设计 4 1 登录 模块详细设计 登录模块的详细设计主要是用户登录的一个界面 判断登录的用户是管理 员还是普通用户 进入后将面对的是主界面 从而进行相关的操作 登录的界面主要由用户名和密码的信息 还有一些标题设置 确定和取消 的按钮组成 通过标题可以知道此系统的大概内容 由此 登录界面的设计完 成 其代码如下 仓库管理系统课程设计报告 8 Private Sub Command1 Click Dim sql As String Dim rs login As New ADODB Recordset If Trim txtuser Text Then 判断输入的用户名是否为空 MsgBox 没有这个用户 vbOKOnly vbExclamation txtuser SetFocus Else sql select from 系统管理 where 用户名 data source cangku mdb conn Open connectionstring cnt 0 End Sub Private Sub Timer1 Timer Label3 Caption Time Label4 Caption Date End Sub 4 2 主窗体 模块详细设计 在这个项目中 选择使用多文档界面 使用这个窗体的好处是可以使程序 更加有条理 对于一个多任务的应用程序 使用多文档窗体还可以减少占用的 系统资源 主窗体设计的界面是用菜单编辑器做的 主要由系统管理 出库入库 货 物详情 货物汇总和关于这五个大模块组成 主窗体是进行相关操作的主界面 在这几个里 管理员有所有的权利进行各种操作 仓库管理系统课程设计报告 10 其代码如下 Private Sub about Click frmabout Show End Sub Private Sub add user Click adduser Show End Sub Private Sub check find Click chaxun Show End Sub Private Sub data manage Click sqlfind select from 入出库 rs data1 Open sqlfind conn adOpenKeyset adLockPessimistic kumanage Show End Sub 仓库管理系统课程设计报告 11 Private Sub exit Click Unload Me End Sub Private Sub in check Click jinku Caption 入库 jinku Show End Sub Private Sub MDIForm Load frmdata False find False End Sub Private Sub modify pw Click changpwd Show End Sub Private Sub out check Click jinku Caption 出库 jinku Show End Sub Private Sub sum check date Click summary menu check date huizong Show 1 End Sub Private Sub sum date custom Click summary menu date custom huizong Show 1 仓库管理系统课程设计报告 12 End Sub Private Sub summary check Click summary menu check huizong Show 1 End Sub Private Sub summary custom Click summary menu custom huizong Show 1 End Sub Private Sub summary date Click summary menu date huizong Show 1 End Sub 4 3 各项子模块详细设计 选择 系统管理 添加用户 菜单 在添加用户的窗体里 输入新的 用户名称和密码后 单击 确定 按钮 系统将会添加新的用户 其代码如下 Private Sub Command1 Click Dim sql As String Dim rs add As New ADODB Recordset 仓库管理系统课程设计报告 13 If Trim Text1 Text Then MsgBox 用户名不能为空 vbOKOnly vbExclamation Exit Sub Text1 SetFocus Else If Trim Text2 Text Then MsgBox 密码不能为空 vbOKOnly vbExclamation Exit Sub Text2 SetFocus Else sql select from 系统管理 rs add Open sql conn adOpenKeyset adLockPessimistic While rs add EOF False If Trim rs add Fields 0 Trim Text1 Text Then MsgBox 已有这个用户 vbOKOnly vbExclamation Text1 SetFocus Text1 Text Text2 Text Text3 Text Combo1 Text Exit Sub Else rs add MoveNext End If Wend 仓库管理系统课程设计报告 14 If Trim Text2 Text Trim Text3 Text Then MsgBox 两次密码不一致 vbOKOnly vbExclamation Text2 SetFocus Text2 Text Text3 Text Exit Sub ElseIf Trim Combo1 Text system And Trim Combo1 Text guest Then MsgBox 请选择正确的用户权限 vbOKOnly vbExclamation Combo1 SetFocus Combo1 Text Exit Sub Else rs add AddNew rs add Fields 0 Text1 Text rs add Fields 1 Text2 Text rs add Fields 2 Combo1 Text rs add Update rs add Close MsgBox 添加用户成功 vbOKOnly vbExclamation Unload Me End If End If End If End Sub Private Sub Command2 Click 仓库管理系统课程设计报告 15 Unload Me End Sub Private Sub Form Load Combo1 AddItem system Combo1 AddItem guest End Sub 选择 系统管理 修改密码 菜单 在修改密码的窗体里 输入旧密 码和 2 次输入新密码后 单击 确定 按钮 系统将会更改当前用户的密码 其代码如下 Private Sub Command1 Click Dim rs chang As New ADODB Recordset Dim sql As String If Trim Text3 Text Then MsgBox 旧密码不能为空 请重新输入 vbOKOnly vbExclamation 警告 Text3 SetFocus Text3 Text Exit Sub End If If Trim Text1 Text Then MsgBox 新密码不能为空 请重新输入 vbOKOnly vbExclamation 警告 仓库管理系统课程设计报告 16 Text1 SetFocus Text1 Text Exit Sub End If If Text1 Text Text2 Text Then MsgBox 两次输入的新密码不同 请重新输入 vbOKOnly vbExclamation 警告 Text1 SetFocus Text1 Text Text2 Text Exit Sub End If Dim strSql As String Dim rs As New ADODB Recordset strSql Select from 系统管理 where 用户名 userID rs Open strSql conn adOpenForwardOnly adLockReadOnly If Trim rs Fields 密码 Trim Text3 Text Then MsgBox 旧密码不对 请重新输入 vbOKOnly vbExclamation 警告 Text3 SetFocus Text3 Text Else strSql Update 系统管理 set 密码 Text2 Text where 用户名 userID conn Execute strSql MsgBox 密码修改成功 vbOKOnly vbInformation 提示 Text3 Text 仓库管理系统课程设计报告 17 Text1 Text Text2 Text Unload Me End If rs Close Set rs Nothing End Sub Private Sub Command2 Click Unload Me End Sub 选择 入库出库 入库出库 菜单进入界面 其代码如下 Option Explicit Dim rs checkname As New ADODB Recordset 货源地对应的数据对象 Dim rs custom As New ADODB Recordset 客户名对应的数据对象 Const row num 10 表格行数 Const col num 6 表格列数 仓库管理系统课程设计报告 18 Private Sub Combo2 Click MSFlexGrid1 Text Combo2 Text MSFlexGrid1 Row MSFlexGrid1 Row 1 MSFlexGrid1 Col 0 Combo2 Visible False Text5 Visible True nextposition MSFlexGrid1 Row MSFlexGrid1 Col End Sub Private Sub Command1 Click Dim rs save As New ADODB Recordset Dim sql As String Dim i As Integer Dim s As String 转化数据用 On Error GoTo saveerror If Trim Text1 Text Then MsgBox 货单不能为空 vbOKOnly vbExclamation Text1 SetFocus Exit Sub End If If Combo1 Text Then MsgBox 请选择货源地 vbOKOnly vbExclamation Combo1 SetFocus Exit Sub End If If comboy Text Then 仓库管理系统课程设计报告 19 MsgBox 请选择年份 vbOKOnly vbExclamation comboy SetFocus Exit Sub End If If combom Text Then MsgBox 请选择月份 vbOKOnly vbExclamation combom SetFocus Exit Sub End If If combod Text Then MsgBox 请选择日期 vbOKOnly vbExclamation combod SetFocus Exit Sub End If If Text2 Text Then MsgBox 请填写凭证号 vbOKOnly vbExclamation Text2 SetFocus Exit Sub End If If Text3 Text Then MsgBox 请填写经手人 vbOKOnly vbExclamation Text3 SetFocus Exit Sub End If If MSFlexGrid1 Col 0 Then 仓库管理系统课程设计报告 20 MsgBox 请输入完整的物品信息 vbOKOnly vbExclamation MSFlexGrid1 SetFocus Exit Sub End If sql select from 入出库 where 货单号 Text1 Text rs save Open sql conn adOpenKeyset adLockPessimistic If rs save EOF Then rs save AddNew rs save Fields 0 Trim Text1 Text rs save Fields 1 CDate Trim comboy Text Trim combom Text Trim combod Text rs save Fields 2 Trim Combo1 Text rs save Fields 3 Trim Text2 Text rs save Fields 4 Trim Text3 Text rs save Fields 5 Trim Text4 Text If jinku Caption 入库 Then 入出库标记 rs save Fields 6 True Else rs save Fields 6 False End If rs save Update rs save Close Else MsgBox 货单号重复 vbOKOnly vbExclamation Text1 SetFocus Text1 Text 仓库管理系统课程设计报告 21 rs save Close Exit Sub End If sql select from 货物详况 rs save Open sql conn adOpenKeyset adLockPessimistic For i 1 To MSFlexGrid1 Row 1 rs save AddNew rs save Fields 0 Trim Text1 Text rs save Fields 1 CDate Trim comboy Text Trim combom Text Trim combod Text rs save Fields 2 Trim Combo1 Text MSFlexGrid1 Row i MSFlexGrid1 Col 0 rs save Fields 3 Trim MSFlexGrid1 Text MSFlexGrid1 Col 1 If jinku Caption 出库 Then s Trim MSFlexGrid1 Text rs save Fields 4 CDbl s Else rs save Fields 4 CDbl Trim MSFlexGrid1 Text End If MSFlexGrid1 Col 2 rs save Fields 5 Trim MSFlexGrid1 Text MSFlexGrid1 Col 3 rs save Fields 6 Trim MSFlexGrid1 Text MSFlexGrid1 Col 4 仓库管理系统课程设计报告 22 If jinku Caption 出库 Then s Trim MSFlexGrid1 Text rs save Fields 7 CDbl s Else rs save Fields 7 CDbl Trim MSFlexGrid1 Text End If MSFlexGrid1 Col 5 rs save Fields 8 Trim MSFlexGrid1 Text Next i rs save Update rs save Close MsgBox 添加成功 vbOKOnly vbExclamation Unload Me Exit Sub saveerror MsgBox Err Description End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Form Load Dim sql As String Dim i As Integer On Error GoTo loaderror sql select from 货源地 仓库管理系统课程设计报告 23 rs checkname CursorLocation adUseClient rs checkname Open sql conn adOpenKeyset adLockPessimistic sql select from 客户名 rs custom CursorLocation adUseClient rs custom Open sql conn adOpenKeyset adLockPessimistic While Not rs custom EOF Combo2 AddItem rs custom Fields 0 rs custom MoveNext Wend If Not rs checkname EOF Then rs checkname MoveFirst While Not rs checkname EOF 添加可选择的货源地 Combo1 AddItem rs checkname Fields 0 rs checkname MoveNext Wend End If comboy AddItem 2002 添加年份 comboy AddItem 2003 comboy AddItem 2004 comboy AddItem 2005 For i 1 To 12 添加月份 combom AddItem i Next i For i 1 To 31 添加日期 combod AddItem i 仓库管理系统课程设计报告 24 Next i setgrid setgrid head Text5 Visible False clear grid Exit Sub loaderror MsgBox Err Description End Sub Private Sub Form Unload Cancel As Integer 关闭数据对象 rs checkname Close rs custom Close End Sub Public Sub setgrid 设置表格子程序 Dim i As Integer On Error GoTo seterror MSFlexGrid1 ScrollBars flexScrollBarBoth MSFlexGrid1 FixedCols 0 MSFlexGrid1 Rows row num MSFlexGrid1 Cols col num MSFlexGrid1 SelectionMode flexSelectionByRow For i 0 To row num 1 MSFlexGrid1 RowHeight i 315 Next 仓库管理系统课程设计报告 25 For i 0 To col num 1 MSFlexGrid1 ColWidth i 1300 Next i Exit Sub seterror MsgBox Err Description End Sub Public Sub setgrid head On Error GoTo setheaderror MSFlexGrid1 Row 0 MSFlexGrid1 Col 0 MSFlexGrid1 Text 物品名称 MSFlexGrid1 Col 1 MSFlexGrid1 Text 单价 MSFlexGrid1 Col 2 MSFlexGrid1 Text 数量 MSFlexGrid1 Col 3 MSFlexGrid1 Text 单位 MSFlexGrid1 Col 4 MSFlexGrid1 Text 金额 MSFlexGrid1 Col 5 MSFlexGrid1 Text 客户名 Exit Sub setheaderror MsgBox Err Description 仓库管理系统课程设计报告 26 End Sub Public Sub clear grid Dim i As Integer j As Integer For i 1 To row num 1 MSFlexGrid1 Row i For j 0 To col num 1 MSFlexGrid1 Col j MSFlexGrid1 Text Next j Next i End Sub Public Sub nextposition ByVal r As Integer ByVal c As Integer On Error GoTo nexterror Text5 Width MSFlexGrid1 CellWidth Text5 Height MSFlexGrid1 CellHeight Text5 Left MSFlexGrid1 Left MSFlexGrid1 ColPos c Text5 Top MSFlexGrid1 Top MSFlexGrid1 RowPos r Text5 Text MSFlexGrid1 Text Text5 Visible True Text5 SetFocus Exit Sub nexterror MsgBox Err Description End Sub Private Sub MSFlexGrid1 Click 仓库管理系统课程设计报告 27 If Combo2 Visible True Then Exit Sub End If nextposition MSFlexGrid1 Row MSFlexGrid1 Col End Sub Private Sub Text5 KeyPress KeyAscii As Integer Dim i As Integer j As Integer Dim price As Double coun As Integer On Error GoTo texterror If KeyAscii keyenter Then MSFlexGrid1 Text Text5 Text i MSFlexGrid1 Row j MSFlexGrid1 Col If j 0 And Trim Text5 Text Then MsgBox 物品名称不能为空 vbOKOnly vbExclamation Text5 SetFocus Exit Sub End If If j 1 And Not IsNumeric Text5 Text Then MsgBox 单价请输入数字 vbOKOnly vbExclamation Text5 SetFocus Exit Sub End If If j 2 And Not IsNumeric Text5 Text Then MsgBox 数量请输入数字 vbOKOnly vbExclamation 仓库管理系统课程设计报告 28 Text5 SetFocus Exit Sub End If If j 3 And Trim Text5 Text Then MsgBox 单位不能为空 vbOKOnly vbExclamation Text5 SetFocus Exit Sub End If If j 3 And Not IsNull Text5 Text Then MSFlexGrid1 Col 1 金额由程序算出 price CDbl MSFlexGrid1 Text MSFlexGrid1 Col 2 coun CInt MSFlexGrid1 Text MSFlexGrid1 Col 4 MSFlexGrid1 Text price coun MSFlexGrid1 Col MSFlexGrid1 Col 1 Text5 Visible False setcombo2 MSFlexGrid1 Row MSFlexGrid1 Col KeyAscii 0 Exit Sub End If MSFlexGrid1 Col MSFlexGrid1 Col 1 KeyAscii 0 nextposition MSFlexGrid1 Row MSFlexGrid1 Col End If 仓库管理系统课程设计报告 29 Exit Sub texterror MsgBox Err Description End Sub Public Sub setcombo2 ByVal r As Integer ByVal c As Integer On Error GoTo seterror Combo2 Width MSFlexGrid1 CellWidth Combo2 Left MSFlexGrid1 Left MSFlexGrid1 ColPos c Combo2 Top MSFlexGrid1 Top MSFlexGrid1 RowPos r Combo2 Text MSFlexGrid1 Text Combo2 Visible True Combo2 SetFocus Exit Sub seterror MsgBox Err Description End Sub 选择 货物详况 货物管理 菜单 在其他项目设置的窗体中 查看货物管理情况 仓库管理系统课程设计报告 30 其代码如下 Option Explicit Dim rs data2 As New ADODB Recordset Dim select row As String Dim showgrid2 As Boolean Dim rs custom As New ADODB Recordset Dim jinchu As String 入出库标志 Dim modify As Boolean 修改状态标志 Private Sub cmdadd Click On Error GoTo adderror Dim r As Integer Dim i As Integer If rs data2 BOF True Then MsgBox 没有明细记录无法添加 vbOKOnly Exit Sub ElseIf cmdadd Caption 增加明细 Then 仓库管理系统课程设计报告 31 cmdadd Caption 确定 cmdexit Enabled False cmdmodify Enabled False cmddel Enabled False cmdcancel Enabled True Text1 Text With MSFlexGrid2 Rows rs data2 RecordCount 2 Row rs data2 RecordCount 1 Col 0 Text rs data2 Fields 货单号 Col 1 Text rs data2 Fields 日期 Col 2 Text rs data2 Fields 货源地 Col 3 End With nextpos MSFlexGrid2 Row MSFlexGrid2 Col Else rs data2 AddNew For i 0 To 8 MSFlexGrid2 Col i If i 4 Or i 7 Then If jinchu 出库 Then rs data2 Fields i CDbl Trim MSFlexGrid2 Text 仓库管理系统课程设计报告 32 Else rs data2 Fields i CDbl Trim MSFlexGrid2 Text End If Else rs data2 Fields i MSFlexGrid2 Text End If Next i rs data2 Update MsgBox 增加信息成功 vbOKOnly vbExclamation cmdadd Caption 增加明细 cmdmodify Enabled True cmddel Enabled True cmdexit Enabled True cmdcancel Enabled False Combo1 Visible False End If Exit Sub adderror MsgBox Err Description End If End If End Sub Private Sub cmdcancel Click If cmdadd Caption 确定 Then cmdadd Caption 增加明细 仓库管理系统课程设计报告 33 cmdmodify Enabled True ElseIf cmdmodify Caption 确定 Then cmdmodify Caption 修改明细 cmdadd Enabled True End If Text1 Visible False cmddel Enabled True cmdexit Enabled True cmdcancel Enabled False showdata End Sub Private Sub cmddel Click Dim answer As String Dim delete row As String Dim cmd As New Command Dim sql As String On Error GoTo delerror Set cmd ActiveConnection conn If rs data2 BOF True Then MsgBox 已经没有明细记录 只能删除当前进出清单 vbOKOnly delete row MSFlexGrid1 TextMatrix MSFlexGrid1 Row 0 sql Delete from 入出库 where 货单号 delete row cmd CommandText sql cmd Execute Unload Me 仓库管理系统课程设计报告 34 Else answer MsgBox 确定要删除吗 vbYesNo If answer vbYes Then delete row MSFlexGrid2 TextMatrix MSFlexGrid2 Row 3 sql Delete from 货物详况 where 物品名称 delete row cmd CommandText sql cmd Execute MsgBox 成功删除 vbOKOnly vbExclamation MSFlexGrid1 Click Else Exit Sub End If End If Exit Sub delerror MsgBox Err Description End Sub Private Sub cmdexit Click Unload Me End Sub Private Sub cmdmodify Click On Error GoTo modifyerror Dim i As Integer Dim j As Integer If rs data2 BOF True Then 仓库管理系统课程设计报告 35 MsgBox 没有明细记录无法修改 vbOKOnly Exit Sub Else If modify False Then MsgBox 无法修改 请选择货物 vbOKOnly vbExclamation Exit Sub Else If cmdmodify Caption 修改明细 Then cmdmodify Caption 确定 cmdexit Enabled False cmdadd Enabled False cmddel Enabled False cmdcancel Enabled True MSFlexGrid2 Row 1 MSFlexGrid2 Col 3 Text1 Text MSFlexGrid2 Text nextpos MSFlexGrid2 Row MSFlexGrid2 Col Else MSFlexGrid2 Row 1 For i 0 To rs data2 RecordCount 1 MSFlexGrid2 Row i 1 For j 0 To 8 MSFlexGrid2 Col j If j 4 Or j 7 Then If jinchu 出库 Then 仓库管理系统课程设计报告 36 rs data2 Fields j CDbl Trim MSFlexGrid2 Text Else rs data2 Fields j CDbl Trim MSFlexGrid2 Text End If Else rs data2 Fields j MSFlexGrid2 Text End If Next j Next i rs data2 Update MsgBox 修改信息成功 vbOKOnly vbExclamation cmdmodify Caption 修改明细 cmdadd Enabled True cmddel Enabled True cmdexit Enabled True cmdcancel Enabled False Combo1 Visible False Text1 Visible False End If End If End If modifyerror If Err Number 0 Then MsgBox Err Description End If 仓库管理系统课程设计报告 37 End Sub Private Sub Combo1 Click MSFlexGrid2 Text Combo1 Text Combo1 Visible False If MSFlexGrid2 Row MSFlexGrid2 Rows 1 Then 如果不是最后一行 MSFlexGrid2 Row MSFlexGrid2 Row 1 MSFlexGrid2 Col 3 nextpos MSFlexGrid2 Row MSFlexGrid2 Col End If End Sub Private Sub Combo1 KeyPress KeyAscii As Integer Combo1 Visible False If KeyAscii 13 And MSFlexGrid2 Row MSFlexGrid2 Rows 1 Then MSFlexGrid2 Row MSFlexGrid2 R