MAINMENU APATIR DE UMA TABELA DO BANCO

Question

Quero fazer um software onde o meu menu vai ser criado em tempo de execu��o atrav�s de uma tabela. Na tabela vai ter os campos NomeMenu Caption Nive1 Nivel2 Nivel3 Abaixo a tabela preenchida com algun...

Rud� · Answer

Cara voc� criou dois t�picos.Para fazer isso vc tem que usar recursividade: //pt.wikipedia.org/wiki/RecursividadeVou lhe mostrar como fiz uma vez.Criar uma tabela com +- essas configura��es:Tabela:[code:1:b47ff3c6ad]ID int (auto incremento)Nome varcharMenuintOrdem int[/code:1:b47ff3c6ad]como exemplo fiz esses inserts [code:1:b47ff3c6ad]INSERT INTO Tabela VALUES("Menu", 0, 1); // ID = 1INSERT INTO Tabela VALUES("Met�rias", 0, 2); // ID = 2INSERT INTO Tabela VALUES("Dentro do Menu", 1, 1); // ID = 3INSERT INTO Tabela VALUES("Dentro de Dentro do Menu", 3, 1); // ID = 4INSERT INTO Tabela VALUES("Dentro de Dentro de Dentro do Menu", 4, 1); // ID = 5INSERT INTO Tabela VALUES("Dento de Materias", 2, 1); // ID = 6INSERT INTO Tabela VALUES("Dento de Dentro de Materias", 6, 1); // ID = 7[/code:1:b47ff3c6ad]Deve aparecer assim:[code:1:b47ff3c6ad]Menu // ID = 1    Dentro do Menu // ID = 3        Dentro de Dentro do Menu // ID = 4            Dentro de Dentro de Dentro do Menu // ID = 5Materias // ID = 2    Dentro de Materias // ID = 6        Dentro de Dentro de Materias // ID = 7[/code:1:b47ff3c6ad]Crie uma TQuery ou outro tipo e coloque esse select ( vou chamar de qryMenu)[code:1:b47ff3c6ad]SELECT ID, NomeFROM TabelaWHERE Menu= :MenuORDER BY Ordem ASC, Nome ASC[/code:1:b47ff3c6ad]Procedure para adicionar.[code:1:b47ff3c6ad]procedure TForm1.CriarMenu(ID: Integer; Menu: TMenuItem);var  AddMenu: TMenuItem;begin  qryM...

Woinch · Answer

Favor criar um t�pico s� para tirar as suas d�vidas na pr�xima vez. Isso atrapalha o pessoal que est� aqui tentando ajudar...Obrigado....

El-loeco · Answer

Segui seu exemplo e ficou tudo beleza.Obrigado. Mas o que eu gostaria mesmo era de implementar no que j� comecei....

Rud� · Answer

� s� voc� adaptar, mas pelo que vi s� vai a um determinado n�vel.

Outra coisa que voc� vai ter que fazer � quando clicar no item do menu fazer algo. Mas para isso voc� vai ter que criar alguns par�metros.

Voc� pode criar um outro campo chamado Componente.

Voc� muda essa procedure

procedure TForm1.CriarMenu(ID: Integer; Menu: TMenuItem); 
var 
  AddMenu: TMenuItem; 
begin 
  qryMenu.Close; 
  qryMenu.ParamByName(�Menu�).AsInteger:= ID; 
  qryMenu.Open; 
  while Not qryMenu.Eof do 
  begin 
    AddMenu:= TMenuItem.Create(Self);
    AddMenu.Caption:= qryMenu.FieldByName(�Nome�).AsString; 
    AddMenu.Name:= �mt� + StringReplace(AddMenu.Caption,� �,��,[rfReplaceAll]) + �_� + qryMenu.FieldByName(�ID�).AsString; // Mudei aqui coloquei um _ para separar o ID da string;
    AddMenu.OnClick = OnMenuClick; // Adicionei essa linha para quando clicar chamar a procedure.
    Menu.Add(AddMenu); 
    CriarMenu(qryMenu.FieldByName(�ID�).AsInteger,AddMenu); 
    qryMenu.Next; 
  end;

Depois criar uma procedure

procedure TForm1.OnMenuClick(Sender: TObject);
var
  ID: Integer;
begin
  ID:= StrToInt(Copy(TMenuItem(Sender).Name, Pos(TMenuItem(Sender).Name,�_�) + 1, Length(TMenuItem(Sender).Name)));

Dentro dessa procedure voc� pega o ID:= ...
Depois voc� pode pesquisar usando uma query com esse select

SELECT * FROM Tabela WHERE ID = :ID

Depois passar o ParamByName(�ID�).AsInteger:= ID;
E da um Open;

Depois disso voc� pode fazer alguma coisa como procurar o componente pelo conteudo do campo Componente e depois disso fazer algo.

Se for tudo formulario voc� pode criar-los e da um show ou showmodal.

E assim vai.

F�rum MAINMENU APATIR DE UMA TABELA DO BANCO #368081