Consulta

[AndersonAureliano 0]

Ola galera eu estou desenvolvendo um programa eu fiz eu uma tabela para cadastro de cliente e aoutra para cadastro de veiculo e eu não estou conseguindo fazer uma consulta como que eu posso fazer alguem tem alguma ideia um exemplo e eu estopu fazendo em paradox.obrigado

[ricardo.prs 0]

Amigo, eu não entendi seu raciocínio...Pode ser um pouco mais claro por favor?Sem mais.No Aguardo.SDS.

[AndersonAureliano 0]

eu fiz as tabelas no paradox so que eu separei as tabelas ,uma so de cadastro de cliente e a outra de veiculo , eu queria fazer alguma coisa assim , consultar com o nome ou placa , alguem tem um exemplo

[Rod_ 0]

amigo eu tenho uma consulta feita... entao hoje eh dia 26/07 te trago o codigo, ate dia 28/07, beleza ...até.

[AndersonAureliano 0]

muito obrigado cara

[Jr Cavalo 0]

P/ Anderson Uma boa dica e você criar Indices nas suas tabelas. Isto facilita muito na hora de realizar as pesquisas..

[Rod_ 0]

Aqui amigo como falei... aqui esta o codigo da consulta caso ainda tenha duvida, me mandei um email para rod_@pop.com.br

ok... esse exemplo que vou passar eh simples.. fiz ele correndo beleza..

 

-FAZENDO UMA CONSULTA A CLIENTE-

 

1- fazer um form soh para consulta e configuralo assim

- NAME- FrmConsCli

- CAPTION- Consulta de Clientes

-BORDERICONS- Desabilite os botoes de maximizar e minimizar pra ficar algo decente.. rsrs

-POSITION- PoScreenCenter

 

2- poe no form um msk e configura assim

-NAME- msknome

CHARCASE- ecuppercase

MAXLENGTH- 45

TEXT- dexa aqui sem valor

 

3- poe um bitbtn e faz assim

NAME- btnok

KIND- btok

MODALRESULT- mrnome

CAPTION -&ok

DEFAULT-true

 

ai esse form de consulta previamente configurado sera chamado pelo botao

de pesquisa no seu formulario.. ( um botao de consulta) de placa ou nome sei la..

 

ai você esta no seu formizinho de veiculo e coloca ele dentro pra chama a consulta

 

frmconscli:= tfrmconscli.create(application);

frmconscli.showmodal;

 

beleza ai testa e ve se ta chamando a p**** do form...

agora eh o bixo da goiaba

 

vamu pu SQl

 

no envento onclose do seu form de consulta e coloque o descarregamento de memoria, ce ta ligado nisso neh

a gente faz la no form principal ai coloca no on close junto com um msgbox pra fexa o form...

blah blah e usario o action:=cafree;

beleza..

 

no bitbtn você poe nele so

close;

 

agora chega a parte chata...

tem que filtra o registro e tem que te uma procedure ce você nao tiver isso ja era...isso no seu cadastro de veiculo ou seila

oh você deve concerteza ter um esquema de atualiza o grid neh???

entao ele jah tah pronto ai você vai no inicio dele

declara as variaveis

var

sql1, sql2, sql3: string;(nossa variavelzinha pra famosa consulta de filtragem)

linha, registros: integer;

 

agora essa parte depende do seu sistema

tipo sua query ai você muda do seu jeito

atualizando seu grid

 

sql1:= ' SELECT Cl_Codigo, Cl_Nome FROM clientes.db' ;

sql2:= ' WHERE Cl_Nome LIKE"'+Nome+'%"';

sql3:= ' ORDER BY Cl_Nome';

qrycli.sql.clear; oh esse clear eh pra limpa a propriedad slq do nosso query hein esse query tem que se o seu nome nao vai esquece

qrycli.sql.add(sql1+sql2+sql3);

 

ok compila ae...

beleza proximo passo

você agora tem que adiciona um nova UNIT soh isso com o nome de ---Geral---

dentro dela vamos declarar a variavel ---Nome--- depois da palavra reservada INTERFACE

 

var

nome:string;

 

**** olha em todos os form que utilizarmos a variavel NOME devemos incluir a unit geral na mesma

 

entao você iria em USES la no comeco do famigera form e poe la no final (Geral)

ok

 

agora pra fexa a parada soh falta filtra o msknome

pahhh agora você vai nela la no form consulta clica na msk e vai no evento

onchange e digite isso

nome:=msknome.text;

frm(nome do seu formde cadastro).atualiza_grid( seu grid de cadastro);

 

 

pronto terminado

 

END.

 

 

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

[Rod_ 0]

amigo reconsidere a linha de codificação de sql oh eh assim: sql1:=' select CL_codigo,cl_nome from clientes.db';sql2:=' where CL_Nome like "'+nome+'%"'; OH-> " '+nome+'%" ' mas eh junto aspas duplas ai vem uma simples.sql3:=' order by cl_nome';