我们要做一个音乐专辑销售网站 里面用到了库存和销量 要求是每购买一张专辑 库存减1销量增1
由于每次进货的价格可能不一样所以要求查询库存的时候显示的是 同一张专辑所有的总和
再窗体上有 库存 和 销量 显示的文本框 购买以后 再那都得有变化
但不知道代码怎么写啊 马上就要交作业了 急求 ~~~~~
VB 急求库存 销量增减的代码
答案:3 悬赏:20 手机版
解决时间 2021-03-18 02:46
- 提问者网友:贪了杯
- 2021-03-17 15:59
最佳答案
- 五星知识达人网友:往事隔山水
- 2021-03-17 17:06
需要有三个表来实现这目的。一进库表,二销售表,三库存表。进库和销售表结构相同。
以进库为例,进库时关联进库表和库存表,给段代码参考:
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
If KeyAscii = 13 And Text11.Text <> "" Then
danjia = Int((Text11 / Text5) * 1000000 + 0.501) / 1000000
Text6 = danjia
If KeyAscii = 13 Then
Msg = "输入到数据库 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "确认输入" ' 定义标题。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
cmdInput.SetFocus
Adodc3.Recordset.AddNew
Adodc3.Recordset(0) = Adodc1.Recordset(2)
Adodc3.Recordset(1) = UCase(Adodc1.Recordset(1)) ' UCase$(Text1)
Adodc3.Recordset(2) = UCase(Adodc1.Recordset(1)) & "-" & Mid(Text12, 1, 4) & _
Mid(Text12, 6, 2) & Mid(Text12, 9, 2)
Adodc3.Recordset(3) = Val(Text5)
Adodc3.Recordset(4) = Val(Text6)
Adodc3.Recordset(5) = Val(Text11)
Adodc3.Recordset(6) = Text12
Adodc3.Recordset(7) = Text14
Adodc3.Recordset.Update
If Adodc2.Recordset.RecordCount = 1 Then
Adodc2.Recordset(0) = zh_dm(0) + Val(Text5)
Adodc2.Recordset(2) = zh_dm(2) + Val(Text11)
Adodc2.Recordset(1) = Int((Adodc2.Recordset(2) / Adodc2.Recordset(0)) * 1000000 + 0.501) / 1000000
Adodc2.Recordset.Update
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM" & " where 备件代码 >='" & "" & "'" & " order by 备件代码"
Adodc1.Refresh
Text1 = UCase$(Text1)
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM where " & " 备件代码>='" & Text1 & "' order by 备件代码"
Adodc1.Refresh
Text1.SetFocus
n = Len(Text1)
Text1.SelStart = n
Text1.SelLength = 1
DataGrid3.Visible = True
Adodc1.Visible = True
Else
Adodc2.Recordset.AddNew
Adodc2.Recordset(0) = Val(Text5)
Adodc2.Recordset(1) = Val(Text6)
Adodc2.Recordset(2) = Val(Text11)
Adodc2.Recordset(3) = Adodc1.Recordset(2)
Adodc2.Recordset(4) = Adodc1.Recordset(1)
m = InStr(1, Adodc1.Recordset(1), "-")
Adodc2.Recordset(5) = Mid(Adodc1.Recordset(1), 1, m - 1)
Adodc2.Recordset.Update
End If
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End If
End If
以进库为例,进库时关联进库表和库存表,给段代码参考:
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
If KeyAscii = 13 And Text11.Text <> "" Then
danjia = Int((Text11 / Text5) * 1000000 + 0.501) / 1000000
Text6 = danjia
If KeyAscii = 13 Then
Msg = "输入到数据库 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "确认输入" ' 定义标题。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
cmdInput.SetFocus
Adodc3.Recordset.AddNew
Adodc3.Recordset(0) = Adodc1.Recordset(2)
Adodc3.Recordset(1) = UCase(Adodc1.Recordset(1)) ' UCase$(Text1)
Adodc3.Recordset(2) = UCase(Adodc1.Recordset(1)) & "-" & Mid(Text12, 1, 4) & _
Mid(Text12, 6, 2) & Mid(Text12, 9, 2)
Adodc3.Recordset(3) = Val(Text5)
Adodc3.Recordset(4) = Val(Text6)
Adodc3.Recordset(5) = Val(Text11)
Adodc3.Recordset(6) = Text12
Adodc3.Recordset(7) = Text14
Adodc3.Recordset.Update
If Adodc2.Recordset.RecordCount = 1 Then
Adodc2.Recordset(0) = zh_dm(0) + Val(Text5)
Adodc2.Recordset(2) = zh_dm(2) + Val(Text11)
Adodc2.Recordset(1) = Int((Adodc2.Recordset(2) / Adodc2.Recordset(0)) * 1000000 + 0.501) / 1000000
Adodc2.Recordset.Update
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM" & " where 备件代码 >='" & "" & "'" & " order by 备件代码"
Adodc1.Refresh
Text1 = UCase$(Text1)
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM where " & " 备件代码>='" & Text1 & "' order by 备件代码"
Adodc1.Refresh
Text1.SetFocus
n = Len(Text1)
Text1.SelStart = n
Text1.SelLength = 1
DataGrid3.Visible = True
Adodc1.Visible = True
Else
Adodc2.Recordset.AddNew
Adodc2.Recordset(0) = Val(Text5)
Adodc2.Recordset(1) = Val(Text6)
Adodc2.Recordset(2) = Val(Text11)
Adodc2.Recordset(3) = Adodc1.Recordset(2)
Adodc2.Recordset(4) = Adodc1.Recordset(1)
m = InStr(1, Adodc1.Recordset(1), "-")
Adodc2.Recordset(5) = Mid(Adodc1.Recordset(1), 1, m - 1)
Adodc2.Recordset.Update
End If
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End If
End If
全部回答
- 1楼网友:duile
- 2021-03-17 18:40
这个一两句话说不清楚,涉及到你VB版本,你使用控件还是对象,使用什么数据库?
可以Q我:四七另六九二二三六
- 2楼网友:woshuo
- 2021-03-17 18:12
你可以用八爪鱼采集器去采集,很快,销量、评价、名称都能采
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