Buscar por:

Consulta com query em varia tabelas

Código

With QuConsultar do

begin

   Close;

   SQL.Clear;

   SQL.Add('Select CLIENTE.CODCLIENTE, CLIENTE.NOME, 

   ORDEMVENDA.CODCLIENTE, ORDEMVENDA.STATUS,  

   ORDEMVENDA.DATAORDEM '+

   'from CLIENTE, ORDEMVENDA where CLIENTE.NOME  

   = '+#39+Edit1.Text+#39+' and ORDEMVENDA.CODCLIENTE =  

   CLIENTE.CODCLIENTE '+'and ORDEMVENDA.STATUS = '+

   #39+ComboBox1.Text+#39+' and ORDEMVENDA.DATAORDEM

   >= '+#39+datalng(DBEdit1.text)+#39+

   ' and ORDEMVENDA.DATAORDEM <= '+#39+datalng(DBEdit2.Text)+#39);

   SQL.Add('Order by NOME');

   open;

   if IsEmpty then

   begin

       DBGrid1.DataSource := nil;

        showmessage ('Não foi realizado Ordem de serviço nem Venda para esse Cliente nesse periodo!');

    end;

    end;

{Tomem Cuidado com essa linhas | coloquem o código um a frente do outro e depois o arrumem que vai funcionar com certeza}