經典案例 財務管理系統（7）[3]

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

　　//顯示試算平衡表窗體

　　procedure TmainNClick(Sender: TObject);

　　var

　　newform:Tsumaccount;

　　begin

　　if findForm(試算平衡表(正式使用))=false then

　　begin

　　//若窗體不存在則創建窗體

　　newform:=TsumaccountCreate(application);

　　newformCaption:=試算平衡表(正式使用);

　　//在正式平衡表中使用

　　newformforuse;

　　end;

　　end;

　　//執行憑證過帳儲存過程

　　procedure TmainNClick(Sender: TObject);

　　var

　　pnuminputsumoutputsum:string;

　　begin

　　if applicationMessageBox(憑證過帳後即不可修改是否確認過帳?確認MB_OKCANCEL)=IDOK then

　　begin

　　//獲得分錄表中的統計數據

　　adoqueryActive:=false;

　　adoqueryActive:=true;

　　pnum:=adoqueryFieldByName(憑證數)AsString;

　　inputsum:=adoqueryFieldByName(借方金額)AsString;

　　outputsum:=adoqueryFieldByName(貸方金額)AsString;

　　//執行儲存過程實現憑證過帳

　　try

　　adocommandCommandText:=exec sf_憑證過帳;

　　adocommandExecute;

　　except

　　showmessage(過帳失敗);

　　exit;

　　end;

　　//顯示成功信息並顯示統計數據

　　showmessage(過帳成功+#+#+過帳憑證數目為:+pnum+#+借方金額合計:

　　+inputsum+#+貸方金額合計+outputsum);

　　//刪除分錄表和憑證表

　　adocommandCommandText:=delete from 分錄表;

　　adocommandExecute;

　　adocommandCommandText:=delete from 憑證表;

　　adocommandExecute;

　　end;

　　end;

　　//執行期末結帳的儲存過程

　　procedure TmainNClick(Sender: TObject);

　　begin

　　if applicationMessageBox(結帳將進入下一個會計期間是否結帳?確認

　　MB_OKCANCEL)=IDOK then

　　begin

　　try

　　adocommandCommandText:=exec sf_期末結帳;

　　adocommandExecute;

　　except

　　showmessage(結帳失敗);

　　exit;

　　end;

　　showmessage(結帳成功);

　　end;

　　end;

[]  []  []  []  

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