Login

///Ativacao da do formulario
procedure Tfrm_Principal.FormActivate(Sender: TObject);
//OBS: que as variaveis numTentativas e acerto, são da unit o login
begin
abaIndex := 0;
Self.sSkinManager1.SkinName:= Layouts[1];
        try
        frm_Login := Tfrm_Login.Create(nil);
        frm_Login.DBGrid1.Visible := False;
        //ShowMessage(db_Alunos.ConnectionString);
        numTentativas := 0;
        acerto := False;
        frm_Login.ShowModal;
                //Esse while diz: enquanto numero de tentativas(erros) for>=0 ou < 3 e acerto ainda for falso
                //A unit do login vai ser aberta em showModal
                while (numTentativas >= 0) and (numTentativas <3) and (acerto = False) do
                begin
                frm_Login.lb_tentativas.Caption := 'Você já tentou.. '+IntToStr(numTentativas)+' vez/vezes..';
                frm_Login.ShowModal;
                end;
                //Se o numero de erros(numTentativas) chegar ao valor de 3
                //a aplicação é encerrada
                if numTentativas = 3 then
                begin
                Application.Terminate;
                end
                    //Caso contrário se ouver um (acerto)
                    //a tela de login se esconde no  inicio da aplicação
                    else if acerto = True then
                         begin
                         frm_Login.Hide;
                         frm_Login.Close;
                         end;
        //ao ser finalizada a tela de login libera a memória ocupada no CPU
        finally
        frm_Login.Free;
        frm_Login := nil;
        tbsheet_alunos.TabVisible := false;
        tbsheet_classes.TabVisible := false;
        tbsheet_horarios.TabVisible := false;
        end;
end;
///=================//