Usuario e senha HWGUI

[Daniel_halon]

Com a especial colaboração de Leonardo Machado...

Código: Selecionar todos

FUNCTION Valida_senha(cTitulo, Setor)
   Local cUsuario
   Local vSenha
   Local getcUsuario
   Local getvSenha
   local a_return    := {}
   local Largo       := 8
   local Retries     := 3
   Local cDif        := ''
   Local secuencia   := 0
   Local habilita    := .f.
   Local cancela     := .f.
   Local Autoriza    := .f.
   Local oIcon       := HIcon():AddFile("image\PIM.ICO")

 
   IF empty(cTitulo)
     cTitulo := 'Digite os dados...'
   ENDIF

   IF empty(Setor)
     Setor := '0'
   ENDIF

  Do While secuencia < retries

        INIT DIALOG odlgLogin ;
      TITLE cTitulo ;
      SIZE 230,150 ;
      ICON oIcon;
      STYLE DS_CENTER + WS_VISIBLE + WS_SYSMENU ;
      CLIPPER ;
      NOEXIT

      cUsuario:=cSenhas:=Space(05)

      @ 14, 17 Say "Usuário:"  SIZE 80,20  Tooltip 'Digite sua matrícula'
      @110, 17 Get getcUsuario VAR cUsuario SIZE 80, 28 picture '99999999' STYLE WS_DLGFRAME COLOR Vcolor("FF0000") TOOLTIP "Digite sua matricula"

      @ 14, 47 Say "Senha:"    SIZE 80, 20 Tooltip 'Digite a Senha'
      @110, 47 Get getcSenha VAR vSenha    SIZE 80, 28 PASSWORD STYLE WS_DLGFRAME TOOLTIP "Digite sua Senha"

      @ 117,85 BUTTON btnOk CAPTION "OK" Size 70,20;
              ON CLICK {||EndDialog()}  Tooltip 'OK'  
      @ 22, 85 BUTTON btnCancel CAPTION "Cancela" Size 70,20;
              ON CLICK {||EndDialog()}  Tooltip 'Sair'

      oDlgLogin:bActivate := {||btnOk:SetFocus()}

     ACTIVATE DIALOG odlgLogin

   IF empty(vSenha) .AND. Empty(cUsuario)
     Return(.F.)
   ENDIF

    //
    // Se clicou em cancela, ou sem usuario ou sem senha...
    //
    IF empty(vSenha) .or. Empty(cUsuario)
      IF msgyesno('Voce não digitou a matrícula ou a senha' + Chr(10) + Chr(13) + ;
        'deseja tentar novamente?', 'AtenþÒo')
        loop
      ELSE
        return(.f.)
      endif
    endif

ENDDO

[ederxc]

Brow, coloque ae seu codigo dentro da area code

Código: Selecionar todos

if  area code
   meu codigo fonte 
   meu codigo fonte 
   meu codigo fonte 
endif   

Manja , fica alinhadinho , de facil entendimento ! té+++

[Itamar M. Lins Jr.]

Com a especial colaboração de Leonardo Machado...

Código: Selecionar todos

      @ 117,85 BUTTON btnOk CAPTION "OK" Size 70,20;
              ON CLICK {||EndDialog()}  Tooltip 'OK'  
      @ 22, 85 BUTTON btnCancel CAPTION "Cancela" Size 70,20;
              ON CLICK {||EndDialog()}  Tooltip 'Sair'
 

Ola!
Existe inconsistencias nessa tela, uma delas é essa ai em cima.

Os dois botões fazem a mesma coisa.
E não é realmente avaliado se o usuário pressionou um dos dois.
Melhor será se:

Código: Selecionar todos

Local lOK:=lAcao := .f.

      @ 117,85 BUTTON btnOk CAPTION "OK" Size 70,20;
              ON CLICK {||lOk:=.t.,EndDialog()}  Tooltip 'OK'  
              ACTIVATE DIALOG odlgLogin

if lOk
  if dbseek(cUsuario)
     if vSenha =
        lAcao  := .t.
     endif
   endif
endif

Return lAcao

Saudações
Itamar M. Lins Jr.

[Daniel_halon]

Valeu Itamar, estas mas que certo, vou corregir para melhorar a função, podes me explicar de novo como postar mensagens para que fiquem bem alinhadas, quando escrevo ficam otimas, porem quando envio fica tudo alinhado pela esquerda e complicado para entender.

Daniel

[Daniel_halon]

Itamar, vou abusar um pouco mais de teus conhecimentos e tempo,
estou com um problema que não consigo resolver e e o seguinte:
Na minha migração de Clipper para Xharbour-Hwgui, fiz algumas funções em Wvt
com Visual lib,(acho que quando comezamos todos devemos fazer esta bagunça ate definir a lib a utilizar), na tela principal estou utilizando o menu da Hwgui, tendo as funções de Wvt em prg's diferentes, quando compilo utilizo hbmake new.bc /ex e seleciono como lib grafica GTWVT, porem quando entra no programa, por baixo da tela principal tem outra tela com fundo em preto e titulo do executável e algumas funções escritas em clipper original so aparecem nesta segunda tela e não na dos menus da Hwgui, da a sensação que esta segunda tela e do DOS. O que será que estou fazendo errado?

Obrigado, Daniel

[Daniel_halon]

A solução foi trabalhar so com a HWGUI, sem misturar WVT

Obrigado a todos
Daniel

[Itamar M. Lins Jr.]

A solução foi trabalhar so com a HWGUI, sem misturar WVT

Obrigado a todos
Daniel

Boa decisão

Quando postar algum código use:

Código: Selecionar todos

 e para finalizar use 

.

Estou de olho tambem nas libs oohg e na xhgtk.

Saudações
Itamar M. Lins Jr.

[sygecom]

Daniel, podemos usar a junto com a VL tmb. a GTWVW ...que alias acho que já te passei um exemplo...fica um pouco melhor que a GTWVT...mas se usar a HWGUI pura...ai é a melhor coisa que se tem a fazer...

E eu toh de olho na xhgtk e na fivewin, já ando dando umas pega na Fivewin...mas minha versão não suporta xharbour 9970 nem 9971 ...então toh devagar...e ainda não sai da HWGUI com vida ainda.... 8-|