經典案例 財務管理系統（13）[1]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

　　 完成帳戶設置功能

　　() 新建一個窗體將窗體的Name屬性設置為AccountSetting選擇Project | Options菜單命令將SecSetting窗體從自動創建的窗體列表中刪除將窗體保存為AccountSettingFormpas該窗體的控件布局和設置如圖所示其中所有ADO控件的ConnectionString在前面幾章中已多次提及因此在此後的內容中將不再一一列出它們的此項屬性

　　圖 帳戶設置窗體

　　() 窗體的控件設置如表所示

　　表 帳戶設置窗體控件屬性

　　() 分別雙擊DBGrid和DBGrid為其指定顯示的字段如圖所示

　　圖 DBGrid和DBGrid的字段

　　() 將科目代碼科目名稱余額方向和編號參數名稱字段的ReadOnly屬性設置為true因為這些字段是不允許用戶修改的;將這些字段的Color屬性設置為clMoneyGreen從而和可編輯的字段區分開來

　　單擊【試算平衡】按鈕將創建一個新的窗體來顯示初始化帳本後試算平衡的結果這個新窗體還同時擔負顯示過帳後試算平衡的結果因此需要專門設計

　　() 新建一個窗體名為SumAccount將它從自動創建的窗體列表中刪除並為其添加如圖所示的控件控件屬性如表所示

　　圖 試算平衡窗體

　　表 試算平衡窗體控件屬性設置

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

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

　　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;

[]  []  []  []  

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