?? ufooters.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -