Usando os Métodos: Singleton - Design Pattern Delphi - Parte 3

Olá galera, nesta Quick Tips, irei mostrar como usar os métodos implementados anteriormente na unit uUsuario.pas. Veja como é simples a implementação da mesma.

Método Login:

Monte uma tela basicamente com 2 Edits(EdtUsuario,EdtSenha), e 2 BitBtn(BtnAcessar,BtnSenha), e uma Progressbar(apenas de enfeite), uma dica de layout.

procedure TFrmLogin.BtnAcessarClick(Sender: TObject);

var

    I: Integer;

begin

    BtnAcessar.Enabled := False;

    { Obs: Veja que estou passando uma Conexão, esta é do tipo TSQLConnection}

    if TUsuario.GetInstance.Login(EdtUsuario.Text, EdtSenha.Text, DM.Conexao ) then

    begin

        ProgressBar1.Max := 100;

        for I := 0 to 100 - 1 do

        begin

            ProgressBar1.Position := I;

            Sleep(5);

            Application.ProcessMessages;

        end;

    Close;

    ModalResult := MrOk;

    end;

    BtnAcessar.Enabled := True;

end;

Método GetUsuarioLogado:

Este é bem simples, uma function que resulta uma string, podemos colocar por exemplo em uma StatusBar.

procedure TFrmLogin.BtnAcessarClick(Sender: TObject);

begin

    StatusBar1.Panels[0].Text := TUsuario.GetUsuarioLogado;

    { Obs: Como os métodos são de Classe, podemos pegar os mesmos também da seguinte forma}

    StatusBar1.Panels[1].Text := TUsuario.Usuario;

    StatusBar1.Panels[2].Text := TUsuario.Nivel;

end;

Método ChangePassword:

Monte uma tela basicamente com 4 Edits(EdtUsuario,EdtSenha, EdtNovaSenha, EdtConfirmaSenha), e 2 BitBtn(BtnMudar,BtnSenha) uma dica de layout.

procedure TFrmMudarSenha.btnMudarClick(Sender: TObject);

begin

            TUsuario.GetInstance.ChangePassword(EdtSenha.Text,

                        EdtNovaSenha.Text,

                        EdtConfirmaSenha.Text,

                        DM.Conexao);

            Close;

end;

procedure TFrmMudarSenha.FormShow(Sender: TObject);

begin

    { Obs: Fiz com que ao abrir a tela para mudar a senha, o usuário já seja carregado no EdtUsuario}

            EdtUsuario.Text := TUsuario.GetUsuarioLogado;

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br