ufooters.pas

Korea, a data table control 韩国控件的DEMO 值得学习

unit UFooters;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, URGrids, ExtCtrls, StdCtrls;

type
  TfrmFooters = class(TForm)
    memoMain: TMemo;
    Splitter1: TSplitter;
    grdMain: TRealGrid;
    tblMain: TTable;
    tblMainACCT_NBR: TFloatField;
    tblMainSYMBOL: TStringField;
    tblMainSHARES: TFloatField;
    tblMainPUR_PRICE: TFloatField;
    tblMainPUR_DATE: TDateField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    procedure SelectData;

  public
  end;

implementation

{$R *.DFM}

const
  GD_ACCT_NBR  = 0;
  GD_SYMBOL    = 1;
  GD_SHARES    = 2;
  GD_PUR_PRICE = 3;
  GD_PUR_DATE  = 4;

  Description = 'TRealGrid狼 Footers绰 阿 拿烦狼 钦拌殿阑 钎矫窍绰单 荤侩且 荐 乐嚼聪促.' + #13#10 +
                '拱肺 Footers甫 窜瘤 漂喊茄 狼固狼 郴侩阑 钎矫窍扁 困秦 荤侩且 荐 乐嚼聪促.' + #13#10 +
                '窍瘤父 措俺狼 版快 拿烦伎甸狼 钦阑 备茄促电瘤 窍绰单 荤侩瞪 巴涝聪促.' + #13#10 +
                '捞甫 困秦 TRealGrid狼 阿 拿烦篮 Footer加己阑 爱绊 阿 Footer甫 绢恫 侥栏肺 ' +
                '荤侩且 巴牢 瘤甫 加己阑 烹秦 汲沥且 荐 乐嚼聪促.' + #13#10 +
                '抗牧措, 酒贰 弊府靛狼 Footers绰 滴俺狼 Footer肺 备己登绊, ' +
                'Shares 拿烦, Pur_Price 拿烦狼 霉锅掳 Footer绰 Pur_Date啊 1990斥 捞傈狼 单捞磐甫 钦魂窍绊, ' +
                '滴锅掳 拿烦篮 傈眉 伎狼 单捞磐甫 钦茄 搬苞甫 钎矫钦聪促.' + #13#10 +
                'Symbol 拿烦狼 霉锅掳 Footer绰 Symbol拿烦狼 弥措蔼, 滴锅掳 拿烦篮 ' +
                '弥家蔼阑 钎矫钦聪促.' + #13#10 +
                'TRealGrid狼 AutoCalcFooter阑 True肺 汲沥窍搁 角青矫 荤侩磊涝仿捞 Post等 饶, ' +
                '拿烦狼 Footer加己俊 汲沥等 措肺 拌魂捞 促矫 老绢唱霸 邓聪促.' + #13#10 +
                'TRealGrid啊 扁夯栏肺 力傍窍绰 拌魂 规侥苞 促福霸 Footer甫 汲沥窍绊磊 且 锭绰 ' +
                'OnCalcFooters 捞亥飘俊辑 贸府窍搁 邓聪促.';

(*** Private Methods ***)
procedure TfrmFooters.SelectData;
begin
  with tblMain, grdMain do
  begin
    Open;

    while not EOF do
    begin
      AddRow;

      Cells[GD_ACCT_NBR , RowCount - 1].AsFloat  := FieldByName('Acct_Nbr' ).AsFloat;
      Cells[GD_SYMBOL   , RowCount - 1].AsString := FieldByName('Symbol'   ).AsString;
      Cells[GD_SHARES   , RowCount - 1].AsFloat  := FieldByName('Shares'   ).AsFloat;
      Cells[GD_PUR_PRICE, RowCount - 1].AsFloat  := FieldByName('Pur_Price').AsFloat;
      Cells[GD_PUR_DATE , RowCount - 1].AsDate   := FieldByName('Pur_Date' ).AsDateTime;

      Next;
    end;

    CalcFooters;
    Close;
  end;
end;

(*** Event Handlers ***)
procedure TfrmFooters.FormCreate(Sender: TObject);
begin
  SelectData;
  memoMain.Lines.Text := Description;
end;

procedure TfrmFooters.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.