Montar Select em Tempo de Execu��o

Question

Ol� Galera!!!Bom, gostaria de saber o seguinte:Tenho uma tela da Cadastro de Clientes, nessa tela tenho os campos:- codigo- nome- razao_social- enderecook, na minha pesquisa o usu�rio pode informar qu...

Ovidiojr · Answer

Ol�, Marcelo.Uma das maneiras que existe de se fazer isso � voc� colocar um componente radiogroup ou combobox com os campos que o usuario pode fazer a consulta. Por exemplo, quando o usuario colocar que quer selecionar o cliente por raz�o social, voc� monta o select da seguinte forma.:    if     combobox.itemindex = 2 (Indice da raz�o social no combobox)   then query1.commandtext := �select * from client where razao_social like ����+edit1.text+���� �;  Fa�a uma condi��o dessa para cada item do combobox ou do componente que vc estiver usando para dar as op��es para o usuario. Qualquer duvida, favor entrar em contato. Ovidio Jr. Analista/Programador TSI Sistemas....

Marceloribeiro · Answer

Certo, mas o que eu estou buscando � uma maneira de fazer sem combobox, sem nada, ou seja, s� o fato do usu�rio preencher o campo eu j� monto a select...

Tamb�m n�o queria ficar fazendo um monte de IF, p/ cada campo do form... eu procuro uma coisa mais din�mica.... entende?

Marcelo Ribeiro

Massuda · Answer

[quote:0cc4336e05=�MarceloRibeiro�]Certo, mas o que eu estou buscando � uma maneira de fazer sem combobox...[/quote:0cc4336e05]Eu n�o entendi... voc� vai ter quatro edits ou um �nico edit?...

Marceloribeiro · Answer

N�o, o que eu gostaria de saber � o seguinte:

Cada form tem uma quantidade diferente de Editsm ok?

Quando o osu�rio clicar no bot�o besquisar, eu limpo todos os edits, combobox, etc... p/ ele informar um dos campos EXEMPLO: Digamos que no cadastro de clientes eu tenha os campos abaixo,
- codigo
- nome
- ativo (S ou N)

Quando o usu�rio clicar em pesquisar, eu ent�o limpo os campos, a� o usu�rio resolve pesquisar todos os clientes �ativos�, ent�o ele entra no campo ativo coloca a letra �S� e clica em �OK�, bom aqui � que o bicho pega, pois a select tem que ser montada de acordo c/ o campo que foi preenchido, entende?

Vale pelas respostas galera!!!

Vamos ver se existe uma solu��o din�mica p/ isso....

Marcelo Ribeiro

Rjun · Answer

Acredito que n�o tenha como voc� fugir do encadeamento de IF�s....

Marceloribeiro · Answer

Ent�o n�o tem jeito, p/ cada tela eu vou ter que dar uma tratativa diferente? ser� que n�o teria uma forma mais din�mica???Marcelo Ribeiro...

Rjun · Answer

Voc� poderia criar um componente que recebesse uma collection com o nome do campo e o controle relacionado ao campo. Seria um pouco trabalhoso de inicio mas voc� teria um componente para utilizar em qualquer form.

Ovidiojr · Answer

Certo, entendi. O que vc pode fazer ent�o � o seguinte.
Coloque os componentes na form, referentes a cada campo que vc quer pesquisar na tabela de clientes e ai monte o select dinamicamente. Da seguinte forma.:
query1.commandtext := �select * from client where 1 = 1 �;
if edt_razsocial.text <> ��
then query1.commandtext := query1.commandtext +� and razao_social like ��+edt_razsocial.text+�� ;

E assim sucessivamente, va montando um IF para cada campo que vc tem para pesquisar. Assim eu acho que � a forma mais dinamica de se fazer isso. N�o conheco outra forma. Se vc conhecer, favor passar para mim.

Ovidio Jr.
TSI Sistemas.

Melo · Answer

Seria isso mais ou menos, que vc esteja querendo.. :)

Procedure LocPesquisar
var
sSql : String;
begin
sSql := �select * from Cliente�;
if ChkBoxAtivo.checked then
Ssql := sSql + � ATIVO = � + QuotedStr(�S�)
else
Ssql := sSql + � ATIVO = � + QuotedStr(�N�);
if Length(Trim(edtNome.Text)) > 0 then
sSql := sSql + � NOME LIKE �� + edtNome.Text + ��
Dm.QryPesq.Close;
Dm.QryPesq.Sql.Clear;
Dm.QryPesq.Sql.Add(sSql);
Dm.QryPesq.Open;
end;

Marceloribeiro · Answer

Galera, Valeu!!!Gostei da id�ia de usar TCollection, mas nem sonho p/ que server isso...Acho que vou partir p/ os ifs da vida....Agrade�o a todos...Marcelo Ribeiro...

Isabelct · Answer

[quote:b5892f40f6=�ovidiojr�]query1.commandtext := �select * from client where 1 = 1 �;[/quote:b5892f40f6]Muito cuidado com esse tipo de instru��o, esta condi��o (1 = 1) for�a o fetch de todos os registros da tabela. Em ambiente cliente/servidor com uma tabela com muitos dados, isso ficaria extremamente lento.Quanto ao problema principal da thread, penso que s� testando os campos, pois n�o h� como �adivinhar� quais campos foram preenchidos...Eu costumo montar meus testes assim, para evitar a condi��o inicial do select.[code:1:b5892f40f6]VarWhere := ��;if CheckBoxAtivo.Checked then  VarWhere := VarWhere + �ATIVO = � + QuotedStr(�S�) + � AND �;if EditNome.Texto <> �� then  VarWhere := VarWhere + �Nome = � + QuotedStr(EditNome.Text) + � AND �;// E assim para todos campos[/code:1:b5892f40f6]Ao final, voc� testa se a vari�vel VarWhere est� preenchida, retira os ultimos 4 caracteres dela (�AND � - estes 4 caracteres sempre v�o estar no final da string), e atribui seu conte�do � query:[code:1:b5892f40f6]query1.commandtext := �select * from client where � + VarWhere;[/code:1:b5892f40f6]Espero ter ajudado....

F�rum Montar Select em Tempo de Execu��o #291217