条码对比识别辅助|条码对比工具 PDA wince6.0 源码免费下载-闪电下载吧

　　　　　　　　条码对比是能够快速的识别产品是否正确的工具，只需要录入正确的条码，然后在输入框进行扫描就能够快速进行匹配，确认您的产品是否正确，非常的简单方便！使用方法 1、选择类别，进行内容登记，录入正确的条码 2、在输入框进行扫描即可进行比对附上源代码 Module Modu

条码对比是能够快速的识别产品是否正确的工具，只需要录入正确的条码，然后在输入框进行扫描就能够快速进行匹配，确认您的产品是否正确，非常的简单方便！

使用方法

1、选择类别，进行内容登记，录入正确的条码

2、在输入框进行扫描即可进行比对

附上源代码

Module Module1

'Public A(1000) As String

'Public B(1000) As String

'Public C(1000) As String

'Public D(1000) As String

'Public i_A As Integer

'Public i_B As Integer

'Public i_C As Integer

Public i_D As Integer

Public LocalSqlConn As OleDb.OleDbConnection

'Public strUserName As String

'Public strClass As String

Public Function GetLocalSqlConn() As Boolean

GetLocalSqlConn = False

Try

LocalSqlConn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\database.mdb")

LocalSqlConn.Open()

GetLocalSqlConn = True

Catch ex As Exception

GetLocalSqlConn = False

End Try

End Function

'Public Function GetDs(ByVal strsql As String, ByVal strtable As String) As DataSet

' Try

' Dim sqlda As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strsql, LocalSqlConn)

' Dim myds As New DataSet

' sqlda.Fill(myds, strtable)

' GetDs = myds

' sqlda.Dispose()

' Catch ex As Exception

' GetDs = Nothing

' End Try

'End Function

Public Function GetTab(ByVal strsql As String, ByVal strtable As String) As DataTable

Try

Dim sqlda As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strsql, LocalSqlConn)

Dim myds As New DataSet

sqlda.Fill(myds, strtable)

GetTab = myds.Tables(0)

myds.Dispose()

sqlda.Dispose()

Catch ex As Exception

GetTab = Nothing

End Try

End Function

Public Function GetCom(ByVal strsql As String) As Boolean

Try

Dim sqlcom As OleDb.OleDbCommand = New OleDb.OleDbCommand(strsql, LocalSqlConn)

sqlcom.ExecuteNonQuery()

sqlcom.Dispose()

GetCom = True

Catch ex As Exception

GetCom = False

End Try

End Function

End Module

展开