• 0
Sign in to follow this  
Guest vbraun

Controle De Acesso

Question

Guest vbraun

Pessoal

Estou implementanto um sistema de cadastro com acesso por vários usuários. No cadastro de usuários são atribuídas permissões, por exemplo, usuário pode ou não acessar determidada área do programa (um Form).

O problema consiste no seguinte: dentro do evento onShow do form checo se o usuário tem ou não permissão para acessá-lo, se não tiver o mesmo não deve ser mostrado, ocorre que o comando formxxx.close não funciona dentro do onShow assim não consigo fecha-lo ... e o form é aberto normalmente...

pergunto então como fechar um form antes que ele seja exibido ?

obrigado

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Seria melhor se você desabilitasse o botão ou comando de menu que chama esse formulário, tipo assim:

ProcedureTFormXXXShow...

if DataModule.QueryCampo = 'usuário' then

BtnFormCadstro.Enabled := false;

end;

end.

é só uma idéia, mas faça o seguinte: tem um tópico fixo de links (he, he, foi eu que postei) aqui na seção de delphi e ele tem exatamente o que você quer, dê uma olhadinha e posta aí depois caso continue com alguma dúvida.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this