| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 788 人关注过本帖
标题:如何做一个类似超市收银的小程序。
只看楼主 加入收藏
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
结帖率:75%
  已结贴   问题点数:20  回复次数:8   
如何做一个类似超市收银的小程序。
有个数数据库表,,ID号我打印出来生成一维码,想通过扫码枪扫描一维码,得到ID,自动弹出所在那行的数据,再扫一个,不会覆盖前面的数据,而是又弹出另外一个数据,有点像超市收银的那种。这个代码怎么实现。现在我做到的就是能通过ID号来查询数据,不知道怎么做成像超市收银那种效果的程序。
Private Sub Text1_LostFocus()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1 where id='" & (Text1) & "'"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub
附件: 您没有浏览附件的权限,请 登录注册
2019-01-11 21:34
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:0 
1、你的查询结果写到变量。
2、把每次查询结果追加到表格控件【在表格控件中显示本次扫描的所有ID信息】
3、设置一个清除、统计按钮,就可以实现结算,下次扫描的功能

2019-01-12 07:51
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:95
帖 子:878
专家分:4602
注 册:2016-5-10
  得分:0 
有点搞不懂,扫描枪扫描的是二维码,你生成的“一维码”是什么?另外超市扫描的是商品的二维码,二维码不仅仅贴在商品上,而且还在数据库有这个二维码的字段。
你的这个数据库不具备上述条件。
至于扫描一次生成一行,再扫描一次,生成新的一行,显示或打印商品名词、数量、单价、小计,最后合计,这个非常容易实现。

[此贴子已经被作者于2019-1-12 15:27编辑过]

2019-01-12 15:24
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 3楼 ZHRXJR
有纸质的一维码,扫码枪扫的是一维码,而且一维码扫描出来的字段是和ID匹配的上的。那这个代码要怎么编写呢,就是扫描一个,出现一个。
附件: 您没有浏览附件的权限,请 登录注册
2019-01-12 22:53
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 2楼 wds1
能告诉我代码怎么写的么,我是初学者。想通过自己想出来的案例来慢慢学习。
2019-01-12 22:55
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:5 
假设你用msflexgird控件显示结果,i为控制显示行位置

Private Sub Text1_LostFocus()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1 where id='" & (Text1) & "'"
  Adodc1.Refresh
  if If adodc1.Recordset.RecordCount >0 Then'有符合得记录,此处只对第一条符合记录处理
   MSFlexgrid.TextMatrix(i, 1)=adodc1.Recordset.Fields("id")
   MSFlexgrid.TextMatrix(i, 2)=adodc1.Recordset.Fields("name")
   MSFlexgrid.TextMatrix(i, 3)=adodc1.Recordset.Fields("sex")
   MSFlexgrid.TextMatrix(i, 4)=adodc1.Recordset.Fields("住址")
  else
    msgbox("无此商品")
  End If
End Sub

2019-01-13 09:01
wmf2014
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:175
帖 子:1774
专家分:9980
注 册:2014-12-6
  得分:0 
设计这类应用,应该先规划数据库结构,再设计具体功能。
普通商品进销存系统数据库最基本的一般包含两个表:商品目录表和流水表,条形码数据在商品目录中,而进销存及商品进价销售价则在流水中,完整的系统还会包含顾客数据、员工数据,做毛利、纯利统计了。


[此贴子已经被作者于2019-1-14 08:09编辑过]


能编个毛线衣吗?
2019-01-13 10:19
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:95
帖 子:878
专家分:4602
注 册:2016-5-10
  得分:15 
回复4楼 childH:
你的一维码实际上就是条形码,条形码也是需要具备二部分功能,1、在商品上粘贴条形码,2、数据库存储条形码。为没有扫描枪,模拟给你做一个超市收银的小程序,供参考,估计今天晚上或明天中午给你。
2019-01-14 06:36
childH
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2019-1-7
  得分:0 
回复 8楼 ZHRXJR
好的,谢谢,发我邮箱好吗。15573185151@163.com
2019-01-14 21:46







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

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