carregar menu com dados do banco

[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

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;

[Jhonas]

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; NewItem: TMenuItem;
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 
        // Limpar os itens de Menu
        MainMenu1.Items.Clear;

        // Ler o itens que farao parte do menu
        While Not TSQLQuery.Eof do begin

            // Cria o item do Menu e depois inclui o mesmo //

            NewItem := TMenuItem.Create(Form1);

            NewItem.Caption := TSQLQuery['CAMPO'];  // Conteudo do Campo que será o item de menu

            MainMenu1.Items.Add(NewItem);

            TSQLQuery.Next;

        end;

    end;

    Free;
  end;
end;

Como adicionar items de menu dinamicamente

http://www.linhadecodigo.com.br/Dica.aspx?id=1095

abraço

[aalessandre]

Caro jhonas, dá um erro de Index e tambem o TSQLQuery não tem a propriedade eof.

[Jhonas]

Achei que TSQLQuery era o nome da sua Query... se não for troque para o nome da sua query

abraço