Fórum Radio Button #396623

03/03/2011

0

Delphi

Eae galera bom dia!!
    Galera é o seguinte tenho um 1 radiobutton e no eventoo on click desse componente, eu gostaria q ele atribuisse
       em uma determinada coluna com um codigo, por exemplo.:



          1ºTabela                           2ºTabela  
        
           Codigo                             Codigo  | Nome do Produto | QTD
              1                                       3       | cANeta                  |   10
              2                                       3       | Lapis                     |   10              
              3                                       3       | BOrracha              |   20
              4                                       3       | EstoJo                   |     5


                      A 1ºTabela tem 4 cadastro 1, 2, 3 e o 4.. Mas vcs percebem q eu soh estou utilizando o codigo 3 na
                            2ºTabela! Agora esqueção a 2ºTabela ela esta fexada mais a 1ºTabela esta aberta e no seu form
                               tem um radiobutton q tera a função de ZERAR a QTD da 2ºTabela!! Por Exemplo, Vai ter que
                                       Fikar assim.....




          1ºTabela                           2ºTabela  
        
           Codigo                             Codigo  | Nome do Produto | QTD
              1                                       3       | cANeta                  |    0
              2                                       3       | Lapis                     |    0              
              3                                       3       | BOrracha              |    0
              4                                       3       | EstoJo                   |    0

                     Me ajudem ae galera Agradeço desde já!! Lembrando  soh quero ZERAR a QTD de um determinado
                              cadastro!! Vlw abrass, Me ajudem ae por favor isso é urgente.
Weslen Polizelli

Weslen Polizelli

Responder

Posts

03/03/2011

Marco Salles

Mas não seria a mesma idéia que vc fez em https://www.devmedia.com.br/forum/delphi/396465-Excluir-Varios-Cadastro.html   so que ao inves do delete vc edita e da um post   O Click do RadioButton , vc seleciona a coluna que vc quer aplicar o filtro e posteriormente a edição     Table.Filter := 'N_LANC = 1';
Table.Filtered := True;
try
  while no Table.IsEmpty do
  begin
    Table.Delete;
  end;
finally
  Table.Filtered := False;
  Table.Filter := '';
end; adaptando  ????????????

Table.Filter := 'codigo = 3';   // o Numero tres é um exemplo na pratica se passa o paremtro
Table.Filtered := True;
try
  while no Table.IsEmpty do
  begin
    table.edit;  table.fieldByName('Qnt').asinteger:=0; table.post;
  end;
finally
  Table.Filtered := False;
  Table.Filter := '';
end;

Responder

Gostei + 0

03/03/2011

Weslen Polizelli

kara é vdd, eu nem tinha pensadoo nisso, kkkk nem tinha passado na minha cabeça.. Vlw por te me lembradoo axo q isso vai da certinho, vlw abrasss OBRIGADO!!!!!!
Responder

Gostei + 0

04/03/2011

Weslen Polizelli

Esse filtro nao quer funcionar!!!! olha o jeito q fikou


If cxDBRadioGroup1.ItemIndex = 1 then
    TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc';
    TabelaSaidas2.Filtered := True;
    try
      while not TabelaSaidas2.IsEmpty do
       begin
         TabelaSaidas2.Edit;
         TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
         TabelaSaidas2.Post;
       end;

      finally
        TabelaSaidas2.Filtered := False;
        TabelaSaidas2.Filter := '' ;
      end;




ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
Responder

Gostei + 0

04/03/2011

Marco Salles

Esse filtro nao quer funcionar!!!! olha o jeito q fikou


If cxDBRadioGroup1.ItemIndex = 1 then
    TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc';  // ???? que é TabelaManipulan_lanc'
    TabelaSaidas2.Filtered := True;
    try
      while not TabelaSaidas2.eof do   // Altereri aqui
       begin
         TabelaSaidas2.Edit;
         TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
         TabelaSaidas2.Post;
         TabelaSaidas2.next;  //Acrescente
       end;

      finally
        TabelaSaidas2.Filtered := False;
        TabelaSaidas2.Filter := '' ;
      end;




ele nao funcionaaaa!!nao sei oq eu to fazendo errado :S
  Alem dessas alteraçoes , este TabelaManipulan_lanc o que é ???? se for um campo de uma otra tavela escreva assim  TabelaSaidas2.Filter := 'n_lanc = '+TabelaManipulan_lanc.asstring;    
