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 ]
[
下一页 ]