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

經典案例 財務管理系統(10)[5]

2013-11-23 17:46:18  來源: Delphi編程 

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

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