ZECA Posted March 23, 2010 Report Share Posted March 23, 2010 Olá a todos !!! Outro dia baixei uma classe chamada senha.prg que controla o usuario dentro de um sistema. Como na epoca não precisava, baixei e guardei. Agora estou tentando montar uma rotina que pudesse controlar o usuário dentro do sistema(em MYSQL) achei interessante a rotina chamada senha, mas faltam dois includes: FPSENH.CH e XZOOM.CH. O grande problema é que não lembro de onde baixei esta rotina. Segue abaixo, parte da rotina e os autores: --------------------------------------------------------------------------* * PROGRAMA : SENHA.PRG * * FUNCAO : MANUTENCAO DE SENHAS E USUARIOS DO SISTEMA * *--------------------------------------------------------------------------* #include "FiveWin.ch" #include "fpsenh.ch" #include "xZoom.ch" *--------------------------------------------------------------------------* Function Fpsenh() Local o := Senha():New() If o:lOpenOK If oApp:cUser # [PRINCIPAL] o:lSoSenha := .t. o:EditSenha() Else o:lSoSenha := .f. o:Edit() Endif Endif Return Nil *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* CLASS SENHA FROM DATAEDIT DATA NETUSER DATA MNOMEFU DATA MNOMEEM DATA MENU DATA aEmps AS ARRAY DATA aSele AS ARRAY DATA cSen1 DATA cSen2 DATA cSen3 DATA cSen4 DATA cSta DATA nEmpFun DATA cHabAtiv (e por ai afora) id=code>id=code>A rotina acima foi enviada para VIOL por Claudio Oliveira. Caso um deles veja este tópico, peço por gentileza que me mande, por e-mail, novamente, a rotina e os includes. Se alguém tiver algo semelhante, agradeço. O que quero fazer é semelhante a uma rotina que vi em DELPHI, cujo administrador, na primeira entrada do usuario,prepara o registro com todas as autorizaçoes que o usuário irá possuir. O usuario, na primeira vez ao digitar o nome, será conduzido ao registro para preencher os demais dados(sendo que as autorizações para acesso serão visiveis, porém inacessiveis, inclusive com a SENHA. Após isso ele entrara no sistema normalmente e na proxima vez, ao digitar o nome será oferecido somente o campo SENHA para digitação. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
ZECA Posted March 23, 2010 Author Report Share Posted March 23, 2010 Olá a todos !!! Outro dia baixei uma classe chamada senha.prg que controla o usuario dentro de um sistema. Como na epoca não precisava, baixei e guardei. Agora estou tentando montar uma rotina que pudesse controlar o usuário dentro do sistema(em MYSQL) achei interessante a rotina chamada senha, mas faltam dois includes: FPSENH.CH e XZOOM.CH. O grande problema é que não lembro de onde baixei esta rotina. Segue abaixo, parte da rotina e os autores: --------------------------------------------------------------------------* * PROGRAMA : SENHA.PRG * * FUNCAO : MANUTENCAO DE SENHAS E USUARIOS DO SISTEMA * *--------------------------------------------------------------------------* #include "FiveWin.ch" #include "fpsenh.ch" #include "xZoom.ch" *--------------------------------------------------------------------------* Function Fpsenh() Local o := Senha():New() If o:lOpenOK If oApp:cUser # [PRINCIPAL] o:lSoSenha := .t. o:EditSenha() Else o:lSoSenha := .f. o:Edit() Endif Endif Return Nil *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* *-----------------------------------------------------------------------------* CLASS SENHA FROM DATAEDIT DATA NETUSER DATA MNOMEFU DATA MNOMEEM DATA MENU DATA aEmps AS ARRAY DATA aSele AS ARRAY DATA cSen1 DATA cSen2 DATA cSen3 DATA cSen4 DATA cSta DATA nEmpFun DATA cHabAtiv (e por ai afora) id=code>id=code>A rotina acima foi enviada para VIOL por Claudio Oliveira. Caso um deles veja este tópico, peço por gentileza que me mande, por e-mail, novamente, a rotina e os includes. Se alguém tiver algo semelhante, agradeço. O que quero fazer é semelhante a uma rotina que vi em DELPHI, cujo administrador, na primeira entrada do usuario,prepara o registro com todas as autorizaçoes que o usuário irá possuir. O usuario, na primeira vez ao digitar o nome, será conduzido ao registro para preencher os demais dados(sendo que as autorizações para acesso serão visiveis, porém inacessiveis, inclusive com a SENHA. Após isso ele entrara no sistema normalmente e na proxima vez, ao digitar o nome será oferecido somente o campo SENHA para digitação. Sds José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Theotokos Posted July 15, 2010 Report Share Posted July 15, 2010 e ai, vc conseguiu a rotina? tem como vc disponibilizar para nós??? Em Cristo! Rone - Itajubá(MG)id=red> xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12 + xDevStudio A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)id=blue> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.