[firebase-br] Senha para programa

[Gabriel Hilbig]

Olá Sérgio

Desde meu tempo de PDOX uso validação de Usuário pelo Nome do TMENUITEM.

Tenho uma Tabela com

COD_USUARIO
MENU_NAME
MENU_CAPTION
LIBERA,Boolean, ou char(1)

Quando o usuário Loga o SISTEMA existe uma Função para varrer os menus 
HABILITANDO ou DESABILITANDO

Vai ai um Pedaço do Código

////////////////////////////////////////////////////

with frmPrincipal do
for I := 0 to ComponentCount-1 do
 begin //0
 Comp := Components[i];
 if (Comp is TMenuItem) then //Testa MENUS
    TMenuItem(Comp).Enabled :=  Permite(sCodOperador,TMenuItem(Comp).Name);

 if (Comp is TSpeedButton) then // Testa TOOLBAR
    begin
    id := StrToInt(Copy(TSpeedButton(Comp).Name,4,2));
    TSpeedButton(Comp).Enabled := Permite( sCodOperador,aButtons[id] );
    end;
 end;

////////////////////////////////////////////////////



-- 
Gabriel Hilbig
Mg System Informática Ltda
Av Otávio Rocha, 54 / 12o.
90020-150 Porto Alegre / RS
51.3226.1768 / 3226.6209
www.mgsystem.inf.br

"sergio.bento.silva" 
<sergio.bento.silva em itelefonica.com.br> 
escreveu na mensagem news:001901c5fc0f$f3663d40$40d60dc9 em micro...
Boa Tarde, algum colega da lista tem um modelo de programa em Delphi 7.0 com 
Firebird que usa SENHAS para validar usuários para determinadas partes do 
menu principal? Caso alguém tenha um modelo e puder me enviar, ficarei muito 
agradecido. Valeu!
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa