//设置工具栏按钮 procedure TDocuInputSetToolBar(isEnable: bool); begin if isEnable=true then begin //将首记录等记录移动按钮设置为不可用 toolbuttonEnabled:=false; toolbuttonEnabled:=false; toolbuttonEnabled:=false; toolbuttonEnabled:=false; //将新增修改等按钮设置为不可用 toolbuttonEnabled:=false; toolbuttonEnabled:=false; toolbuttonEnabled:=false; //将保存和取消按钮设置为可用 toolbuttonEnabled:=true; toolbuttonEnabled:=true; //将窗体内的数据显示控件设为可修改 dbeditEnabled:=true; dbeditEnabled:=true; dbcomboboxEnabled:=true; stringgridEnabled:=true; dbgridEnabled:=false; end; if isEnable=false then begin //将首记录等记录移动按钮设置为可用 toolbuttonEnabled:=true; toolbuttonEnabled:=true; toolbuttonEnabled:=true; toolbuttonEnabled:=true; //将新增修改等按钮设置为可用 toolbuttonEnabled:=true; toolbuttonEnabled:=true; toolbuttonEnabled:=true; //将保存和取消按钮设置为不可用 toolbuttonEnabled:=false; toolbuttonEnabled:=false; //将窗体内的数据显示控件设为不可修改 dbeditEnabled:=false; dbeditEnabled:=false; dbcomboboxEnabled:=false; dbgridEnabled:=true; stringgridEnabled:=false; end; end; //新增记录 procedure TDocuInputToolButtonClick(Sender: TObject); var totalnum:string; begin //刷新数据得到凭证数据中最大编码并加一防止编码重复 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select max(凭证编号) 最大编号 from 凭证表); adoqueryOpen; totalnum:=adoqueryFieldByName(最大编号)Asstring; totalnum:=copy(totalnum); if totalnum= then totalnum:=; totalnum:=inttostr(strtoint(totalnum)+); //开始新增 SetToolBar(true); datasourceDataSetInsert; //组成六位的凭证编码 if length(totalnum)= then dbeditText:=+totalnum; if length(totalnum)= then dbeditText:=+totalnum; if length(totalnum)= then dbeditText:=+totalnum; //默认凭证字号 dbcomboboxSelText:=收; //加入当前日期 dbeditText:=datetostr(date); //默认会计期间 mainsetpara; dbeditText:=mainpara[]; //默认过帐状态 dbeditText:=未过; //设置操作类型 op:=insert; end; [] [] |