busicount.~pas

一个电力企业的后台管理程序

begin
 Dt_Curr := EncodeDate(SE_CYear.Value,SE_CMon.Value,01);
 Dt_AddUp := EncodeDate(SE_AYear.Value,SE_AMon.Value,01);
 Temp := TOpAmountRpt.Create(Dt_curr,Dt_AddUp,True,True);
 Try
  Temp.createOpCompareAmountInfo;
  Temp.printOpCompareAmountRpt(1); 
 finally
  Temp.Free;
 end;
end;

procedure TFrm_BusiCount.fcShapeBtn5Click(Sender: TObject);
begin
 Close;
end;

procedure TFrm_BusiCount.FormCreate(Sender: TObject);
var
 CYear,CMonth: String;
begin
 CYear := FormatDateTime('YYYY',Date);
 Se_CurrYear.Value := StrToInt(CYear);
 Se_CYear.Value := StrToInt(CYear);
 Se_AddUpYear.Value := StrToInt(Cyear) - 1;
 Se_AYear.Value := StrToInt(Cyear) - 1;
 CMonth := FormatDateTime('MM',Date);
 Se_CurrMon.Value := StrToInt(CMonth);
 Se_CMon.Value := StrToInt(CMonth);
 Se_AddUpMon.Value := StrToInt(CMonth);
 Se_AMon.Value := StrToInt(CMonth);
end;

