Busca em tabelas

Question

Preciso gerar uma msg. da seguinte forma:Quando o usu�rio estiver cadastrando uma venda para um determinado cliente, no momento que for selecionado o cliente o sistema gera um aviso, informando que ex...

Ricna · Answer

Partindo do pressuposto que o cliente seja selecionado num lookup

While not tbVendas.eof do begin
if tbVendasCampoCliente.text=lookCliente.text do begin
showmessage(� Cliente j� fez compras�)
exit;
end;

Fica pesado mas funciona.

S� n�o entendi ��outras vendas realizadas para o cliente�� e ��validade��.

Bestschmidt · Answer

Por qu� vc n�o tenta uma query mais ou menos assim:

SQL da Query

Select NomeCli from Vendas
where Vendas.NomeCli = :NomeCliente

E toda vez que precisar , passe o nome do Cliente desejado para esta query. Depois disso, vc faz a verifica��o atrav�s da propriedade recordCount ou IsEmpty (if qry.RecordCount >0 then; if not qry.IsEmpty then mensagem).

Este procedimento tem a vantagem de vc poder trazer todas as informa��es que quiser deste cliente da tabela Vendas. Por exemplo, se o cliente tem v�rias compras, voc� pode trazer A data de vencimento, o valor, se foi � vista ou a prazo, etc e jogar dentro de um DBGrid para visualiza��o.

Valeu?

�T� mais.

Cbier · Answer

Tentei da seguinte forma:procedure TfmVendas.DBLookupComboBox1Exit(Sender: TObject);beginwhile not dm.TblClientes.eof do beginif dm.tblClientesNomeCli.text = DBLookUpComboBox1.text thenbeginshowmessage(�Cliente possui vendas, verifique o vencimento�)end;end;end;N�o deu certo. O sistema trava.O que ser� que pode estar acontecendo ??...

Ricna · Answer

procedure TfmVendas.DBLookupComboBox1Exit(Sender: TObject);
begin
dm.TblClientes.first
while not dm.TblClientes.eof do begin
if dm.tblClientesNomeCli.text = DBLookUpComboBox1.text then
begin
showmessage(�Cliente possui vendas, verifique o vencimento�)
end;
dm.TblClientes.next;
end;
end;

F�rum Busca em tabelas #190660