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

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

2013-11-23 17:39:26  來源: 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;

  //查詢數據並顯示

  procedure TDocuInputBitBtnClick(Sender: TObject);

  begin

  adoqueryClose;

  adoquerySQLClear;

  adoquerySQLAdd(select * from 憑證表 where (憑證編號 like %+editText+%)and);

  adoquerySQLAdd((會計期間 like %+editText+%)and(日期 like %+editText+%));

  adoqueryOpen;

  end;

[]  []  []  


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