1700416220
1700416221
‘处理程序启动事件
1700416222
1700416223
Private Sub Form_Load()
1700416224
1700416225
con.ConnectionString=_
1700416226
1700416227
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=liquor_store.mdb”
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
[
上一页 ]
[ :1.70041622e+09 ]
[
下一页 ]