sell_sumqry.~pas

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

unit sell_sumqry;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ToolWin, DB, ADODB, Grids, DBGrids,
  TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart;

type
  TfrmSellSumQry = class(TForm)
    DBChart: TDBChart;
    Series1: TBarSeries;
    DB_SellSumQry: TDBGrid;
    ADO_SumSell: TADOQuery;
    DataSource1: TDataSource;
    CoolBar1: TCoolBar;
    SpeedButton36: TSpeedButton;
    SB_Save: TSpeedButton;
    SpeedButton38: TSpeedButton;
    SB_Add: TSpeedButton;
    SpeedButton40: TSpeedButton;
    SpeedButton41: TSpeedButton;
    SpeedButton42: TSpeedButton;
    SB_Refresh: TSpeedButton;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    SellDatefr: TDateTimePicker;
    SellDateto: TDateTimePicker;
    RB_Qty: TRadioButton;
    RB_Money: TRadioButton;
    CB3D: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CB3DClick(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSellSumQry: TfrmSellSumQry;

implementation

uses unit_main_dm;

{$R *.dfm}

procedure TfrmSellSumQry.FormShow(Sender: TObject);
begin
    ADO_SumSell.Close;
    ADO_SumSell.SQL.Clear;
    ADO_SumSell.SQL.Add('exec sp_cjh_Sum_Sell ''1900-01-01'',''2090-01-01''');
    ADO_SumSell.Open;
    Series1.XLabelsSource:='Pruduct_des';
    Series1.YValues.ValueSource:='total_qty';
    Series1.DataSource:=ADO_SumSell;

    DB_SellSumQry.Columns.Items[0].FieldName:='prod_id';
    DB_SellSumQry.Columns.Items[1].FieldName:='pruduct_des';
    DB_SellSumQry.Columns.Items[2].FieldName:='total_qty';
    DB_SellSumQry.Columns.Items[3].FieldName:='total_money';

    SellDatefr.Date:=Now();

    SellDateto.Date:=Now();

end;

procedure TfrmSellSumQry.SpeedButton1Click(Sender: TObject);
begin
    ADO_SumSell.Close;
    ADO_SumSell.SQL.Clear;
    ADO_SumSell.SQL.Add('exec sp_cjh_Sum_Sell '''+DateToStr(SellDatefr.Date)+''','''+DateToStr(SellDateto.Date)+'''');
    ADO_SumSell.Open;
    if RB_Qty.Checked then
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='Pruduct_des';
        Series1.YValues.ValueSource:='total_qty';
        Series1.DataSource:=ADO_SumSell;
    end;
    if RB_Money.Checked then
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='Pruduct_des';
        Series1.YValues.ValueSource:='total_Money';
        Series1.DataSource:=ADO_SumSell;
    end;
end;

procedure TfrmSellSumQry.CB3DClick(Sender: TObject);
begin
 DBChart.View3D:=CB3D.Checked;
end;

procedure TfrmSellSumQry.SpeedButton36Click(Sender: TObject);
begin
Main_DM.ExitActivePage;
end;

end.