仓库综合管理系统的设计.doc

《数据库原理及应用》
试验汇报
（— 第 1学期）
题 目： 仓库管理系统设计______
专 业： 计算机科学和技术（嵌入式）
班 级： 13计算机（2）班______
姓名学号： 何雨虹 _____
黄成旺 ___
林国凤 _____
庄海隆 ___
指导老师： 柳玲
成 绩：___________________________
计算机科学和技术系
年 1 月 7 日

目录
一、需求分析 3
1.1系统需求分析 3
1.2系统功效基础要求和功效描述 3
1.2.1基础信息管理 3
1.2.2产品信息管理 3
1.2.3仓库管理操作 3
1.2.4仓库警示管理 3
1.2.5查询管理功效 3
1.3系统功效模型 4
1.4数据分析 4
1.4.1数据流图 4
1.4.2数据字典 5
二、数据库概念结构设计 6
三、数据库逻辑结构设计 10
四、数据库物理结构设计 12
五、数据库实施 15
六、数据库运行 17
参考文件 25
附录1仓库管理系统部分程序代码 25

仓库管理系统设计
一、 需求分析
1.1系统需求分析
仓库管理系统关键用于仓库货物信息管理，系统包含仓库管理、入库、出库和部分统计查询等几部分组成。仓库管理系统实现对货物信息管理和总体统计等，仓库信息，供货单位和操作员信息查看及维护。仓库管理人员能够浏览、查询、添加、删除等产品基础信息。
⑴ 产品入库管理，能够填写入库单，确定产品入库；
⑵ 产品出库管理，能够填写出库单，确定产品出库；
⑶ 借出管理，凭借条借出，然后能够还库；
⑷ 初始库存设置，设置库存初始值，库存上下警戒限；
⑸ 能够进行盘库，反应每个月、年库存情况；
⑹ 能够查询产品入库情况、出库情况、目前库存情况，能够按出库单、入库单，产品、时间进行查询；
1.2 系统功效基础要求和功效描述
1.2.1 基础信息管理
基础信息包含用户信息、仓库信息和操作员信息。用户能够分为供给商和购货商两种类型。在产品入库时，需要提供供给商信息；在产品出库和退货时，需要提供购货商信息。
基础信息管理模块能够实现以下功效：
⑴ 添加、修改、删除和查看用户信息；
⑵ 添加、修改、删除和查看仓库信息；
⑶ 添加、修改、删除和查看操作员信息。
1.2.2 产品信息管理
产品信息管理模块能够实现以下功效：
⑴ 添加产品信息； ⑵ 修改产品信息； ⑶ 删除产品信息； ⑷ 查询产品信息；
1.2.3 仓库管理操作
进行入库和出库操作。入库操作需要统计相关产品信息、仓库信息、用户信息、入库时间等信息；出库操作需要统计相关产品信息、仓库信息、用户信息、出库时间等信息。
1.2.4仓库警示管理
仓库警示管理模块能够实现仓库产品数量报警和仓库容量报警。
1.2.5查询管理功效
查询管理模块能够对仓库产品进行多种类型查询，从而能够全方面了解仓库情况。
1.3系统功效模型
依据以上所介绍功效，能够设计出系统总体功效模块，图1-1所表示。

仓库管理系统
基础信息管理
操作员登陆
产品信息管理
仓库警示管理
仓库管理操作
用户信息管理
查询产品信息
入库操作管路
修改产品信息
删除产品信息
添加产品信息
仓库信息管理
出库操作管理
查询仓库信息
图1-1 仓库管理系统功效模块示意图
查询管理操作
操作员信息管理
查询产品信息
查询用户信息
填写入库单
修改用户信息
添加用户信息
填写出库单
删除用户信息
产品数量报警
仓库容量报警
查询用户信息

1.4 数据分析
1.4.1 数据流图
经过进行系统调查,了解用户需求、分析应用软件系统功效需求。总结出了系统逻辑模型,即系统业务步骤图、数据流图。如 图1-2和图1-3所表示。

仓库管理系统
产品
操作员
用户
仓库
入库
出库
查询操作
返回结果
进货
出货
供货
购货

图1-2 系统业务步骤图

产品
操作员
注册
返回信息
产品信息管理
仓库信息管理
产品信息表
入库表
P1
P2
D1
D2
基础信息管理
P4
管理
返回信息
D5
仓库信息
D4
操作员信息
仓库信息管理
P3
查询
返回信息
出库表
D3
库存表
D3
仓库
存放
返回信息
入库
添加填表
返回信息

图1-3 仓库管理系统数据流图
1.4.2 数据字典
名字：产品
别名：
描述：唯一标识一个产品信息集合
定义：产品产品号+产品名+供给商号+类别+产品单价+产品数量
位置：存放在数据库

名字：仓库
别名：
描述：唯一标识一个仓库信息集合
定义：仓库=仓库号+仓库名+剩下容量+总容量
位置：存放在数据库

