with DBGridEh1 do //DBGrid1显示数据,设置标题栏宽度和字体居中
Begin
DataSource:=DataSource1;
FooterRowCount:=1; //底部行
//DBGridEh1.FrozenCols
Columns[0].Footers.Add; //要加第一行
Columns[0].Footers[0].Font.Color:=clred;
Columns[0].Footers[0].ValueType:=fvtSum;
Columns[1].Footers.Add;
Columns[1].Footers[0].Font.Color:=clred;
Columns[1].Footers[0].ValueType:=fvtSum;//fvtStaticText; FvtCount; fvtFieldValue
Columns[2].Footers.Add;
Columns[2].Footers[0].Font.Color:=clred;
Columns[2].Footers[0].ValueType:=fvtSum;
Columns[3].Footers.Add;
Columns[3].Footers[0].Font.Color:=clred;
Columns[3].Footers[0].ValueType:=fvtSum;
Columns[5].Footers.Add;
Columns[5].Footers[0].Color:=clTeal;
Columns[5].Footers[0].ValueType:=fvtStaticText;//fvtSum; FvtCount; fvtFieldValue
Columns[5].Footers[0].Value:='汇总';
SumList.Active:=True; //激活列求和
Columns[4].Footers.Add; //合计百分比
Columns[4].Footers[0].Font.Color:=clred;
Columns[4].Footers[0].ValueType:=fvtStaticText;
Columns[4].Footers[0].Value:=Format('%.2f',[100*(StrToFloat(Columns[0].Footers[0].SumValue)/StrToFloat(Columns[3].Footers[0].SumValue))])+'%';
Columns[0].Width:=80;
Columns[1].Width:=80;
Columns[2].Width:=80;
Columns[3].Width:=80;
Columns[4].Width:=80;
Columns[5].Width:=120;
for i :=0 to 5 do
Begin
Columns[i].Alignment:=taCenter;
Columns[i].Title.Alignment:=taCenter;
End;
end;
Begin
DataSource:=DataSource1;
FooterRowCount:=1; //底部行
//DBGridEh1.FrozenCols
Columns[0].Footers.Add; //要加第一行
Columns[0].Footers[0].Font.Color:=clred;
Columns[0].Footers[0].ValueType:=fvtSum;
Columns[1].Footers.Add;
Columns[1].Footers[0].Font.Color:=clred;
Columns[1].Footers[0].ValueType:=fvtSum;//fvtStaticText; FvtCount; fvtFieldValue
Columns[2].Footers.Add;
Columns[2].Footers[0].Font.Color:=clred;
Columns[2].Footers[0].ValueType:=fvtSum;
Columns[3].Footers.Add;
Columns[3].Footers[0].Font.Color:=clred;
Columns[3].Footers[0].ValueType:=fvtSum;
Columns[5].Footers.Add;
Columns[5].Footers[0].Color:=clTeal;
Columns[5].Footers[0].ValueType:=fvtStaticText;//fvtSum; FvtCount; fvtFieldValue
Columns[5].Footers[0].Value:='汇总';
SumList.Active:=True; //激活列求和
Columns[4].Footers.Add; //合计百分比
Columns[4].Footers[0].Font.Color:=clred;
Columns[4].Footers[0].ValueType:=fvtStaticText;
Columns[4].Footers[0].Value:=Format('%.2f',[100*(StrToFloat(Columns[0].Footers[0].SumValue)/StrToFloat(Columns[3].Footers[0].SumValue))])+'%';
Columns[0].Width:=80;
Columns[1].Width:=80;
Columns[2].Width:=80;
Columns[3].Width:=80;
Columns[4].Width:=80;
Columns[5].Width:=120;
for i :=0 to 5 do
Begin
Columns[i].Alignment:=taCenter;
Columns[i].Title.Alignment:=taCenter;
End;
end;