CarneiroDelphi
Experiente
Registrado: Sexta-Feira, 5 de Agosto de 2005
Mensagens: 417
|
 Enviada: Sáb Mar 10, 2007 1:01 pm Assunto: Problema com autenticação |
 |
|
Olá pessoal, estou com o seguinte código para selecionar o registro e uma tabela.
Esse código é para selecionar o usuário e o perfil deste usuário.
| Código: | StrSqlLog := 'select * from usuario, perfil where usuario.nivel = perfil.id ';
StrSqlLog := StrSqlLog + 'and usuario.fantasia = ' + QuotedStr(ValorNome.Text);
StrSqlLog := StrSqlLog + 'and usuario.senha = ' + QuotedStr(ValorSenha.Text); |
Porém quando tento abilitar um menu por exemplo, vamos supor o menu "grupo de produtos" através de um ActionList, da seguinte forma:
| Código: |
Cad_GrupoProdutos.Enabled := (QueryLogin.FieldByName('Grupo_produto').AsString = 'S');
|
No evento OnUpdate.
Ele trava todo o sistema, e quando substituo o FieldByName por Fields.Fields[7].AsString..... ele não trava, porém não abilita o menu.
Utilizo banco de dados paradox.
As tabelas estão assim:
Perfil
ID Integer,
Status Alpha(1),
Marca Alpha(1),
Data_Inc Date,
Data_Alt Date,
Data_Hab Date,
Ocultar Alpha(1),
Grupo_Produto Alpha(1)
Usuario
ID Integer,
Status Alpha(1),
Marca Alpha(1),
Data_Inc Date,
Data_Alt Date,
Data_Hab Date,
Senha Alpha(7),
Nome Alpha(30),
fantasia Alpha(15),
DPTO Alpha(20),
Nivel Integer
Se alguém tiver alguma sugestão. |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
