打字猴:1.700416278e+09
1700416278
1700416279 ‘处理“更新”按钮单击事件
1700416280
1700416281 Private Sub cmdUpdate_Click()
1700416282
1700416283   SetRecrodset
1700416284
1700416285   rst.Update
1700416286
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
[ 上一页 ]  [ :1.700416278e+09 ]  [ 下一页 ]