Confirmar o delete

Delphi

21/09/2007

Tenho uma tabela que tem registrado o nome do usuário, a senha e o nível dele (OPER ou ADM)... Como faço para que ao deletar um registro (DBNavigator.Delete) o sistema peça o o nome do usuário e a senha do operador, e que só delete realmente se os dados estiverem em corretos e este operador for do nível ADM?

Estou utilizando Query da paleta BDE.

Desde já agradeço.


Pro-luck

Pro-luck

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

21/09/2007

Você terá de criar o form de senha em ShowModal e só deixar passar se caso esteja certa a senha.
try
  Application.CreateForm(TFrmSenha, FrmSenha);
  FrmSenha.ShowModal;
  if FrmSenha.OK then
    DBNavigator.Delete
  else
    MessageDlg(´Login ou Senha Incorretos!´, mtError, [mbOK], 0);
finnaly
  FrmSenha.Free;
end;



GOSTEI 0
Daykas

Daykas

21/09/2007

Antes de tudo, em que módulo do seu sistema está autenticando o usuári e como o seu sistema reconhece quem está operando?


GOSTEI 0
Marcosrocha

Marcosrocha

21/09/2007

daykas eu acho que nesse caso deve ser diferente.
Há casos em meus sistemas em que o usuário tem permissão para abrir e consultar registros de determinados módulos mas em certas ocasiões somente um Administrador pode excluir. Tipo controle de estorno de itens em supermercados. Logo eu tenho o Login na Criação do Projeto e uma tela de senha temporária para esta ocasião em especial. Não sei se ficou claro.


GOSTEI 0
Steve_narancic

Steve_narancic

21/09/2007

Eu Tenho uma Tabela de Permissões onde gravo com as seguintes colunas: CHAVE, INCLUIR, EDITAR, EXCLUIR, IMPRIMIR, USUARIO_ID

ao abrir o form eu carrego a permissão do usuario logado para aquele form habilitando os controles conforme as permissões dele


GOSTEI 0
Marcosrocha

Marcosrocha

21/09/2007

Mas há casos em que um usuário não pode excluir um registro mas o gerente por exemplo pode... e daí? como vocês fazem?


GOSTEI 0
Steve_narancic

Steve_narancic

21/09/2007

pois é na tabela de permissões que eu criei eu defino as permissões para cada usuario.


GOSTEI 0
POSTAR