Página 1 de 1
como colocar senha em campo
Enviado: Setembro 3rd, 2012, 5:52 pm
por Jair Paes
Gostaria de saber como faço para colocar senha em um campo no momento da modificação, ou no momento da venda( o vendedor só pode dar desconto com senha do gerente). u
Re: como colocar senha em campo
Enviado: Setembro 5th, 2012, 11:02 am
por Gustavo
Olá,
Você poderia chamar o formulário de login e liberar o desconto apenas quando for determinado usuário que esteja se logando, sem precisar se preocupar com a senha.
Re: como colocar senha em campo
Enviado: Setembro 11th, 2012, 11:16 pm
por Gilberto
Exemplo se o Usuario não for master.
Só o master pode cancelar baixas, se não for o master será solicitada senha.
Att
Gilberto
Procedure TFormRecibos.ButtonCancelaBaixaClick(Sender: TObject);
begin
if VNivel then
begin
if (TabGlobal.DRecibos.PAGO.Conteudo = 'S') or (TabGlobal.DRecibos.ANTECIPADO.Conteudo = 'S') then
begin
if not LiberaAcesso(92, 1) then // usuário possui acesso ?
Abort; // acesso negado, retorna ...
FormCancelaBaixa := TFormCancelaBaixa.Create(Application);
try
FormCancelaBaixa.EditContrato.Value := TabGlobal.DRecibos.CODCON.Conteudo;
FormCancelaBaixa.EditVencto.DateValue := TabGlobal.DRecibos.VENCTO.Conteudo;
FormCancelaBaixa.ShowModal;
finally
FormCancelaBaixa.Free;
end;
end
else
MessageDlg('Recibo não Baixado !', mtError, [mbOk], 0);
end;
end;