fx_unit.pas

网上搜索来的进销存源码

  end;
end;
//end;

procedure Tfx_form.SpeedButton1Click(Sender: TObject);
var ppp: double;
  pp: string;
  i: integer;
begin
  with database do
  begin
    adoq1.Connection := adoc;
    adoq1.SQL.Clear;
    edit4.Text := formatdatetime('MM-dd-yy', datetimepicker1.date);
    edit5.Text := formatdatetime('MM-dd-yy', datetimepicker2.date);
//*****************************************************************************
    if radiobutton1.Checked then
    begin
      case combobox1.ItemIndex of
        0:
          begin
            case combobox2.ItemIndex of
              0: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品编码,sum(数量) as 总数量 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(数量) as 总数量 from jhd group by 商品编码');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.0结束
              1: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品编码,sum(金额) as 总金额 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(金额) as 总金额 from jhd group by 商品编码');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.1结束
            end; //combobox2case结束
          end; //combobox1(0)结束
        1:
          begin
            case combobox2.ItemIndex of
              0: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品名称,sum(数量) as 总数量 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品名称')
                  else
                    adoq1.SQL.Add('select 商品名称,sum(数量) as 总数量 from jhd group by 商品名称');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.0结束
              1: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品名称,sum(金额) as 总金额 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品名称')
                  else
                    adoq1.SQL.Add('select 商品名称,sum(金额) as 总金额 from jhd group by 商品名称');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.1结束
            end; //combobox2case结束
          end; //combobox1(1)结束
        2:
          begin
            case combobox2.ItemIndex of
              0: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 类别,sum(数量) as 总数量 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 类别')
                  else
                    adoq1.SQL.Add('select 类别,sum(数量) as 总数量 from jhd group by 类别');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.0结束
              1: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 类别,sum(金额) as 总金额 from jhd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 类别')
                  else
                    adoq1.SQL.Add('select 类别,sum(金额) as 总金额 from jhd group by 类别');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.1结束
            end; //combobox2case结束
          end; //combobox1(2)结束
      end; //combobox1case结束
    end; //ridiobutton1结束
//*****************************************************************************
    if radiobutton2.Checked then
    begin
      case combobox1.ItemIndex of
        0:
          begin
            case combobox2.ItemIndex of
              0: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品编码,sum(数量) as 总数量 from jhthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(数量) as 总数量 from jhthd group by 商品编码');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.0结束
              1: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品编码,sum(金额) as 总金额 from jhthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(金额) as 总金额 from jhthd group by 商品编码');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;
                    pp := adoq1.Fields.Fields[0].AsString;
                    ppp := adoq1.Fields.Fields[1].AsFloat;
                    chart1.Series[0].Add(ppp, pp, clred);
                    for i := 1 to adoq1.RecordCount - 1 do
                    begin
                      if not adoq1.Recordset.EOF then
                      begin
                        adoq1.MoveBy(1);
                        pp := adoq1.Fields.Fields[0].AsString;
                        ppp := adoq1.Fields.Fields[1].AsFloat;
                        chart1.Series[0].Add(ppp, pp, clred);
                      end;
                    end;
                  end
                  else
                    showmessage('没有相关记录,请重新选择!');
                end; //combobox2.1结束
            end; //combobox2case结束
          end; //combobox1(0)结束
        1:
          begin
            case combobox2.ItemIndex of
              0: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品名称,sum(数量) as 总数量 from jhthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品名称')
                  else
                    adoq1.SQL.Add('select 商品名称,sum(数量) as 总数量 from jhthd group by 商品名称');
                  adoq1.Active := true;
                  chart1.Series[0].Clear;
                  if adoq1.Recordset.RecordCount > 0 then
                  begin
                    adoq1.Recordset.MoveFirst;