Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-07-2005
Avatar de Solojuegospc.tk
Solojuegospc.tk Solojuegospc.tk is offline
Registrado
 
Registrado: jul 2005
Posts: 6
Poder: 0
Solojuegospc.tk Va por buen camino
Unhappy Ayuda En Login Y Pass Para Ingresar En un programa creado en Delphi

Buenas Comunidad de Delphi,Tengo un problema y me gustaria su ayuda. Estoy realizando un Program en Delphi y Necesito ejemplos de la forma correcta en delphi de entrada aun programa creado en Delphi. Actualmente Mi Form de entrada Contiene Dos edit, Dos Label y una base de datos creada en paradox la cual almacena usuarios y en el edit de passw si el finkey del Edit pass es true que muestra el segundo formulario. Pero no creo que este por buen camino ya que se entra al form 2 aunque el Edit de Login no sea el correcto, No relaciona la fila, Login con pass si no que si se coloca cualquier login y algun pass que se encuentre en la base de datos entra y tambien necesito ayuda en un ej de como hacer niveles de acceso como el gerente pueda modificar y otros usuarios no o ideas parecidas.

Si alguien es tan amable de mostrar o explicar su tipo de ingreso a su programa o la Forma correcta de crear un Sistema de acceso con Login y Passw. Gracias de antemano
Responder Con Cita
  #2  
Antiguo 04-07-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 23
vtdeleon Va por buen camino
Saludos

Chequea estos enlaces:
http://www.clubdelphi.com/foros/show...=tabla+usuario
http://www.clubdelphi.com/foros/show...usuario+acceso
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #3  
Antiguo 04-07-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Creo que más bien sería alrevés. En lugar de usar FindKey para el password úsalo para el login que debe ser único en la tabla. Una vez localizado el registro (si es que existe) comparas el password con el del edit.

// Saludos
Responder Con Cita
  #4  
Antiguo 04-07-2005
Avatar de Solojuegospc.tk
Solojuegospc.tk Solojuegospc.tk is offline
Registrado
 
Registrado: jul 2005
Posts: 6
Poder: 0
Solojuegospc.tk Va por buen camino
Hola ,Gracias por la Ayuda.

Roman podrias poner algun ejemplo me seria de mucha ayuda.
Responder Con Cita
  #5  
Antiguo 04-07-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Deberías ver los enlaces propuestos por vtdeleon hay código fuente !!

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #6  
Antiguo 04-07-2005
servicomp servicomp is offline
Miembro
 
Registrado: oct 2003
Ubicación: Cartago
Posts: 153
Poder: 21
servicomp Va por buen camino
Entiendo un poco tu preocupación pues en algún momento lo tuve.

Hace ya varios años escribi este codigo espero te sirva.

Macana

DContar : DataModulo donde esta la conexión de la tabla
TUsuario : Tabla donde se encuentra los datos de CODIGO y CLAVE
Edit1, Edit2 : son los Edit donde Recoges la información.


espero te sirva y si algun problema estamos para servirte


\\********************************************************

procedure TFClave.BitBtn1Click(Sender: TObject);
begin
With DContar.TUsuario do
Begin
Active:=True;
Open;
IndexName:='';
SetKey;
FieldByName('CODIGO').AsString:=FClave.Edit1.Text;
if Gotokey then
Begin
if (FieldByName('CLAVE').AsSTring = FClave.Edit2.Text) then
Begin
{close; }
FClave.Hide; {ocultamos la forma de clave}
FMenu.Show;
end
else Begin
Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0);
FClave.Edit1.Text:='';
FClave.Edit2.Text:='';
FClave.Edit1.SetFocus;
End; {if que verifica la clave}
end
else begin
Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0);
FClave.Edit1.Text:='';
FClave.Edit2.Text:='';
FClave.Edit1.SetFocus;
End; {if de busqueda del usuario}
close;
End; {Fin del with de Dcontar.TUsuario}
end;

procedure TFClave.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
Responder Con Cita
  #7  
Antiguo 06-07-2005
Avatar de Solojuegospc.tk
Solojuegospc.tk Solojuegospc.tk is offline
Registrado
 
Registrado: jul 2005
Posts: 6
Poder: 0
Solojuegospc.tk Va por buen camino
Servicomp Ayuda...

No tengo datamodule, y no entiendo que era el Fclave, lo modifique de esta forma corrio pero no sirvio.. que esta mal ? xD


procedure TFClave.BitBtn1Click(Sender: TObject);
begin
With table1 do
Begin
Active:=True;
Open;
IndexName:='';
SetKey;
FieldByName('Login').AsString:=Edit1.Text;
if Gotokey then
Begin
if (FieldByName('Password').AsSTring = Edit2.Text) then
Begin
{close; }
Form1.Hide; {ocultamos la forma de clave}
Form2.Show;
end
else Begin
Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0);
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
End; {if que verifica la clave}
end
else begin
Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0);
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
End; {if de busqueda del usuario}
close;
End; {Fin del with de Dcontar.TUsuario}
end;
Responder Con Cita
  #8  
Antiguo 07-07-2005
servicomp servicomp is offline
Miembro
 
Registrado: oct 2003
Ubicación: Cartago
Posts: 153
Poder: 21
servicomp Va por buen camino
Thumbs up Respuesta

No te preocupes tratare de dar solución a tus inquietudes.

El Data modulo es una forma que estamos usando para no tener que colocar los parametros para la conexión con la tabla en todos las formas, pues es bastante lento.

Para reemplazarlos haces la conección de la tabla en la forma donde se encuentran los Edit y los botones que hacen que la forma funcionen.

FCLave, es el nombre que le he dado a la forma donde se encuentra los botones y los Edit.

Uno de los botones es BitBtn1, que cuando se activa el evento click se ejecuta el codigo.

espero te sirva y alguna pregunta con gusto te la resolvemos
Responder Con Cita
  #9  
Antiguo 07-07-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 23
vtdeleon Va por buen camino
Saludos
Solojuegospc.tk, servicomp
Traten de usar las etiquetas DELPHI, por favor, asi seria mas legible entender su codigo.
[ delphi](sin el espacio)
Procedure tatata;
begin
end;[/delphi]
Es Igual a
Código Delphi [-]
Procedure tatata;
  begin
  end;
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:17:59.


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