VB公司仓库管理系统(4)

VB公司仓库管理系统

，约束控件中的数据是只读的，用户无法对其进行修改。调用了EDIT方法后，用户可以在约束控件中修改记录的值。如果在对当前记录进行修改之前修改，未使用EDIT方法，将发生运行时错误。
其主要程序如下：
Private Sub Command6_Click()
xg = True
Command3.Enabled = True
Command4.Enabled = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
'对记录进行编辑
Data1.Recordset.Edit
Text1.SetFocus
End Sub

> 删除记录
当用户单击"删除"命令按钮时，为了防止用户误删除数据，程序将调用Msgbox（）函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框上的"确定"按钮，程序调用记录集的Delete方法，将记录集的当前记录设置为空，并从原始的表中删掉当前记录。但是删除的记录仍然是当前记录，只是将其变为了无效的记录，任何对其的引用都会产生错误。
其主要程序如下：
Private Sub Command6_Click()
xg = True
Command3.Enabled = True
Command4.Enabled = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
'对记录进行编辑
Data1.Recordset.Edit
Text1.SetFocus
End Sub
Private Sub Command7_Click()
ss = MsgBox("真的要删除吗？", vbYesNo + vbInformation, "删除记录")
'如果要删除
If (ss = vbYes) Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command2.Enabled = False
End If
End If
End Sub

> 移动数据
当用户单击"上一个"和"下一个"按钮是，系统将自动转换数据，但注意，当移至第一个记录时，"下一个"按钮将失效；移至最后一个记录是，"上一个"按钮也将失效。
其中在设计程序时，为了防止"NO Current Record"这样的错误，在移动记录指针时测试记录集的BOF 和EOF属性。如果单击"上一个"和"下一个"命令按钮将导致记录指针指向空指针，则分别调用Movefirst和Movelast方法，这是防止"NO Current Record"错误出现的最简单和最有效的方法。与此同时，如果记录集的BOF属性为True,则置"上一个"命令按钮为非激活状态，是用户无法再单击该按钮。同样，当记录集的BOF属性为True时，置"下一个"命令按钮为非激活状态。
其主要程序如下：
Private Sub Command1_Click()
xg = False
Data1.Recordset.MovePrevious
'如果是第一个记录，BOF属性为TRUE
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Command1.Enabled = False
Else
Com
mand2.Enabled = True
Command1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
xg = False
Data1.Recordset.MovePrevious
'如果当前记录是