名字：用户
别名：
描述：唯一标识一个用户特征信息集合
定义：用户=用户号+用户名+地址+电话 +用户类型
位置：存放在数据库

名字：操作员
别名：
描述：唯一标识一个职员特征信息集合
定义：操作员=操作员号+操作员名+密码
位置：存放在数据库

名字：库存表
别名：
描述：仓库存放物资情况
定义：库存表=仓库号+产品号+产品总数量
位置：存放在数据库

名字：入库表
别名：
描述：物资入库信息
定义：入库表=产品号+仓库号+入库时间+数量
位置：存放在数据库

名字：出库表
别名：
描述：物资出库信息
定义：出库表=产品号+仓库号+出库时间+数量
位置：存放在数据库

二、数据库概念结构设计

经考察和分析,本案例客房管理系统包含以下实体：用户实体、客房实体、操作员实体、结算账单实体,它们E-R图如以下所表示。

产品
产品名
供给商号
产品单价
产品数量
产品号
图2-1产品及其属性

库存表
仓库号
产品号
产品总数量
图2-2库存表及其属性

入库表
仓库号
产品号
入库时间
数量
图2-3入库表及其属性

出库表
仓库号
产品号
出库时间
数量
图2-4出库表及其属性

仓库
仓库号
仓库名
剩下容量
总容量
图2-5仓库及其属性

用户
用户号
用户名
用户类型
联络地址
联络电话
邮政编号
用户备注
图2-6用户及其属性

操作员
操作员编号
操作员名
密码
图2-7操作员及其属性

产品
供给商
入库表
仓库
操作员
购货商
出库表
管理
提供
取出
存放
返回
库存表
图2-8仓库管理系统E-R图
n
1
1
m
n
1
n
n
1
n

三、数据库逻辑结构设计
依据E-R图，数据库仓库管理系统包含以下8个表：用户信息表“用户”、仓库信息表“仓库”、操作员信息表“操作员”、产品类别表“产品类别”、产品信息表“产品”、入库操作信息表“入库”、出库操作信息表“出库”和库存产品信息表“库存”。
1. 用户信息表“用户”
用户信息表“用户”关键是用来保留用户信息，表“用户”结构图表2-1所表示。
表2-1 用户信息表“用户”
编号
字段名称
数据结构
说 明
1
用户号
Int
用户编号
2
用户名
varchar(50)
用户名称
3
用户类型
tinyint
用户类型，供给商、购货商
4
联络地址
varchar(50)
用户联络地址
5
邮政编号
varchar(10)
邮政编码
6
联络电话
varchar(30)
联络电话
7
备注
varchar(100)
备注信息

2. 仓库信息表“仓库”
仓库信息表“仓库”用来保留仓库信息，表“仓库”结构如表2-2所表示。
表2-2 仓库信息表“仓库”
编号
字段名称
数据结构
说 明
1
仓库号
int
仓库编号
2
仓库名
varchar(50)
仓库名称
3
仓库备注
varchar(100)
仓库说明

3. 操作员表“操作员”
操作员表“操作员”用来保留用户信息，表“操作员”结构如表2-3表示。
表2-3操作员信息表“操作员”
编号
字段名称
数据结构
说 明
1
操作员号
Int
操作员编号
2
操作员名
varchar(40)
用户名
3
密码
varchar(40)
密码

4. 产品信息表“产品”
产品信息表“产品”用来保留产品基础信息，表“产品”结构如表2-5表示。
表2-5产品信息表“产品”
编号
字段名称
数据结构
说 明
1
产品号
int
产品编号
2
产品名
varchar(50)
产品名称
3
产品数量
int
产品数量
4
产品单价
Varchar(20)
产品每单位价格
5
用户号
int
供给商编号
5. 入库操作信息表“入库表”
入库操作信息表“入库表”用来保留入库操作基础信息，表“入库表”结构如表2-6表示。
表2-6入库操作信息表“入库表”
编号
字段名称
数据结构
说 明
1
产品号
int
入库产品编号
2
入库单价
Varchar(20)
入库产品单价
3

入库数量
int
入库产品数量
4
用户号
int
用户编号
5
仓库号
int
仓库编号
6
入库时间
char(10)
入库日期
6. 出库操作信息表“出库表”
出库操作信息表“出库表”用来保留出库操作基础信息。表“出库表”结构如表2-7表示。
表2-7 出库操作信息表“出库表”
编号
字段名称
数据结构
说 明
1
产品号
int
出库产品编号
2
出库单价
Varchar(20)
出库产品单价
3
出库数量
int
出库产品数量
4
用户号
int
用户编号
5
仓库号
int
仓库编号
6

出库时间
char(20)
出库日期
7. 库存产品信息表“库存表”
库存产品信息表“库存表”用来保留库存产品基础信息，表“库存表”结构如表2-8表示。
表2-8库存产品信息表“库存”e
编号
字段名称
数据结构
说 明
1
产品号
int
产品编号
2
入库价格
Varchar(20)
产品入库单价
3
现存数量
Int
产品数量
4
仓库号
Int
仓库编号

