VB+库存管理系统+开题报告(六)
p; 入库信息表
中文字段名 数据类型 宽度 是否为空 说明
名称 text 50 no
供应商 text 50 no
数量 int no
单价 货币 no
经手 text 50 no
日期 date no
时间 date no
⑺出库信息表 表名出库表,用于记载材料出库有关的信息 如表5.7所示。
名称:出库材料的名称
数量:出库材料的数量
经手人:经手人姓名
用途:出库材料用途
日期:出库日期
时间:出库时间
表5.7 出库信息表
中文字段名 数据类型 宽度 是否为空 说明
名称 text 50 no
数量 int no
经手人 date 8 no
用途 text 50 no
日期 date no
时间 date no
⑶ 应用ADO连库方法
① 使用Connection :
声明变量Public Conn AS ADODB.Connection
使用Set Connection 对象的一个实例, 并赋给变量。
Conn :Set Conn=New ADODB.Connection
使用Connection 对象的Open方法连接到指定的数据库。
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath,"sa", "Liu Yang”
② 使用Recordset 对象:
先声明变量
Dim RS AS ADODB.Recordset
使用Set 语句生成Recordset对象的一个实例,并赋值给变量RS:
Set RS=New ADODB.Recordset
使用Recordset 对象的Open 方法,将查询字符串传递给Connection 对象指定的数据库。数据库服务器接收到这个查询字符串后,将查询结果返回到RS对象。
6.2系统主要功能的具体设计
库存信息管理系统共有1个界面,5个窗体,包括5个主菜单。现具体介绍如下;
①系统主界面如下图所示:
图6-1 系统主界面
②项目设置窗体如下:
图6-2 项目设置窗体
项目设置代码设计:
Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data5.Recordset.MovePrevious
If Data5.Recordset.BOF = True Then
Data5.Recordset.MoveFirst
End If
Case 2 ''后退
Data5.Recordset.MoveNext
If Data5.Recordset.EOF = True Then
Data5.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data5.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录! 错误:" & Err & "," & Err.Description, 0, "提示"