chart_bass.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit CHART_BASS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, ComCtrls, MenuBar, ToolWin, ExtCtrls, StdCtrls,
  TeeProcs, TeEngine, Chart, DbChart, Series, DB, DBTables,
  DsFancyButton, TFlatSpeedButtonUnit, TFlatCheckBoxUnit,frmmain,myself;

type
  TFrm_chart_bass = class(TzypNeoForm)
    DBC_data: TDBChart;
    Panel_top: TPanel;
    Panel_bottom: TPanel;
    Series_two: TBarSeries;
    Query_data: TQuery;
    Series_one: TBarSeries;
    Panel_closebutton: TPanel;
    DFB_CLOSE: TDsFancyButton;
    Panel_printbutton: TPanel;
    SB_print: TFlatSpeedButton;
    SB_query: TFlatSpeedButton;
    CB_3DCHART: TFlatCheckBox;
    TrackBar_3dview: TTrackBar;
    Label4: TLabel;
    DTP_begin: TDateTimePicker;
    DTP_end: TDateTimePicker;
    procedure DFB_CLOSEClick(Sender: TObject);
    procedure CB_3DCHARTClick(Sender: TObject);
    procedure TrackBar_3dviewChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DTP_beginChange(Sender: TObject);
    procedure DTP_endChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_chart_bass: TFrm_chart_bass;

implementation

{$R *.dfm}

procedure TFrm_chart_bass.DFB_CLOSEClick(Sender: TObject);
begin
  inherited;
   self.Close ;
end;

procedure TFrm_chart_bass.CB_3DCHARTClick(Sender: TObject);
begin
  inherited;
   TrackBar_3dview.Enabled :=CB_3DCHART.Checked ;
   DBC_DATA.View3D := CB_3DCHART.Checked ;
   DBC_data.Chart3DPercent :=TrackBar_3dview.Position ;

end;

procedure TFrm_chart_bass.TrackBar_3dviewChange(Sender: TObject);
begin
  inherited;
   DBC_data.Chart3DPercent :=TrackBar_3dview.Position ;
end;

procedure TFrm_chart_bass.FormShow(Sender: TObject);
begin
  inherited;
   CB_3DCHART.Checked:=true;
end;

procedure TFrm_chart_bass.DTP_beginChange(Sender: TObject);
begin
  inherited;
   DTP_end.Date :=DTP_begin.Date + DaysInMonth(DTP_begin.Date)-1;
   sb_query.Enabled :=true;
   query_data.Close;
end;

procedure TFrm_chart_bass.DTP_endChange(Sender: TObject);
begin
  inherited;
   sb_query.Enabled :=true;
   query_data.Close;
end;

procedure TFrm_chart_bass.FormCreate(Sender: TObject);
var
  Year, Month, Day: Word;
begin
  inherited;
   query_data.DatabaseName :=HWSHOPDATA;
   DecodeDate(now, Year, Month, Day);
   if (I_countdate>0) and (I_countdate<28) then
      dtp_begin.Date :=EncodeDate(Year,Month-1,I_countdate+1)
   else
      dtp_begin.Date :=EncodeDate(Year,Month,1);
   Dtp_end.Date :=now;
end;

procedure TFrm_chart_bass.SB_queryClick(Sender: TObject);
begin
  inherited;
   sb_query.Enabled :=false;
end;

end.