打字猴:1.700416287e+09
1700416287 End Sub
1700416288
1700416289 ‘处理“删除”按钮单击事件
1700416290
1700416291 Private Sub cmdDelete_Click()
1700416292
1700416293   rst.Delete
1700416294
1700416295   rst.Update
1700416296
1700416297 End Sub
1700416298
1700416299 ‘处理“上一条”按钮单击事件
1700416300
1700416301 Private Sub cmdPrev_Click()
1700416302
1700416303   rst.MovePrevious
1700416304
1700416305   If rst.BOF Then
1700416306
1700416307 rst.MoveFirst
1700416308
1700416309   End If
1700416310
1700416311   ShowRecrodset
1700416312
1700416313 Ens Sub
1700416314
1700416315 ‘处理“下一条”按钮单击事件
1700416316
1700416317 Private Sub cmdNext_Click()
1700416318
1700416319   rst.MoveNext
1700416320
1700416321   If rst.EOF Then
1700416322
1700416323 rst.MoveLast
1700416324
1700416325   End If
1700416326
1700416327   ShowRecordset
1700416328
1700416329 End Sub
1700416330
1700416331 ‘Recordset显示Recordset中的内容
1700416332
1700416333 Private Sub ShowRecordset()
1700416334
1700416335   txtCustomer.Text=rst.Fields(0)
1700416336
[ 上一页 ]  [ :1.700416287e+09 ]  [ 下一页 ]