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

Saludos

Chequea estos enlaces:
http://www.clubdelphi.com/foros/show...=tabla+usuario
http://www.clubdelphi.com/foros/show...usuario+acceso

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

Hola ,Gracias por la Ayuda.

Roman podrias poner algun ejemplo me seria de mucha ayuda.

Deberías ver los enlaces propuestos por vtdeleon hay código fuente !!

Un saludo

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;

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;

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

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;