Form de registro

[gontxalo]

Hola
Tengo un form8 de registro, donde en cajas edit los usuarios rellenan sus datos: nombre, apellidos, contraseña ..........Todo esto va guardado a una tabla .dbf
Luego tengo otro form2 que es de conexión, donde tengo dos cajas edit y se le pregunta al usuario nombre y contraseña y un botón para conectar.

Que tengo que poner en el evento click del botón, para que busque en la tabla, y se le de acceso a otro form sólo si coincide el nombre y contraseña de los edit del form2 con lo que guardó cuando se registro en el form8 y se guardo en la tabla?

Gracias

[vtdeleon]

Saludos

Realiza un Locate en la tabla de usuario y si el contenido del edit (de usuario y contrase~a) son iguales al contenido qe contiene el campo usuario y contrase~a de la tabla abre el formulario correspondiente y cierra el actual, en caso contrario desplegar un mensaje de error.

Realiza una busqueda sobre el Metodo Locate

[gontxalo]

Hola
Perdoname, pero soy principiante y voy aprendiendo poco a poco.

Explicame el método locate donde puedo trabajar con él. En la misma tabla busco el método locate ?

Gracias

[vtdeleon]

Saludos

En la ayuda de delphi puedes conseguir informacion del mismo.

Código Delphi [-]
tablausuario.Locate('Usuario;clave', VarArrayOf([Editusuario.text,Editclave.text]), []);

[gontxalo]

Hola
Gracias, he leído en la ayuda pero no se donde meter el if. Porque después del locate habría que meter un if si los edit 1 y 2 son iguales a los campos name y password de la tabla que el form se abra, si no mensaje de error. Pero donde?

El code lo tengo así:

procedure TForm2.Button2Click(Sender: TObject);
begin
Form8.Table1.Open;
Form8.Table1.Locate('name;password', VarArrayOf([Edit1.text, Edit2.text]), []);
Form8.Table1.Close
end;

Gracias.

[roman]

Empezado por gontxalo

Pero donde?

Locate es una función que regresa verdadero si encuentra el registro o falso en caso contrario. Así que tienes que cotejar el resultado de esa función.

// Saludos

[vtdeleon]

Saludos

Código Delphi [-]
if tabla.locate(....) then
...

Suerte

[gontxalo]

ok

Me funciona correctamente.
Gracias