VB+access画笔程序和仓库物资管理系统 第4页
库存查询界面设计：在库存查询界面输入货物编号、货物名称、型号、数量，点击确定即可查询到库存里面的库存信息。
图1.7 库存查询界面
只要在查询界面中输入全部或部分要查询的货物信息，即可查询到所要的物品。
具体代码如下：
Private Sub Command1_Click()
Dim rs_findlab As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> "" Then
sql = sql & "and 货物名称 like'%" & Trim(Text2.Text & " ") & "%'"
End If
End If
If Trim(Text3.Text) <> "" Then
If Trim(sql) = "" Then
sql = "型号 like '%" & Trim(Text3.Text & " ") & "%'"
Else
sql = sql & "and 型号 like '%" & Trim(Text3.Text & " ") & "%'"
End If若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn
End If
If Trim(Text3.Text) <> "" Then
If Trim(sql) = "" Then
sql = "数量 like '%" & Trim(Text4.Text & " ") & "%'"
Else
sql = sql & "and 数量 like '%" & Trim(Text4.Text & " ") & "%'"
End If
End If
If Trim(sql) = "" Then
MsgBox "请输入要搜索关键字", vbOKOnly + vbExclamation, ""
Exit Sub
End If
sql = "select * from 库存信息 where " & sql
rs_findlab.CursorLocation = adUseClient
rs_findlab.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findlab
End Sub
库存统计界面设计：库存统计主要实现的是统计库存中所有货物。点击仓库管理子菜单中的库存统计，即可显示库存统计界面。
图1.8 库存统计界面
库存报表界面的设计：报表设计需要添加数据环境（DataEnvironment1）和数据报表（DataReport1）数据环境设计。将数据环境与我的数据库相连，添加命令Command1，Command1的属性设置 数据库对象为表 数据对象是结算管理。
报表与数据环境相连设置报表
报表的Datasource属性设为DataEnvironment1
报表的DataMember属性设为Command1
在细节中可以直接拖动数据环境里的各项数据
图 1.9 数据环境界面
图 1.10 库存信息报表界面
具体实现代码如下：
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页