VB超市库存管理系统的设计与实现+文献综述(17)
2、模块界面与测试结果
通过点击“添加”“更新”“删除”按钮可以分别对经办人员信息或者供货单位信息进行添加、修改、删除的操作，非常的便捷。
图5-15 经办人员信息测试图
图5-16 供货单位信息测试图
（十）历史数据管理模块
1、模块功能
历史数据管理模块主要是让用户查询以往的库存记录，对历史入库记录和历史出库记录进行统一的管理。
2、模块界面与测试结果
通过点击“添加”“更新”“删除”按钮可以分别对历史入库记录信息或者历史出库记录信息进行添加、修改、删除的操作，非常的便捷。
图5-17 历史入库管理测试图
图5-18 历史出库管理测试图
（十一）打印、查询模块
1、模块功能
打印、查询模块是根据货物的编码来查询数据库中库存汇总表的内容，用以反应仓库中某一货物的库存情况，并提供打印功能，便于仓库管理人员与采购人员等可以第一时间对货物的库存数量进行调整。
2、模块界面
此模块采用的是MSHFlexGRID控件，根据库存汇总表的字段进行了相应的设置，提供了打印的功能，如图5-19所示：
图5-19 打印、查询模块界面
另外，通过报表设计器来设计所需打印的表单，将报表所在的数据环境链接到相应的数据库，即可以方便的在报表中显示所需打印的各个字段以及内容，报表设计界面如图5-20所示：
图5-20 报表设计界面
3、主要代码分析
MSHFlexGrid1.Clear
txtSQL = "select 货物编码,入库日期,货物名称,数量（入库）,进货价,数量（出库）,库存数量 from 库存汇总表"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Do While Not mrc.EOF
If mrc.Fields("货物编码") = Text1.Text Then
With MSHFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & ""
.TextMatrix(.Rows - 1, 1) = mrc.Fields(1) & ""
.TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & ""
.TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & ""
.TextMatrix(.Rows - 1, 4) = mrc.Fields(4) & ""
.TextMatrix(.Rows - 1, 5) = mrc.Fields(5) & ""
.TextMatrix(.Rows - 1, 6) = mrc.Fields(6) & ""
.TextMatrix(1, 0) = "货物编码"
.TextMatrix(1, 1) = "入库日期"
.TextMatrix(1, 2) = "货物名称"
.TextMatrix(1, 3) = "数量（入库）"