预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共36页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

数据库作业——库存管理制作步骤学院:文法学院班级:行政1301姓名:成尧学号:0042目录一.创建ACCESS3二.创建表3三.建立窗体73.1创建一般窗体73.2创建库存管理登陆系统113.3创建导航窗体17四.创建查询174.1创建更新库存查询184.2查询入库/出库信息204.3创建查询控制窗体224.4设置报警处理234.4.1建立报警查询234.4.2创建报警报表244.5催货处理25五.宏27六.创建报表28七.ER图31八..设计理念36一.创建ACCESS开启ACCESS单击快捷选项中新建。在屏幕右侧出现以下图样,更改成需要文件名,并选择好保留路径,单击创建。创建“库存管理系统.mdb”空数据库。二.创建表依据表表结构在“库存管理系统.mdb”中创建表.(1)单击创建选项中表按钮。(2)对默认表1进行编辑,右击表1单击设计视图,更改表名称,这里我把它改为仓库表,单击确定按钮,表格创完成。(3)再次右击仓库表,在弹出选项框中选择数据表视图(H)。(4)在表中输入对应数据,完善表结构。仓库表创建完成后,右击,单击保留。(5)在图片一栏中选中方框右击点击插入对象(6)单击由文件创建——浏览选择自己需要图片,点击打开确定(7)以一样方法分别依次创建登录,库存表,商品出库表,商品入库表,商品信息表。(8)所需六个表创建完成,在ACCESS界面左侧有显示,如若想打开其中一个表,能够选中它双击。(9)设置各表间关系按上图所表示关系创建表间关系。三.建立窗体3.1创建通常窗体(1)单击创建选项卡中“窗体设计”,显示窗体“设计视图”。(2)单击“窗体设计工具”下设计选项上“控件”组中“标签”控件,移动鼠标指针到“主体”节合适位置,按下鼠标左键并(从左上往右下方向)拖动鼠标到合适位置,松开鼠标左键,显示出一个矩形标签,在矩形框中输入“库存管理系统”,以下图所表示(3)确保“设计”选项卡上“控件”组中“使用控件向导”按钮已经按下。单击“窗体设计工具”下设计选项上“控件”组中“按钮”控件,移动鼠标指针到“主体”节,选择合适位置,显示“按钮”控件框,同时提醒“请选择按下按钮时实施操作”“命令按钮向导”对话框。(4)在该“命令按钮向导”对话框中“类别”列表框中单击“窗体操作”中“打开窗体”。(5)单击“下一步”按钮,显示“请确定命令按钮打开窗体”“命令按钮向导”对话框。单击列表中“入库单输入”项。以下图所表示(6)单击“下一步”按钮,显示提醒“请确定在按钮上显示文本还是图片”“命令提醒按钮向导”对话框,单击“文本”单选钮,并在其右边文本框中键入“填写入库单”以下图所表示(7)单击“下一步”按钮,显示提醒“请指定按钮名称”“命令按钮向导”对话框,单击“完成”,返回窗体“设计视图”。参考上述方法完成其它按钮创建。(8)单击“设计”选项卡上控件组中“图像”按钮,单击窗体主体合适位置,显示“图像”控件框,同时弹出“插入图片”对话框。在“插入图片”对话框中“查找范围”下拉列表框中,选定某文件夹中某个图片文件名。(9)单击“插入图片”对话框中“确定”按钮,返回窗体“设计视图”以下图所表示依据上述方法,创建“报表汇总”窗体。以下图所表示3.2创建库存管理系统登录窗体该视图是Access窗体对象,可在Access窗体对象下经过设计视图直接创建。该窗体包含四类控件:标签控件(3个)、文本框控件(2个)、命令按钮控件(2个)、图像控件(1个)。(1)在所创建数据库中经过设计视图创建一个窗体对象,在设计视图中添加一个标签控件,将标题属性设置为“学生通讯管理”;添加一个图像控件,将图片属性设置为“*****.jpg”(此处图片使用自己准备图片即可)继续添加两个文本框控件,和前面不一样是:添加文本框控件时会附带一个标签控件,只要做对应修改即可。(3)将第二个文本框控件输入掩码属性设置为“密码”,这么文本框在接收密码时会用“*”替换输入字符。(3)相继添加两个命令按钮控件,将其标题属性分别修改为:登录和退出。为登录命令按钮控件设置单击事件属性为:[事件过程]。在登录按钮单击事件属性,点击扩展按钮,在弹出代码生成器中输入下述程序代码:PrivateSubCommand1_Click()DimstrAsStringIfIsNull(Me![用户名])ThenMsgBox"请输入用户名!"用户名.SetFocusElseIfIsNull(Me![密码])ThenMsgBox"请输入密码!"密码.SetFocusElsestr=DLookup("密码","登陆","用户名='"&Me![用户名]&"'")IfIsNull(str)ThenDoCmd.Close,,acSaveNoElseIfCStr(Me![密码])=strThenDoCmd.CloseDoCmd.Open