Pessoal, tenho uma tabela no banco de dados que contem os nomes das telas que cada usuario pode acessar, no momento que o usurio faz o login, fiz um select que retorna as telas daquele usuario. Ate ai tudo bem, só não sei como criar o menu com o retorno do select. alguém ai pode dar uma forcinha
procedure proGetUsuario(usuario, senha : string);
var
i : integer;
begin
with TSQLQuery.Create(nil) do
begin
i := 0;
SQLConnection := frmPrincipal.SQLConnection1;
SQL.Text := ' select tel.telTela, ' +
' tel.telTag, ' +
' usu.usuUsuario, ' +
' usu.usuSenha, ' +
' usu.usuCodCliente ' +
' from tblusuario usu ' +
'inner join tbltela tel on telUsuario = usu.usuUsuario ' +
' and tel.telUsuario = '+ frmPrincipal.edtUsuario.Text+' ' +
' and usu.usuCodCliente = '+fncSistemaIni('cadastro','codigo')+' ';
Open;
if not IsEmpty then
begin
??????
end;
Free;
end;
end;
Pergunta
aalessandre
Pessoal, tenho uma tabela no banco de dados que contem os nomes das telas que cada usuario pode acessar, no momento que o usurio faz o login, fiz um select que retorna as telas daquele usuario. Ate ai tudo bem, só não sei como criar o menu com o retorno do select. alguém ai pode dar uma forcinha
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.