VB公司仓库管理系统

记录集中最后一个记录，EOF属性为TRUE
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
Command2.Enabled = False
Else
Command2.Enabled = True
Command1.Enabled = True
End If
End Sub

> 用Updata方法确认增加和修改
当用户修改和增加完一个记录的数据后，需要将数据保存到数据库中。可以通过调用记录集的Updata方法把数据保存到数据库中。单击"确定"按钮时，记录将被记如数据库。
其主要程序如下：
Private Sub Command3_Click()
On Error GoTo error1
xg = True
Data1.Recordset.Update
Command3.Enabled = False
Command4.Enabled = False
Command2.Enabled = True
Command1.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Exit Sub
error1: MsgBox Err.Description, vbOKOnly, "错误提示"
End Sub

> 用CancelUpdata方法放弃增加和修改
如果用户修改了约束控件里的数据后，在没有单击"确定"命令按钮之前，想放弃刚才的增加或修改，则可以单击"取消"命令。
由于其程序与Updata方法相似，因此不做重复解释。
> 定义Data_Validata事件过程
对于一个新记录或编辑的记录，如果不能维护引用完整性或不能反映该旧路的实体原型，那么它就是无效的，并且破坏了数据库的完整性。为了在"入库情况"表中建立一个有效的记录，就必须要有主关键字段"型号"的值。因此，对已经存在和新增加的旧路都要先测试其"型号"字段之后才可以执行更新操作。
其主要程序如下：

'当约束控件中内容改变时
If Text2.DataChanged Then
Save = True
If Data1.Recordset.RecordCount > 1 Then
Command1.Enabled = True
Command2.Enabled = True
End If
Else
If Text2.Text = "" And xg = True Then
ss = MsgBox("必须要有'型号'！", vbOKOnly + vbInformation, "提示")
Action = False
Command3.Visible = True
Command4.Visible = True
Command1.Visible = True
Command2.Visible = True
Command7.Visible = True
Command8.Visible = True
Command5.Visible = True
Command6.Visible = True
End If
End If
If Action = data_actionunload Or Action = data_actionclose Then
Save = True
End If
End Sub

2.3出库界面
当单击"出库"按钮的时候，系统将进入出库信息输入界面，如（图2.3.1）所示，其基本情况与入库相类似，依次不做具体介绍。
图2.3.1
2.4查询界面
* 当用户单击"查询"按钮时，系统将出现密码登陆框，因为查询的是内部资料，因此，需身份验证，如图2.4.1
图2.4.1
* 随后将进入查询功能，如图2.4.2
图2.4.2

*
用户可根据不同需要进行"按型号"和"按单位"的查询。
> 单击"按型号"，系统将进入以型号为关键字段的查询，如图2.4.3。其中根据SQL语句的查询，选出出库型号与入库型号相同的记录，统计出入库与出库的总数量，然后可按