Inserir na ribbon a troca de senha
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Vanderlei:
Olá, Avelino!
Tenho um sistema com base no Maestro, que ainda não contemplava a troca de senha pelo usuário, através de um botão na ribbon.
Gostaria de saber como inserir esta parte na minha ribbon.
Suporte:
Vanderlei,
acrescente a parte em vermelho, na posição indicada, em sua XML.
...
<group id="grSegurançaUsuario" label="Segurança"
getVisible = "fncGetVisible">
<button id="btTrocarSenha"
label="Alterar senha"
onAction="fncOnAction"
imageMso="FileDocumentEncrypt"
size="large"
supertip="Abre formulário para alterar senha do usuário."/>
</group>
<group id="grSegurança" label="Segurança"
getVisible = "fncGetVisible">
<splitButton id="sbtseguranca" size="large"
menu itemSize="large" >
<button id="btusuario"
label="Cadastrar usuários"
onAction="fncOnAction"
imageMso="FileDocumentEncrypt"
supertip="Abre formulário para incluir, editar ou excluir usuário."/>
<button id="btpermissao"
label="Permissões dos usuários"
onAction="fncOnAction"
imageMso="DatabasePermissions"
supertip="Abre formulário para configurar permissões dos usuários."/>
</menu>
</splitButton>
</group>
...
Acrescente o CASE abaixo, na sua função fncGetVisible().
... Case "grSegurançaUsuario" visible = login.Id > 1 ...
Usuário Vanderlei:
Avelino, grato pela atenção.
Inseri o código na XML conforme você explicou e o ícone aparece na ribbon. Exporto a ribbon do MontaRibbons para o meu aplicativo e quando tento executar o botão Alterar Senha, surge esta mensagem da imagem.
E quando insiro as linhas de código na Case, o botão Alterar Senha desaparece.
O que estou fazendo de errado?
Suporte:
Vanderlei,
até aqui está tudo correto. O botão Alterar senha não deve aparecer para o usuário Admin e sim para os outros usuários.
Quanto ao botão, você deve tratar a chamada lá na função fncOnAction().
Usuário Vanderlei:
Avelino,
deu tudo certinho.
Grato pela atenção.
An Invitation
Meet the first tool in the world, developed in Microsoft Access, for the configuration and creation of custom ribbons. Ribbons have come to stay, therefore it is crucial that you get to know and learn this application!
Click here and get to know everything about this amazing tool!
| Não há comentário |
