仓库管理系统课件

1、仓库管理系统Access运用一、新建ACCESS数据库打开access2007.新建空白数据库，命名为“仓库管理”打开ACCESS选项，在信任中心-宏设置中，设定启用宏三、建立如下的表1、客户2、货物3、进库类型4、进库编号5、进库明细6、出库类型7、出库编号8、出库明细“进仓编号”表中的“进仓类型”为查阅向导，在“进库类型”的表中选择数据；“出仓编号”表中的“出仓类型”为查阅向导，在“出库类型”的表中选择数据；“进仓明细”以进仓编号的字段与“进仓编号”表进行关联，为其子表；“出仓明细”以出仓编号的字段与“出仓编号”表进行关联，为其子表。三、进仓类型、出仓类型这是常见的四种进出库方式四、建立客

2、户及货物输入窗体打开客户表，可以输入一行数据；打开货物表，可以输入一行数据打开客户表，创建单个输入窗体：创建一个客户窗体，可以调整格式插入子窗体：选择货物表进行创建这是输入窗提的完整视图七、设置打印进仓单新建进仓查询，参数设置在进仓编号字段输入进仓编号第七周八、设计打印出仓单本项为课后作业，请同学们仿照进仓单的设计过程，完成出仓单的创建九、思考如何能实现库存表一、进仓和出仓的表是分开的，他们之间有什么关系？二、库存需要按照货品和批号来统计，库存=进仓数量-出仓数量三、如何实现具有货品和批号的进仓、出仓数量统计？四、统计好的数据又如何讲进仓和出仓放在同一张表中进行计算？创建：进仓合计查询和出仓合

3、计查询选择进仓明细表作为查询数据源，选择其中的三个字段名，并对数量进行汇总，并更改显示的字段名为“进仓数量”，保存查询为“进仓合计”同理，建立出仓合计查询，保存为“出仓合计”查询 建立一张新表库存表，并导入数据创建一张新表库存表，字段及数据属性如下在设计视图中打开“进仓合计”查询，更改查询类型为：追加表查询，追加到“库存表当中，对应字段如下：同样，设置“出仓合计”查询运行“进仓合计”和“出仓合计”查询，向“库存表”中追加数据，系统会提示信息运行查询后，“库存表”中追加进数据十、在出仓窗体上实时显示库存数量出仓时，我们要随时掌握库存动态，以免产生负库存的错误。在设计视图下打开“出仓编号”窗体，添

4、加子窗体根据实际需要，调整窗体布局，这样库存就可以显示在出库窗体上了思考：每次刷新窗体库存，都要连续运行多个查询，而且系统反复提示信息，需要确认，非常麻烦，该如何解决？而且，运行查询会重复向：库存表中写入数据。十一、利用宏，连续操作多个步骤创建宏，命名为：刷新库存，连续运行查询。在操作中选择openquery的选项根据“库存表”，创建“库存表清空”查询。前面的步骤一样，最后选择删除查询的类型即可在下面的查询列表中选择对应的查询但是在“出仓编号”的窗体上，并没有能自动运行的命令按钮，而且，运行“刷新库存”宏以后，打开的库存查询表思考：ACCESS在窗体没有刷新的情况下，并不能动态更变窗体数据，因

5、此我们需要把刷新窗体和运行宏结合起来。我们针对出仓的窗体，再创建一个“刷新窗体”的宏：在“出仓编号”窗体上创建一个命令钮，并在弹出的命令向导中，选择“杂项”，“运行宏”，指定“刷新窗体”的宏。在窗体上再增加“保存、新增、退出”等命令按钮十一、设置分页主窗体为系统设计一个过渡的登录主窗体，十分必要。创建一个空白窗体，并在上面创建一个选项控件根据需要更改页面的名称，通过右击菜单，可以插入“页面”。在不同的页面上创建命令按钮，并运行“打开窗体”，选择对应的窗体为窗体创建按照实际或个人兴趣的标签内容，在最下面可以创建一个命令按钮退出应用程序。十二、怎样保证数据库的安全？一、设计不同人员的登录账号？二、

6、可以为数据库增加密码三、数据库还可以分离，将查询、窗体、报表和表进行分离，不同的使用人员可以使用不同的客户端设计，这样可以屏蔽一些不让其使用的功能。登录界面展示主要对应的vba语言代码Public Function openrecord(str1 As String, record As ADODB.Recordset)为记录集record 分配空间 Set record = New ADODB.Recordset使用本数据库的连接打开记录集record.Open str1, CurrentProject.Connection, adopenkeyset, adlockoptimisticEn

7、d FunctionPrivate Sub Form_Open(Cancel As Integer) cmdenter.Enabled = False Form.KeyPreview = TrueEnd Sub以上上窗体赋值及打开状态设置Private Sub cmdenter_Click()Dim strpassword, strusername As String Dim flag As Integer Dim record As ADODB.Recordset flag = 0 从用户表中读取用户名和密码 openrecord select*from 用户, record 循环判断用户名

8、是否存在，密码是否正确 Do Until record.EOF strusername = record(用户名) strpassword = record(密码) If UCase(Me.txtusername.Value) UCase(strusername) Then record.MoveNext 若相等，说明用户名存在，可以跳出循环 Else flag = 1 Exit Do End If Loop flag=0,说明用户名不存在，进行处理 设置文本框内容为空，“确定”按钮不可用，焦点设在txtusername If flag = 0 Then MsgBox 没用这个用户名，请重新输

9、入 Me.txtpassword.Value = Me.txtusername.Value = Me.txtusername.SetFocus cdmenter.enabied = False Exit Sub 若flag=1，说明输入的用户名正确，进一步比较密码是否正确 若密码出错，设置txtusername的内容不变，txtpassword文本为空 若密码出错，焦点在txtpassword，确定按钮不可用 Else If UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密码错误，请重新输入) Me.txtpasswor

10、d.Value = Me.txtpassword.SetFocus cmdenter.Enabled = False Exit Sub End If End If 用户名和密码都正确打开主窗体 DoCmd.Close DoCmd.OpenForm 主窗体“End Sub（以上为“确定”按钮代码）Private Sub cmdcancle_Click()txtpassword = Me.txtusername.Value = cmdenter.Enabled = False txtusername.SetFocus End Sub(取消按钮代码）Private Sub cmdexit_Click()DoCmd.QuitEnd Sub（退出按钮代码）十三，设置启动时打开窗体进入ACCESS选项-当前数据库-显示窗体。选择你需要的窗体，在打开数据库时就会自动打开这一窗体十四、作业1、完成第八项内容出仓单设计2、在客户货物窗体建立新数据：客户名称：每个同学的姓名货物：进仓：进仓编号J20141114,供货单位：京东商城