Delphi dicas

Relatório com combobox

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.

por : Wiliam Derkoski