procedure TFrm_BusiCount.ALLMONTH_SE;
VAR
  ZXmonth_num, ZXtotal_num, YYmonth_num, YYtotal_num, RGmonth_num, RGtotal_num :integer;

  iSendmonth_Num, iSendtotal_Num, iFinishmonth_Num, iFinishtotal_Num, iNoFinishmonth_Num, iNoFinishtotal_Num,
  iOverTimeFinishmonth_Num, iOverTimeFinishtotal_Num, iSatisfymonth_Num, iSatisfytotal_Num :integer;
  OverTimeRate_month, OverTimeRate_total, SatisfyRate_month, SatisfyRate_total :string;
  iSendmonth_Num_GY, iSendtotal_Num_GY, iFinishmonth_Num_GY, iFinishtotal_Num_GY, iNoFinishmonth_Num_GY, iNoFinishtotal_Num_GY,
  iOverTimeFinishmonth_Num_GY, iOverTimeFinishtotal_Num_GY, iSatisfymonth_Num_GY, iSatisfytotal_Num_GY :integer;
  OverTimeRate_month_GY, OverTimeRate_total_GY, SatisfyRate_month_GY, SatisfyRate_total_GY :string;
  iSendmonth_Num_DY, iSendtotal_Num_DY, iFinishmonth_Num_DY, iFinishtotal_Num_DY, iNoFinishmonth_Num_DY, iNoFinishtotal_Num_DY,
  iOverTimeFinishmonth_Num_DY, iOverTimeFinishtotal_Num_DY, iSatisfymonth_Num_DY, iSatisfytotal_Num_DY :integer;
  OverTimeRate_month_DY, OverTimeRate_total_DY, SatisfyRate_month_DY, SatisfyRate_total_DY :string;
  iSendmonth_Num_NX, iSendtotal_Num_NX, iFinishmonth_Num_NX, iFinishtotal_Num_NX, iNoFinishmonth_Num_NX, iNoFinishtotal_Num_NX,
  iOverTimeFinishmonth_Num_NX, iOverTimeFinishtotal_Num_NX, iSatisfymonth_Num_NX, iSatisfytotal_Num_NX :integer;
  OverTimeRate_month_NX, OverTimeRate_total_NX, SatisfyRate_month_NX, SatisfyRate_total_NX :string;
  iSendmonth_Num_GZBX, iSendtotal_Num_GZBX, iFinishmonth_Num_GZBX, iFinishtotal_Num_GZBX, iNoFinishmonth_Num_GZBX, iNoFinishtotal_Num_GZBX,
  iOverTimeFinishmonth_Num_GZBX, iOverTimeFinishtotal_Num_GZBX, iSatisfymonth_Num_GZBX, iSatisfytotal_Num_GZBX :integer;
  OverTimeRate_month_GZBX, OverTimeRate_total_GZBX, SatisfyRate_month_GZBX, SatisfyRate_total_GZBX :string;
  iSendmonth_Num_TS, iSendtotal_Num_TS, iFinishmonth_Num_TS, iFinishtotal_Num_TS, iNoFinishmonth_Num_TS, iNoFinishtotal_Num_TS,
  iOverTimeFinishmonth_Num_TS, iOverTimeFinishtotal_Num_TS, iSatisfymonth_Num_TS, iSatisfytotal_Num_TS :integer;
  OverTimeRate_month_TS, OverTimeRate_total_TS, SatisfyRate_month_TS, SatisfyRate_total_TS :string;
  iSendmonth_Num_YW, iSendtotal_Num_YW, iFinishmonth_Num_YW, iFinishtotal_Num_YW, iNoFinishmonth_Num_YW, iNoFinishtotal_Num_YW,
  iOverTimeFinishmonth_Num_YW, iOverTimeFinishtotal_Num_YW, iSatisfymonth_Num_YW, iSatisfytotal_Num_YW :integer;
  OverTimeRate_month_YW, OverTimeRate_total_YW, SatisfyRate_month_YW, SatisfyRate_total_YW :string;
  iSendmonth_Num_TD, iSendtotal_Num_TD, iFinishmonth_Num_TD, iFinishtotal_Num_TD, iNoFinishmonth_Num_TD, iNoFinishtotal_Num_TD:integer;
  iSendmonth_Num_CJ, iFinishmonth_Num_CJ, iNoFinishmonth_Num_CJ:integer;
  iSendmonth_Total, iSendtotal_Total, iFinishmonth_Total, iFinishtotal_Total, iNoFinishmonth_Total, iNoFinishtotal_Total,
  iOverTimeFinishmonth_Total, iOverTimeFinishtotal_Total, SatisfyRatemonth_total, SatisfyRatetotal_total:integer;
  OverTimeRate_month_Total, OverTimeRate_total_Total, SatisfyRate_month_total, SatisfyRate_total_total:string;

  RGstatnum_month, RGstatnum_total, TDstatnum_month, TDstatnum_total, DLstatnum_month, DLstatnum_total, BDstatnum_month, BDstatnum_total,
  DJstatnum_month, DJstatnum_total, QYstatnum_month, QYstatnum_total, YDstatnum_month, YDstatnum_total :integer;
