Fórum Duvida em DBNavigator! #218643

05/03/2004

0

Delphi

Caros amigos, como inutilizo o Insert de um DBNavigator para alguns usuários e outros nao?!

Atenciosamente

Luiz Claudio V. Santos


Luiz.claudio.vieira

Luiz.claudio.vieira

Responder

Posts

05/03/2004

Andremuller

if UsuarioSemInsert then
DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons - [nbInsert]
else
DBNavigator1.VisibleButtons := DBNavigator1.VisibleButtons + [nbInsert]

É isso que tu quer fazer?


Responder

Gostei + 0

05/03/2004

Andrey

No evento BeforeAction do DBNavigator vc pode colocar:

if Button = nbInsert then
if then
Abort;


Responder

Gostei + 0

05/03/2004

Andrey

o código acima era pra ser:

if Button = nbInsert then 
    if <usuario não pode inserir> then 
        Abort;



Responder

Gostei + 0

05/03/2004

Luiz.claudio.vieira

E isto mesmo, mas o que acontece, quando eu coloco registro pra frente ou pra tras ele reabilita o Insert, como faço para bloquear no DataSet ou na tabela, ao inves do botao?!


Responder

Gostei + 0

05/03/2004

Andremuller

É isso mesmo qual das duas respostas?
Não entendi direito a tua pergunta.


Responder

Gostei + 0

05/03/2004

Luiz.claudio.vieira

A sua resposta mesmo Andre, o se eu movimentar o a tabela o botao volta a ficar habilitado. Como desabilito a funcao insert da IbQuery?! Ou do DataSet?


Responder

Gostei + 0

05/03/2004

Andremuller

Onde tu colocou o código que te passei?
O fato de navegar nos registros não faz o botão voltar. Tem alguma coisa errada aí.

Um forma bem simples de cancelar a inserção para alguns usuários é no evento AfterInsert do ClientDataSet. Põe lá um:

if UsuarioNaoPodeInserir then
ClientDataSet.Cancel;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar