q_js.pas

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

  qe_pj_add.Open;
  qe_pj_add.First;
  //
  qe_gs_add.Close;
  qe_gs_add.ParamByName('ibh').Value := Trim(qe_cl.FieldByName('dj_bh').AsString);
  qe_gs_add.Open;
  qe_gs_add.First;
  //
  qe_other.Close;
  qe_other.ParamByName('ibh').Value := Trim(qe_cl.FieldByName('dj_bh').AsString);
  qe_other.Open;
  qe_other.First;
  //
  txt_clf.Text := frm_log.ControlNum(FloatToStr(f_clf));
  txt_other.Text := frm_log.ControlNum(FloatToStr(f_other));
  txt_gsf.Text := frm_log.ControlNum(FloatToStr(f_gsf));
  txt_zf.Text := frm_log.ControlNum(FloatToStr(f_hj));
end;

procedure Tfrm_q_js.cb_bhClick(Sender: TObject);
begin
  if cb_bh.Checked then begin
    pe_bh.Enabled := True;
    txt_bh_xx.SetFocus;
  end else begin
    txt_bh_xx.Text := '';
    txt_bh_sx.Text := '';
    //
    pe_bh.Enabled := False;
  end;
end;

procedure Tfrm_q_js.cb_timeClick(Sender: TObject);
begin
  if cb_time.Checked then begin
    pe_time.Enabled := True;
    txt_time_xx.SetFocus;
  end else begin
    txt_time_xx.Text := '';
    txt_time_sx.Text := '';
    //
    pe_time.Enabled := False;
  end;
end;

procedure Tfrm_q_js.cb_cphClick(Sender: TObject);
begin
  if cb_cph.Checked then begin
    pe_cph.Enabled := True;
    txt_cph.SetFocus;
  end else begin
    txt_cph.Text := '';
    pe_cph.Enabled := False;
  end;
end;

procedure Tfrm_q_js.rb_wxClick(Sender: TObject);
begin
  pe_bx.Enabled := False;
  combo_bx_kind.ItemIndex := -1;
  //
  pe_wx.Enabled := True;
  combo_wx_kind.SetFocus;
end;

procedure Tfrm_q_js.rb_bxClick(Sender: TObject);
begin
  pe_wx.Enabled := False;
  combo_wx_kind.ItemIndex := -1;
  //
  pe_bx.Enabled := True;
  combo_bx_kind.SetFocus;
end;

procedure Tfrm_q_js.cmd_q_selClick(Sender: TObject);
var
  intResult: integer;
begin
  intResult := RuleCheck;
  if intResult = 1 then begin
    txt_clf.Text := '';
    txt_gsf.Text := '';
    txt_zf.Text := '';
    cmd_print.Enabled := False;
    Exit;
  end else begin
    qe_cl.Close;
    qe_cl.SQL.Clear;
    qe_cl.SQL.Add(strSQL);
    qe_cl.Open;
    qe_cl.First;
    if (qe_cl.Bof) and (qe_cl.Eof) then begin
      MessageBox(Handle, '没有找到满足条件记录', '沈阳信德', MB_ICONQUESTION or MB_OK);
      qe_cl.Close;
      qe_pj_add.Close;
      qe_gs_add.Close;
      txt_clf.Text := '';
      txt_other.Text := '';
      txt_gsf.Text := '';
      txt_zf.Text := '';
      cmd_print.Enabled := False;
      Exit;
    end;
    cmd_print.Enabled := True;
  end;
end;

procedure Tfrm_q_js.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qe_cl.Close;
  qe_pj_add.Close;
  qe_gs_add.Close;
  qe_other.Close;
  //
  frm_main.mu_cx_cl_js.Enabled := True;
  frm_main.current_handle := 0;
  //
  Action := caFree;
end;

procedure Tfrm_q_js.FormDestroy(Sender: TObject);
begin
  qe_cl := nil;
  qe_pj_add := nil;
  qe_gs_add := nil;
  qe_other := nil;
  //
  frm_q_js := nil;
end;

procedure Tfrm_q_js.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_js.Enabled := False;
  frm_main.current_handle := Handle;
end;

procedure Tfrm_q_js.cmd_printClick(Sender: TObject);
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;
  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_time').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);
  if Trim(qe_cl.FieldByName('dj_wx_kind').AsString) = '无' then begin
    frm_print.lbl_wx4.Caption := Trim(qe_cl.FieldByName('dj_bx_kind').AsString);
    frm_print.lbl_kind4.Caption := '保险类型';
  end else begin
    frm_print.lbl_wx4.Caption := Trim(qe_cl.FieldByName('dj_wx_kind').AsString);
    frm_print.lbl_kind4.Caption := '维修类型';
  end;
  frm_print.lbl_clf.Caption := Trim(txt_clf.Text);
  frm_print.lbl_clf44.Caption := '材料费(￥):';
  frm_print.lbl_gsf44.Caption := '工时费(￥):';
  frm_print.lbl_gsf.Caption := Trim(txt_gsf.Text);
  frm_print.lbl_fjf4.Caption := Trim(txt_other.Text);
  frm_print.lbl_zjf.Caption := Trim(txt_zf.Text);
  frm_print.lbl_date4.Caption := Trim(qe_cl.FieldByName('dj_jstime').AsString);
  frm_print.qr_wx.DataSet := nil;
  frm_print.qrd_pj.DataSet := qe_gs_add;
  frm_print.qrd_gs.DataSet := qe_pj_add;
  frm_print.qrd_other.DataSet := qe_other;
  frm_print.txt_kind4.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_je4.DataSet := qe_pj_add;
  frm_print.txt_text4.DataSet := qe_gs_add;
  frm_print.txt_zj4.DataSet := qe_gs_add;
  frm_print.txt_o_name4.DataSet := qe_other;
  frm_print.txt_o_je4.DataSet := qe_other;
  frm_print.qr_wx.Print;
end;

procedure Tfrm_q_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_q_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_q_js.qe_otherCalcFields(DataSet: TDataSet);
var
  f_je: Double;
  str_je: string;
begin
  f_je := qe_other.FieldByName('o_je').Value;
  if f_je < 0.01 then f_je := 0;
  str_je := frm_log.ControlNum(FloatToStr(f_je));
  qe_other.FieldByName('o_je1').Value := str_je;
end;

end.