销售的记录添加到数据库中！这些问题 - VB6论坛

楼主

已结贴√ 问题点数：30 回复次数：13

销售的记录添加到数据库中！这些问题

图片附件: 游客没有浏览图片的权限，请登录或注册

我想商品日常销售的操作界面，和普通超市的一样，就是输入条形码，然后查询，添加。我现在的问题是可以查询，但是添加不能，还有就是datagrid控件上显示的一直是全部的销售记录，怎么才能使之显示的是当前插入的销售记录。2楼是代码谢谢大神们！

搜索更多相关主题的帖子: 数据库　条形码　记录　

第 2 楼

得分:0

程序代码：

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim qw As ADODB.Recordset
Dim cmm As Private Sub Command1_Click() '查询按钮
Static a, b, c As Single
Dim cn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim rsss As New ADODB.Recordset
rsss.CursorLocation = adUseClient
ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
cn.Open ConnectionString
If Text1.Text = "" Then
MsgBox "输入信息不完全，请重新输入", , "提示"
Exit Sub
Else
rss.Open "select * from 商品信息表 where  条形码 = " & Text1.Text & "", cn, adOpenKeyset, adLockOptimistic
If rss.EOF Then
  MsgBox "没有这个商品！"
  rss.Close
  Exit Sub
Else
qw.AddNew
qw.Fields("销售单编号") = c + 1
qw.Fields("销售日期") = Date
qw.Fields("商品名称") = rss!商品名称
qw.Fields("商品单价") = rss!销售价格
qw.Fields("计量单位") = rss!计量单位
qw.Fields("商品数量") = 1
qw.Fields("总价") = Val(qw!商品单价) * Val(qw!商品数量)
a = Val(qw!总价)
b = a + b
qw.Update
End If
End If
Text1.Text = ""
Text1.SetFocus
Label3.Caption = b'显示在label3的是的总金额。
rsss.Open "select * from 商品库存表 where  商品名称 =  '" & qw!商品名称 & "' ", cn, adOpenKeyset, adLockOptimistic
If rsss.RecordCount = 0 Then
MsgBox "没有这个商品库存！"
Else
rsss!商品库存量 = rsss!商品库存量 - 1
rsss.Update
End If
End Sub
Private Sub Command2_Click()'结账按钮
If Val(Text2.Text) < Val(Label3.Caption) Then
MsgBox "输入金额有误！请核实！"
Exit Sub
End If
jzck.Show
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
Set qw = New ADODB.Recordset 'datagrid显示，并隐藏部分列
Set qw.ActiveConnection = cnn
qw.Open "select * from 商品销售表", cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = qw
DataGrid1.Columns("销售单编号").Visible = False
DataGrid1.Columns("销售日期").Visible = False
DataGrid1.Columns("商品编号").Visible = False
DataGrid1.Columns("商品数量").Width = 1400
DataGrid1.Columns("商品单价").Width = 1300
Label3.Caption = "0"
End Sub