仓库管理系统的设计一、分析1.1系统分析仓库管理系统主要用于仓库货品信息的管理，系统包括仓库管理、入库、出库和一些统计查询等几部分组成。
仓库管理系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和操作员信息的查看及维护。
仓库管理人员可以浏览、查询、添加、删除等产品的基本信息。
⑴产品入库管理，可以填写入库单，确认产品入库；⑵产品出库管理，可以填写出库单，确认产品出库；⑶借出管理，凭借条借出，然后能够还库；⑷初始库存设置，设置库存的初始值，库存的上下警戒限；⑸可以进行盘库，反映每月、年的库存情况；⑹可以查询产品入库情况、出库情况、当前库存情况，可以按出库单、入库单，产品、时间进行查询；1.2 系统功能基本要求和功能描述1.2.1 基本信息管理基本信息包括客户信息、仓库信息和操作员信息。
客户可以分为供应商和购货商两种类型。
在产品入库时，需要提供供应商的信息；在产品出库和退货时，需要提供购货商的信息。
基本信息管理模块可以实现以下功能：⑴添加、修改、删除和查看客户信息；⑵添加、修改、删除和查看仓库信息；⑶添加、修改、删除和查看操作员信息。
1.2.2 产品信息管理产品信息管理模块可以实现以下功能：⑴添加产品信息；⑵修改产品信息；⑶删除产品信息；⑷查询产品信息；1.2.3 仓库管理操作进行入库和出库操作。
入库操作需要记录相关的产品信息、仓库信息、客户信息、入库时间等信息；出库操作需要记录相关的产品信息、仓库信息、客户信息、出库时间等信息。
1.2.4仓库警示管理仓库警示管理模块可以实现仓库产品数量报警和仓库容量报警。
查询管理模块可以对仓库产品进行各种类型的查询，从而能够全面的了解仓库情况。
1.3系统功能模型根据以上所介绍的功能，可以设计出系统的总体功能模块，如图1-1所示。
图1-1 仓库管理系统功能模块示意图1.4 数据分析1.4.1 数据流图通过进行系统调查,了解用户需求、分析应用软件系统的功能需求。
总结出了系统逻辑模型,即系统业务流程图、数据流图。
如图1-2和图1-3所示。
图1-2 系统业务流程图图1-3 仓库管理系统数据流图1.4.2 数据字典二、数据库概念结构设计经考察和分析,本案例客房管理系统包括以下实体：客户实体、客房实体、操作员实体、结算账单实体,它们的E-R图如以下所示。
2-1产品及其属性图图2-3入库表及其属性图2-4出库表及其属性图2-5仓库及其属性图2-6客户及其属性图2-7操作员及其属性图2-8仓库管理系统E-R图三、数据库逻辑结构设计根据E-R图，数据库仓库管理系统包含以下8个表：客户信息表“客户”、仓库信息表“仓库”、操作员信息表“操作员”、产品类别表“产品类别”、产品信息表“产品”、入库操作信息表“入库”、出库操作信息表“出库”和库存产品信息表“库存”。
1. 客户信息表“客户”客户信息表“客户”主要是用来保存客户信息，表“客户”结构如图表2-1所示。
表2-1 客户信息表“客户”2. 仓库信息表“仓库”仓库信息表“仓库”用来保存仓库信息，表“仓库”的结构如表2-2所示。
表2-2 仓库信息表“仓库”3. 操作员表“操作员”操作员表“操作员”用来保存用户信息，表“操作员”的结构如表2-3表示。
表2-3操作员信息表“操作员”产品信息表“产品”用来保存产品的基本信息，表“产品”的结构如表2-5表示。
表2-5产品信息表“产品”5. 入库操作信息表“入库表”入库操作信息表“入库表”用来保存入库操作的基本信息，表“入库表”的结构如表2-6表示。
表2-6入库操作信息表“入库表”6. 出库操作信息表“出库表”出库操作信息表“出库表”用来保存出库操作的基本信息。
表“出库表”的结构如表2-7表示。
表2-7 出库操作信息表“出库表”7. 库存产品信息表“库存表”库存产品信息表“库存表”用来保存库存产品的基本信息，表“库存表”的结构如表2-8表示。
表2-8库存产品信息表“库存”e四、数据库物理结构设计在进行了数据表的逻辑结构定义后,需要为每个数据表创建其物理结构,即在数据库系统中定义数据表具体存放的格式、位置等。
这里列出利用SQL Server2000 自带的数据库创建的数据表的物理结构。
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 “产品视图”五、数据库的实施根据以上所进行的调查、设计和进行方案,建立并实施数据库。
此系统运用SQL Server 2000进行数据库的开发。
1.数据库建表语句⑴名称: 客户表“客户”标识：客户建表语句如下：create table 客户 (客户号 int not null,客户名 varchar(50) null,客户类型 tinyint null,联系地址 varchar(50) null,邮政编号 varchar(10) null,联系电话 varchar(30) null,备注 varchar(100) null,constraint PK_客户 primary key (客户号))go(2) 名称: 产品表“产品”标识：产品号建表语句如下:create table 产品 (产品号 int not null,产品名 varchar(50) null,产品数量 int null,产品单价 varchar(20) null,客户号 int null,constraint PK_产品 primary key (产品号))go(3) 名称：仓库表“仓库”标识：仓库号建表语句如下：create table 仓库 (仓库号 int not null,仓库名 varchar(50) null,仓库备注 varchar(100) null,constraint PK_仓库 primary key (仓库号))go(4) 名称：“入库表”建表语句如下：create table 入库表 (产品号 int null,入库单价 varchar(20) null,入库数量 int null,客户号 int null,仓库号 int null,入库时间 varchar(10) null)go(5) 名称：“出库表”建表语句如下：create table 出库表 (产品号 int null,出库单价 varchar(20) null,出库数量 int null,客户号 int null,仓库号 int null,出库时间 varchar(10) null)go(6) 名称：“库存表”建表语句如下：create table 库存表 (产品号 int null,入库价格 varchar(20) null,现存数量 int null,仓库号 int null)go(7) 名称：“操作员”表建表语句如下：create table 操作员 (操作员号 int not null, 操作员名 varchar(40) null,密码 varchar(40) null,constraint PK_操作员 primary key (操作员号))go2.数据库建视图语句(1) 名称：“产品视图'”建视图语句如下：CREATE VIEW dbo.产品视图ASSELECT dbo.产品.产品号, dbo.产品.产品名, dbo.产品.客户号,dbo.库存表.仓库号, dbo.产品.产品数量,dbo.产品.产品单价, dbo.库存表.入库价格, dbo.库存表.现存数量FROM dbo.产品 INNER JOINdbo.库存表 ON dbo.产品.产品号 = dbo.库存表.产品号六、数据库的运行根据以上所做的准备以及SQL Server 2000建立好的表、试图及各种关系，运用Visual Basic 6.0 为前台开发工具，开发出客户管理系统，主要运用了ADODC控件和DataGrid控件。
1. 系统登陆界填入用户名和密码后点击【登录】按钮,系统将自动从数据库中判断是否存在相同的用户名和密码,如果有则进入系统,进入系统的主页面并出现欢迎使用系统的对话框,不成功则显示错误信息页面。
如果不存在则提示用户名和密码有错误信息。
系统登陆界面如图6-1所示图6-1 系统登陆界面2. 系统主界面主界面包括系统的主要功能包括新建客户信息、客房信息查询、客户信息查询、结算信息账单，四个主要的功能。
用户可以根据需要点击自己想使用的功能进入功能界面。
系统主界面如图6-2所示。
图 6-2 系统主界面3. 管理界面图6-3 各信息管理界面4.添加界面用于添加新的信息，有添加客户信息、添加仓库信息、添加产品信息、添加操作员信息，各个添加界面如图4-4所示。
图4-4-a 添加客户信息界面图4-4-b 添加仓库信息界面图4-4-c 添加产品信息界面5.查询界面用于查询各种信息，有客户信息查询、仓库信息查询、产品信息查询、操作员信息查询。
各个查询界面如图4-5所示。
图4-5-1仓库信息查询图4-5-2 产品信息查询图4-5-3 入库表信息查询图4-5-4 客户信息查询6. 删除界面删除界面用于删除无用的、过时的信息。
包括删除客户信息、删除仓库信息、删除产品信息。
各界面如下列图4-6所示。
图4-6-1 删除客户信息界面图 4-6-2 删除仓库信息界面图4-6-3 删除产品信息界面参考文献[1] 王珊,陈红.数据库系统原理教程[M].北京：清华大学出版社,1998.7.[2] 王珊,萨师煊.数据库系统概论（第四版）[M].北京：高等教育出版社,2006.5.[3] 虞益诚,孙莉.SQL Server 2000 数据库应用技术[M].北京：中国铁道出版社,2004.11.[4] 刘钢.Visual Basic 程序设计与应用案例[M].北京：高等教育出版社,2003.9.[5] Abraham Silberschatz, Henry F.Korth ,S.Sudarshan.Database System Concepts（Fourth Edition）.Higher Education Press.[6] 罗运模.完全掌握SQL Server 2000[J].北京：人民邮电出版社，2001.[7] 白尚旺.PowerDesigner软件工程技术[M].北京：电子工业出版社，2004.附录Ⅰ仓库管理系统部分程序代码1.登陆代码Private Sub Command1_Click()Dim cn As New ADODB.Connectioncn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim rs, rss As New ADODB.RecordsetSet rs = cn.Execute("select * from 操作员 where 操作员名='" & Text1.Text & "'")Set rss = cn.Execute("select * from 操作员 where 密码='" & Text2.Text & "'")If rs.EOF ThenMsgBox "用户名错误!"Text1.Text = ""Text1.SetFocusElseIf rss.EOF ThenMsgBox "密码错误!"Text2.Text = ""Text2.SetFocusElseMe.HideForm2.ShowMsgBox (Text1.Text + ",欢迎您使用冰舞奇迹仓库管理系统")End IfEnd IfEnd Sub2.添加客户信息代码Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6, a7 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Texta7 = Combo1.Textsql = "insert into 客户 values('" & a1 & "','" & a2 & "','" & a7 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加客户信息"End Sub3.根据客户号查看、删除客户代码Private Sub Command1_Click()Dim kehuhao As Stringkehuhao = Text8.TextAdodc1.Recordset.Find "客户号=" & Val(kehuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringkehuhao = Text8.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 客户 where 客户号='" & kehuhao & "'"cn.Execute (sql)MsgBox "已删除编号为" & kehuhao & "的客户信息"End Sub4.查看客户信息代码Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenIf Combo1.Text = "供应商" Thenrs.Open "select * from 客户where 客户类型='供应商'", cn, adOpenKeyset,adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshElseIf Combo1.Text = "购货商" Thenrs.Open "select * from 客户where 客户类型='购货商'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshElsers.Open "select * from 客户", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 客户where 客户号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 客户where 客户名='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub5.查询仓库信息Dim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 仓库where 仓库号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 仓库where 仓库名='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub6.添加仓库信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 仓库 values('" & a1 & "','" & a2 & "','" & a3 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加仓库信息"End Sub7.查看删除仓库信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = Text1.TextAdodc1.Recordset.Find "产品号=" & Val(cangkuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim cangkuhao As Stringcangkuhao = Text1.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 仓库 where 仓库号='" & cangkuhao & "'"cn.Execute (sql)MsgBox "已删除编号为" & cangkuhao & "的仓库信息"End Sub8.添加操作员信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 操作员 values('" & a1 & "','" & a2 & "','" & a3 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加操作员信息"End Sub9.查看删除操作员信息Private Sub Command3_Click()Dim caozuoyuanhao As Stringcaozuoyuanhao = Text1.TextAdodc1.Recordset.Find "操作员号=" & Val(caozuoyuanhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringcaozuoyuanhao = Text1.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 操作员 where 操作员号='" & caozuoyuanhao & "'"cn.Execute (sql)MsgBox "已删除编号为" & caozuoyuanhao & "的操作员信息"End Sub10.添加产品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Textsql = "insert into 产品 values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加产品信息"End Sub11.查看删除产品信息Private Sub Command3_Click()Dim chanpinhao As Stringchanpinhao = Text1.TextAdodc1.Recordset.Find "产品号=" & Val(chanpinhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringchanpinhao = Text1.Textcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Opensql = "delete from 产品 where 产品号='" & chanpinhao & "'"cn.Execute (sql)MsgBox "已删除编号为" & chanpinhao & "的产品信息"End Sub12.查询产品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 产品where 仓库号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 产品where 产品号='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 产品where 客户号='" & Text3.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub13.填写入库表Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Textsql = "insert into 入库表 values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "')"cn.Execute (sql)cn.CloseMsgBox "已填写入库表信息"End Sub14.填写出库表Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Textsql = "insert into 出库表 values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "')"cn.Execute (sql)cn.CloseMsgBox "已填写出库表信息"End Sub15.入库表信息查询Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 入库表where 产品号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 入库表 where 入库时间='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 入库表where 仓库号='" & Text3.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub16.出库表信息查询Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 出库表where 产品号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 出库表 where 出库时间='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 出库表where 仓库号='" & Text3.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub。