duvida
Bom ,estou tentando criar um form de procura para pesquisa de registro.
Utilizando a seguintes restrições:
Utilizo tre checkbox, e tre edits , tentei gerar o sql direto pelo botao porcurar, conforme os check box marcado adiciono via sql o conteudo do edit ao codigo slq. mas o resutado eh em branco!
Quem puder ajudar.
Utilizando a seguintes restrições:
Utilizo tre checkbox, e tre edits , tentei gerar o sql direto pelo botao porcurar, conforme os check box marcado adiciono via sql o conteudo do edit ao codigo slq. mas o resutado eh em branco!
Quem puder ajudar.
Rafaelv_s
Curtidas 0
Respostas
Sremulador
18/04/2007
amigo, e bom você postar os códigos de sql para verificar melhor esta pendencia...
GOSTEI 0
Rafaelv_s
18/04/2007
Obrigado amigo consegui resolver o problema. Com o seguinte código:
select COD_CLIENTE,NOME_CLIENTE,PROPRIEDADE,ANIMAL from CLIENTE
where upper(NOME_CLIENTE) like upper(:PNOME_CLIENTE)
Order By NOME_CLIENTE
Mas acabei usando direto no botao procurar
with DM.Qry_Procura_Cadastro_Cliente do
begin
close;
SQL.Clear;
SQL.Add(´select COD_CLIENTE,NOME_CLIENTE,PROPRIEDADE,ANIMAL from CLIENTE where NOME_CLIENTE=NOME_CLIENTE´);
if cbNome_Cliente.Checked then
SQl.Add(´and upper(NOME_CLIENTE) like upper(´+QuotedStr(´¬´+EdtCliente.Text+´¬´)+´)´);
if cbPropriedade.Checked then
SQL.Add(´ and upper(PROPRIEDADE)like upper(´+QuotedStr(´¬´+EdtPropriedade.Text+´¬´)+´)´);
if cbTipoAnimal.Checked then
SQL.Add(´ and upper(ANIMAL)like upper(´+QuotedStr(´´+ComboBox1.Text+´´)+´)´);
Open;
Btn_Ficha_Cliente.Enabled:= not IsEmpty;
end;
-----
O ´¬´ faltava , sem isso iria procurar o nome completo se digitar uma letra ele nao encontra.
Mas obrigado assim mesmo
select COD_CLIENTE,NOME_CLIENTE,PROPRIEDADE,ANIMAL from CLIENTE
where upper(NOME_CLIENTE) like upper(:PNOME_CLIENTE)
Order By NOME_CLIENTE
Mas acabei usando direto no botao procurar
with DM.Qry_Procura_Cadastro_Cliente do
begin
close;
SQL.Clear;
SQL.Add(´select COD_CLIENTE,NOME_CLIENTE,PROPRIEDADE,ANIMAL from CLIENTE where NOME_CLIENTE=NOME_CLIENTE´);
if cbNome_Cliente.Checked then
SQl.Add(´and upper(NOME_CLIENTE) like upper(´+QuotedStr(´¬´+EdtCliente.Text+´¬´)+´)´);
if cbPropriedade.Checked then
SQL.Add(´ and upper(PROPRIEDADE)like upper(´+QuotedStr(´¬´+EdtPropriedade.Text+´¬´)+´)´);
if cbTipoAnimal.Checked then
SQL.Add(´ and upper(ANIMAL)like upper(´+QuotedStr(´´+ComboBox1.Text+´´)+´)´);
Open;
Btn_Ficha_Cliente.Enabled:= not IsEmpty;
end;
-----
O ´¬´ faltava , sem isso iria procurar o nome completo se digitar uma letra ele nao encontra.
Mas obrigado assim mesmo
GOSTEI 0