qt_js.pas

汽配前台收费,一个具有详细功能的小系统

        lst1.Items.Add(Trim(qe_pj_add.FieldByName('pj_name').AsString));
        lst2.Items.Add(FloatToStr(f_sum));
        lst3.Items.Add(FloatToStr(f_zj));
        //
        qe_pj_add.Next;
      end;
      //
      mR := 0;
      curSum := 0;
      curJg := 0;
      for i := 1 to intCount1 do begin
        if i > 1 then begin
          for k := 0 to 17 do begin
            frm_print.arrayColumns1[k].Caption := ' ';
            frm_print.arrayColumns2[k].Caption := ' ';
            frm_print.arrayColumns3[k].Caption := ' ';
            frm_print.arrayColumns4[k].Caption := ' ';
          end;
        end;
        //
        for j := 0 to maxR do begin
          if mR <= maxR then begin
            frm_print.arrayColumns1[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns2[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns3[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns4[j] := TQRLabel.Create(Self);
            //
            frm_print.arrayColumns4[j].Parent := frm_print.qr_bx_1;
            frm_print.arrayColumns4[j].AutoSize := False;
            frm_print.arrayColumns4[j].Height := 14;
            frm_print.arrayColumns4[j].Width := 53;
            frm_print.arrayColumns4[j].Left := 407;
            frm_print.arrayColumns4[j].Top := 349 + 23 * j;
            frm_print.arrayColumns4[j].Alignment := taCenter;
            //
            frm_print.arrayColumns1[j].Parent := frm_print.qr_bx_1;
            frm_print.arrayColumns1[j].AutoSize := False;
            frm_print.arrayColumns1[j].Height := 14;
            frm_print.arrayColumns1[j].Width := 31;
            frm_print.arrayColumns1[j].Left := 91;
            frm_print.arrayColumns1[j].Top := 349 + 23 * j;
            frm_print.arrayColumns1[j].Alignment := taCenter;
            //
            frm_print.arrayColumns2[j].Parent := frm_print.qr_bx_1;
            frm_print.arrayColumns2[j].AutoSize := False;
            frm_print.arrayColumns2[j].Height := 14;
            frm_print.arrayColumns2[j].Width := 112;
            frm_print.arrayColumns2[j].Left := 124;
            frm_print.arrayColumns2[j].Top := 349 + 23 * j;
            //frm_print.arrayColumns2[j].Alignment := taCenter;
            //
            frm_print.arrayColumns3[j].Parent := frm_print.qr_bx_1;
            frm_print.arrayColumns3[j].AutoSize := False;
            frm_print.arrayColumns3[j].Height := 14;
            frm_print.arrayColumns3[j].Width := 31;
            frm_print.arrayColumns3[j].Left := 373;
            frm_print.arrayColumns3[j].Top := 349 + 23 * j;
            frm_print.arrayColumns3[j].Alignment := taCenter;
          end;
          mR := mR + 1;
          //
          frm_print.arrayColumns1[j].Caption := IntToStr(mR);
          frm_print.arrayColumns2[j].Caption := lst1.Items[mR - 1];
          frm_print.arrayColumns3[j].Caption := lst2.Items[mR - 1];
          frm_print.arrayColumns4[j].Caption := lst3.Items[mR - 1];
          curSum := curSum + StrToFloat(lst2.Items[mR - 1]);
          curJg := curJg + StrToFloat(lst3.Items[mR - 1]);
          //
          if mR = intCount then Break;
        end;
        frm_print.lbl_sum.Caption := IntToStr(i);
        frm_print.lbl_p_sum.Caption := FloatToStr(curSum);
        frm_print.lbl_p_jj.Caption := FloatToStr(curJg);
        frm_print.qr_bx1.Print;
      end;
    end else begin
      frm_print.lbl_sums.Caption := '';
      frm_print.lbl_sum.Caption := '';
      frm_print.lbl_p_sum.Caption := '';
      frm_print.lbl_p_jj.Caption := '';
      frm_print.qr_bx1.Print;
    end;
    //打印修理项目
    qe_gs_add.Last;
    intCount := qe_gs_add.RecordCount;
    intCount1 := intCount div 16;
    if intCount - intCount1 * 16 > 0 then intCount1 := intCount1 + 1;
    if intCount < 16 then
      maxR := intCount - 1
    else if intCount >= 16 then
      maxR := 15;
    //
    frm_print.pc_main.ActivePageIndex := 12;
    frm_print.lbl_cph_1.Caption := cur_cph;
    frm_print.lbl_bx_z2.Caption := frm_log.bx_z_title;
    frm_print.lbl_bx_f2.Caption := frm_log.bx_f_title;
    //
    if intCount > 0 then begin
      frm_print.lbl_sums1.Caption := IntToStr(intCount1);
      SetLength(frm_print.arrayColumns1, intCount);
      SetLength(frm_print.arrayColumns2, intCount);
      SetLength(frm_print.arrayColumns3, intCount);
      SetLength(frm_print.arrayColumns4, intCount);
      //
      qe_gs_add.First;
      lst1.Items.Clear;
      lst2.Items.Clear;
      lst3.Items.Clear;
      while not qe_gs_add.Eof do begin
        lst1.Items.Add(Trim(qe_gs_add.FieldByName('gs_text').AsString));
        lst2.Items.Add(FloatToStr(qe_gs_add.FieldByName('gs_sum').Value));
        lst3.Items.Add(FloatToStr(qe_gs_add.FieldByName('gs_zj').Value));
        //
        qe_gs_add.Next;
      end;
      //
      mR := 0;
      curSum := 0;
      curJg := 0;
      for i := 1 to intCount1 do begin
        if i > 1 then begin
          for k := 0 to 15 do begin
            frm_print.arrayColumns1[k].Caption := ' ';
            frm_print.arrayColumns2[k].Caption := ' ';
            frm_print.arrayColumns3[k].Caption := ' ';
            frm_print.arrayColumns4[k].Caption := ' ';
          end;
        end;
        //
        for j := 0 to maxR do begin
          if mR <= maxR then begin
            frm_print.arrayColumns1[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns2[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns3[j] := TQRLabel.Create(Self);
            frm_print.arrayColumns4[j] := TQRLabel.Create(Self);
            //
            frm_print.arrayColumns4[j].Parent := frm_print.qr_bx_2;
            frm_print.arrayColumns4[j].AutoSize := False;
            frm_print.arrayColumns4[j].Height := 14;
            frm_print.arrayColumns4[j].Width := 78;
            frm_print.arrayColumns4[j].Left := 347;
            frm_print.arrayColumns4[j].Top := 202 + 23 * j;
            frm_print.arrayColumns4[j].Alignment := taCenter;
            //
            frm_print.arrayColumns1[j].Parent := frm_print.qr_bx_2;
            frm_print.arrayColumns1[j].AutoSize := False;
            frm_print.arrayColumns1[j].Height := 14;
            frm_print.arrayColumns1[j].Width := 31;
            frm_print.arrayColumns1[j].Left := 91;
            frm_print.arrayColumns1[j].Top := 202 + 23 * j;
            frm_print.arrayColumns1[j].Alignment := taCenter;
            //
            frm_print.arrayColumns2[j].Parent := frm_print.qr_bx_2;
            frm_print.arrayColumns2[j].AutoSize := False;
            frm_print.arrayColumns2[j].Height := 14;
            frm_print.arrayColumns2[j].Width := 172;
            frm_print.arrayColumns2[j].Left := 124;
            frm_print.arrayColumns2[j].Top := 202 + 23 * j;
            //frm_print.arrayColumns2[j].Alignment := taCenter;
            //
            frm_print.arrayColumns3[j].Parent := frm_print.qr_bx_2;
            frm_print.arrayColumns3[j].AutoSize := False;
            frm_print.arrayColumns3[j].Height := 14;
            frm_print.arrayColumns3[j].Width := 42;
            frm_print.arrayColumns3[j].Left := 300;
            frm_print.arrayColumns3[j].Top := 202 + 23 * j;
            frm_print.arrayColumns3[j].Alignment := taCenter;
          end;
          mR := mR + 1;
          //
          frm_print.arrayColumns4[j].Caption := lst3.Items[mR - 1];
          frm_print.arrayColumns1[j].Caption := IntToStr(mR);
          frm_print.arrayColumns2[j].Caption := lst1.Items[mR - 1];
          frm_print.arrayColumns3[j].Caption := lst2.Items[mR - 1];
          curSum := curSum + StrToFloat(lst2.Items[mR - 1]);
          curJg := curJg + StrToFloat(lst3.Items[mR - 1]);
          //
          if mR = intCount then Break;
        end;
        frm_print.lbl_sum1.Caption := IntToStr(i);
        frm_print.lbl_gs.Caption := FloatToStr(curSum);
        frm_print.lbl_gss.Caption := FloatToStr(curJg);
        frm_print.qr_bx2.Print;
      end;
    end else begin
      frm_print.lbl_sums1.Caption := '';
      frm_print.lbl_sum1.Caption := '';
      frm_print.lbl_gs.Caption := '';
      frm_print.lbl_gss.Caption := '';
      frm_print.lbl_f_1.Caption := '';
      frm_print.lbl_f_2.Caption := '';
      frm_print.lbl_f_3.Caption := '';
      frm_print.lbl_f_4.Caption := '';
      frm_print.lbl_f_5.Caption := '';
      frm_print.lbl_text_1.Caption := '';
      frm_print.qr_bx2.Print;
    end;}
  //end;
end;

procedure Tfrm_qt_js.cmd_jsClick(Sender: TObject);
var
  f_clf1, f_gsf1, f_sbf1: Double;
  f_other1: Double;
  f_yj1: Double;
begin
  combo_p.Items.Clear;
  combo_p.items.Assign(Printer.Printers);
  if combo_p.Items.Count = 0 then begin
    MessageBox(Handle, '没有可用的打印机，请添加打印机', '沈阳信德', MB_ICONQUESTION or MB_OK);
    Exit;
  end;
  //
  if Trim(txt_yf.Text) = '' then begin
    MessageBox(Handle, '结算金额无效', '沈阳信德', MB_ICONQUESTION or MB_OK);
    Exit;
  end;
  //
  f_clf1 := StrToFloat(Trim(txt_clf.Text));
  if f_clf1 < 0.01 then f_clf1 := 0;
  f_gsf1 := StrToFloat(Trim(txt_gsf.Text));
  if f_gsf1 < 0.01 then f_gsf1 := 0;
  f_sbf1 := StrToFloat(Trim(txt_sbf.Text));
  if f_sbf1 < 0.01 then f_sbf1 := 0;
  f_yj1 := StrToFloat(Trim(txt_yj.Text));
  if f_yj1 < 0.01 then f_yj1 := 0;
  f_other1 := StrToFloat(Trim(txt_fjf.Text));
  if f_other1 < 0.01 then f_other1 := 0;
  //
  if (f_clf1 + f_gsf1 + f_sbf1 + f_other1) < 0.01 then begin
    if f_yj1 > 0.01 then begin
      MessageBox(Handle, '零费用单不能结算！鉴于存在用户押金，请通知财务员处理用户押金', '沈阳信德', MB_ICONQUESTION or MB_OK);
      Exit;
    end else begin
      MessageBox(Handle, '零费用单不能结算！', '沈阳信德', MB_ICONQUESTION or MB_OK);
      Exit;
    end;
  end;
  //
  if not Assigned(frm_js_select) then begin
    frm_js_select := Tfrm_js_select.Create(Application);
    frm_js_select.cur_bh := cur_bh;
    frm_js_select.cur_cph := cur_cph;
    frm_js_select.cur_cz := cur_cz;
    frm_js_select.cur_czdw := cur_czdw;
    frm_js_select.cur_cx := cur_cx;
    frm_js_select.cur_wx_kind := cur_wx_kind;
    frm_js_select.cur_clf := f_clf1;
    frm_js_select.cur_gsf := f_gsf1;
    frm_js_select.cur_sbf := f_sbf1;
    frm_js_select.cur_fjf := f_other1;
    frm_js_select.cur_yjf := f_yj1;
    frm_js_select.cur_cbf := zz_cbf;
    //
    frm_js_select.ShowModal;
  end;
end;

procedure Tfrm_qt_js.combo_bhChange(Sender: TObject);
begin
  QueryResult;
end;

procedure Tfrm_qt_js.qe_pj_addCalcFields(DataSet: TDataSet);
var
  f_dj: Double;
  f_sum: Double;
  f_je: Double;
  str_dj: string;
  str_je: string;
begin
  f_dj := qe_pj_add.FieldByName('pj_dj').Value;
  if f_dj < 0.01 then f_dj := 0;
  str_dj := frm_log.ControlNum(FloatToStr(f_dj));
  qe_pj_add.FieldByName('pj_dj1').Value := str_dj;
  f_sum := qe_pj_add.FieldByName('pj_sy_sum').Value;
  //
  f_je := f_sum * f_dj;
  f_je := Int(f_je) + Round((Frac(f_je)*100))/100;
  if f_je < 0.01 then f_je := 0;
  str_je := frm_log.ControlNum(FloatToStr(f_je));
  qe_pj_add.FieldByName('pj_je1').Value := str_je;
end;

procedure Tfrm_qt_js.qe_gs_addCalcFields(DataSet: TDataSet);
var
  f_dj, f_zj: Double;
  str_dj, str_zj: string;
begin
  f_dj := qe_gs_add.FieldByName('gs_dj').Value;
  if f_dj < 0.01 then f_dj := 0;
  f_zj := qe_gs_add.FieldByName('gs_zj').Value;
  if f_zj < 0.01 then f_zj := 0;
  //
  str_dj := frm_log.ControlNum(FloatToStr(f_dj));
  str_zj := frm_log.ControlNum(FloatToStr(f_zj));
  //
  qe_gs_add.FieldByName('gs_dj1').Value := str_dj;
  qe_gs_add.FieldByName('gs_zj1').Value := str_zj;
end;

procedure Tfrm_qt_js.qe_other_addCalcFields(DataSet: TDataSet);
var
  f_je: Double;
  str_je: string;
begin
  f_je := qe_other_add.FieldByName('o_je').Value;
  if f_je < 0.01 then f_je := 0;
  str_je := frm_log.ControlNum(FloatToStr(f_je));
  qe_other_add.FieldByName('o_je1').Value := str_je;
end;

end.