¡Me pregunto si hay algún hermano que esté familiarizado con las bases de datos VB y Access!

1. Diseño de base de datos de acceso (el diseño de acceso directo es suficiente): [id][código de máquina][código antifalsificación]

2. : primero use adodb Conéctese a la base de datos y diseñe una función aleatoria. Agregue un jiqimafangweimajiqima en el cuadro de texto. Ingrese el código de característica del producto y use la función md5 (disponible en línea) para generar un código antifalsificación único; el código se genera usando una función de número aleatorio

3, interfaz de consulta: use la declaración adodbfind para consultar y buscar cómo usar adodb en línea

Siguiente parte del código

* Agregar datos de la base de datos

Datos1.Recordset. FindFirst "[MachineCode]='" & fangweima.text & "'"

Si Data1.Recordset.NoMatch Entonces

Data1.Recordset.AddNew

Data1 .Update

else

msgbox("Estos datos se han almacenado en la base de datos", advertencia)

Finalizar si

* Consulta Fuente

Data1.Recordset.FindFirst "[Código anticontrafalsificación] = ' & chaxun.text &.'"

Si Data1.Recordset.NoMatch Entonces

msgbox ("Este producto es genuino", advertencia)

else

msgbox("Este producto es genuino", felicidades)

end if

*Aleatorio

Función RndCode()

CodeSet = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

AmountSet = 62

Aleatorización

Atenuar vCode(30), vCodes

vCodes="A"

Para i = 0 a 30

vCode(i) = Int(Rnd * AmountSet)

vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)

Siguiente

RndCode = vCodes&day(datetime)

Función final