¿Cuáles son las funciones y códigos específicos de las etiquetas, cuadros de texto y cuadros de edición de VFP?

Por ejemplo, configure un formulario de interfaz de inicio de sesión simple

Como se muestra a continuación:

Registro de usuario general, nombre de usuario, contraseña y confirmación de contraseña son las etiquetas

p>

text1, text2 y text3 son cuadros de texto. El cuadro de edición es en realidad más grande que el cuadro de texto y puede contener más contenido de entrada que el cuadro de texto.

Aceptar, Continuar y Salir son los botones de comando.

Puedes crear una tabla libre para guardar la contraseña y el nombre de usuario. Los campos de la tabla libre son "nombre de usuario" y. "contraseña" respectivamente. El establecimiento es el siguiente. El formulario se muestra en la figura.

Comando del botón Aceptar:

cerrar todo

usar base de datos\login.dbf exclusiva

localizar para alltrim(nombre de usuario)== alltrim (yonghuming)

si se encuentra() messagebox("¡El nombre de usuario se repite, vuelva a ingresar!",16,"Cuadro de diálogo de mensaje rápido") thisform.text1.value="" thisform .text2 .value="" thisform.text3.value="" thisform.text1.setfocus

si no, alltrim(thisform.text2.value)!=alltrim(thisform.text3.value) messagebox(" dos veces La entrada de la contraseña es inconsistente, vuelva a ingresarla ",16,"Cuadro de diálogo de mensaje rápido") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus? else insertar en base de datos\Iniciar sesión. valores dbf(alltrim(yonghuming),alltrim(mima),.f.) messagebox("¡Usuario general agregado exitosamente! ¡Recuerde su nombre de usuario y contraseña!",64,"Cuadro de diálogo de mensaje rápido") endif

endif

use

comando del botón Continuar:

thisform.text1.value=""

thisform.text2 .value=""

thisform.text3.value=""

thisform.text1.setfocus

Comando del botón Salir:

cerrar todo

esteformulario.liberación