chararea.pas

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

unit chararea;

interface

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

type
  TFrm_Mailchart = class(TBaseForm)
    GroupBox1: TGroupBox;
    DBChart1: TDBChart;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    Series1: TBarSeries;
    ADOChart: TADODataSet;
    DSChart: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mailchart: TFrm_Mailchart;

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

procedure TFrm_Mailchart.FormShow(Sender: TObject);
begin
  ADOChart.Close;  
  ADOChart.Open;
end;

procedure TFrm_Mailchart.SpeedButton1Click(Sender: TObject);
var
  SQLStr:string;
begin
  SQLStr:='Select count(mr_sendto) 接收邮件数,mr_area 邮件接收地区 From '+
	    '(SELECT dbo.MR_InCept_Tab.MR_Sendto,dbo.MR_InCept_Tab.mr_date, dbo.MR_InceptPerson_Tab.MR_area '+
	      'FROM dbo.MR_InCept_Tab LEFT OUTER JOIN '+
			          'dbo.MR_InceptPerson_Tab ON '+
			          'dbo.MR_InCept_Tab.MR_SendTo = dbo.MR_InceptPerson_Tab.MR_Mail '+
         'where dbo.MR_InCept_Tab.MR_Date>='+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' and dbo.MR_InCept_Tab.MR_Date<='+
                      QuotedStr(DateTimeToStr(DateTimePicker2.DateTime))+') AreaCount '+
          ' group by mr_area';
  ADOChart.Close;
  ADOChart.CommandText:=SQLStr;
  ADOChart.Open;
end;

end.