經典案例財務管理系統（10）[2]

　　() 試算平衡表和帳戶設置窗體的的事件處理代碼如下

　　//以下為試算平衡表的事件處理代碼

　　private

　　{ Private declarations }

　　//統計計算是否平衡

　　procedure sumtable();

　　public

　　{ Public declarations }

　　//當使用後結帳時所調用的函數

　　procedure foruse();

　　//初始化帳本時使用

　　procedure forinitial();

　　end;

　　var

　　SumAccount: TSumAccount;

　　implementation

　　uses MainForm;

　　{$R *dfm}

　　procedure TSumAccountFormClose(Sender: TObject; var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　//設置窗體寬度和過濾條件

　　procedure TSumAccountDataSourceDataChange(Sender: TObject;

　　Field: TField);

　　begin

　　//設置過濾條件

　　datasourceDataSetFilter:=本期發生借方<> OR 本期發生貸方<> OR 期初借方<>

　　OR 期初貸方<> OR 期末借方<> OR 期末貸方<>;

　　datasourceDataSetFiltered:=true;

　　//設置表的列寬

　　dbgridColumns[]Width:=;

　　end;

　　//初始化表的設置

　　procedure TSumAccountFormShow(Sender: TObject);

　　begin

　　//設置表格表頭顯示與寬度

　　stringgridCells[]:=是否平衡;

　　stringgridCells[]:=期初借方;

　　stringgridCells[]:=期初貸方;

　　stringgridCells[]:=本期發生借方;

　　stringgridCells[]:=本期發生貸方;

　　stringgridCells[]:=期末借方;

　　stringgridCells[]:=期末貸方;

　　stringgridCells[]:=合計;

　　stringgridColWidths[]:=;

　　stringgridRowHeights[]:=;

　　end;

[] [] [] [] []

From:http://tw.wingwit.com/Article/program/Delphi/201311/25049.html

經典案例 財務管理系統（10）[2]

經典案例財務管理系統（10）[2]