Programación Qx
Le daré un ejemplo de cómo iniciar sesión utilizando datos en la base de datos.
"Dim ADOrs As New Recordset" declara un objeto de conjunto de registros.
Atenuar strSQL como cadena
Athos. "ActiveConnection = ADOcn" está asociado al objeto de conexión ADOcn.
Si trim (combo1.text) = " " o trim (text2.text) = " ", verifique si el nombre de usuario y la contraseña están vacíos.
MsgBox "El nombre de usuario y la contraseña no pueden estar vacíos, por favor llénelos nuevamente", vbOKOnly+vbInformation.
Conector de salida
Terminará si...
StrSQL = " select * from qxsz donde nombre del operador = ' "+Trim(combo 1. texto) + " ' "
Athos. Abra la consulta strSQL por nombre de usuario.
Si Athos. "EOF Entonces" No se puede encontrar al usuario.
MsgBox "El operador no existe", VB crítico+vbo solamente
Combo1. text=" "
Combo1. SetFocus
Conector de exportación
ElseIf text2. Text & lt& gtTrim(ADOrs.Fields ("contraseña")) T verifica la contraseña después de encontrar al usuario.
MsgBox "La contraseña es incorrecta", vbOKOnly+vbInformation
Texto 2. texto = " "
Texto2. SetFocus
Conector de salida
Terminará si...
El usuario inició sesión correctamente y se registró el parámetro de tipo de usuario.
Nombre de usuario = Combo1. Texto
Contraseña = Texto2. Texto
Athos. Cerrar
Establecer ADOrs=None
ADOcn. Cerrar
Establecer ADOcn = Nada
Frm_Main. Mostrar
Eliminarme