库存管理系统 ACCESS课程设计 Access大作业 (含数据库)

数据库原理及应用课程设计（论文）题目：库存管理系统

目录

第1章课程设计目的与要求 (1)

1.1 课程设计目的 (1)

1.2 课程设计的实验环境 (1)

1.3 课程设计的预备知识 (1)

1.4 课程设计要求 (1)

第2章课程设计内容 (2)

2.1 系统功能分析 (2)

2.2 数据库模型 (3)

2.3 设计窗体和报表 (7)

2.4 窗体和报表模块主要代码 (7)

第3章课程设计总结 (12)

参考文献 (13)

数据库应用技术大作业的基本要求

总体要求

运用Access所学功能，完成一份具有一定实际意义，且能解决一个具体问题的综合实验。要求在Windows平台上完成Access数据库的表、查询、窗体、报表及宏的建立，形成一个数据库应用系统（如：藏书管理系统，人员管理系统，酒店管理系统等）。

基本要求

(1) 作业量的基本指标

●数据库至少包含3个表，每个表中的记录数不能少于10条（所

设计的数据库中应包含求解该问题的相关数据）。

●至少包含两个功能模块，并且数据库应用系统要具有数据的增、删、

查、改功能。

(2) 作业中涵盖的知识点

●建立数据库及库中的数据表；

●设置表中的字段属性（定义主键、字段大小、有效性规则、默认值

等）；

●表间关系的建立与修改：一对一关系或一对多关系，至少要有一个

一对多关系；

●表对象的维护（增加、删除、编辑记录等基本操作）；

●创建多种不同类型的查询（选择查询，交叉表查询，参数查询，操

作查询，SQL查询）；

●建立某种形式的窗体（要包含主子窗体），创建与用户进行交互操

作的友好界面；建立某种形式的窗体，实现窗体数据与查询条件的

传递；

●建立某种形式的报表（要包含分组计算），实现对数据的统计与输

出；

●创建并运行宏，使用宏可以将数据库对象联系在一起；

●创建一个主界面窗体，能够通过该窗体访问数据库中的所有对象。作业设计提交形式

将数据库应用系统（*.mdb）和相应的大作业设计任务说明书（*.doc）放置以“学号+姓名”（如2011010112王五）命名的文件夹中。

同时上交设计说明书的打印稿。

大作业设计任务说明书撰写框架

（1）总体功能

（2）各功能模块联系图

（3）表的结构和表间关系

（4）窗体、查询和报表的设计和功能

（5）系统开发体会

第1章课程设计目的与要求

1.1 课程设计目的

本课程的课程设计实际是计算机信息管理专业学生学习完《数据库原理及应用（ACCESS 2000）》课程后，进行的一次全面的综合训练，其目的在于加深对数据库基础

理论和基本知识的理解，掌握运用数据库应用系统开发软件的基本方法。

1.2 课程设计的实验环境

硬件要求能运行Windows 9.X操作系统的微机系统。数据库应用系统开发软件可以选用Microsoft Access，或其他数据库管理系统。

1.3 课程设计的预备知识

熟悉数据库的基本知识及一种以上数据库系统开发软件。

1.4 课程设计要求

按课程设计指导书提供的课题，应根据下一节给出的基本需求独立完成八个方面的设计，标有“可选”的部分可根据设计时间的安排及工作量的大小适当选择。选用其他课题或不同的数据库管理系统，可以组成设计小组，分模块进行,共同协作完成一个应用系统的开发任务。要求书写详细的设计说明书，对复杂的代码段和程序段，应画出程序流程图。在界面设计中，画出每个窗口的布局，有多个窗口时，按模块调用的方式画出窗口调用图，用手工画好报表和标签样式，严禁相互抄袭。

第2章课程设计内容

2.1系统功能分析

2.1.1 系统功能分析

库存管理系统实现以下几项功能：

（1）系统模块：包括报表的打印及设置，操作日志的管理。

（2）入库模块：包括填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的查询及打印

（3）出库模块：包括填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的查询及打印

（4）还库模块：包括填写还库单，更新，删除还库记录，还库记录的查询及打印（5）需求模块：包括填写需求计划表，更新，删除采购计划信息，查看现有采购信息，采购信息的查询及打印，以及预测短期内的需求计划。

2.1.2 系统功能模块设计

2.2数据库模型

2.2.1 数据库需求分析

数据项和数据结构如下

设备代码表：设备号（主键），设备名称。

设备入库表：设备号，入库时间（主键），供应商，供应商电话，入库数量，价格，采购员。

设备出库表：设备号，出库时间（主键），使用部门，出库情况，经手人，出库数量，领取人，用途。

现有库存表：设备号，现有库存，最小库存，最大库存，总数。

部门需求表：设备号，部门名称，需求数量，需求开始时间，需求结束时间。

设备还库表：设备号，还库时间，仓库管理员，归还数量，归还人。

操作日志表：操作员，操作内容，操作时间。

设备采购计划表：设备号，现有库存，总库存，最大库存，购买数量，供应商，价格，计划采购时间（主键）。

2.2.2 数据库概念结构设计

根据以上分析，规划出的实体有：现有库存实体、出库实体、设备采购实体、设备还库实体、部门需求实体。

以下为E-R图

2.2.3 数据库逻辑结构设计

2.2.4 数据库连接说明

2.2.5 查询设计

库存不足查询

SELECT 现有库存表.设备号, 现有库存表.现有库存, 现有库存表.最小库存FROM 现有库存表

