access数据库库存管理系统

1数据库作业

——库存管理制作步骤

学院：文法学院

班级：行政1301

姓名：***

学号：********

2目录

一．创建ACCESS (3)

二．创建表 (3)

三．建立窗体 (7)

3．1 创建一般窗体 (7)

3．2 创建库存管理登陆系统 (11)

3．3 创建导航窗体 (17)

四．创建查询 (17)

4．1 创建更新库存查询 (18)

4．2 查询入库/出库信息 (20)

4．3 创建查询控制窗体 (22)

4．4 设置报警处理 (23)

4.4.1建立报警查询 (23)

4.4.2 创建报警报表 (24)

4．5 催货处理 (25)

五．宏 (27)

六．创建报表 (28)

七．ER图 (31)

八..设计理念 (36)

3

一.创建ACCESS

启动ACCESS 2010

单击快捷选项中的新建。在屏幕右侧出现如下图样，更改成需要的文件名，并选择好保存路径，单击创建。

创建“库存管理系统.mdb”空数据库。

二.创建表

根据表表的结构在“库存管理系统.mdb”中创建表.

(1）单击创建选项中的表按钮。

4

（2

）对默认表1 进行编辑，右击表1单击设计视图，更改表名称，这里我把它改为仓库表，单击确定按钮，表格创完毕。

（3）再次右击仓库表，在弹出的选项框中选择数据表视图（H）。（4）在表中输入相应的数据，完善表的结构。

仓库表创建完成后，右击，单击保存。

（5）在图片一栏中选中方框右击点击插入对象

5

（6）单击由文件创建——浏览选择自己需要的图片，点击打开确

定

（7）以同样的方法分别依次创建登录，库存表，商品出库表，商品入库表，商品信息表。

6

（8）所需的六个表创建完毕，在ACCESS界面的左侧有显示，如若想

7

打开其中的一个表，可以选中它双击。

(9)设置各表间的关系

按上图所示的关系创建表间关系。

三.建立窗体

3.1 创建一般窗体

(1)单击创建选项卡中的“窗体设计”，显示窗体的“设计视图”。

(2)单击“窗体设计工具”下设计选项上“控件”组中的“标签”

8控件，移动鼠标指针到“主体”节的适当位置，按下鼠标左键并（从左上往右下方向）拖动鼠标到适当位置，松开鼠标左键，显示出一个矩形标签，在矩形框中输入“库存管理系统”，如下图所示

(3)确保“设计”选项卡上的“控件”组中的“使用控件向导”按钮已经按下。单击“窗体设计工具”下设计选项上“控件”组中的“按钮”控件，移动鼠标指针到“主体”节，选取适当的位置，显示“按钮”控件框，同时提示“请选择按下按钮时执行的操作”的“命令按钮向导”对话框。

(4)在该“命令按钮向导”对话框中的“类别”列表框中单击“窗体操作”中的“打开窗体”。

(5)单击“下一步”按钮，显示“请确定命令按钮打开的窗体”的“命令按钮向导”对话框。单击列表中的“入库单输入”项。如下图所示

9

(6)单击“下一步”按钮，显示提示“请确定在按钮上显示文本

还是图片”的“命令提示按钮向导”对话框，单击“文本”单

选钮，并在其右边的文本框中键入“填写入库单”如下图所示

10

(7)单击“下一步”按钮，显示提示“请指定按钮名称”的“命

令按钮向导”对话框，单击“完成”，返回窗体“设计视图”。

参照上述方法完成其他按钮的创建。

(8)单击“设计”选项卡上控件组中的“图像”按钮，单击窗体

主体适当位置，显示“图像”控件框，同时弹出“插入图片”

的对话框。在“插入图片”对话框中的“查找范围”下拉列表

框中，选定某文件夹中的某个图片文件名。

(9)单击“插入图片”对话框中的“确定”按钮，返回窗体的“设

计视图”如下图所示

11

根据上述方法，创建“报表汇总”窗体。如下图所示

3.2 创建库存管理系统登录窗体

该视图是Access的窗体对象，可在Access窗体对象下通过设计

12视图直接创建。该窗体包括四类控件：标签控件（3个）、文本框控件（2个）、命令按钮控件（2个）、图像控件（1个）。

（1）在所创建的数据库中通过设计视图创建一个窗体对象，在设计视图中添加一个标签控件，将标题属性设置为“学生通讯管理”；添加一个图像控件，将图片属性设置为“*****.jpg”（此处的图片使用自己准备的图片即可）

（2）继续添加两个文本框控件，与前面不同的是：添加文本框控件时会附带一个标签控件，只要做相应修改即可。

（3）将第二个文本框控件的输入掩码属性设置为“密码”，这样文本框在接收密码时会用“*”代替输入的字符。

13

（3）相继添加两个命令按钮控件，将其标题属性分别修改为：登

录和退出。

（4）为登录命令按钮控件设置单击事件属性为：[事件过程]。

14

（5）在登录按钮的单击事件属性，点击扩展按钮，在弹出的代码生成器中输入下述程序代码：

Private Sub Command1_Click()

Dim str As String

If IsNull(Me![用户名]) Then

MsgBox "请输入用户名！"

用户名.SetFocus

ElseIf IsNull(Me![密码]) Then

MsgBox "请输入密码！"

密码.SetFocus