在单头扫描(扫描抢)一个记录,将记录INSERT INTO 表中,然后在单身MshFlexgrid 依次显示刚增加的记录,
如图 该如何处理?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rs1 As adodb.Recordset
Set rs1 = New adodb.Recordset
Dim strDst As String
If KeyAscii = 13 Then
Adodc2.ConnectionString = publicstr
Adodc2.RecordSource = "SELECT gch,gcm,tdh,bh,barcode,cc,sl,mj,ys,cl,bzl,zc from printdata where barcode='" + Left(Text1.Text, Len(Text1.Text) - 4) + " '"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast
Text2.Text = Adodc2.Recordset.Fields("gch")
Text3.Text = Adodc2.Recordset.Fields("tdh")
Text4.Text = Adodc2.Recordset.Fields("bh")
Text5.Text = Adodc2.Recordset.Fields("cc")
Text6.Text = Adodc2.Recordset.Fields("ys")
Text7.Text = Adodc2.Recordset.Fields("bzl")
Text8.Text = Adodc2.Recordset.Fields("zc")
Text11.Text = Adodc2.Recordset.Fields("sl")
Text9.Text = Date
Text10.Text = Time()
cnn.Execute ("insert into scandata(gch,tdh,bh,barcode,cc,ys,sl,bzl,zc,stationName,scanop,scandate,scantime)values('" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text1.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text11.Text + "','" + Text7.Text + "','" + Text8.Text + "','" + Label3.Caption + "','" + Label4.Caption + "','" + Text9.Text + "','" + Text10.Text + "')")
rs1.Open "insert into scandata(gch,tdh,bh,barcode,cc,ys,sl,bzl,zc,stationName,scanop,scandate,scantime)values('" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text1.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text11.Text + "','" + Text7.Text + "','" + Text8.Text + "','" + Label3.Caption + "','" + Label4.Caption + "','" + Text9.Text + "','" + Text10.Text + "')", cnn, adOpenKeyset, adLockPessimistic
rs1.Open "SELECT @@Identity as myid from scandata"
'MsgBox "新增的ID为:" & rs1.Fields(0).Value
Text12.Text = rs1.Fields(0).Value
Adodc3.ConnectionString = publicstr
Adodc3.RecordSource = "select * from scandata where scanid='" + Text12.Text + "'"
Adodc3.Refresh
Set MS1.DataSource = Adodc3
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
Adodc3.ConnectionString = publicstr
Adodc3.RecordSource = ""
Else
MsgBox "记录不正确,请检查!", , "条码扫描"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End If
End Sub
barcodeMSHFLEXGRID
如图 该如何处理?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rs1 As adodb.Recordset
Set rs1 = New adodb.Recordset
Dim strDst As String
If KeyAscii = 13 Then
Adodc2.ConnectionString = publicstr
Adodc2.RecordSource = "SELECT gch,gcm,tdh,bh,barcode,cc,sl,mj,ys,cl,bzl,zc from printdata where barcode='" + Left(Text1.Text, Len(Text1.Text) - 4) + " '"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast
Text2.Text = Adodc2.Recordset.Fields("gch")
Text3.Text = Adodc2.Recordset.Fields("tdh")
Text4.Text = Adodc2.Recordset.Fields("bh")
Text5.Text = Adodc2.Recordset.Fields("cc")
Text6.Text = Adodc2.Recordset.Fields("ys")
Text7.Text = Adodc2.Recordset.Fields("bzl")
Text8.Text = Adodc2.Recordset.Fields("zc")
Text11.Text = Adodc2.Recordset.Fields("sl")
Text9.Text = Date
Text10.Text = Time()
cnn.Execute ("insert into scandata(gch,tdh,bh,barcode,cc,ys,sl,bzl,zc,stationName,scanop,scandate,scantime)values('" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text1.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text11.Text + "','" + Text7.Text + "','" + Text8.Text + "','" + Label3.Caption + "','" + Label4.Caption + "','" + Text9.Text + "','" + Text10.Text + "')")
rs1.Open "insert into scandata(gch,tdh,bh,barcode,cc,ys,sl,bzl,zc,stationName,scanop,scandate,scantime)values('" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text1.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text11.Text + "','" + Text7.Text + "','" + Text8.Text + "','" + Label3.Caption + "','" + Label4.Caption + "','" + Text9.Text + "','" + Text10.Text + "')", cnn, adOpenKeyset, adLockPessimistic
rs1.Open "SELECT @@Identity as myid from scandata"
'MsgBox "新增的ID为:" & rs1.Fields(0).Value
Text12.Text = rs1.Fields(0).Value
Adodc3.ConnectionString = publicstr
Adodc3.RecordSource = "select * from scandata where scanid='" + Text12.Text + "'"
Adodc3.Refresh
Set MS1.DataSource = Adodc3
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
Adodc3.ConnectionString = publicstr
Adodc3.RecordSource = ""
Else
MsgBox "记录不正确,请检查!", , "条码扫描"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End If
End Sub
barcodeMSHFLEXGRID
解决方案 »
- 谁可以用比较通俗的语言或者自己的使用心得 说下Sleep与DoEvents使用区别?
- 这两行代码看不懂,哪位老师给讲讲呀?
- VB ,从数据库中读取值赋给数组
- xml用记事本打开时的换行问题!! 谢谢!!
- 如何存取多媒体数据库。比如说MP3
- 水晶报表教程谁知道啊???????(!!!!!!在线!!!!!!!)
- 请问VB高手!有关VB打包后文件太大的问题和生成绿色软件的问题!在线等!!!
- Shell怎么用?
- 老问题:如何获得鼠标IBEAM的Handle? 用GetCursor()只能获得当前鼠标的Handle.
- 关于SQL和ACCESS的导入导出问题
- 在Function里不能改写窗体变量内容吗?
- 请教关于查程序路径,使用HOOK调用出错,使用按钮正常
mshfelxgrid.textmatrix(mshflexgrid.rows-1,0)="数据1"
mshfelxgrid.textmatrix(mshflexgrid.rows-1,1)="数据2"
mshfelxgrid.textmatrix(mshflexgrid.rows-1,2)="数据3"这样直接向mshflexgrid指定的单元格写入数据。
没这写法吧