WHERE (((现有库存表.现有库存)<[最小库存]));

库存过多查询

SELECT 现有库存表.设备号, 现有库存表.现有库存, 现有库存表.最大库存FROM 现有库存表

WHERE (((现有库存表.现有库存)>[最大库存]));

使用SUM函数查询

SELECT Sum(现有库存表!总数) AS 所有库存数量

FROM 现有库存表

设备号总类COUNT函数查询

SELECT Count(设备代码表!设备号) AS 设备总类数

FROM 现有库存表;

2.3 设计窗体和报表

窗体设计图

2.4 设计窗体和报表模块主要代码

窗体报表

切换面板（用户主界面）

入库窗体

其他窗体与入库窗体界面一致，只是内容功能不同。

操作日志报表主要代码：

入库窗体代码如下：

Option Compare Database

Option Explicit

Private Sub cmdadd_Click()

On Error GoTo Err_cmdadd_Click

DoCmd.GoToRecord , , acNewRec

Exit_cmdadd_Click:

Exit Sub

Err_cmdadd_Click:

MsgBox Err.Description

Resume Exit_cmdadd_Click

End Sub

Private Sub cmdmod_Click()

Dim curdb As Database

Dim currs As Recordset

Dim devicecnt As Integer

Set curdb = CurrentDb

Set currs = curdb.OpenRecordset("selece * from device where 设备号='" & 设备号.Value & "'")

If Not currs.EOF Then

devivecnt = currs.Fields("现有库存")

devivecnt = devivecnt + CInt(入库数量.Value)

curdv.Execute "update device set 现有库存=" & devicecnt & ",总数=" & currs.Fields("总数").Value + CInt(入库数量.Value) & " where 设备号='" & 设备号.Value & "'"

Else

With currs

.AddNew

.Fields("设备号") = 设备号.Value

.Fields("现有库存") = CInt(入库数量.Value)

.Fields("最大库存") = CInt(入库数量.Value) + 10

.Fields("最小库存") = CInt(入库数量.Value) - 10

.Fields("总数") = CInt(入库数量.Value)

.Updatable

End With

End If

curdb.Execute "insert into howdo(操作员,操作内容,操作时间)values ('管理员','设备入库'," & CDate(入库时间.Value) & ")"

cmdadd.Enabled = ture

cmdadd.SetFocus

cmdmod.Enabled = False

End Sub

Private Sub cmdsearch_Click()

On Error GoTo Err_cmdsearch_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_cmdsearch_Click:

Exit Sub

Err_cmdsearch_Click:

MsgBox Err.Description

Resume Exit_cmdsearch_Click

End Sub

其他窗体代码略有修改。

以下为报表代码：

Option Compare Database

Private Sub cmdcancel_Click()

DoCmd.Close acForm, "报表显示"

End Sub

Private Sub cmdshow_Click()

If chkqd.Value = -1 Then

DoCmd.OpenReport "库存清单", acViewPreview

End If

If chkbz.Value = -1 Then

DoCmd.OpenReport "库存不足", acViewPreview

End If

If chkgd.Value = -1 Then

DoCmd.OpenReport "库存过多", acViewPreview

End If

If chkcz.Value = -1 Then

DoCmd.OpenReport "操作日志", acViewPreview

End If

DoCmd.Close acForm, "报表显示"

End Sub

在工具-启动中设置自动启动切换面板，可以在打开时按住Shift进入设计界面。点击主窗口的库存管理系统可启动宏，提示版权信息：版权所有：李智勇2006-11-30

第3章课程设计总结

通过这次的课程设计，使我增加了对数据库基本概念的理解，提高对知识的理解和应用能力，并且对数据库的应用都有了更深的了解，使我的数据库编写水平又有了明显的提高。在WINDOWS的环境中，用ACCESS和VBA代码构建一个库存管理系统。让我了解到了在实际的环境下编写数据库的应用。

在这次的课程设计中，使我对数据库的知识有了更深刻了解，增加可我对数据库这门课兴趣，强化了我的实际动手能力。同时也找到自己的不足。我一定会继续学习增加自己的数据库知识，在今后的学习中我会更加的努力，增加自己的知识储备。对仓库管理系统的开发,我付出了大量的时间,但是,我得到的收获远远不是这些时间可以衡量的,它将是我终生的财富,必将给我今后的学习和工作带来更多的收益.通过对此管理系统的开发,使我对软件开发有了一个比较清楚的认识,体会到理论和实践的重要性.由于自己的分析设计和程序经验不足,该系统设计和实现过程中,还有许多没有完善的地方,比如,用户界面设计不够美观,异常出错处理比较差等多方面问题,这些都有待进一步完善和提高。

参考文献

[1] 叶杰宏等编著.《Access2003经典案例》.冶金工业出版.出版日期 2006年2月第二版

[2] 黄剀涛等编著.《Access 2000学习教程》.北京大学出版社.出版日期 2003年9月第一版

[3] 刘胜雷编著.《新概念Access 2002》教程，北京科海集团公司.出版日期 2003年4月第一版

[4] 李爱茜编著.《Access 2002教程》.辽宁工业大学出版社.出版日期 2006年9月第一版

[5] 甘雷等编写.《中文Access2002标准教程》.辽宁教育出版社.出版日期 2003年9月第一版

[6] 王雪情编著.《数据库基础》.辽宁教育出版社.出版日期 2005年2月第二版