FoxPro/Visual FoxPro - Error en inicio de sesion con contraseña

Hola! espero que me puedan ayudar. Tengo un problema con mi proyecto al iniciar sesion, en mi formulario tengo 2 text box, 3 botones de comando, una base de datos.




Tengo un usuario registrado me deja entrar al sistema con ese usuario y contraseña, si coloco algun usuario o datos incuerentes mostrara un mensaje de usuario o pasword erroneos.



Pero si dejo los 2 text box en blanco sin ningun dato, me deja entrar automaticamente al sistema. Este es el codigo que estoy utilizando para el inicio de sesion en el boton de aceptar.




Les agradeceria mucho! si me pudieran ayudar en que estoy fallando o cual es la mejor opcion para este problema.

Lo más seguro es hacer la comparación exacta. O sea, antes del SEEK tienes que poner SET EXACT ON y luego (si quieres), SET EXACT OFF.
También puedes no admitir valores vacíos, o sea, si alguno de los campos está vacío, en lugar de buscar, rechazas la entrada.
O directamente puedes utilizar el Valid de cada textbox con RETURN 0 para Empty(this.value)

Use Usuario

Gracias! te lo agradesco me funciono.

Hola Melisa
Me permito hacerte una recomendación: no uses formset (conjunto de formularios). Son un engorro inútil. Pese a que la ayuda de Visual Fox se refiere profusamente a los conjuntos de formularios, lo mejor que puede hacerse es ignorarlos por completo.
Si llegas a necesitar que dos o más formularios se muevan en forma coordinada, puedes utilizar una clase no visual, como "custom" y que la clase llame y ordene a los formularios.

También recuerda que una referencia de objeto (a cualquier objeto) se puede enviar como parámetro a otro formulario, por ejemplo, suponemos que tenemos Frm_base y Frm_Secundario:

1) Desde Frm_base, en algún lugar llamas a Frm_Secundario
DO FORM frm_Secundario with THISFORM && sin puntos ni comillas

2) Init de Frm_Secundario
LPARAMETERS toForm
ADDPROPERTY(thisform,"oForm",toform)
* Desde cualquier lugar del Frm_Secundario, con THISFORM.OFORM estarás accediendo a cualquier objeto o método del Frm_Base

3) Destroy del FRM_Secundario
THIS.OFORM = NULL && es muy importante no omitir el desenlace, porque puede que el frm_secundario se quede flotando.