数据库仓库管理系统范本

数据库仓库管理系

统

学号

文档仅供参考

课程设计

题目仓库管理系统设计

教学院计算机学院

专业

班级一班

姓名**

指导教师

年7月3日

课程设计任务书

〜第二学期

学生姓名：专业班级：

指导教师：工作部门：计算机学院

、课程设计题目

文档仅供参考

仓库管理系统设计

二、设计目的

1.使学生更深入地理解和掌握该课程中的有关基本概念，程序设

订思想和方法。

2.培养学生综合运用所学知识独立完成课题的能力。

3.培养学生勇于探索、严谨推理、实事求是、有错必改，用实践

来检验理论，全方位考虑问题等科学技术人员应具有的素质。

4.提高学生对工作认真负责、一丝不苟，对同学团结友爱，协作

攻关的基本素质。

5.培养学生从资料文献、科学实验中获得知识的能力，提高学生

从别人经验中找到解决问题的新途径的悟性，初步培养工程意识

和创新能力。

6.对学生掌握知识的深度、运用理论去处理问题的能力、实验能

力、课程设计能力、书面及口头表示能力进行考核。

三、设计要求

1.可组成设计小组，小组成员分工协作完成。要求每个成员

有自己相对独立的模块，同时要了解其它组员完成的内容。

2.查阅相关资料，自学具体课题中涉及到的新知识。

3.采用结构化、模块化程序设计方法，功能要完善，界面要

美观。

4.所设计的系统原则上要能够运行无误，结果准确。

文档仅供参考

5)实现分别按日、月和年对出入库商品数量的统计。

三、课程设计工作计划

6月21日，指导教师讲课，学生杈据题目准备资料；

6月21日，设计小组进行总体方案设计和任务分工；

6月22日〜6月30日，每人完成自己承担的程序模块并经过

独立编译；

7月1日〜7月2日，将各模块集成为一个完整的系统，并录

入足够的数据进行调试运行：

7月3日，验收，撰写报告，答辩及总结。

教研室主任签字：

一年一月—日

目录

-.引

…・4

二.系统分

析......................................................5

文档仅供参考

1实验目

的..................................................5

2.数据描

述..................................................5

3数据流

图..................................................6

4,E-R

图....................................................6

5.数据字

典..................................................7

6.功能描

述..................................................8

三^系统设计与实

现.............................................11.

1职员操作统

计.................................................11

2.月盘

点....................................................

....13

3入库

单.....................................................

文档仅供参考

15

四.小

结.......................................................

.•…17

第一章引言

仓库在现实生活中用途十分广泛，各种商城、超市要利用仓库

存放物资，药房、医院等要利用仓库存放药品，企业、工厂等要

文档仅供参考

利用仓库存放原材料、生产成品，因此仓库的管理成了一项十分

重要的工作。

人工管理仓库既费时又费力，而且容易造成混乱，严重时会

影响商城、企业的正常运作，造成恶劣的后果。随着信息技术的

发展，办公自动化的普及，如何快速，高效，便捷的管理仓库受

到了高度的关注；因此为了解决这个问题我们提供这个系统以满

足仓库管理需求，本系统是基于超市仓库的管理系统。

本系统模拟仓库管理，系统主要针对于日常库存信息的管

理，包括物资管理、仓库管理、入库操作、入库查询统计、出库

操作、出库查询统计、库存查询统计等处理情况。用户能够经过

相应的模块，对仓库里的物品的基本情况和库存数量进行查询，

管理员经过简单的操作即可轻松的管理仓库，查询各项相关信

息，并能进行入库和出库操作等。

经过仓库管理系统的设计与实现，使我们巩固和加深对数据

库基础理论和基本知识的理解，进一步掌握了使用数据库进行软

件设计的基本思想和方法，提高了运用数据库理论解决实际问题

的能力，锻炼了实际动手能力、创新能力，培养了调查研究、查

阅技术文献、资料、手册以及编写文档的能力。

文档仅供参考

第二章系统分析

2.1实验目标

本软件是一个简单的仓库管理系统，在满足用户需求的基础上，

用计算机来实现系统的信息处理逻辑模型中规定的输入、输出及内

部处理等多项功能，本软件产品是一项独立的软件。相应的需求

有：

⑴能分类管理物资信息。

⑵系统能管理多个仓库。

⑶能进行入库操作，能按物资种类、名称、入库时间等信息

查询统计出入库的数量、金额等信息。

（4）能进行出库操作，能按物资种类、名称、入库时间等信息

查询统计出出库的数量、金额等信息。如果物资数量小于出库数

量不允许进行出库操作。

⑸能按各种方式查询库存信息。

2.2数据描述

文档仅供参考

