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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] 下一页