📄 gzgl_print_nbb.pas

📁 制造业工装信息管理系统制造业工装信息管理系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
        11:s:=' and DHRQ like "'+bbrq+'-11-%"';
        12:s:=' and DHRQ like "'+bbrq+'-12-%"';

        13:s:=' and WGRQ like "'+bbrq+'-01-%"';
        14:s:=' and WGRQ like "'+bbrq+'-02-%"';
        15:s:=' and WGRQ like "'+bbrq+'-03-%"';
        16:s:=' and WGRQ like "'+bbrq+'-04-%"';
        17:s:=' and WGRQ like "'+bbrq+'-05-%"';
        18:s:=' and WGRQ like "'+bbrq+'-06-%"';
        19:s:=' and WGRQ like "'+bbrq+'-07-%"';
        20:s:=' and WGRQ like "'+bbrq+'-08-%"';
        21:s:=' and WGRQ like "'+bbrq+'-09-%"';
        22:s:=' and WGRQ like "'+bbrq+'-10-%"';
        23:s:=' and WGRQ like "'+bbrq+'-11-%"';
        24:s:=' and WGRQ like "'+bbrq+'-12-%"';

        25:s:=' and YZRQ like "'+bbrq+'-01-%"';
        26:s:=' and YZRQ like "'+bbrq+'-02-%"';
        27:s:=' and YZRQ like "'+bbrq+'-03-%"';
        28:s:=' and YZRQ like "'+bbrq+'-04-%"';
        29:s:=' and YZRQ like "'+bbrq+'-05-%"';
        30:s:=' and YZRQ like "'+bbrq+'-06-%"';
        31:s:=' and YZRQ like "'+bbrq+'-07-%"';
        32:s:=' and YZRQ like "'+bbrq+'-08-%"';
        33:s:=' and YZRQ like "'+bbrq+'-09-%"';
        34:s:=' and YZRQ like "'+bbrq+'-10-%"';
        35:s:=' and YZRQ like "'+bbrq+'-11-%"';
        36:s:=' and YZRQ like "'+bbrq+'-12-%"';
      end;
      s:=s1+s; //合成SQL语句
      with dmd.Qry_temp do begin
        close;
        sql.Clear;
        sql.Add(s);
        try
          open;
        except
          execsql;
        end;
        ok[i]:=recordcount; //一切只为这一句....
      end;
    end;{for i}
    //工时合计,产值合计
    with dmd.qry_temp do begin
      close;
      sql.clear;
      s1:='select sum(gs) as 工时合计,sum(cz) as 产值合计 from 工装 where lb="'+lbdh+'" ';
      s:=' and WGRQ like "'+bbrq+'%"';
      sql.Add(s1+s);
      try
        open;
      except
        execsql;
      end;
      gshj:=FieldByName('工时合计').asinteger;
      czhj:=fieldbyname('产值合计').asinteger;
    end;
    with dmd.Tbl_NBB do begin
      Append;
      FieldByName('车型').Asstring:=lbmc;
      FieldByName('一月订货').Asinteger:=ok[1];
      FieldByName('二月订货').Asinteger:=ok[2];
      FieldByName('三月订货').Asinteger:=ok[3];
      FieldByName('四月订货').Asinteger:=ok[4];
      FieldByName('五月订货').Asinteger:=ok[5];
      FieldByName('六月订货').Asinteger:=ok[6];
      FieldByName('七月订货').Asinteger:=ok[7];
      FieldByName('八月订货').Asinteger:=ok[8];
      FieldByName('九月订货').Asinteger:=ok[9];
      FieldByName('十月订货').Asinteger:=ok[10];
      FieldByName('十一月订货').Asinteger:=ok[11];
      FieldByName('十二月订货').Asinteger:=ok[12];

      FieldByName('一月完工').Asinteger:=ok[13];
      FieldByName('二月完工').Asinteger:=ok[14];
      FieldByName('三月完工').Asinteger:=ok[15];
      FieldByName('四月完工').Asinteger:=ok[16];
      FieldByName('五月完工').Asinteger:=ok[17];
      FieldByName('六月完工').Asinteger:=ok[18];
      FieldByName('七月完工').Asinteger:=ok[19];
      FieldByName('八月完工').Asinteger:=ok[20];
      FieldByName('九月完工').Asinteger:=ok[21];
      FieldByName('十月完工').Asinteger:=ok[22];
      FieldByName('十一月完工').Asinteger:=ok[23];
      FieldByName('十二月完工').Asinteger:=ok[24];

      FieldByName('一月验证').Asinteger:=ok[25];
      FieldByName('二月验证').Asinteger:=ok[26];
      FieldByName('三月验证').Asinteger:=ok[27];
      FieldByName('四月验证').Asinteger:=ok[28];
      FieldByName('五月验证').Asinteger:=ok[29];
      FieldByName('六月验证').Asinteger:=ok[30];
      FieldByName('七月验证').Asinteger:=ok[31];
      FieldByName('八月验证').Asinteger:=ok[32];
      FieldByName('九月验证').Asinteger:=ok[33];
      FieldByName('十月验证').Asinteger:=ok[34];
      FieldByName('十一月验证').Asinteger:=ok[35];
      FieldByName('十二月验证').Asinteger:=ok[36];

      xj:=0;
      for i:=1 to 12 do
        xj:=xj+ok[i];
      FieldByName('订货小计').Asinteger:=xj;

      xj:=0;
      for i:=13 to 24 do
        xj:=xj+ok[i];
      FieldByName('完工小计').Asinteger:=xj;

      xj:=0;
      for i:=25 to 36 do
        xj:=xj+ok[i];
      FieldByName('验证小计').Asinteger:=xj;

      FieldByName('工时小计').Asinteger:=gshj;
      FieldByName('产值小计').Asinteger:=czhj;
      post;
    end;
  end;{for n}
