| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 888 人关注过本帖, 1 人收藏
标题:销售的记录添加到数据库中!这些问题
只看楼主 加入收藏
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
结帖率:80%
收藏(1)
已结贴  问题点数:30 回复次数:13 
销售的记录添加到数据库中!这些问题
图片附件: 游客没有浏览图片的权限,请 登录注册

我想商品日常销售的操作界面,和普通超市的一样,就是输入条形码,然后查询,添加。我现在的问题是可以查询,但是添加不能,还有就是datagrid控件上显示的一直是全部的销售记录,怎么才能使之显示的是当前插入的销售记录。2楼是代码谢谢大神们!
搜索更多相关主题的帖子: 数据库 条形码 记录 
2014-02-11 19:03
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
收藏
得分: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


[ 本帖最后由 t469116416 于 2014-2-11 19:06 编辑 ]
2014-02-11 19:03
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
你只要显示刚刚加入的列还是加入的和你刚查询的一起显示??
2014-02-11 19:51
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
总感觉你这个代码有点乱。。。先把你的要求说清楚把。。你那些问题不难,但是没有明白你的意思。
2014-02-11 19:53
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
收藏
得分:0 
回复 4楼 w360989426
我的问题是我要卖东西,扫描条形码后,查询数据库的表,找到商品,然后显示在这个界面的datagrid上,然后把这个商品的信息添加到商品销售表上,但是我现在添加不成功。第二就是我想要现在的datagrid控件只显示当前输入的信息,等结账之后,datagrid控件上显示为空,
2014-02-11 21:49
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:30 
回复 5楼 t469116416
你的问题我了解了,给你一个思路吧。。1.建立一张临时数据表(扫过的自动插入这个数据表),datagrid设置为连接这个表,2当结账结束,所有数据清空,减去库存。只要你数据库知识好,很好解决。
2014-02-11 23:23
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
qw作为当前销售,不应该在form_load,而且必须有条件保证为当前。
Command2_Click应该关闭qw或更新条件使其再次成为当前(未有记录)

无知
2014-02-12 08:36
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
收藏
得分:0 
回复 6楼 w360989426
谢谢,我去试试,但是我真的是初学者不知道能不能实现我去试试看。
2014-02-12 11:12
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 8楼 t469116416
给你一个例子,这里面这个例子能教会你怎么使用临时表,https://bbs.bccn.net/thread-427029-1-1.html
2014-02-12 12:36
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
回复 8楼 t469116416
不懂的在问把。。呵呵
2014-02-12 12:37
快速回复:销售的记录添加到数据库中!这些问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025542 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved