1700416228
1700416229
con.Open
1700416230
1700416231
End Sub
1700416232
1700416233
‘处理“录入”按钮单击事件
1700416234
1700416235
Private Sub cmdCreate_Click()
1700416236
1700416237
rst.AddNew
1700416238
1700416239
SetRecordset
1700416240
1700416241
rst.Update
1700416242
1700416243
End Sub
1700416244
1700416245
‘处理“获取”按钮单击事件
1700416246
1700416247
Private Sub cmdRetrieve_Click()
1700416248
1700416249
If rst.State=adStateOpen Then
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
[
上一页 ]
[ :1.700416228e+09 ]
[
下一页 ]