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

經典案例 財務管理系統(12)[1]

2013-11-23 17:45:07  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>

  //修改記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  SetToolBar(true);

  datasourceDataSetEdit;

  //設置操作類型

  op:=edit;

  end;

  //刪除記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  if applicationMessageBox(刪除該條記錄?財務管理系統MB_OKCANCEL)=IDOK then

  begin

  //先刪除分錄表記錄再刪除憑證記錄

  adocommandCommandText:=delete from 分錄表 where 憑證編號=+dbeditText+;

  adocommandExecute;

  datasourceDataSetDelete;

  end;

  end;

  //首記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetFirst;

  end;

  //上記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetPrior;

  end;

  //下記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetNext;

  end;

  //尾記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetLast;

  end;

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  close;

  end;

  //保存記錄

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  if dbeditText<>dbeditText then

  showmessage(借貸雙方不平衡請檢查)

  else

  begin

  if op=insert then

  begin

  datasourceDataSetPost;

  opType(op);

  end;

  if op=edit then

  begin

  opType(op);

  datasourceDataSetPost;

  end;

  SetToolBar(false);

  //清除操作標識符

  op:=;

  end;

  end;

  //取消操作

  procedure TDocuInputToolButtonClick(Sender: TObject);

  begin

  datasourceDataSetCancel;

  SetToolBar(false);

  //清除操作標識符

  op:=;

  end;

[]  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/25020.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.