有个数数据库表，，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

1、你的查询结果写到变量。
2、把每次查询结果追加到表格控件【在表格控件中显示本次扫描的所有ID信息】
3、设置一个清除、统计按钮，就可以实现结算，下次扫描的功能

有点搞不懂，扫描枪扫描的是二维码，你生成的“一维码”是什么？另外超市扫描的是商品的二维码，二维码不仅仅贴在商品上，而且还在数据库有这个二维码的字段。
你的这个数据库不具备上述条件。
至于扫描一次生成一行，再扫描一次，生成新的一行，显示或打印商品名词、数量、单价、小计，最后合计，这个非常容易实现。

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

有纸质的一维码，扫码枪扫的是一维码，而且一维码扫描出来的字段是和ID匹配的上的。那这个代码要怎么编写呢，就是扫描一个，出现一个。

能告诉我代码怎么写的么，我是初学者。想通过自己想出来的案例来慢慢学习。

假设你用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-1-14 08:09编辑过]

回复4楼 childH：
你的一维码实际上就是条形码，条形码也是需要具备二部分功能，1、在商品上粘贴条形码，2、数据库存储条形码。为没有扫描枪，模拟给你做一个超市收银的小程序，供参考，估计今天晚上或明天中午给你。

好的，谢谢，发我邮箱好吗。15573185151@