知识大全经典案例财务管理系统（12）[1]

Posted 2022-07-21 操作

篇首语：笛里谁知壮士心，沙头空照征人骨。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（12）[1]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>

　　// 修改记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　SetToolBar(true);

　　datasource DataSet Edit;

　　//设置操作类型

　　op:= edit ;

　　end;

　　// 删除记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　if application MessageBox( 删除该条记录? 财务管理系统 MB_OKCANCEL)=IDOK then

　　begin

　　//先删除分录表记录再删除凭证记录

　　adomand CommandText:= delete from 分录表 where 凭证编号= +dbedit Text+ ;

　　adomand Execute;

　　datasource DataSet Delete;

　　end;

　　// 首记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　datasource DataSet First;

　　end;

　　// 上记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　datasource DataSet Prior;

　　end;

　　// 下记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　datasource DataSet Next;

　　end;

　　// 尾记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　datasource DataSet Last;

　　end;

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　close;

　　end;

　　// 保存记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　if dbedit Text<>dbedit Text then

　　showmessage( 借贷双方不平衡请检查 )

　　else

　　begin

　　if op= insert then

　　begin

　　datasource DataSet Post;

　　opType(op);

　　end;

　　if op= edit then

　　begin

　　opType(op);

　　datasource DataSet Post;

　　end;

　　SetToolBar(false);

　　//清除操作标识符

　　op:= ;

　　end;

　　// 取消操作

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　begin

　　datasource DataSet Cancel;

　　SetToolBar(false);

　　//清除操作标识符

　　op:= ;

　　end;

[ ] [ ] [ ]

cha138/Article/program/Delphi/201311/25020

知识大全 经典案例 财务管理系统（12）[1]

知识大全经典案例财务管理系统（12）[1]