Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Form de registro (https://www.clubdelphi.com/foros/showthread.php?t=22992)

gontxalo 03-07-2005 20:31:55

Form de registro
 
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 03-07-2005 21:29:25

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 03-07-2005 21:43:14

Locate
 
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 04-07-2005 00:43:39

Saludos

En la ayuda de delphi puedes conseguir informacion del mismo.
Código Delphi [-]
tablausuario.Locate('Usuario;clave', VarArrayOf([Editusuario.text,Editclave.text]), []);

gontxalo 04-07-2005 11:22:46

donde meto el if ....?
 
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 04-07-2005 15:29:12

Cita:

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 04-07-2005 18:18:34

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

gontxalo 05-07-2005 10:27:49

ok

Me funciona correctamente.
Gracias


La franja horaria es GMT +2. Ahora son las 05:16:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi