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

　　//啟用新帳戶

　　procedure TAccountSettingBitBtnClick(Sender: TObject);

　　begin

　　//判斷是否試算平衡

　　adoqueryClose;

　　adoquerySQLClear;

　　adoquerySQLAdd(select sum(累計借方) 借方sum(累計貸方) 貸方 from 帳簿初始化表);

　　adoqueryOpen;

　　if adoqueryFieldByName(借方)AsString<>adoqueryFieldByName(貸方)AsString then

　　begin

　　showmessage(新帳簿初始化不平衡請檢查試算平衡表後重新輸入);

　　exit;

　　end;

　　//如果試算平衡則可以新建帳簿

　　if applicationMessageBox(試算結果平衡啟用新帳簿將刪除所有歷史記錄+#+是否繼續?

　　確認MB_OKCANCEL)=IDOK then

　　begin

　　//執行儲存過程啟用帳戶

　　adocommandCommandText:=EXEC sf_啟用帳戶;

　　adocommandExecute;

　　//刷新數據表

　　adotableActive:=false;

　　adotableActive:=true;

　　adotableActive:=false;

　　adotableActive:=true;

　　//顯示帳戶啟用成功消息

　　showmessage(新帳戶啟用成功);

　　end;

　　end;

　　//顯示初始化時的試算平衡表

　　procedure TAccountSettingBitBtnClick(Sender: TObject);

　　var

　　newform:Tsumaccount;

　　begin

　　//創建試算平衡窗體

　　newform:=TsumaccountCreate(application);

　　newformCaption:=試算平衡表(初始化);

　　//在初始化時使用

　　newformforinitial;

　　end;

[]  []  []  []  

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