VB超市库存管理系统的设计与实现+文献综述(13)
表4-10 历史出库表
字段名 数据类型 字段长度 是否为空
货物名称 文本 12
货物数量 数字 长整型
出库日期 日期/时间
年度数量 数字 长整型
年度供货总额 数字 长整型
2、数据库链接
VB语言是可以直接与ACCESS进行链接的，需要将ACCESS转化成97格式就行，然后再进行“VB数据窗体向导”生成窗体时，可以选择自己所建议的数据库作为记录源。在本次系统设计中我采用的是用ODBC工具来进行链接，可以通过计算机的控制面板选项调出ODBC数据源管理器进行配置即可。
3、数据库初始内容设计
数据库的初始内容需要用户表、货品信息表、仓库信息表、入库登记表、出库登记表、库存汇总表、经办人员表、供货单位信息表、历史入库表、历史出库表这10个部分，具体内容如下所示。
（1）用户表
用户表包括用户的姓名和密码等信息，如图4-1所示：
图4-1 用户表
（2）货品信息表
货品信息表包括货品编码、货品名称、类别、型号、单位等信息，如图4-2所示：
图4-2 货品信息表
（3）仓库信息表
仓库信息表包括仓库编号、仓库名称、存货种类、存货价值等信息，如图4-3所示：
图4-3 仓库信息表
（4）入库登记表
入库登记表包括入库日期、入库单号、货物编码、数量等信息，如图4-4所示：
图4-4 入库登记表
（5）出库登记表
出库登记表包括出库日期、出库单号、货品编码、货品名称、数量等信息，如图4-5所示：
图4-5 出库登记表
（6）库存汇总表
库存汇总表包括货物编码、入库日期、货物名称、数量、进货价等信息，如图4-6所示：
图4-6 库存汇总表
（7）经办人员表
经办人员表包括编号姓名、家庭住址、办公电话和家庭电话等信息，如图4-7所示：
图4-7 经办人员表
（8）供货单位信息表
供货单位信息表中包括单位编号、单位名称、单位地址、电话和联系人等信息，如图 4-8所示：
图4-8 供货单位信息表
（9）历史入库表
历史入库表包过货位名称、供货单位、入库日期、年度数量和年度供货总额等信息，如图4-9所示：
图4-9 历史入库表
（10）历史出库表
历史出库表中包括货物名称、货物数量、出入日期、年度数量和年度供货总额等信息，如图4-10所示：
图4-10 历史出库表
五、系统功能实现与测试
（一）公共模块
1、模块功能
在VB中可以公用模块来存放整个工程项目公用的函数、全局变量等。这个工程项目中的任何一个地方都可以调用公共模块中的函数、变量，这样可以极大地提高代码的效率，我也是在本系统中添加了一个Module1.bas。其中定义了一个ExecuteSQL函数和ConnectString函数。
2、主要代码分析
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection