Filtro no DBGrid!!

Delphi

13/10/2003

Em meu banco de dados existe um campo que é o nº da loja, em uma pesquisa de mov. de mercadoria aparecem varios itens com lojas diferentes para cada exemplo:

loja cod descrição
01 03 toca
02 04 calca
03 03 toca

gostaria de colocar cada registro de loja em diferentes DBGrid, precisaria fazer um filtro para isto no DBGrid, alguem sabe como fazer, valeu!!


Host

Host

Curtidas 0

Respostas

Fluka

Fluka

13/10/2003

A melhor coisa a fazer é criar um filtro onde se coloca a loja que se quer filtrar


Use o comando filter para issso

tabela.filter:=´(´campo = ´ + variavel)´;


GOSTEI 0
Afarias

Afarias

13/10/2003

o filtro deve ser feito no DataSet associado ao DBGrid.


T+


GOSTEI 0
Fluka

Fluka

13/10/2003

Coloque ele no evento afteropen, ou seja depois de abrir ele filtrará do jeito que vc precisa ok ??


GOSTEI 0
Socrates Foschera

Socrates Foschera

13/10/2003

Boa noite estou desenvolvendo um sistema onde junto duas tabelas com o inner join, o problema é que quando termino de juntar a tabelas e mostro o resultado e quero fazer uma pesquisa como faço esta pesquisa depois que junta as tabelas qual é o procedimento pois tentei fazer assim masi não deu

with dm.Ficha_Seguimento do

begin

Close;
SQL.Clear;
SQL.Add('SELECT ficha_seguimento.`Data de Cadastro`,');
SQL.Add('ficha_seguimento.Nome, cadastro_cliente.cpfcnpj,');
SQL.Add('ficha_seguimento.`Tipo Maquinario`,');
SQL.Add('fich_Seguimento.Marca, ficha_seguimento.Chassis, ficha_seguimento.Placa,');
SQL.Add('ficha_seguimento.Ano, ficha_seguimento.Modelo,');
SQL.Add('ficha_seguimento.Cor, ficha_seguimento.`Hora do Motor`,');
SQL.Add('ficha_seguimento.`Hora da Trilha`,');
SQL.Add('FROM ficha_seguimento');
SQL.Add('LEFT JOIN cadastro_cliente');
SQL.Add('ON ficha_seguimento.IDF = cadastro_cliente.Id');
SQL.Add('where ficha_seguimento.Nome = '''+FrmCadastro_Consulta_Cliente.EditLocaliza_Cli.Text+'''');
open;

end;
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

13/10/2003

tente assim:
with dm.Ficha_Seguimento do
begin
	Close;
	SQL.Clear;
	SQL.Add('SELECT ficha_seguimento.`Data de Cadastro`,');
	SQL.Add('ficha_seguimento.Nome, cadastro_cliente.cpfcnpj,');
	SQL.Add('ficha_seguimento.`Tipo Maquinario`,');
	SQL.Add('fich_Seguimento.Marca, ficha_seguimento.Chassis, ficha_seguimento.Placa,');
	SQL.Add('ficha_seguimento.Ano, ficha_seguimento.Modelo,');
	SQL.Add('ficha_seguimento.Cor, ficha_seguimento.`Hora do Motor`,');
	SQL.Add('ficha_seguimento.`Hora da Trilha`,');
	SQL.Add('FROM ficha_seguimento');
	SQL.Add('LEFT JOIN cadastro_cliente');
	SQL.Add('ON ficha_seguimento.IDF = cadastro_cliente.Id');
	SQL.Add('where Upper(ficha_seguimento.Nome) like ''%'+AnsiUppercase(trim(FrmCadastro_Consulta_Cliente.EditLocaliza_Cli.Text))+'%'' ');
	open;
end;

GOSTEI 0
POSTAR