Rotina que permite a execução de um crosstab em uma tabela ADO compatível com o Access. Ela rotaciona os eixos X e Y da Query, transformando linhas em colunas e vice versa. Ideal para Cubos de dados e aplicações de B.I.

//============================================================================== // Realiza um Crosstab em uma tabela ADO padrão MS Access //------------------------------------------------------------------------------ // Parametros: //     ADOQuery  :   Objeto ADOQuery já devidamente conectado ao banco //     SQLCommand:   Comando SQL para recuperar o recordset, pode-se usar Join //     RowField:     Campo a ser utilizado como a informação das linhas (Eixo Y) //     RowTitle:     Titulo para o campo RowField. Pode ser vazio. //     ColField:     Campo a ser utilizado como a informação das colunas (Eixo X) //     SummaryField: Campo NUMERICO a ser utilizado para totalização. //     Operation:    Tipo de operaçao a ser realizada Soma (SUM) ou Contagem (Count) //============================================================================== // // Exemplo: Total de Produtos vendidos em cada Estado //----------------------------------------------------------- // 1o. Exemplo: CrossTab(ADOQuery1,FSQL,'Produto','Produto','Estado','Quantidade','Count'); //---------------------------------------------------- // Produtos        MG        SP        RJ       Total // Lapis           10        11        20       41 // Borracha         5        10        10       25 // Caderno          1         2         8       11 //---------------------------------------------------- // //----------------------------------------------------------- // 2o. Exemplo: CrossTab(ADOQuery1,FSQL,'Estado','Estado','Produto','Quantidade','Count'); //----------------------------------------------------------- //Estado  Lapis        Borracha         Caderno       Total //MG      10            5                   1          16 //SP      11           10                   2          23 //RJ      20           10                   8          38 //----------------------------------------------------------- // Procedure CrossTab(ADOQuery1:TADOQuery; SQLCommand, RowField, RowTitle, ColField , SummaryField:STring;  Operation:String='Sum'); Var Str, Value : String; Begin    With ADOQuery1 do Begin       DisableControls;       Screen.Cursor := crSQLWait;       Try         Close;         SQL.Text := 'SELECT DISTINCT '+ColField+' FROM ('+SQLCommand+')';         Open;         If RowTitle = '' Then RowTitle := RowField;         Str := 'SELECT '+RowField+' as ['+RowTitle+'],';         While not ADOQuery1.Eof do Begin            Value := ADOQuery1.FieldByName(ColField).AsString;            If Value='' Then Value := 'Não Informado';            Value := StringReplace(Value,'.','_',[rfReplaceAll]);            Str := Str + Operation+'( IIF('+ColField+'="'+Value+'",'+SummaryField+') ) as ['+Value+'],';            ADOQuery1.Next;         End;         Str := Str + ' '+Operation+'('+SummaryField+') as Total';         Str := Str + ' FROM ('+SQLCommand+')';         Str := Str + ' GROUP BY '+RowField+' ORDER BY '+RowField+'';         AdoQuery1.Close;         AdoQuery1.SQL.Text := Str;         AdoQuery1.Open;       Finally         Screen.Cursor := crDefault;         EnableControls;       End;    End; End; procedure TForm1.Button1Click(Sender: TObject); Var FSQL : STring; begin     FSQL := 'SELECT * FROM TBVENDAS';     CrossTab(ADOQuery1,FSQL,'Estado','Estado','Produto','Quantidade','Count'); end;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi; Access; Banco de Dados;
Data.........: 13/12/2002 12:58:01
Visualizado..: 9620 vezes
Fonte........: AdeN Knowledge DB