end;

procedure TFrmGZGL_Print_NBB.FixGetedData;
var
  s:string;
begin
  with dmd.qry_temp do begin
    s:='delete from 年终报表 where 车型<>"合计" and ';
    s:=s+'订货小计+完工小计+验证小计=0';
    if active then close;
    sql.Clear;
    sql.Add(s);
    execsql;
    dmd.Tbl_NBB.close;
    dmd.Tbl_NBB.open;
  end;
end;

procedure TFrmGZGL_Print_NBB.CountGetedData;
var
  s:string;
begin
  //计算、添加合计
  with dmd.qry_temp do begin
    close;
    sql.clear;
    s:='select ';
    s:=s+' sum(一月订货)  as dh1, sum(一月完工)  as wg1, sum(一月验证)  as yz1,';
    s:=s+' sum(二月订货)  as dh2, sum(二月完工)  as wg2, sum(二月验证)  as yz2,';
    s:=s+' sum(三月订货)  as dh3, sum(三月完工)  as wg3, sum(三月验证)  as yz3,';
    s:=s+' sum(四月订货)  as dh4, sum(四月完工)  as wg4, sum(四月验证)  as yz4,';
    s:=s+' sum(五月订货)  as dh5, sum(五月完工)  as wg5, sum(五月验证)  as yz5,';
    s:=s+' sum(六月订货)  as dh6, sum(六月完工)  as wg6, sum(六月验证)  as yz6,';
    s:=s+' sum(七月订货)  as dh7, sum(七月完工)  as wg7, sum(七月验证)  as yz7,';
    s:=s+' sum(八月订货)  as dh8, sum(八月完工)  as wg8, sum(八月验证)  as yz8,';
    s:=s+' sum(九月订货)  as dh9, sum(九月完工)  as wg9, sum(九月验证)  as yz9,';
    s:=s+' sum(十月订货)  as dh10,sum(十月完工)  as wg10,sum(十月验证)  as yz10,';
    s:=s+' sum(十一月订货)as dh11,sum(十一月完工)as wg11,sum(十一月验证)as yz11,';
    s:=s+' sum(十二月订货)as dh12,sum(十二月完工)as wg12,sum(十二月验证)as yz12,';
    s:=s+' sum(订货小计)  as dh13,sum(完工小计)  as wg13,sum(验证小计)  as yz13,';
    s:=s+' sum(工时小计)  as gsxj,sum(产值小计)as czxj from 年终报表';
   sql.Add(s);
    try
      open;
    except
      execsql;
    end;
  end;
  with dmd.Tbl_NBB do begin
    Append;
    FieldByName('车型').Asstring:='合计';
    FieldByName('一月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh1').AsInteger;
    FieldByName('二月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh2').AsInteger;
    FieldByName('三月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh3').AsInteger;
    FieldByName('四月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh4').AsInteger;
    FieldByName('五月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh5').AsInteger;
    FieldByName('六月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh6').AsInteger;
    FieldByName('七月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh7').AsInteger;
    FieldByName('八月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh8').AsInteger;
    FieldByName('九月订货').Asinteger:= dmd.Qry_temp.fieldbyname('dh9').AsInteger;
    FieldByName('十月订货').Asinteger:=dmd.Qry_temp.fieldbyname('dh10').AsInteger;
    FieldByName('十一月订货').Asinteger:=dmd.Qry_temp.fieldbyname('dh11').AsInteger;
    FieldByName('十二月订货').Asinteger:=dmd.Qry_temp.fieldbyname('dh12').AsInteger;
    FieldByName('订货小计').Asinteger:=dmd.Qry_temp.fieldbyname('dh13').AsInteger;

    FieldByName('一月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg1').AsInteger;
    FieldByName('二月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg2').AsInteger;
    FieldByName('三月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg3').AsInteger;
    FieldByName('四月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg4').AsInteger;
    FieldByName('五月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg5').AsInteger;
    FieldByName('六月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg6').AsInteger;
    FieldByName('七月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg7').AsInteger;
    FieldByName('八月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg8').AsInteger;
    FieldByName('九月完工').Asinteger:= dmd.Qry_temp.fieldbyname('wg9').AsInteger;
    FieldByName('十月完工').Asinteger:=dmd.Qry_temp.fieldbyname('wg10').AsInteger;
    FieldByName('十一月完工').Asinteger:=dmd.Qry_temp.fieldbyname('wg11').AsInteger;
    FieldByName('十二月完工').Asinteger:=dmd.Qry_temp.fieldbyname('wg12').AsInteger;
    FieldByName('完工小计').Asinteger:=dmd.Qry_temp.fieldbyname('wg13').AsInteger;

    FieldByName('一月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz1').AsInteger;
    FieldByName('二月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz2').AsInteger;
    FieldByName('三月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz3').AsInteger;
    FieldByName('四月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz4').AsInteger;
    FieldByName('五月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz5').AsInteger;
    FieldByName('六月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz6').AsInteger;
    FieldByName('七月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz7').AsInteger;
    FieldByName('八月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz8').AsInteger;
    FieldByName('九月验证').Asinteger:= dmd.Qry_temp.fieldbyname('yz9').AsInteger;
    FieldByName('十月验证').Asinteger:=dmd.Qry_temp.fieldbyname('yz10').AsInteger;
    FieldByName('十一月验证').Asinteger:=dmd.Qry_temp.fieldbyname('yz11').AsInteger;
    FieldByName('十二月验证').Asinteger:=dmd.Qry_temp.fieldbyname('yz12').AsInteger;
    FieldByName('验证小计').Asinteger:=dmd.Qry_temp.fieldbyname('yz13').AsInteger;

    FieldByName('工时小计').Asinteger:=dmd.Qry_temp.fieldbyname('gsxj').AsInteger;
    FieldByName('产值小计').Asinteger:=dmd.Qry_temp.fieldbyname('czxj').AsInteger;
    post;
  end;
