q_ck.pas

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

      end;
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

function Tfrm_q_ck.RuleCheck: integer;
var
  intResult: integer;
  v1: Double;
  code: integer;
  str_id, str_name: string;
begin
  intResult := 0;
  strSQL := '';
  //
  if cb_pj.Checked then begin
    if (Trim(txt_kind.Text) = '') and (Trim(txt_gg.Text) = '') and (Trim(txt_pj.Text) = '') then begin
      MessageBox(Handle, '请确定配件属性', '沈阳信德', MB_ICONQUESTION or MB_OK);
      txt_kind.SetFocus;
      Result := 1;
      Exit;
    end;
    //
    if Trim(txt_kind.Text) <> '' then begin
      str_id := Copy(hideList[1].Items[hideList[1].ItemIndex], 1, 20);
      str_name := Copy(hideList[1].Items[hideList[1].ItemIndex], 21, 60);
      if Trim(str_name) <> Trim(txt_kind.Text) then begin
        MessageBox(Handle, '配件类型不完整', '沈阳信德', MB_ICONQUESTION or MB_OK);
        txt_kind.SetFocus;
        Result := 1;
        Exit;
      end else begin
        if strSQL = '' then
            strSQL := 'SELECT * FROM PJ_CK WHERE PJ_KIND_ID = ''' + Trim(str_id) + ''' '
        else
          strSQL := strSQL + 'AND PJ_KIND_ID = ''' + Trim(str_id) + ''' ';
      end;
    end;
    //
    if Trim(txt_gg.Text) <> '' then begin
      if Trim(txt_kind.Text) = '' then begin
        MessageBox(Handle, '请确定配件类型', '沈阳信德', MB_ICONQUESTION or MB_OK);
        txt_kind.SetFocus;
        Result := 1;
        Exit;
      end else begin
        str_id := Copy(hideList[1].Items[hideList[1].ItemIndex], 1, 20);
        if Trim(str_id) <> Trim(qe_gg.ParamByName('ipj_kind_id').Value) then begin
          MessageBox(Handle, '配件规格与配件类型不一致', '沈阳信德', MB_ICONQUESTION or MB_OK);
          txt_kind.SetFocus;
          Result := 1;
          Exit;
        end else begin
          str_id := Copy(hideList[2].Items[hideList[2].ItemIndex], 1, 20);
          str_name := Copy(hideList[2].Items[hideList[2].ItemIndex], 21, 60);
          if Trim(str_name) <> Trim(txt_gg.Text) then begin
            MessageBox(Handle, '配件规格不完整', '沈阳信德', MB_ICONQUESTION or MB_OK);
            txt_gg.SetFocus;
            Result := 1;
            Exit;
          end else begin
            if strSQL = '' then
              strSQL := 'SELECT * FROM PJ_CK WHERE PJ_GG_ID = ''' + Trim(str_id) + ''' '
            else
              strSQL := strSQL + 'AND PJ_GG_ID = ''' + Trim(str_id) + ''' ';
          end;
        end;
      end;
    end;
    //
    if Trim(txt_pj.Text) <> '' then begin
      str_id := Copy(hideList[3].Items[hideList[3].ItemIndex], 1, 20);
      str_name := Copy(hideList[3].Items[hideList[3].ItemIndex], 21, 60);
      if Trim(str_name) <> Trim(txt_pj.Text) then begin
        MessageBox(Handle, '配件名称不完整', '沈阳信德', MB_ICONQUESTION or MB_OK);
        txt_pj.SetFocus;
        Result := 1;
        Exit;
      end else begin
        if strSQL = '' then
            strSQL := 'SELECT * FROM PJ_CK WHERE PJ_ID = ''' + Trim(str_id) + ''' '
        else
            strSQL := strSQL + 'AND PJ_ID = ''' + Trim(str_id) + ''' ';
      end;
    end;
  end;
  //
  if cb_sum.Checked then begin
    if Trim(txt_sum_xx.Text) = '' then begin
      if Trim(txt_sum_sx.Text) = '' then begin
        MessageBox(Handle, '请确定库存数量', '沈阳信德', MB_ICONQUESTION or MB_OK);
        intResult := 1;
      end else begin
        MessageBox(Handle, '请确定库存数量下限', '沈阳信德', MB_ICONQUESTION or MB_OK);
        intResult := 1;
      end;
    end else begin
      Val(Trim(txt_sum_xx.Text), v1, code);
      if (code <> 0) or (v1 < 0.01) then begin
        MessageBox(Handle, '库存数量下限无效', '沈阳信德', MB_ICONQUESTION or MB_OK);
        intResult := 1;
      end else begin
        if Trim(txt_sum_sx.Text) = '' then begin
          if strSQL = '' then
            strSQL := 'SELECT * FROM PJ_CK WHERE PJ_SUM = ' + Trim(txt_sum_xx.Text) + ' '
          else
            strSQL := strSQL + 'AND PJ_SUM = ' + Trim(txt_sum_xx.Text) + ' ';
        end else begin
          Val(Trim(txt_sum_sx.Text), v1, code);
          if (code <> 0) or (v1 < 0.01) then begin
            MessageBox(Handle, '返库数量上限无效', '沈阳信德', MB_ICONQUESTION or MB_OK);
            intResult := 1;
          end else begin
            if strSQL = '' then
              strSQL := 'SELECT * FROM PJ_CK WHERE PJ_SUM >= ' + Trim(txt_sum_xx.Text) + ' AND PJ_SUM <= ' + Trim(txt_sum_sx.Text) + ' '
            else
              strSQL := strSQL + 'AND PJ_SUM >= ' + Trim(txt_sum_xx.Text) + ' AND PJ_SUM <= ' + Trim(txt_sum_sx.Text) + ' ';
          end;
        end;
      end;
    end;
  end;
  //
  if (not cb_pj.Checked) and (not cb_sum.Checked) then begin
    MessageBox(Handle, '请确定查询条件', '沈阳信德', MB_ICONQUESTION or MB_OK);
    intResult := 1;
  end;
  //
  Result := intResult;
end;

procedure Tfrm_q_ck.FormShow(Sender: TObject);
begin
  arrayInit;
  lstInfoInit;
  //
  frm_main.mu_cx_ck.Enabled := False;
  frm_main.cmd_ck.Enabled := False;
  frm_main.current_handle := Handle;
end;

procedure Tfrm_q_ck.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qe_kind.Close;
  qe_gg.Close;
  qe_pj.Close;
  qe_pj_rk.Close;
  //
  frm_main.mu_cx_ck.Enabled := True;
  frm_main.cmd_ck.Enabled := True;
  frm_main.current_handle := 0;
  //
  Action := caFree;
end;

procedure Tfrm_q_ck.FormDestroy(Sender: TObject);
begin
  qe_kind := nil;
  qe_gg := nil;
  qe_pj := nil;
  qe_pj_rk := nil;
  //
  frm_q_ck := nil;
end;

procedure Tfrm_q_ck.cb_sumClick(Sender: TObject);
begin
  if cb_sum.Checked then begin
    pe_sum.Enabled := True;
    txt_sum_xx.SetFocus;
  end else begin
    txt_sum_xx.Text := '';
    txt_sum_sx.Text := '';
    pe_sum.Enabled := False;
  end;
end;

procedure Tfrm_q_ck.cmd_qClick(Sender: TObject);
var
  intResult: integer;
begin
  hideList[1].Visible := False;
  hideList[2].Visible := False;
  hideList[3].Visible := False;
  //
  intResult := RuleCheck;
  if intResult = 1 then
    Exit
  else begin
    strSQL := strSQL + 'AND PJ_KIND_ID <> ''' + '000' + ''' ';
    qe_pj_rk.Close;
    qe_pj_rk.SQL.Clear;
    qe_pj_rk.SQL.Add(strSQL);
    qe_pj_rk.Open;
    qe_pj_rk.First;
    //
    if (qe_pj_rk.Bof) and (qe_pj_rk.Eof) then begin
      MessageBox(Handle, '没有找到满足条件记录', '沈阳信德', MB_ICONQUESTION or MB_OK);
      qe_pj_rk.Close;
      cmd_print.Enabled := False;
      //
      Exit;
    end;
    //
    cmd_print.Enabled := True;
  end;
end;


procedure Tfrm_q_ck.txt_sum_xxKeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Ord(Key) = 8) or (Ord(Key) = 46) or (Ord(Key) = 13)) then
    Key := Chr(0);
end;

procedure Tfrm_q_ck.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;
end;

procedure Tfrm_q_ck.cb_pjClick(Sender: TObject);
begin
  if cb_pj.Checked then begin
    txt_kind.Enabled := True;
    b1.Enabled := True;
    txt_gg.Enabled := True;
    b2.Enabled := True;
    txt_pj.Enabled := True;
    b3.Enabled := True;
    //
    txt_kind.SetFocus;
  end else begin
    hideList[1].Visible := False;
    hideList[2].Visible := False;
    hideList[3].Visible := False;
    //
    txt_kind.OnChange := nil;
    txt_kind.Text := '';
    txt_kind.OnChange := frm_q_ck.ControlChange;
    //
    txt_gg.OnChange := nil;
    txt_gg.Text := '';
    txt_gg.OnChange := frm_q_ck.ControlChange;
    //
    txt_pj.OnChange := nil;
    txt_pj.Text := '';
    txt_pj.OnChange := frm_q_ck.ControlChange;
    //
    txt_kind.Enabled := False;
    b1.Enabled := False;
    txt_gg.Enabled := False;
    b2.Enabled := False;
    txt_pj.Enabled := False;
    b3.Enabled := False;
  end;
end;

procedure Tfrm_q_ck.b1Click(Sender: TObject);
begin
  hideList[1].Visible := True;
end;

procedure Tfrm_q_ck.b2Click(Sender: TObject);
begin
  hideList[2].Visible := True;
end;

procedure Tfrm_q_ck.b3Click(Sender: TObject);
begin
  hideList[3].Visible := True;
end;

end.