给你个思路: 1、access数据库设计(直接有access设计即可):[id][机器码][防伪码] 2、生成防伪码:首先利用adodb连接数据库,设计个随机函数,添加文本框jiqima,fangweima,在jiqima中输入产品的特征码,利用者md5函数(网上有)生成唯一的防伪码;如果没有产品区分的特征码可以使用随机数函数生成一个。 3、查询界面:利用adodb的find语句可以查询。可以在网上搜下adodb的使用方法 以下是部分代码 *添加数据到数据库 Data1.Recordset.FindFirst "[机器码]='" & fangweima.text & "'" If Data1.Recordset.NoMatch Then Data1.Recordset.AddNew Data1.Recordset.Fields("[机器码]") = jiqima.text Data1.Recordset.Fields("[防伪码]") = fangweima.text Data1.Recordset.Update else msgbox("该数据已存在数据库中",“警告”) End If
*查询源码
Data1.Recordset.FindFirst "[防伪码]=‘“ & chaxun.text & ”’" If Data1.Recordset.NoMatch Then msgbox("该产品不是正品",“警告”) else msgbox("该产品是正品",“恭喜”) end if
*随机数 Function RndCode() CodeSet = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" AmountSet = 62 Randomize Dim vCode(30), vCodes vCodes="A" For i = 0 To 30 vCode(i) = Int(Rnd * AmountSet) vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1) Next RndCode=vCodes&day(datetime) End Function
ㄨ菲薄的青春
2024-06-01 04:09:14
Dim db As Connection Dim strSQL As String Set db = New Connection db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\#tcpid.mdb" '链接数据库 strSQL="" '要执行的语句 db.Execute strSQL '执行语句