begin
  Dt_Curr := EncodeDate(SE_CurrYear.Value,SE_CurrMon.Value,01);
  Replacetime(Dt_Curr,DateTimePicker2.time);
  Dt_End:= EncodeDate(SE_CurrYear.Value,SE_CurrMon.Value,Embo(SE_CurrMon.Value));
  Replacetime(Dt_End,DateTimePicker1.time);
  Dt_AddUp := EncodeDate(SE_AddUpYear.Value,SE_AddUpMon.Value,01);
  //PrepareData(FormatDateTime('YYYYMM',Dt_Curr));
  //PrepareData(FormatDateTime('YYYYMM',Dt_Addup));

  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'0','A',RGstatnum_month,RGstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'1','A',TDstatnum_month,TDstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'2','A',DLstatnum_month,DLstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'3','A',BDstatnum_month,BDstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'6','A',DJstatnum_month,DJstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'7','A',QYstatnum_month,QYstatnum_total);
  GetStatNum(Dt_AddUp,Dt_Curr,Dt_End,'8','A',YDstatnum_month,YDstatnum_total);
  YYmonth_num:=RGstatnum_month+TDstatnum_month+DLstatnum_month+BDstatnum_month+DJstatnum_month+QYstatnum_month+YDstatnum_month;
  YYtotal_num:=RGstatnum_total+TDstatnum_total+DLstatnum_total+BDstatnum_total+DJstatnum_total+QYstatnum_total+YDstatnum_total;
  ServeType(Dt_AddUp, Dt_Curr, Dt_End, RGmonth_num, RGtotal_num);
  ZXmonth_num:=YYmonth_num+RGmonth_num;
  ZXtotal_num:=YYtotal_num+RGtotal_num;

  CalWXGZ(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num, iSendtotal_Num, iFinishmonth_Num, iFinishtotal_Num, iNoFinishmonth_Num, iNoFinishtotal_Num,
        iOverTimeFinishmonth_Num, iOverTimeFinishtotal_Num, iSatisfymonth_Num, iSatisfytotal_Num, OverTimeRate_month, OverTimeRate_total,
        SatisfyRate_month, SatisfyRate_total);
  CalGYJL(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_GY, iSendtotal_Num_GY, iFinishmonth_Num_GY, iFinishtotal_Num_Gy, iNoFinishmonth_Num_GY, iNoFinishtotal_Num_GY,
        iOverTimeFinishmonth_Num_GY, iOverTimeFinishtotal_Num_GY, iSatisfymonth_Num_GY, iSatisfytotal_Num_GY, OverTimeRate_month_GY, OverTimeRate_total_GY,
        SatisfyRate_month_GY, SatisfyRate_total_GY);
  CalDYJL(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_DY, iSendtotal_Num_DY, iFinishmonth_Num_DY, iFinishtotal_Num_DY, iNoFinishmonth_Num_DY, iNoFinishtotal_Num_DY,
        iOverTimeFinishmonth_Num_DY, iOverTimeFinishtotal_Num_DY, iSatisfymonth_Num_DY, iSatisfytotal_Num_DY, OverTimeRate_month_DY, OverTimeRate_total_DY,
        SatisfyRate_month_DY, SatisfyRate_total_DY);
  CalNXGZ(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_NX, iSendtotal_Num_NX, iFinishmonth_Num_NX, iFinishtotal_Num_NX, iNoFinishmonth_Num_NX, iNoFinishtotal_Num_NX,
        iOverTimeFinishmonth_Num_NX, iOverTimeFinishtotal_Num_NX, iSatisfymonth_Num_NX, iSatisfytotal_Num_NX, OverTimeRate_month_NX, OverTimeRate_total_NX,
        SatisfyRate_month_NX, SatisfyRate_total_NX);
  iSendmonth_Num_GZBX:=iSendmonth_Num+iSendmonth_Num_GY+iSendmonth_Num_DY+iSendmonth_Num_NX;
  iSendtotal_Num_GZBX:=iSendtotal_Num+iSendtotal_Num_GY+iSendtotal_Num_DY+iSendtotal_Num_NX;
  iFinishmonth_Num_GZBX:=iFinishmonth_Num+iFinishmonth_Num_GY+iFinishmonth_Num_DY+iFinishmonth_Num_NX;
  iFinishtotal_Num_GZBX:=iFinishtotal_Num+iFinishtotal_Num_GY+iFinishtotal_Num_DY+iFinishtotal_Num_NX;
  iNoFinishmonth_Num_GZBX:=iNoFinishmonth_Num+iNoFinishmonth_Num_GY+iNoFinishmonth_Num_DY+iNoFinishmonth_Num_NX;
  iNoFinishtotal_Num_GZBX:=iNoFinishtotal_Num+iNoFinishtotal_Num_GY+iNoFinishtotal_Num_DY+iNoFinishtotal_Num_NX;
  iOverTimeFinishmonth_Num_GZBX:=iOverTimeFinishmonth_Num+iOverTimeFinishmonth_Num_GY+iOverTimeFinishmonth_Num_DY+iOverTimeFinishmonth_Num_NX;
  iOverTimeFinishtotal_Num_GZBX:=iOverTimeFinishtotal_Num+iOverTimeFinishtotal_Num_GY+iOverTimeFinishtotal_Num_DY+iOverTimeFinishtotal_Num_NX;
  iSatisfymonth_Num_GZBX:=iSatisfymonth_Num+iSatisfymonth_Num_GY+iSatisfymonth_Num_DY+iSatisfymonth_Num_NX;
  iSatisfytotal_Num_GZBX:=iSatisfytotal_Num+iSatisfytotal_Num_GY+iSatisfytotal_Num_DY+iSatisfytotal_Num_NX;
  if (iFinishmonth_Num_GZBX=0) then OverTimeRate_month_GZBX:='0'
  else OverTimeRate_month_GZBX:=Format('%2.2f',[(iOverTimeFinishmonth_Num_GZBX)/(iFinishmonth_Num_GZBX)*100]);
  if iFinishtotal_Num_GZBX=0 then OverTimeRate_total_GZBX:='0'
  else OverTimeRate_total_GZBX:=Format('%2.2f',[(iOverTimeFinishtotal_Num_GZBX)/(iFinishtotal_Num_GZBX)*100]);
  if (Satisfy_month_WX=0)and(Satisfy_month_GY=0)and(Satisfy_month_DY=0)and(Satisfy_month_NX=0) then SatisfyRate_month_GZBX:='0'
  else SatisfyRate_month_GZBX:=Format('%2.2f',[iSatisfymonth_Num_GZBX/(Satisfy_month_WX+Satisfy_month_GY+Satisfy_month_DY+Satisfy_month_NX)*100]);
  if (Satisfy_total_WX=0)and(Satisfy_total_GY=0)and(Satisfy_total_DY=0)and(Satisfy_total_NX=0) then SatisfyRate_total_GZBX:='0'
  else SatisfyRate_total_GZBX:=Format('%2.2f',[iSatisfytotal_Num_GZBX/(Satisfy_total_WX+Satisfy_total_GY+Satisfy_total_DY+Satisfy_total_NX)*100]);

  CalTSJB(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_TS, iSendtotal_Num_TS, iFinishmonth_Num_TS, iFinishtotal_Num_TS, iNoFinishmonth_Num_TS, iNoFinishtotal_Num_TS,
        iOverTimeFinishmonth_Num_TS, iOverTimeFinishtotal_Num_TS, iSatisfymonth_Num_TS, iSatisfytotal_Num_TS, OverTimeRate_month_TS, OverTimeRate_total_TS,
        SatisfyRate_month_TS, SatisfyRate_total_TS);
        
  CalYWSL(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_YW, iSendtotal_Num_YW, iFinishmonth_Num_YW, iFinishtotal_Num_YW, iNoFinishmonth_Num_YW, iNoFinishtotal_Num_YW,
        iOverTimeFinishmonth_Num_YW, iOverTimeFinishtotal_Num_YW, iSatisfymonth_Num_YW, iSatisfytotal_Num_YW, OverTimeRate_month_YW, OverTimeRate_total_YW,
        SatisfyRate_month_YW, SatisfyRate_total_YW);

  CalCut(Dt_AddUp, Dt_Curr, Dt_End, iSendmonth_Num_TD, iSendtotal_Num_TD, iFinishmonth_Num_TD, iFinishtotal_Num_TD, iNoFinishmonth_Num_TD, iNoFinishtotal_Num_TD);

  CalCJ(Dt_Curr, Dt_End, iSendmonth_Num_CJ, iFinishmonth_Num_CJ, iNoFinishmonth_Num_CJ);

  iSendmonth_Total:=ZXmonth_num+iSendmonth_Num_GZBX+iSendmonth_Num_TS+iSendmonth_Num_YW+iSendmonth_Num_TD+iSendmonth_Num_CJ;
  iSendtotal_Total:=ZXtotal_num+iSendtotal_Num_GZBX+iSendtotal_Num_TS+iSendtotal_Num_YW+iSendtotal_Num_TD;
  iFinishmonth_Total:=ZXmonth_num+iFinishmonth_Num_GZBX+iFinishmonth_Num_TS+iFinishmonth_Num_YW+iFinishmonth_Num_TD+iFinishmonth_Num_CJ;
  iFinishtotal_Total:=ZXtotal_num+iFinishtotal_Num_GZBX+iFinishtotal_Num_TS+iFinishtotal_Num_YW+iFinishtotal_Num_TD;
  iNoFinishmonth_Total:=iNoFinishmonth_Num_GZBX+iNoFinishmonth_Num_TS+iNoFinishmonth_Num_YW+iNoFinishmonth_Num_TD+iFinishmonth_Num_CJ;
  iNoFinishtotal_Total:=iNoFinishtotal_Num_GZBX+iNoFinishtotal_Num_TS+iNoFinishtotal_Num_YW+iNoFinishtotal_Num_TD;
  iOverTimeFinishmonth_Total:=iOverTimeFinishmonth_Num_GZBX+iOverTimeFinishmonth_Num_TS+iOverTimeFinishmonth_Num_YW;
  iOverTimeFinishtotal_Total:=iOverTimeFinishtotal_Num_GZBX+iOverTimeFinishtotal_Num_TS+iOverTimeFinishtotal_Num_YW;
  if iFinishmonth_Total=0 then OverTimeRate_month_Total:='0'
  else OverTimeRate_month_Total:=Format('%2.2f',[iOverTimeFinishmonth_Total/iFinishmonth_Total*100]);
  if iFinishtotal_Total=0 then OverTimeRate_total_Total:='0'
  else OverTimeRate_total_Total:=Format('%2.2f',[iOverTimeFinishtotal_Total/iFinishtotal_Total*100]);
  SatisfyRatemonth_total:=iSatisfymonth_Num_GZBX+iSatisfymonth_Num_TS+iSatisfymonth_Num_YW;
  SatisfyRatetotal_total:=iSatisfytotal_Num_GZBX+iSatisfytotal_Num_TS+iSatisfytotal_Num_YW ;
  if (iFinishmonth_Num_GZBX=0)and(Satisfy_month_TSJB=0)and(Satisfy_month_YWSL=0) then SatisfyRate_month_total:='0'
  else SatisfyRate_month_total:=Format('%2.2f',[SatisfyRatemonth_total/(iFinishmonth_Num_GZBX+Satisfy_month_TSJB+Satisfy_month_YWSL)*100]);
  if (iFinishtotal_Num_GZBX=0)and(Satisfy_total_TSJB=0)and(Satisfy_total_YWSL=0) then SatisfyRate_total_total:='0'
  else SatisfyRate_total_total:=Format('%2.2f',[SatisfyRatetotal_total/(iFinishtotal_Num_GZBX+Satisfy_total_TSJB+Satisfy_total_YWSL)*100]);

  WorddotRpt1.Title.Clear ;
  with WorddotRpt1.Title do
  begin
    Add(Format('ZxTo_month=%d',[ZXmonth_num]));                   Add(Format('ZxTo_total=%d',[ZXtotal_num]));                    Add(Format('Zxfin_month=%d',[ZXmonth_num]));
    Add(Format('Zxfin_total=%d',[ZXtotal_num]));                  Add(Format('Zxno_month=%s',[cst_simulate]));                   Add(Format('Zxno_total=%s',[cst_simulate]));
    Add(Format('Zxne_month=%s',[cst_simulate]));                  Add(Format('Zxne_total=%s',[cst_simulate]));                   Add(Format('Zxrate_month=%s',[cst_simulate]));
    Add(Format('Zxrate_total=%s',[cst_simulate]));                Add(Format('Zxsa_month=%s',[cst_simulate]));                   Add(Format('Zxsa_total=%s',[cst_simulate]));
    Add(Format('Zxsara_month=%s',[cst_simulate]));                Add(Format('Zxsara_total=%s',[cst_simulate]));

    Add(Format('VOTo_month=%d',[YYmonth_num]));                   Add(Format('VOTo_total=%d',[YYtotal_num]));                    Add(Format('VOfin_month=%d',[YYmonth_num]));
    Add(Format('VOfin_total=%d',[YYtotal_num]));                  Add(Format('VOno_month=%s',[cst_simulate]));                   Add(Format('VOno_total=%s',[cst_simulate]));
    Add(Format('VOne_month=%s',[cst_simulate]));                  Add(Format('VOne_total=%s',[cst_simulate]));                   Add(Format('VOrate_month=%s',[cst_simulate]));
    Add(Format('VOrate_total=%s',[cst_simulate]));                Add(Format('VOsa_month=%s',[cst_simulate]));                   Add(Format('VOsa_total=%s',[cst_simulate]));
    Add(Format('VOsara_month=%s',[cst_simulate]));                Add(Format('VOsara_total=%s',[cst_simulate]));

    Add(Format('MATo_month=%d',[RGmonth_num]));                   Add(Format('MATo_total=%d',[RGtotal_num]));                    Add(Format('MAfin_month=%d',[RGmonth_num]));
    Add(Format('MAfin_total=%d',[RGmonth_num]));                  Add(Format('MAno_month=%s',[cst_simulate]));                   Add(Format('MAno_total=%s',[cst_simulate]));
    Add(Format('MAne_month=%s',[cst_simulate]));                  Add(Format('MAne_total=%s',[cst_simulate]));                   Add(Format('MArate_month=%s',[cst_simulate]));
    Add(Format('MArate_total=%s',[cst_simulate]));                Add(Format('MAsa_month=%s',[cst_simulate]));                   Add(Format('MAsa_total=%s',[cst_simulate]));
    Add(Format('MAsara_month=%s',[cst_simulate]));                Add(Format('MAsara_total=%s',[cst_simulate]));

    Add(Format('GZTo_month=%d',[iSendmonth_Num_GZBX]));           Add(Format('GZTo_total=%d',[iSendtotal_Num_GZBX]));            Add(Format('GZfin_month=%d',[iFinishmonth_Num_GZBX]));
    Add(Format('GZfin_total=%d',[iFinishtotal_Num_GZBX]));        Add(Format('GZno_month=%d',[iNoFinishmonth_Num_GZBX]));        Add(Format('GZno_total=%d',[iNoFinishtotal_Num_GZBX]));
    Add(Format('GZne_month=%d',[iOverTimeFinishmonth_Num_GZBX])); Add(Format('GZne_total=%d',[iOverTimeFinishtotal_Num_GZBX]));  Add(Format('GZrate_month=%s',[OverTimeRate_month_GZBX]));
    Add(Format('GZrate_total=%s',[OverTimeRate_total_GZBX]));     Add(Format('GZsa_month=%d',[iSatisfymonth_Num_GZBX]));         Add(Format('GZsa_total=%d',[iSatisfytotal_Num_GZBX]));
    Add(Format('GZsara_month=%s',[SatisfyRate_month_GZBX]));      Add(Format('GZsara_total=%s',[SatisfyRate_total_GZBX]));

    Add(Format('WXTo_month=%d',[iSendmonth_Num]));                Add(Format('WXTo_total=%d',[iSendtotal_Num]));                 Add(Format('WXfin_month=%d',[iFinishmonth_Num]));
    Add(Format('WXfin_total=%d',[iFinishtotal_Num]));             Add(Format('WXno_month=%d',[iNoFinishmonth_Num]));             Add(Format('WXno_total=%d',[iNoFinishtotal_Num]));
    Add(Format('WXne_month=%d',[iOverTimeFinishmonth_Num]));      Add(Format('WXne_total=%d',[iOverTimeFinishtotal_Num]));       Add(Format('WXrate_month=%s',[OverTimeRate_month]));
    Add(Format('WXrate_total=%s',[OverTimeRate_total]));          Add(Format('WXsa_month=%d',[iSatisfymonth_Num]));              Add(Format('WXsa_total=%d',[iSatisfytotal_Num]));
    Add(Format('WXsara_month=%s',[SatisfyRate_month]));           Add(Format('WXsara_total=%s',[SatisfyRate_total]));

    Add(Format('GYTo_month=%d',[iSendmonth_Num_GY]));             Add(Format('GYTo_total=%d',[iSendtotal_Num_GY]));              Add(Format('GYfin_month=%d',[iFinishmonth_Num_GY]));
    Add(Format('GYfin_total=%d',[iFinishtotal_Num_GY]));          Add(Format('GYno_month=%d',[iNoFinishmonth_Num_GY]));          Add(Format('GYno_total=%d',[iNoFinishtotal_Num_GY]));
    Add(Format('GYne_month=%d',[iOverTimeFinishmonth_Num_GY]));   Add(Format('GYne_total=%d',[iOverTimeFinishtotal_Num_GY]));    Add(Format('GYrate_month=%s',[OverTimeRate_month_GY]));
    Add(Format('GYrate_total=%s',[OverTimeRate_total_GY]));       Add(Format('GYsa_month=%d',[iSatisfymonth_Num_GY]));           Add(Format('GYsa_total=%d',[iSatisfytotal_Num_GY]));
    Add(Format('GYsara_month=%s',[SatisfyRate_month_GY]));        Add(Format('GYsara_total=%s',[SatisfyRate_total_GY]));

    Add(Format('DYTo_month=%d',[iSendmonth_Num_DY]));             Add(Format('DYTo_total=%d',[iSendtotal_Num_DY]));              Add(Format('DYfin_month=%d',[iFinishmonth_Num_DY]));
    Add(Format('DYfin_total=%d',[iFinishtotal_Num_DY]));          Add(Format('DYno_month=%d',[iNoFinishmonth_Num_DY]));          Add(Format('DYno_total=%d',[iNoFinishtotal_Num_DY]));
    Add(Format('DYne_month=%d',[iOverTimeFinishmonth_Num_DY]));   Add(Format('DYne_total=%d',[iOverTimeFinishtotal_Num_DY]));    Add(Format('DYrate_month=%s',[OverTimeRate_month_DY]));
    Add(Format('DYrate_total=%s',[OverTimeRate_total_DY]));       Add(Format('DYsa_month=%d',[iSatisfymonth_Num_DY]));           Add(Format('DYsa_total=%d',[iSatisfytotal_Num_DY]));
    Add(Format('DYsara_month=%s',[SatisfyRate_month_DY]));        Add(Format('DYsara_total=%s',[SatisfyRate_total_DY]));

    Add(Format('NXTo_month=%d',[iSendmonth_Num_NX]));             Add(Format('NXTo_total=%d',[iSendtotal_Num_NX]));              Add(Format('NXfin_month=%d',[iFinishmonth_Num_NX]));
    Add(Format('NXfin_total=%d',[iFinishtotal_Num_NX]));          Add(Format('NXno_month=%d',[iNoFinishmonth_Num_NX]));          Add(Format('NXno_total=%d',[iNoFinishtotal_Num_NX]));
    Add(Format('NXne_month=%d',[iOverTimeFinishmonth_Num_NX]));   Add(Format('NXne_total=%d',[iOverTimeFinishtotal_Num_NX]));    Add(Format('NXrate_month=%s',[OverTimeRate_month_NX]));
    Add(Format('NXrate_total=%s',[OverTimeRate_total_NX]));       Add(Format('NXsa_month=%d',[iSatisfymonth_Num_NX]));           Add(Format('NXsa_total=%d',[iSatisfytotal_Num_NX]));
    Add(Format('NXsara_month=%s',[SatisfyRate_month_NX]));        Add(Format('NXsara_total=%s',[SatisfyRate_total_NX]));

    Add(Format('TSTo_month=%d',[iSendmonth_Num_TS]));             Add(Format('TSTo_total=%d',[iSendtotal_Num_TS]));              Add(Format('TSfin_month=%d',[iFinishmonth_Num_TS]));