Jump to content

Archived

This topic is now archived and is closed to further replies.

Ådriano

Mainmenu

Recommended Posts

Bom, primeiro...

 

com relação ao totalcheques, isso é uma variável... do tipo double...

 

q se você quiser substituir por um edit beleza!!!

 

 

segundo:

 

na sua query, você tem q ver qual o nome do campo que recebe o valor dos cheques...

 

outra coisa...

 

tente dessa maneira...

 

Qry.FieldByName('Valor').Value;

 

acho q isso pode resolver o seu problema...

 

Bom dia Hugo, to aproveitando o artigo aqui pra ver se você me ajuda com o MainMenu também. To perdidaço. O que aquele código faz?

 

No clique de um botão para testar...

procedure TForm1.Button1Click(Sender: TObject);
Var i,j,w : Integer;
begin
 //Grava na tabela de Permissão os itens do menu...
 For i := 0 to MainMenu1.Items.Count - 1 do
 Begin
  TblPermissaoCampo.Value := (MainMenu1.Items[i].Caption);

  For j := 0 to MainMenu1.Items[i].Count - 1 do
  Begin
	TblPermissaoCampo.Value := (MainMenu1.Items[i].Items[j].Caption);

	For w := 0 to MainMenu1.Items[i].Items[j].Count - 1 do
	Begin
			  TblPermissaoCampo.Value := (MainMenu1.Items[i].Items[j].Items[w].Caption);
	End;

  End;
 End;
end;

 

Poderia me dar uma luz, Hugo. Meu email é frederico.brigatte@itelefonica.com.br O que faz esse código?

Share this post


Link to post
Share on other sites

Boa escavação, mas seu tópico já foi respondido, fico feliz em ver que você pesquisou antes de postar mas, por favor, evite pedir ajuda em tópicos antigos como este, a probabilidade do autor responder é geralmente baixa. Use tópicos antigos sim, mas apenas como referência para estudos.

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.