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

Posted 2022-07-14 知

篇首语：缺乏知识就无法思考，缺乏思考也就得不到知识。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（14）[3]相关的知识，希望对你有一定的参考价值。

　　// 设置工具栏按钮

　　procedure TDocuInput SetToolBar(isEnable: bool);

　　begin

　　if isEnable=true then

　　begin

　　//将首记录等记录移动按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将新增修改等按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将保存和取消按钮设置为可用

　　toolbutton Enabled:=true;

　　//将窗体内的数据显示控件设为可修改

　　dbedit Enabled:=true;

　　dbbobox Enabled:=true;

　　stringgrid Enabled:=true;

　　dbgrid Enabled:=false;

　　end;

　　if isEnable=false then

　　begin

　　//将首记录等记录移动按钮设置为可用

　　toolbutton Enabled:=true;

　　//将新增修改等按钮设置为可用

　　toolbutton Enabled:=true;

　　//将保存和取消按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将窗体内的数据显示控件设为不可修改

　　dbedit Enabled:=false;

　　dbbobox Enabled:=false;

　　dbgrid Enabled:=true;

　　stringgrid Enabled:=false;

　　end;

　　// 新增记录

　　procedure TDocuInput ToolButton Click(Sender: TObject);

　　var

　　totalnum:string;

　　begin

　　//刷新数据得到凭证数据中最大编码并加一防止编码重复

　　adoquery Close;

　　adoquery SQL Clear;

　　adoquery SQL Add( select max(凭证编号) 最大编号 from 凭证表 );

　　adoquery Open;

　　totalnum:=adoquery FieldByName( 最大编号 ) Asstring;

　　totalnum:=copy(totalnum );

　　if totalnum= then totalnum:= ;

　　totalnum:=inttostr(strtoint(totalnum)+ );

　　//开始新增

　　SetToolBar(true);

　　datasource DataSet Insert;

　　//组成六位的凭证编码

　　if length(totalnum)= then

　　dbedit Text:= +totalnum;

　　if length(totalnum)= then

　　dbedit Text:= +totalnum;

　　if length(totalnum)= then

　　dbedit Text:= +totalnum;

　　//默认凭证字号

　　dbbobox SelText:= 收 ;

　　//加入当前日期

　　dbedit Text:=datetostr(date);

　　//默认会计期间

　　main setpara;

　　dbedit Text:=main para[ ];

　　//默认过帐状态

　　dbedit Text:= 未过 ;

　　//设置操作类型

　　op:= insert ;

　　end;

[ ] [ ] [ ]

cha138/Article/program/Delphi/201311/24866

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

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