2.2.1静态数据

所谓静态数据，指在运行过程中主要作为参考的数据，它们

在很长的一段时间内不会变化，一般不随运行而改变。本系统中

的实体仓库、物资、职工、供应商及其属性属于静态数据，一般

不会改变。

2.2.2动态数据

所谓动态数据，包括所有在运行中要发生变化的数据以及在

运行中要输入、输出的数据。才；系统中的动态数据包括库存表

入库表和出库表。

2.3数据流图

更改处理

<模块

注册模块\

数据库信息更改

入库处理■.

误信息」7▼模块-

［管理员A核对密码正“m工选择掾作类出库

1“型--/L

工出库处理

4模块,

行询

.查询处理

模块

图1管理员数据流图

文档仅供参考

2.4E-R图

图3物资及其属性图

物资号

图4库存表及其属性图

文档仅供参考

图5H库表及其属性图

2.5数据字典

文档仅供参考

名字：物资名字：仓库

别名：别名：

描述：唯一的标识一个描述：唯一的标识一个

名字：供应商名字：职工

别名：别名：

描述：唯一的标识一个描述：唯一的标识一个

/升击曲在幻：佑/主口口T倏勾：苗!/兰白

名字：库存表名字：入库表

别名：别名：

描述：仓库存储物资的描述：物资的入库信息

名字：出库表

别名：

描述：物资的出库信息

定义：出库表二物资号+

文档仅供参考

2.6功能需求

仓库管理系统

管理员登录用户登录

入

修

库

改

操

操

作

作

图11系统层次图

2.7功能划分

管理员：入库操作、出库操作、查询库存信息、入库信息、出

库信息、仓库信息、职工信息及供应商信息，更改信息及注

册。

文档仅供参考

用户：查询该用户的物资的入库、出库及库存情况、更改密码

及注册。

2.8功能描述

管理员：

1、入库操作

经过将要入库的物资信息更改仓库、物资、库存表及入库表。

2、出库操作

经过将要出库的物资信息更改仓库、物资、库存表及出库表。

3、查询

根据管理员的需要查看相关信息，其中包括入库信息、出库信

息、库存信息、物资信息、职工信息、仓库信息和供应商信息

等。

4、更改信息

4.1增加仓库

4.2删除仓库

4.3更改自己账号的密码

5、注册

用户：

1、查询

查询该用户的物资的入库、出库及库存情况

文档仅供参考

2、更改密码

3、注册

三系统设计

总体设计

物资管理系统是对物资的入库出库等信息进行记录并查询，包

括管理员和用户的操作。管理员能够对仓库进行出库入库及修改

仓库信息，用户只能查看自己物资的相关情况。以下是对仓库各

种操作的流程图。

1.职员操作统计

文档仅供参考

PrivateSub进行统计_Click()

If限定仓库.Value=1AndDataCombo1.Text=""Then

MsgBox”请选择仓库名称!”：ExitSub

Dim仓库编号AsLong

仓库编号=-1

OnErrorResumeNext

If仓库编号<>-lThen

s=s+"and仓库编号="+Str(仓库编号)

EndIf

s=s+")as入库次数J

'出库单

文档仅供参考

s=s+"（selectcount（编号）from出库单where经办人编号

职员信息.编号

IfT出入时间.Text<>"无限制"Then

s=s+"and出库时间“十T出入时间.Texi十+t十

EndIf

If仓库编号<>-lThen

s=s+"and仓库编号二"+Str（仓库编号）

EndIf

s=s+n）as出库次数J

‘借入单

s=s+"（selectcount（编号）from借入单where经办人编号

职员信息.编号”

IfT出入时间.Text<>"无限制"Then

s=s+"and借入时间”+T出入时间.Text++t+"#"

EndIf

If仓库编号<>-1Then

s=s+"and仓库编号二"+Str（仓库编号）

EndIf

s=s+H）as借入次数J

‘借出单

s=s+"（selectcount（编号）from借出单where经办人编号二

文档仅供参考

职员信息.编号

IfT出入时间.Text<>"无限制"Then

s=s+"and借出时间”+T出入时间.Text+”#"+t+"#n

EndIf

If仓库编号<>-lThen

s=s+Hand仓库编号="+Str（仓库编号）

EndIf

s=s+”）as借出次数」

'调拔单

s=s+"（selectcount（编号）from调拔单where经办人编号二职

员信息.编”

IfT出入时间.Text<>"无限制"Then

s=s+"and调拔时间”+T出入时间.Text+"#"+t+

EndIf

EndSub

2.月盘点

文档仅供参考

月盘点

盘点单

铜号：1仓库名称：日期：2010~7-7