end;

procedure TFrmGZGL_Print_NBB.btn_next2Click(Sender: TObject);
begin
  pag1.ActivePageIndex:=2;
end;

procedure TFrmGZGL_Print_NBB.Tab1Show(Sender: TObject);
begin
  edt_y.SetFocus;
  edt_y.SelectAll;
end;

procedure TFrmGZGL_Print_NBB.EDT_YKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //if strlen(pchar(edt_y.Text))=4 then begin
  //  edt_m.SetFocus;
  //  edt_m.SelectAll;
  //end;

end;

procedure TFrmGZGL_Print_NBB.pag1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  if (pag1.ActivePageIndex=0)and((lst2.Count<1)or(strlen(pchar(edt_y.Text))<>4)) then
    AllowChange:=false;
end;

procedure TFrmGZGL_Print_NBB.btn_back2Click(Sender: TObject);
begin
  pag1.ActivePageIndex:=0;
end;

procedure TFrmGZGL_Print_NBB.btn_back3Click(Sender: TObject);
begin
  pag1.ActivePageIndex:=1;
end;


procedure TFrmGZGL_Print_NBB.btn_next1Click(Sender: TObject);
begin
  if (pag1.ActivePageIndex=0)and((lst2.Count<1)or(strlen(pchar(edt_y.Text))<>4)) then
  else begin
    pag1.ActivePageIndex:=1;
    btn_getdataClick(Sender)
  end;  
end;


procedure TFrmGZGL_Print_NBB.Btn_exitClick(Sender: TObject);
begin
  close;
end;

procedure TFrmGZGL_Print_NBB.EDT_YKeyPress(Sender: TObject; var Key: Char);
begin
  if strlen(pchar(EDT_Y.Text))<>4 then EDT_Y.SetFocus;
end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -