fx_unit.pas

网上搜索来的进销存源码

                      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; //ridiobutton3结束
//******************************************************************************
    if radiobutton4.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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(数量) as 总数量 from khthd 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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(金额) as 总金额 from khthd 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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品名称')
                  else
                    adoq1.SQL.Add('select 商品名称,sum(数量) as 总数量 from khthd 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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品名称')
                  else
                    adoq1.SQL.Add('select 商品名称,sum(金额) as 总金额 from khthd 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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 类别')
                  else
                    adoq1.SQL.Add('select 类别,sum(数量) as 总数量 from khthd 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 khthd  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 类别')
                  else
                    adoq1.SQL.Add('select 类别,sum(金额) as 总金额 from khthd 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; //ridiobutton4结束
//*****************************************************************************
    if radiobutton5.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 kcb  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(库存数量) as 库存总数量 from kcb 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 kcb  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码')
                  else
                    adoq1.SQL.Add('select 商品编码,sum(库存金额) as 库存总金额 from kcb 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结束
              2: begin
                  if checkbox1.Checked then
                    adoq1.SQL.Add('select 商品编码,库存上限 as kcxx from kcb  where 录单日期 between #' + edit4.text + '# and # ' + edit5.text + '# group by 商品编码,库存上限 ')
                  else
                    adoq1.SQL.Add('select 商品编码,库存上限 as kcxx from kcb 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