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