stock_sumqry.pas

来自「学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码」· PAS 代码 · 共 106 行

unit stock_sumqry;

interface

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

type
  TfrmStocksumQry = class(TForm)
    DBChart: TDBChart;
    DB_StockSumQry: TDBGrid;
    ADO_SumStock: 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;
    RecDatefr: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    RecDateto: TDateTimePicker;
    RB_Qty: TRadioButton;
    RB_Money: TRadioButton;
    Series1: TBarSeries;
    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
  frmStocksumQry: TfrmStocksumQry;

implementation

uses unit_main_dm;

{$R *.dfm}

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

    DB_StockSumQry.Columns.Items[0].FieldName:='prod_id';
    DB_StockSumQry.Columns.Items[1].FieldName:='pruduct_des';
    DB_StockSumQry.Columns.Items[2].FieldName:='total_qty';
    DB_StockSumQry.Columns.Items[3].FieldName:='total_money';
    RecDatefr.Date:=Now();

    RecDateto.Date:=Now();
end;

procedure TfrmStocksumQry.SpeedButton1Click(Sender: TObject);
begin
    ADO_SumStock.Close;
    ADO_SumStock.SQL.Clear;
    ADO_SumStock.SQL.Add('exec sp_cjh_Sum_Stock '''+DateToStr(RecDatefr.Date)+''','''+DateToStr(RecDateto.Date)+'''');
    ADO_SumStock.Open;
    if RB_Qty.Checked then
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='Pruduct_des';
        Series1.YValues.ValueSource:='total_qty';
        Series1.DataSource:=ADO_SumStock;
    end;
    if RB_Money.Checked then
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='Pruduct_des';
        Series1.YValues.ValueSource:='total_Money';
        Series1.DataSource:=ADO_SumStock;
    end;
end;

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

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

end.