流入货物总量:流出金额总量:平均流入货物单价:

流出货物总量流入金额总量:平均流出货物单价:

经办人:

［进行月盘点

PrivateSubForm_Resize()

ChangeBackColor

'新增盘点单

If编号.TextThen

日期.Text=Date

打印月盘点单.Visible=False

更改背景.Visible=False

，初始化编号

文档仅供参考

fMainForm.m_checkado.RecordSource="select编号from

盘点单”

fMainForm.m_checkado.Refresh

IffMainForm.m_checkado.Recordset.RecordCount>0Then

fMainForm.m_checkado.Recordset.MoveLast

编号.Text=fMainForm.m_chcckado.Recordset.Fields（"编

号”）.Value+1

Else

编号.Text=1

EndIf

Else'打印盘点单

'初始化数据

fMainForm.m_checkado.RecordSource="select仓库.仓库

名称，职员信息.姓名as经办人，盘点单,盘点数据,盘点单,盘点时间

from仓库，职员信息,盘点单where仓库.编号=盘点单.仓库编号and

职员信息.编号二盘点单.经办人编号and盘点单.编号二”+编号.Text

+"and盘点时间＞”+GetMinDate

fMainForm.m_checkado.Refrese

OnErrorResumeNext

文档仅供参考

n=n+1

i=j+1

j二InStr（i,data,

Wend

EndIf

进行月盘点.Visible=False

lockcontrol

EndIf

EndSub

'写入系统日志

fMainForm.WriteLog（"新增月盘点”）

保存月盘点.Visible=False

更改背景.Visible=True

打印月盘点单.Visible=True

EndSub

3.入库单

文档仅供参考

入京单

编号货物名称货物类别货物规格经办人入库时间入库单价计量单位入库数量金额

中

型

中兴电脑硬件类2004-3-2120001200

碟

VS6.。开为软件类

10磔2004-3-27003500

单

Flash6.软件类2004-3-215300

R402004-3-25005000

COM技术声书籍类2004-3-23510350

程序员750

|<|4|中兴电脑打印入库单

PrivateSub删除入库单_Click()

OnErrorGoToquit

IfDataGridl.Columns(12).Text=''已退出"ThenGoTocon

IfMsgBox「建议用［退出入库单］，而不要直接删除，以免数据丢失.

您确信要删除该入库单吗？",vbYesNoOrvbQuestion)=vbNo

ThenExitSub

OnErrorResumeNext

Dimcode,codel,code2AsLong

code=DataGridLColumns(0).Text

fMainForm.m_checkado.RecordSource=nselect货物编号，入库

数量，仓库编号from入库单where编号+Str(code)

文档仅供参考

fMainForm.m_checkado.Refresh

Dimnuml9num2AsLong

codel=fMainForm.m_checkado.Rec()rdset.FiekIsC'货物编号

M).Value

numl=fMainForm,m_checkado.Recordset.Fiek!s(''入库数量

1.Value

code2=fMainForm.m_checkado.Recordset.Fields(n^^^^

M).Value

'如果是已退出入库单则直接删除

IfDataGridl.Columns(12).Text="已退出Then

IfMsgBox，您确信要删除该入库退出单吗？［vbYesNoOr

vbQuestion)=vbNoThenExitSub

fMainForm.m_checkado.RecordSource="select*from入库

单where编号="+Str(code)

fMainForm.m_checkado.Refresh

fMainForm.m_checkado.Recordset.Delete

fMainForm.m_checkado.Refresh

Savelnit

Adodcl.Refresh

Resumelnit

ExitSub

文档仅供参考

EndI

fMainForm.m_checkado.RecordSource=nselect库存数量from

库存状况where货物编号="+Str(codel)+”and仓库编号="+

Str(code2)

f!VIainForm.in_checkado.Refresh

，当前库存数量num2

num2=fMainForm,m_checkado.Recordset・Fields(''库存数量

M).Value

‘库存不足

Ifnum2<numlThen

IfMsgBoxC库存不足，库存量为“+Str(num2)+［需求量为”

+Str(numl)+"J+''要忽略它并强制删除吗？工vbQuestionOr

vbYesNo)=vbNoThenExitSub

EndIf

'更新库存状况

Ifnum2-numl>0Then

fMainForm.m_checkado.Recordset.Fields(n^i?^i,,).Value

=num2-numl

fMainForm.m_checkado.Recordset.update

Else，如果库存为零清空

fMainForm.mcheckado.Recordset.Delete

文档仅供参考

EndIf

fMainForm.m_checkado.Refresh

，更新入库单

fMainForm.m_checkado.RecordSource="select*from入库单

where编号="+Str(code)

fMainForm.m_checkado.Refresh

fMainFor