Mainmenu

[Fred-2011 0]

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?

[bdexterholland 0]

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.