Code: Select all
/*********************************/
My_Ctgrid_class := C_TeeGrid_Class.Create;
// Initialize "Expander"
My_Ctgrid_class.max_col_footer := 4;
My_Ctgrid_class.Params_matrix[1].field_name := 'pk_progressivo';
My_Ctgrid_class.Params_matrix[1].position := 0;
My_Ctgrid_class.Params_matrix[1].type_function := 'count';
My_Ctgrid_class.Params_matrix[2].field_name := 'budget';
My_Ctgrid_class.Params_matrix[2].position := 5;
My_Ctgrid_class.Params_matrix[2].type_function := 'sum';
My_Ctgrid_class.Params_matrix[3].field_name := 'budget_utilizzato';
My_Ctgrid_class.Params_matrix[3].position := 6;
My_Ctgrid_class.Params_matrix[3].type_function := 'sum';
My_Ctgrid_class.Params_matrix[4].field_name := 'quota_detraibile';
My_Ctgrid_class.Params_matrix[4].position := 8;
My_Ctgrid_class.Params_matrix[4].type_function := 'average';
TeeGrid1 := My_Ctgrid_class.tgrid_expander(TeeGrid1, Cds_ListView, [b]cds_detail[/b], true, true);Code: Select all
/*********************************/
type
TParams = Record
field_name: string;
position: smallint;
type_function: string;
End;
C_TeeGrid_Class = class(TObject)
procedure CBEnabledChange(Sender: TObject);
private
{ Private declarations }
protected
public
{ Public declarations }
mydataset1_tmp, mydataset2_tmp: TclientDataSet;
Expander: TExpanderRender;
function tgrid_expander(mytgrid: tteegrid; mydataset1_in: TclientDataSet;
mydataset2_in: TclientDataSet; open_expander: boolean;
footer_calc: boolean): tteegrid;
procedure GetMyDati(const Sender: TExpanderRender; const ARow: Integer;
out AData: TObject);
function read_mydata(const ARecNo: Integer; mydataset1: TclientDataSet;
mydataset2: TclientDataSet): TclientDataSet;
function CloneData(const ADataSet: TclientDataSet): TclientDataSet;
// procedure DetailNewGroup(const Sender, NewGroup: TRowGroup; field_name1 :string; field_name2 : string);
procedure DetailNewGroup(const Sender, NewGroup: TRowGroup);
constructor Create;
var
max_col_footer: smallint;
Params_matrix: array [1 .. 10] of TParams;
{ I use the array to manage the totals row of the expander grid
I pass to the function the fields I want to be used, their position as columns and the type of
aggregation (this only at text level and then I manage with if se sum count etc)
}
end;
--------------------------
procedure C_TeeGrid_Class.CBEnabledChange(Sender: TObject);
begin
//
end;
// Return a new clone copy of ADataSet data, all rows
function C_TeeGrid_Class.CloneData(const ADataSet: TclientDataSet)
: TclientDataSet;
var
tmp: TMemoryStream;
begin
tmp := TMemoryStream.Create;
try
ADataSet.SaveToStream(tmp);
tmp.position := 0;
result := TclientDataSet.Create(nil);
TclientDataSet(result).LoadFromStream(tmp);
finally
tmp.Free;
end;
end;
procedure C_TeeGrid_Class.DetailNewGroup(const Sender, NewGroup: TRowGroup);
var
tmpTot: TColumnTotals;
i: smallint;
begin
// Create a Totals band
tmpTot := TColumnTotals.Create(NewGroup.Footer); // <--- set to Footer
// Add some calculations
for i := 1 to max_col_footer do
begin
if Params_matrix[i].type_function = 'count' then
begin
tmpTot.Calculation.Add(NewGroup.Columns[Params_matrix[i].position],
TColumnCalculation.Count);
tmpTot.Calculation.Add(Params_matrix[i].field_name,
TColumnCalculation.Count);
end;
if Params_matrix[i].type_function = 'sum' then
begin
tmpTot.Calculation.Add(NewGroup.Columns[Params_matrix[i].position],
TColumnCalculation.Sum);
tmpTot.Calculation.Add(Params_matrix[i].field_name,
TColumnCalculation.Sum);
end;
if Params_matrix[i].type_function = 'min' then
begin
tmpTot.Calculation.Add(NewGroup.Columns[Params_matrix[i].position],
TColumnCalculation.Min);
tmpTot.Calculation.Add(Params_matrix[i].field_name,
TColumnCalculation.Min);
end;
if Params_matrix[i].type_function = 'max' then
begin
tmpTot.Calculation.Add(NewGroup.Columns[Params_matrix[i].position],
TColumnCalculation.Max);
tmpTot.Calculation.Add(Params_matrix[i].field_name,
TColumnCalculation.Max);
end;
if Params_matrix[i].type_function = 'average' then
begin
tmpTot.Calculation.Add(NewGroup.Columns[Params_matrix[i].position],
TColumnCalculation.Average);
tmpTot.Calculation.Add(Params_matrix[i].field_name,
TColumnCalculation.Average);
end;
end;
// Add a Totals header:
TTotalsHeader.CreateTotals(NewGroup.Footer, tmpTot);
end;
procedure C_TeeGrid_Class.GetMyDati(const Sender: TExpanderRender;
const ARow: Integer; out AData: TObject);
begin
AData := TVirtualDBData.From(read_mydata(ARow + 1, mydataset1_tmp,
mydataset2_tmp));
end;
function C_TeeGrid_Class.read_mydata(const ARecNo: Integer;
mydataset1: TclientDataSet; mydataset2: TclientDataSet): TclientDataSet;
// Return the CustomerID for row: ARow
function key_ricerca: Integer;
begin
mydataset1.RecNo := ARecNo;
result := mydataset1.FieldByName('pk_progressivo').AsInteger;
end;
// Execute OrdersTable query for a given CustomerID
procedure FiltroDati(const key_ricerca: Integer);
begin
mydataset2.active := False;
mydataset2.ParamByName('pk_progressivo').AsInteger := key_ricerca;
mydataset2.active := True;
end;
begin
FiltroDati(key_ricerca);
result := CloneData(mydataset2);
end;
function C_TeeGrid_Class.tgrid_expander(mytgrid: tteegrid;
mydataset1_in: TclientDataSet; mydataset2_in: TclientDataSet;
open_expander: boolean; footer_calc: boolean): tteegrid;
begin
mydataset1_tmp := mydataset1_in;
mydataset2_tmp := mydataset2_in;
// Create "Expander"
Expander := mytgrid.grid.Current.NewExpander;
// Setup event
Expander.OnGetData := GetMyDati;
// We don't know in advance if a row can be expanded or not, so set Always
// Expander.AlwaysExpand := True;
// Set to first Column
mytgrid.Columns[0].Render := Expander;
// Optional:
if footer_calc = True then
mytgrid.grid.Current.OnNewDetail := DetailNewGroup;
if not open_expander then
Begin
mytgrid.grid.Current.ShowHideAllDetail(0, False);
Open := False;
End
else
Begin
mytgrid.grid.Current.ShowHideAllDetail(0, True);
Open := True;
End;
result := mytgrid;
end;
constructor C_TeeGrid_Class.Create;
begin
//
end;
end.Code: Select all
TeeGrid1.Columns.Items[3].Visible := not TeeGrid1.Columns.Items[3].Visible;
TeeGrid1.Columns.Items[3].Header.Text := 'my col header text';