VB 急求库存 销量增减的代码

我们要做一个音乐专辑销售网站 里面用到了库存和销量 要求是每购买一张专辑 库存减1销量增1
由于每次进货的价格可能不一样所以要求查询库存的时候显示的是 同一张专辑所有的总和
再窗体上有 库存 和 销量 显示的文本框 购买以后 再那都得有变化
但不知道代码怎么写啊 马上就要交作业了 急求 ~~~~~

需要有三个表来实现这目的。一进库表，二销售表，三库存表。进库和销售表结构相同。

以进库为例，进库时关联进库表和库存表，给段代码参考：
    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

这个一两句话说不清楚，涉及到你VB版本，你使用控件还是对象，使用什么数据库？ 可以Q我：四七另六九二二三六

你可以用八爪鱼采集器去采集，很快，销量、评价、名称都能采

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息