經典案例 財務管理系統（15）[1]

    ——此文章摘自《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