四、数据库物理结构设计
在进行了数据表逻辑结构定义后,需要为每个数据表创建其物理结构,即在数据库系统中定义数据表具体存放格式、位置等。这里列出利用SQL Server 自带数据库创建数据表物理结构。

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 进行数据库开发。
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 (操作员号)
)
go

2.数据库建视图语句
(1) 名称：“产品视图'”
建视图语句以下：
CREATE VIEW dbo.产品视图
AS
SELECT dbo.产品.产品号, dbo.产品.产品名, dbo.产品.用户号,
dbo.库存表.仓库号, dbo.产品.产品数量,
dbo.产品.产品单价, dbo.库存表.入库价格, dbo.库存表.现存数量
FROM dbo.产品 INNER JOIN
dbo.库存表 ON dbo.产品.产品号 = dbo.库存表.产品号

六、数据库运行

依据以上所做准备和SQL Server 建立好表、试图及多种关系，利用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].北京：高等教育出版社,.5.
[3] 虞益诚,孙莉.SQL Server 数据库应用技术[M].北京：中国铁道出版社,.11.
[4] 刘钢.Visual Basic 程序设计和应用案例[M].北京：高等教育出版社,.9.
[5] Abraham Silberschatz, Henry F.Korth ,S.Sudarshan.Database System Concepts（Fourth Edition）. Higher Education Press.
[6] 罗运模.完全掌握SQL Server [J].北京：人民邮电出版社，.
[7] 白尚旺.PowerDesigner软件工程技术[M].北京：电子工业出版社，.

附录Ⅰ仓库管理系统部分程序代码
1. 登陆代码
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
Dim rs, rss As New ADODB.Recordset
Set rs = cn.Execute("select * from 操作员 where 操作员名='" & Text1.Text & "'")
Set rss = cn.Execute("select * from 操作员 where 密码='" & Text2.Text & "'")
If rs.EOF Then
MsgBox "用户名错误!"
Text1.Text = ""
Text1.SetFocus
Else
If rss.EOF Then
MsgBox "密码错误!"
Text2.Text = ""
Text2.SetFocus
Else
Me.Hide
Form2.Show
MsgBox (Text1.Text + ",欢迎您使用冰舞奇迹仓库管理系统")
End If
End If
End Sub
2. 添加用户信息代码
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open

Dim a1, a2, a3, a4, a5, a6, a7 As String
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = Text4.Text
a5 = Text5.Text
a6 = Text6.Text
a7 = Combo1.Text
sql = "insert into 用户 values('" & a1 & "','" & a2 & "','" & a7 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "')"
cn.Execute (sql)
cn.Close
MsgBox "已添加用户信息"
End Sub
3. 依据用户号查看、删除用户代码
Private Sub Command1_Click()
Dim kehuhao As String
kehuhao = Text8.Text
Adodc1.Recordset.Find "用户号=" & Val(kehuhao)
End Sub

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim sql As String
Dim kehuhao As String
kehuhao = Text8.Text
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
sql = "delete from 用户 where 用户号='" & kehuhao & "'"
cn.Execute (sql)
MsgBox "已删除编号为" & kehuhao & "用户信息"
End Sub
4. 查看用户信息代码
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
If Combo1.Text = "供给商" Then
rs.Open "select * from 用户 where 用户类型='供给商'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Else
If Combo1.Text = "购货商" Then
rs.Open "select * from 用户 where 用户类型='购货商'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Else
rs.Open "select * from 用户", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End If
End Sub

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
rs.Open "select * from 用户 where 用户号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command3_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
rs.Open "select * from 用户 where 用户名='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
5. 查询仓库信息
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
rs.Open "select * from 仓库 where 仓库号='" & Text1.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
rs.Open "select * from 仓库 where 仓库名='" & Text2.Text & "'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
6. 添加仓库信息
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
Dim a1, a2, a3 As String
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text

sql = "insert into 仓库 values('" & a1 & "','" & a2 & "','" & a3 & "')"
cn.Execute (sql)
cn.Close
MsgBox "已添加仓库信息"
End Sub
7. 查看删除仓库信息
Private Sub Command1_Click()
Dim cangkuhao As String
cangkuhao = Text1.Text
Adodc1.Recordset.Find "产品号=" & Val(cangkuhao)
End Sub

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim sql As String
Dim cangkuhao As String
cangkuhao = Text1.Text
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=仓库管理系统;Data Source=WWW-4FDE9FFEC01"
cn.Open
sql = "delete from 仓库 where 仓库号='" & cangkuhao & "'"
cn.Execute (sql)
MsgBox "已删除编号为" & cangkuhao & "仓库信息"
End Sub
8. 添加操作员信息
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim sql As String
cn.Connect