AdvStringGrid之表脚统计实现

最新推荐文章于 2016-12-21 15:41:53 发布

shuiying

最新推荐文章于 2016-12-21 15:41:53 发布

阅读量3.8k

点赞数

分类专栏： Delphi 文章标签： integer forms email class web

本文链接：https://blog.csdn.net/shuiying/article/details/3723467

版权

Delphi 专栏收录该内容

31 篇文章 0 订阅

订阅专栏

AdvString可以在表格尾部显示一个表尾行，设置代码如下：

 
 {***************************************************************************}
{ TAdvStringGrid demo application                                           }
{ for Delphi & C++Builder                                                   }
{                                                                           }
{ written by TMS Software                                                   }
{            copyright ?1996-2002                                          }
{            Email : info@tmssoftware.com                                   }
{            Web : http://www.tmssoftware.com                               }
{                                                                           }
{***************************************************************************}
unit Uasg49;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, BaseGrid, AdvGrid, StdCtrls;
type
  TForm1 = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AdvStringGrid1AutoInsertRow(Sender: TObject; ARow: Integer);
    procedure AdvStringGrid1AutoDeleteRow(Sender: TObject; ARow: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvStringGrid1.FloatingFooter.Visible := True;//设置表脚行可视为真 
  AdvStringGrid1.FloatingFooter.ColumnCalc[0] := acCount;//第一列统计为计数 
  AdvStringGrid1.FloatingFooter.ColumnCalc[1] := acSum; //第二列统计为求和 
  AdvStringGrid1.FloatingFooter.ColumnCalc[2] := acAvg; //第三列统计为平均 
  AdvStringGrid1.FloatingFooter.ColumnCalc[3] := acMin; //第四列统计为取最小值 
  AdvStringGrid1.FloatingFooter.ColumnCalc[4] := acMax; //第五列统计为取最大值 
  AdvStringGrid1.RandomFill(False,100);//添加表格随机数 
  AdvstringGrid1.AutoNumberCol(1); //在第1列设置为序号列 
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  AdvStringGrid1.RandomFill(false,100)
end;
procedure TForm1.AdvStringGrid1AutoInsertRow(Sender: TObject;
  ARow: Integer);
begin
  AdvstringGrid1.AutoNumberCol(0);//第0列设置为序号列 
end;
procedure TForm1.AdvStringGrid1AutoDeleteRow(Sender: TObject;
  ARow: Integer);
begin
  AdvstringGrid1.AutoNumberCol(0);
end;
end.
 