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

經典案例 財務管理系統(7)[3]

2013-11-23 17:45:50  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.