Liberando o Main Menu para usuario

Delphi

25/10/2005

Eai Pessoal...

depois do usuario se autenticar..... eu ativo o MainMenu

onde todas as guias estao[b:825516de9a] Visible= false[/b:825516de9a]...

e conforme vou checando as permissoes.. vou liberando o visible = true ou nao...

porem.. nao esta funcionando...

alguem consegue ver oq esta errado???

dataAcesso.Locate((´FORM;USER´),VarArrayOf([2,dataUsuariosID.Value]),[]); If dataAcessoNIVEL.Value > 0 then begin frmMenu.mCadastros.Visible:= True; frmMenu.mmLojas.Visible:= True; end Else begin frmMenu.mmLojas.Visible:= False; end;



Nettopassaro

Nettopassaro

Curtidas 0

Respostas

Firekiller

Firekiller

25/10/2005

Que tipo de mensagem de erro ou problema está acontecendo??
O único problema que pude verificar é o fato do campo Nível estar nulo, ou não exitir um registro específico.


GOSTEI 0
Martins

Martins

25/10/2005

Eai Pessoal... depois do usuario se autenticar..... eu ativo o MainMenu onde todas as guias estao[b:3c2312077f] Visible= false[/b:3c2312077f]... e conforme vou checando as permissoes.. vou liberando o visible = true ou nao... porem.. nao esta funcionando... alguem consegue ver oq esta errado??? [quote:3c2312077f] dataAcesso.Locate((´FORM;USER´),VarArrayOf([2,dataUsuariosID.Value]),[]); If dataAcessoNIVEL.Value > 0 then begin frmMenu.mCadastros.Visible:= True; frmMenu.mmLojas.Visible:= True; end Else begin frmMenu.mmLojas.Visible:= False; end;
[/quote:3c2312077f]

Se vc informar qual erro tá dando ajudaria muito!

Ou será q os menus continuam desabilitados mesmo após o usuário ter se ligoda?


GOSTEI 0
POSTAR