📄 q_wjs.pas
字号:
//
frm_q_wjs := nil;
end;
procedure Tfrm_q_wjs.FormShow(Sender: TObject);
begin
qe_bx.Close;
qe_bx.Open;
qe_bx.First;
while not qe_bx.Eof do begin
combo_bx_kind.Items.Add(Trim(qe_bx.FieldByName('kind_name').AsString));
qe_bx.Next;
end;
qe_bx.Close;
//
frm_main.mu_cx_cl_wjs.Enabled := False;
frm_main.current_handle := Handle;
end;
procedure Tfrm_q_wjs.cmd_printClick(Sender: TObject);
var
intCount: integer;
intCount1: integer;
i, j, k: integer;
maxR: integer;
mR: integer;
year, month, day: Word;
curSum: Double;
curJg: Double;
f_sum, f_zj: 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 qe_cl.FieldByName('dj_bx_bs').AsInteger = 0 then begin
frm_print.lbl_cap4.Caption := frm_log.cur_gs_name;
frm_print.lbl_tel4.Caption := frm_log.cur_gs_tel;
frm_print.lbl_addr4.Caption := frm_log.cur_gs_addr;
frm_print.lbl_cph4.Caption := Trim(qe_cl.FieldByName('dj_cph').AsString);
frm_print.lbl_dph4.Caption := Trim(qe_cl.FieldByName('dj_dph').AsString);
frm_print.lbl_cx4.Caption := Trim(qe_cl.FieldByName('dj_cx').AsString);
frm_print.lbl_cz4.Caption := Trim(qe_cl.FieldByName('dj_cz').AsString);
frm_print.lbl_bh4.Caption := Trim(qe_cl.FieldByName('dj_bh').AsString);
frm_print.lbl_fdjh4.Caption := Trim(qe_cl.FieldByName('dj_fdjh').AsString);
frm_print.lbl_dw4.Caption := Trim(qe_cl.FieldByName('dj_czdw').AsString);
frm_print.lbl_wx4.Caption := Trim(qe_cl.FieldByName('dj_wx_kind').AsString);
//
frm_print.lbl_clf.Caption := Trim(txt_clf.Text);
frm_print.lbl_clf1.Caption := Trim(txt_clf1.Text);
frm_print.lbl_gsf.Caption := Trim(txt_gsf.Text);
frm_print.lbl_zjf.Caption := Trim(txt_zf.Text);
//
frm_print.lbl_date4.Caption := frm_log.controlDate(DateToStr(Date()));
frm_print.qr_wx.DataSet := nil;
frm_print.qrd_pj.DataSet := qe_pj_add;
frm_print.qrd_gs.DataSet := qe_gs_add;
frm_print.txt_kind4.DataSet := qe_pj_add;
//frm_print.txt_id4.DataSet := qe_pj_add;
frm_print.txt_gg4.DataSet := qe_pj_add;
frm_print.txt_name4.DataSet := qe_pj_add;
frm_print.txt_sum4.DataSet := qe_pj_add;
frm_print.txt_unit4.DataSet := qe_pj_add;
frm_print.txt_dj4.DataSet := qe_pj_add;
//
frm_print.txt_text4.DataSet := qe_gs_add;
frm_print.txt_zj4.DataSet := qe_gs_add;
//
frm_print.qr_wx.Print;
end else begin
if not Assigned(frm_o_fy) then begin
frm_o_fy := Tfrm_o_fy.Create(Application);
frm_o_fy.ShowModal;
if frm_log.intPrint = 2 then Exit;
end;
qe_pj_add.Last;
intCount := qe_pj_add.RecordCount;
intCount1 := intCount div 18;
if intCount - intCount1 * 18 > 0 then intCount1 := intCount1 + 1;
if intCount < 18 then
maxR := intCount - 1
else if intCount >= 18 then
maxR := 17;
//
frm_print.lbl_bx_z1.Caption := frm_log.bx_z_title;
frm_print.lbl_bx_f1.Caption := frm_log.bx_f_title;
frm_print.lbl_cph0.Caption := Trim(qe_cl.FieldByName('dj_cph').AsString);
frm_print.lbl_cx0.Caption := Trim(qe_cl.FieldByName('dj_cx').AsString);
frm_print.lbl_cz0.Caption := Trim(qe_cl.FieldByName('dj_cz').AsString);
frm_print.lbl_fdjh0.Caption := Trim(qe_cl.FieldByName('dj_fdjh').AsString);
frm_print.lbl_czdw0.Caption := Trim(qe_cl.FieldByName('dj_czdw').AsString);
DecodeDate(Now, year, month, day);
frm_print.lbl_year.Caption := IntToStr(year);
frm_print.lbl_month.Caption := IntToStr(month);
frm_print.lbl_day.Caption := IntToStr(day);
//
if intCount > 0 then begin
frm_print.lbl_sums.Caption := IntToStr(intCount1);
SetLength(frm_print.arrayColumns1, intCount);
SetLength(frm_print.arrayColumns2, intCount);
SetLength(frm_print.arrayColumns3, intCount);
SetLength(frm_print.arrayColumns4, intCount);
//
qe_pj_add.First;
lst1.Items.Clear;
lst2.Items.Clear;
lst3.Items.Clear;
while not qe_pj_add.Eof do begin
f_sum := qe_pj_add.FieldByName('pj_ck_sum').Value;
f_zj := qe_pj_add.FieldByName('pj_ck_sum').Value * qe_pj_add.FieldByName('pj_dj').Value;
f_zj := Int(f_zj) + Round((Frac(f_zj)*100))/100;
//
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 := Trim(qe_cl.FieldByName('dj_cph').AsString);
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;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -