gross_profit.pas

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

unit gross_profit;

interface

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

type
  TfrmGrossProfit = class(TForm)
    DBChart: TDBChart;
    Series1: TBarSeries;
    DB_Gross_Profit: TDBGrid;
    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;
    CB3D: TCheckBox;
    ADO_Gross_Profit: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CB3DClick(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGrossProfit: TfrmGrossProfit;

implementation

uses unit_main_dm, main;

{$R *.dfm}

procedure TfrmGrossProfit.FormShow(Sender: TObject);
begin
    ADO_Gross_Profit.Close;
    ADO_Gross_Profit.SQL.Clear;
    ADO_Gross_Profit.SQL.Add('EXEC sp_cjh_gross_profit ''1900-01-01'',''2090-01-01''');
    ADO_Gross_Profit.Open;
    DB_Gross_Profit.Columns.Items[0].FieldName:='prod_id';
    DB_Gross_Profit.Columns.Items[1].FieldName:='prod_name';
    DB_Gross_Profit.Columns.Items[2].FieldName:='avg_stock_price';
    DB_Gross_Profit.Columns.Items[3].FieldName:='avg_sell_price';
    DB_Gross_Profit.Columns.Items[4].FieldName:='sell_total_money';
    DB_Gross_Profit.Columns.Items[5].FieldName:='gross_profit';
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='prod_name';
        Series1.YValues.ValueSource:='';
        Series1.YValues.ValueSource:='gross_profit';
        Series1.DataSource:=ADO_Gross_Profit;
    end;
    SellDatefr.Date:=Now();

    SellDateto.Date:=Now();

end;

procedure TfrmGrossProfit.SpeedButton1Click(Sender: TObject);
begin
    ADO_Gross_Profit.Close;
    ADO_Gross_Profit.SQL.Clear;
    ADO_Gross_Profit.SQL.Add('exec sp_cjh_gross_profit '''+DateToStr(SellDatefr.Date)+''','''+DateToStr(SellDateto.Date)+'''');
    ADO_Gross_Profit.Open;
    begin
        Series1.XLabelsSource:='';
        Series1.XLabelsSource:='prod_name';
        Series1.YValues.ValueSource:='';
        Series1.YValues.ValueSource:='gross_profit';
        Series1.DataSource:=ADO_Gross_Profit;
    end;

end;

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

procedure TfrmGrossProfit.SpeedButton36Click(Sender: TObject);
begin
//    if frmMain.PCMain.ActivePage<>frmMain.TB_Main then
//    begin
 //   frmMain.PCMain.ActivePage.Free;
//    end;
end;

end.