仓库管理信息系统(2)

Form Frmrsg1 Caption=“入库情况”

Data Data1

Databasename=“A\db2.mdb”Recordsettype=1’DynasetCaption=“入库情况”

CommandDialog Command1 Caption=“上一个”

Command2 Caption=“下一个”

Command3 Caption=“确定”

Command4 Caption=“取消”

Command5 Caption=“退出”

Command6 Caption=“增加”

Command7 Caption=“修改”

Command8 Caption=“删除”

Lable Lable1 Caption=“序号”

Lable2 Caption=“型号”

Lable3 Caption=“产品名称”

Lable4 Caption=“数量”

Lable5 Caption=“单价”

Lable6 Caption=“入库时间”

Lable7 Caption=“发票名称”

Lable8 Caption=“供应商名称”

Lable9 Caption=“电话”

Lable10 Caption=“结帐情况”

Text Text1 Caption=“序号”Datasource=“data1”

Text2 Caption=“型号”Datasource=“data1”

Text3 Caption=“产品名称”Datasource=“data1”

Text4 Caption=“数量”Datasource=“data1”

Text5 Caption=“单价”Datasource=“data1”

Text6 Caption=“入库时间”Datasource=“data1”

Text7 Caption=“发票名称”Datasource=“data1”

Text8 Caption=“供应商名称”Datasource=“data1”

Text9 Caption=“电话”Datasource=“data1”

Text10 Caption=“结帐情况”Datasource=“data1”

表2.2.1

l 控件说明

Ø 增加新记录

当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不可见，这样做是为了防

仓库管理信息系统

止用户的误操作。

其主要程序如下：

Private Sub Command5_Click()

xg = True

'显示“确定”和“取消”两个按钮

Command3.Visible = True

Command4.Visible = True

'取消其他按钮功能

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

Data1.Recordset.AddNew '添加一个新记录

Text1.SetFocus '光标在TEXT1处

end sub

Ø 修改记录

在调用EDIT方法之前，约束控件中的数据是只读的，用户无法对其进行修改。调用了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

仓库管理信息系统

Ø 删除记录版权所有：/381103193

当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用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

Command2.Enabled = True

Command1.Enabled = True

End If

End Sub

Private Sub Command2_Click()

xg = False

Data1.Recordset.MovePrevious

'如果当前记录是记录集中最后一个记录，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方法放弃增加和修改

如果用户修改了约 …… 此处隐藏：3240字，全部文档内容请下载后查看。喜欢就下载吧 ……