打字猴:1.70041625e+09
1700416250
1700416251 rst.Close
1700416252
1700416253   End If
1700416254
1700416255   rst.Open “SELECT 顾客姓名,住址,电话号码,商品名称,单价,销售量”&_
1700416256
1700416257   “FROM 顾客表,商品表,销售记录”&_
1700416258
1700416259   “AND 销售记录表.顾客ID=顾客表.顾客ID”&_
1700416260
1700416261   “AND 销售记录表.商品ID=商品表.商品ID”&_
1700416262
1700416263   con,adOpenKeyset,adLockOptimistic
1700416264
1700416265   If rst.RecordCount>0 Then
1700416266
1700416267 rst.MoveFirst
1700416268
1700416269 ShowRecordset
1700416270
1700416271   Else
1700416272
1700416273 MsgBox “找不到符合条件的数据!”,vbInformation,“”
1700416274
1700416275   End If
1700416276
1700416277 End Sub
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 ‘处理“上一条”按钮单击事件
[ 上一页 ]  [ :1.70041625e+09 ]  [ 下一页 ]