Buscar por:

Login rapido

Código

Procedure TFrmLogin.BitBtnLogarClick(Sender: TObject);

begin

  if (EdtLogin.Text = '') or (EdtSenha.Text = '') then

    begin

      MessageDlg('Usúario ou senha em branco!',mtWarning, [mbOK], 0);

      EdtLogin.Clear;

      EdtSenha.Clear;

      EdtLogin.SetFocus;

    end

  else

   if (EdtLogin.Text = 'admin') and (EdtSenha.Text <> '123') then

    begin

      MessageDlg('Senha inválida',mtWarning, [mbOK], 0);

      EdtSenha.Clear;

      EdtSenha.SetFocus;

    end

   else

   if (EdtLogin.Text <> 'admin') and (EdtSenha.Text = '123') then

    begin

      MessageDlg('Login inválida',mtWarning, [mbOK], 0);

      EdtLogin.Clear;

      EdtLogin.SetFocus;

    end

   else

   if (EdtLogin.Text = 'admin') and (EdtSenha.Text = '123') then

      begin

        FrmPrincipal:=TFrmPrincipal.Create(Application);

        FrmPrincipal.Show;

        FrmLogin.Hide;

      end

end;