熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

經典案例 財務管理系統(10)[2]

2013-11-23 17:46:16  來源: Delphi編程 

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

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

  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:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  dbgridColumns[]Width:=;

  end;

  //初始化表的設置

  procedure TSumAccountFormShow(Sender: TObject);

  begin

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

  stringgridCells[]:=是否平衡;

  stringgridCells[]:=期初借方;

  stringgridCells[]:=期初貸方;

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

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

  stringgridCells[]:=期末借方;

  stringgridCells[]:=期末貸方;

  stringgridCells[]:=合計;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridColWidths[]:=;

  stringgridRowHeights[]:=;

  stringgridRowHeights[]:=;

  end;

[]  []  []  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/25049.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.