Buscar por:

Relatório com combobox

Código

Unit UInicio;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, DB, XPMan;

type

  TFInicio = class(TForm)

    Selecione: TRadioGroup;

    Label1: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    DataSource1: TDataSource;

    XPManifest1: TXPManifest;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FInicio: TFInicio;

implementation

uses UDM, URelatorio;

{$R *.dfm}

procedure TFInicio.BitBtn1Click(Sender: TObject);

begin

// Para Chamar Relatorio pelo ADOQuery

 // if  Selecione.itemindex = 0 then

   // begin

     // DataModule2.ADOQuery1.Close;

      //DataModule2.ADOQuery1.Open;

     // FRelatorio.QuickRep1.Prepare;

      // FRelatorio.QuickRep1.Preview;

    //end;

 // Para chamar o Relatório para todos os clientes

 // ou para cliente especifico

    if Selecione.ItemIndex = 0 then

      begin

        DataModule2.ADOQuery1.Close;

        DataModule2.ADOQuery1.SQL.Clear;

        DataModule2.ADOQuery1.SQL.Text := 'select * from Cliente C join Pedido P on (p.Cod_Cliente = C.Cod_Cliente)';

        DataModule2.ADOQuery1.SQL.Text := DataModule2.ADOQuery1.SQL.Text + 'join Pedido_Itens PI on (PI.Num_Pedido = P.Num_Pedido)';

        DataModule2.ADOQuery1.SQL.Text := DataModule2.ADOQuery1.SQL.Text + 'Join Produto PO on (PO.Cod_Produto = PI.Cod_Produto)';

        DataModule2.ADOQuery1.Open;

        FRelatorio.QuickRep1.Prepare;

        FRelatorio.QuickRep1.Preview;

    end

   else

    begin

    if DBLookupComboBox1.Text <> '' then

     begin

       DataModule2.ADOQuery1.Close;

        DataModule2.ADOQuery1.SQL.Clear;

        DataModule2.ADOQuery1.SQL.Text := 'select * from Cliente C join Pedido P on (p.Cod_Cliente = C.Cod_Cliente)';

        DataModule2.ADOQuery1.SQL.Text := DataModule2.ADOQuery1.SQL.Text + 'join Pedido_Itens PI on (PI.Num_Pedido = P.Num_Pedido)';

        DataModule2.ADOQuery1.SQL.Text := DataModule2.ADOQuery1.SQL.Text + 'Join Produto PO on (PO.Cod_Produto = PI.Cod_Produto)';

        DataModule2.ADOQuery1.SQL.Text := DataModule2.ADOQuery1.SQL.Text + 'where C.Cod_Cliente = '+ inttostr(DBLookupComboBox1.KeyValue);

        DataModule2.ADOQuery1.Open;

        FRelatorio.QuickRep1.Prepare;

        FRelatorio.QuickRep1.Preview;

     end;

    end;

end;

procedure TFInicio.BitBtn2Click(Sender: TObject);

begin

Application.Terminate;

end;

end.