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

經典案例 財務管理系統(13)[4]

2013-11-23 17:44:10  來源: Delphi編程 

  //啟用新帳戶

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.