charts.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit Charts;

interface

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

type
  TFrm_Chart = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ADOPice: TADODataSet;
    DSPice: TDataSource;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Chart: TFrm_Chart;

implementation
uses Main,DM;
{$R *.dfm}

procedure TFrm_Chart.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  SQLStr:='select sum(MR_Pict_Tab.MR_PicT) as  价格总数,(select Count (MR_Name) from MR_Buyer_Tab) as 客户数量 from MR_Pict_Tab,MR_Buyer_Tab  '+
      ' Where MR_Pict_Tab.MR_ClientID=MR_Buyer_Tab.MR_ID and MR_Buyer_Tab.MR_Date>=#'+DateToStr(DateTimePicker1.DateTime)+
      '# and MR_Buyer_Tab.MR_Date<=#'+DateToStr(DateTimePicker2.DateTime)+'#';
  ADOPice.Close;
  ADOPice.CommandText:=SQLStr;
  ADOPice.Open;
end;

procedure TFrm_Chart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  ActiveForm:=nil;
end;

end.