Ayuda En Login Y Pass Para Ingresar En un programa creado en Delphi

[Solojuegospc.tk]

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;

[servicomp]

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

[vtdeleon]

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;