Responder

Gostei + 0

04/03/2011

Weslen Polizelli

essa tabela manipula é onde vai buscar o valor do n_lac q esta sendo usado
Responder

Gostei + 0

04/03/2011

Marco Salles

então , mas o que que acontece neste codigo     
If cxDBRadioGroup1.ItemIndex = 1 then
    TabelaSaidas2.Filter := 'n_lanc = '+TabelaManipulan_lanc.asstring;  // ???? que é TabelaManipulan_lanc'
    TabelaSaidas2.Filtered := True;
    try
      while not TabelaSaidas2.eof do   // Altereri aqui
       begin
         TabelaSaidas2.Edit;
         TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
         TabelaSaidas2.Post; 
         TabelaSaidas2.next;  //Acrescente
       end;

      finally
        TabelaSaidas2.Filtered := False;
        TabelaSaidas2.Filter := '' ;
      end;




Responder

Gostei + 0

04/03/2011

Weslen Polizelli

kara
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
Responder

Gostei + 0

04/03/2011

Marco Salles

kara
TabelaSaidas2.Filter := 'n_lanc = 'aki nao tem que ser o numero do lançamento, intao tabelamanipulan_lanc' quer dizer q ele vai pegar o numero de lançamento da tabela manipula..pq eu nao estou trabalhando com uma unica tabela entede!!!
vlw abrass
Kara   então TabelaSaidas2.Filter := 'n_lanc = '+tabelamanipulan_lanc.asstring;  ou     TabelaSaidas2.Filter := 'n_lanc = '+quotToStr(tabelamanipulan_lanc.asstring);   e qual a dificuldade nisso ????     qual o erro ???   Não compila , não executa ??? o que que acontece ????      
Responder

Gostei + 0

04/03/2011

Weslen Polizelli

o problema é esse nem ta funcionando!!!!!! nao tem erro e nada!!!
soh q eu tava seguindo no fonte e sabe na parte do 

 begin
         TabelaSaidas2.Edit;
         TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
         TabelaSaidas2.Post;
         TabelaSaidas2.next;
      end;

                                          ele nao le isso ele pula direto pra finally!!
Responder

Gostei + 0

04/03/2011

Weslen Polizelli

Resolvido!
Responder

Gostei + 0

04/03/2011

Weslen Polizelli

galera ele ta funcionando mas ta dando um problema por exemplo
eu compilo, vo pra cadastra faço o cadastro certinho e clico no radiobutonn ae da certinho...
mas se eu for fazer outro cadastro, ae volta o msm problema anterior ele pula akelas linha q eu falei!!
vlw
Responder

Gostei + 0

04/03/2011

Marco Salles

bem esta faltando um Begin - end no codigo . Não sei se est eé o motivo do erro . So copiei e colei     
If cxDBRadioGroup1.ItemIndex = 1 then
  begin
    TabelaSaidas2.Filter := 'n_lanc = TabelaManipulan_lanc.asstring;  // ???? q
    TabelaSaidas2.Filtered := True;
    tableSaida.Firs;
    try
      while not TabelaSaidas2.eof do   // Altereri aqui
       begin
         TabelaSaidas2.Edit;
         TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
         TabelaSaidas2.Post; 
             TabelaSaidas2.next;  
       end;
      finally
        TabelaSaidas2.Filtered := False;
        TabelaSaidas2.Filter := '' ;
      end;
  end;
  se não esta executando o conjunto de instrução   TabelaSaidas2.Edit;
TabelaSaidas2.FieldByName('qtd').AsInteger := 0;
TabelaSaidas2.Post; TabelaSaidas2.next;     Ou a tabela ja esta no fim ou não nenhum Registro foi Retornadopelo filtro   Antes do While coloque uma Mensagem somente para Deburgar o Problema   showmessage(inttostr( TabelaSaidas2.RecordCount));  ///antes do while



Responder

Gostei + 0

10/03/2011

Weslen Polizelli

Galera Pelamor de deus me manda esse filtro de outra forma nao to conseguindo....
Por favor me ajudem!!
Responder

Gostei + 0

30/05/2013

José

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar