Inicio De Sesión - Login - Delphi
 

Tengo este codigo en el boton iniciar. Funciona pero no se si esta lo suficientemente completo y otra duda que tengo es en el manejo de excepciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule1.FDConnection1.Open(Edit1.Text,Edit2.Text);
  try
    if DataModule1.FDConnection1.Connected then
    begin
      ShowMessage('Bienvenido.');
      Form1.DestroyWindowHandle;
      Form3 := TForm3.Create(Self);
      Form3.ShowModal;
    end;
  except
    on E:Exception do
    begin
      ShowMessage('Error');
    end;
  end;
end;

AlejandroIT,

¡Bienvenido al Club Delphi! :D

Revisa esta información
Espero sea útil :)

Nelson.

¿Completo? :confused: