仓库相关管理系统.pptx

仓库管理系统;一、新建ACCESS数据库;三、建立如下的表;货物表中的客户编号与客户表中的客户编号建立关联 ;“进仓编号”表中的“进仓类型”为查阅向导，在“进库类型”的表中选择数据； “出仓编号”表中的“出仓类型”为查阅向导，在“出库类型”的表中选择数据； “进仓明细”以进仓编号的字段与“进仓编号”表进行关联，为其子表； “出仓明细”以出仓编号的字段与“出仓编号”表进行关联，为其子表。;三、进仓类型、出仓类型;四、建立客户及货物输入窗体;插入子窗体：;这是输入窗提的完整视图;六、建立出库输入窗体;七、设置打印进仓单;创建报表——进仓单 注意分组、报表页眉、页面页眉分组页眉、主体、分组页脚、页面页脚、报表页脚的运用。根据需要和喜好调整格式;八、设计打印出仓单;九、思考如何能实现库存表;创建：进仓合计查询和出仓合计查询; ;运行“进仓合计”和“出仓合计”查询，向“库存表”中追加数据，系统会提示信息;建立库存查询，根据进库和出库数量计算库存;十、在出仓窗体上实时显示库存数量;思考：每次刷新窗体库存，都要连续运行多个查询，而且系统反复提示信息，需要确认，非常麻烦，该如何解决？而且，运行查询会重复向：库存表中写入数据。;这样，运行宏“刷新库存”后就会一次运行所列的查询。但是系统依然不断提示有关信息，要求确认！;但是在“出仓编号”的窗体上，并没有能自动运行的命令按钮，而且，运行“刷新库存”宏以后，打开的库存查询表;十一、设置分页主窗体;也可以插入一个图片，做成美丽的背景;十二、怎样保证数据库的安全？;登录界面展示;主要对应的vba语言代码; Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Select Case Me.ActiveControl.Name 若用户名和密码中至少都有一个字符，cmdenter可用，否则不可用 Case txtusername 焦点在txtusername时，文本框为空，则cmdenter不可用，退出 If Me.ActiveControl.Text = Or IsNull(Me.ActiveControl.Text) Then cmdenter.Enabled = False Exit Sub 若txtpassword文本框为空，则退出此过程 Else If Me.txtpassword.Value = Or IsNull(Me.txtpassword.Value) Then cmdenter.Enabled = False Exit Sub End If End If Case txtpassword: 焦点在txtpassword时，若此文本框为空，则cmdenter不可用，推出此过程 If Me.ActiveControl.Text = Or IsNull(Me.ActiveControl.Text) Then cmdenter.Enabled = False Exit Sub Else If Me.txtusername.Value = Or IsNull(Me.txtusername.Value) Then cmdenter.Enabled = False Exit Sub End If End If Case Else 焦点在其他控件直接退出此过程 Exit Sub End Select 两个文本中至少都要有一个字符，设置cmdenter可用 cmdenter.Enabled = True Exit Sub End 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 循环判断用户名是否存在，密码是否正确 Do Until record.EOF strusername = record(用户名) strpassword = record(密码) If UCase(Me.txtusername.Value) UCase(strusername) Then record.MoveNext 若相等，说明用户名存在，可以跳出循环 Else