[delphi-br] Pesquisa de Código

[Roger Ribeiro]

Amigos tenho um sistema que faz varias pesquisas. Mas minha duvida é a seguinte, como faço para quando eu escolher uma pesquisa por código no meu combobox ele faça essa pesquisa corretamente? Pesquisa como de nome, genero, da certinho como fazer pesquisa por código?
   
  Segue abaixo o fonte:
   
  if combobox1.ItemIndex = 0 then ///esse dá certo
   begin
    if edtfilme.Text='' then
      btnlimpar.Click
       else
         begin
          dmlivraria.qrlocalizafilme.Close;
           dmlivraria.qrlocalizafilme.SQL.Clear; //limpa o sql existente
            dmlivraria.qrlocalizafilme.SQL.Add ('select * from filmes where nomefilme like '+chr(39) + edtfilme.Text + '%' +chr(39) + 'order by nomefilme');
             dmlivraria.qrlocalizafilme.Open;
              end;
               end;
   
  if combobox1.ItemIndex = 1 then //aqui é o problema não pesquisa o 
  //código dá um erro de tipo misturado na expressão
   begin
    if edtfilme.Text='' then
      btnlimpar.Click
       else
         begin
          dmlivraria.qrlocalizafilme.Close;
           dmlivraria.qrlocalizafilme.SQL.Clear; //limpa o sql existente
            dmlivraria.qrlocalizafilme.SQL.Add ('select * from filmes where codfilme like '+chr(39) + edtfilme.Text + '%' +chr(39) + 'order by nomefilme');
             dmlivraria.qrlocalizafilme.Open;
              end;
               end;
   
  if combobox1.ItemIndex = 2 then //esse dá certo tambem
   begin
    if edtfilme.Text='' then
      btnlimpar.Click
       else
         begin
          dmlivraria.qrlocalizafilme.Close;
           dmlivraria.qrlocalizafilme.SQL.Clear; //limpa o sql existente
            dmlivraria.qrlocalizafilme.SQL.Add ('select * from filmes where generofilme like '+chr(39) + edtfilme.Text + '%' +chr(39) + 'order by nomefilme');
             dmlivraria.qrlocalizafilme.Open;
              end;
               end;
  end;

            
---------------------------------
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






          


    
    
      
        Yahoo! Grupos, um serviço oferecido por:
      
      
        PUBLICIDADE




      
          
    


  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.