Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Å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?

Compartilhar este post


Link para o post
Compartilhar em outros 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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.