brushorder.pas

本系统为演示Delphi的功能而开发设计

unit brushorder;

interface

uses Windows, SysUtils,Messages, dialogs,Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin, Db, DBTables,
  TeEngine, Series, TeeProcs, Chart, DBChart, Classes;

type
  TFormPaiHang = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    ButtonStatic: TButton;
    ButtonClose: TButton;
    Label6: TLabel;
    RadioButtonSheng: TRadioButton;
    RadioButtonJiang: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButtonAll: TRadioButton;
    RadioButtonTop: TRadioButton;
    PageControlPaiHang: TPageControl;
    TabSheetLieBiao: TTabSheet;
    TabSheetZhiFang: TTabSheet;
    DateTimePickerFrom: TDateTimePicker;
    DateTimePickerTo: TDateTimePicker;
    DBGrid1: TDBGrid;
    ButtonPrint: TButton;
    DBChartZhiFang: TDBChart;
    Series1: TBarSeries;
    TabSheetBing: TTabSheet;
    DBChartBing: TDBChart;
    Series2: TPieSeries;
   
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure ButtonPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePickerFromExit(Sender: TObject);
    procedure DateTimePickerToExit(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPaiHang: TFormPaiHang;
  fromdate:TDateTime;
  todate:TDateTime;

implementation

uses huaxia,rephb;
{$R *.DFM}


procedure TFormPaiHang.ButtonCloseClick(Sender: TObject);
begin
  close;
end;


procedure TFormPaiHang.ButtonStaticClick(Sender: TObject);
begin
  If RadioButtonSheng.checked  Then
  Begin
      If RadiobuttonAll.checked Then
      Begin
          HuaxiaData.QueryShengTop.Active:=False;
          HuaxiaData.QueryShengAll.Active:=False;
          HuaxiaData.QueryJiangTop.Active:=False;
          HuaxiaData.QueryJiangAll.Active:=False;
          HuaxiaData.DataSourcePaiHang.Dataset:=Huaxiadata.QueryShengAll;
          Series1.Active:=True;
          Series1.DataSource:=huaxiadata.QueryShengAll;
          Series1.XLabelsSource:='comp_name';
          Series1.XValues.ValueSource:='';
          Series1.YValues.ValueSource:='COUNT_OF_brush_date';
          Series1.XValues.Order:=loAscending;
          Series2.Active:=True;
          Series2.OtherSlice.style:=pobelowpercent;
          Series2.OtherSlice.text:='其他';
          Series2.OtherSlice.value:=2;
          Series2.Datasource:=HuaxiaData.QueryShengAll;
          Series2.YValues.valuesource:='count_of_brush_date';
          Series2.xlabelssource:='comp_name';
          phbreport.quickrep1.dataset:=huaxiadata.QueryShengAll;
          phbreport.qrdbtext1.dataset:=huaxiadata.QueryShengAll;
          phbreport.qrdbtext1.datafield:='comp_code';
          phbreport.qrdbtext2.dataset:=huaxiadata.QueryShengAll;
          phbreport.qrdbtext2.datafield:='comp_name';
          phbreport.qrdbtext3.dataset:=huaxiadata.QueryShengAll;
          phbreport.qrdbtext3.datafield:='count_of_brush_date';
          With huaxiadata.QueryShengAll Do
            Begin
              ParamByName('fromdate').Value:=datetimepickerFrom.datetime;
              ParamByName('todate').Value:=datetimepickerTo.datetime;
            End;
          Huaxiadata.QueryShengAll.Prepare;
          Huaxiadata.QueryShengAll.Active:=True;
      End
      Else
      Begin
          HuaxiaData.QueryShengTop.Active:=False;
          HuaxiaData.QueryShengAll.Active:=False;
          HuaxiaData.QueryJiangTop.Active:=False;
          HuaxiaData.QueryJiangAll.Active:=False;
          HuaxiaData.DataSourcePaiHang.Dataset:=Huaxiadata.QueryShengTop;
          Series1.Active:=True;
          Series1.DataSource:=huaxiadata.QueryShengTop;
          Series1.XLabelsSource:='comp_name';
          Series1.XValues.ValueSource:='';
          Series1.YValues.ValueSource:='COUNT_OF_brush_date';
          Series1.XValues.Order:=loAscending;
          Series2.Active:=True;
          Series2.OtherSlice.style:=pobelowpercent;
          Series2.OtherSlice.text:='其他';
          Series2.OtherSlice.value:=2;
          Series2.Datasource:=HuaxiaData.QueryShengTop;
          Series2.YValues.valuesource:='count_of_brush_date';
          Series2.xlabelssource:='comp_name';
          phbreport.quickrep1.dataset:=huaxiadata.QueryShengTop;
          phbreport.qrdbtext1.dataset:=huaxiadata.QueryShengTop;
          phbreport.qrdbtext1.datafield:='comp_code';
          phbreport.qrdbtext2.dataset:=huaxiadata.QueryShengTop;
          phbreport.qrdbtext2.datafield:='comp_name';
          phbreport.qrdbtext3.dataset:=huaxiadata.QueryShengTop;
          phbreport.qrdbtext3.datafield:='count_of_brush_date';
          With huaxiadata.QueryShengTop Do
            Begin
              ParamByName('fromdate').Value:=datetimepickerFrom.datetime;
              ParamByName('todate').Value:=datetimepickerTo.datetime;
            End;
          Huaxiadata.QueryShengTop.Prepare;
          Huaxiadata.QueryShengTop.Active:=True;
      End
  End    
  Else  if radiobuttonJiang.checked then
    Begin
      If RadiobuttonAll.checked Then
       Begin
       HuaxiaData.QueryShengTop.Active:=False;
       HuaxiaData.QueryShengAll.Active:=False;
       HuaxiaData.QueryJiangTop.Active:=False;
       HuaxiaData.QueryJiangAll.Active:=False;
       Huaxiadata.DatasourcePaiHang.dataset:=huaxiadata.QueryJiangAll;
       series1.active:=true;
       series1.DataSource:=huaxiadata.QueryJiangAll;
       series1.XLabelsSource:='comp_name';
       series1.XValues.ValueSource:='';
       series1.YValues.ValueSource:='COUNT_OF_brush_date';
       series1.XValues.Order:=loDescending;
       series2.active:=true;
       series2.OtherSlice.style:=pobelowpercent;
       series2.OtherSlice.text:='其他';
       series2.OtherSlice.value:=2;
       series2.datasource:=huaxiadata.QueryJiangAll;
       series2.YValues.valuesource:='count_of_brush_date';
       series2.xlabelssource:='comp_name';
       phbreport.quickrep1.dataset:=huaxiadata.QueryJiangAll;
       phbreport.qrdbtext1.dataset:=huaxiadata.QueryJiangAll;
       phbreport.qrdbtext1.datafield:='comp_code';
       phbreport.qrdbtext2.dataset:=huaxiadata.QueryJiangAll;
       phbreport.qrdbtext2.datafield:='comp_name';
       phbreport.qrdbtext3.dataset:=huaxiadata.QueryJiangAll;
       phbreport.qrdbtext3.datafield:='count_of_brush_date';
       With huaxiadata.QueryJiangAll Do
            Begin
            ParamByName('fromdate').Value:=datetimepickerFrom.DateTime;
            ParamByName('todate').Value:=datetimepickerTo.DateTime;
            End;
       huaxiadata.QueryJiangAll.prepare;
       huaxiadata.QueryJiangAll.active:=true;
       End
       Else If RadiobuttonTop.checked Then
            Begin
                 HuaxiaData.QueryShengTop.Active:=False;
                 HuaxiaData.QueryShengAll.Active:=False;
                 HuaxiaData.QueryJiangTop.Active:=False;
                 HuaxiaData.QueryJiangAll.Active:=False;
                 series1.Active:=True;
                 series1.DataSource:=huaxiadata.QueryJiangTop;
                 series1.XLabelsSource:='comp_name';
                 series1.XValues.ValueSource:='';
                 series1.YValues.ValueSource:='COUNT_OF_brush_date';
                 series1.XValues.Order:=loDescending;
                 series2.Active:=true;
                 series2.Datasource:=huaxiadata.QueryJiangTop;
                 series2.YValues.valuesource:='count_of_brush_date';
                 series2.xlabelssource:='comp_name';
                 phbreport.quickrep1.dataset:=huaxiadata.QueryJiangTop;
                 phbreport.qrdbtext1.dataset:=huaxiadata.QueryJiangTop;
                 phbreport.qrdbtext1.datafield:='comp_code';
                 phbreport.qrdbtext2.dataset:=huaxiadata.QueryJiangTop;
                 phbreport.qrdbtext2.datafield:='comp_name';
                 phbreport.qrdbtext3.dataset:=huaxiadata.QueryJiangTop;
                 phbreport.qrdbtext3.datafield:='count_of_brush_date';
                With Huaxiadata.QueryJiangTop Do
                  Begin
                     ParamByName('fromdate').Value:=datetimepickerFrom.DateTime;
                     ParamByName('todate').Value:=datetimepickerTo.DateTime;
                   End;
                  Huaxiadata.QueryJiangTop.Prepare;
                  Huaxiadata.QueryJiangTop.Active:=True;
             End;
        End;
end;

procedure TFormPaiHang.FormActivate(Sender: TObject);
begin
   DatetimePickerTo.date:=now;
   PageControlPaiHang.ActivePage:=TabSheetLieBiao;
end;

procedure TFormPaiHang.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     HuaxiaData.QueryShengTop.Active:=False;
     HuaxiaData.QueryShengAll.Active:=False;
     HuaxiaData.QueryJiangTop.Active:=False;
     HuaxiaData.QueryJiangAll.Active:=False;
end;

procedure TFormPaiHang.DateTimePicker1Change(Sender: TObject);
begin
    Fromdate:=datetimepickerFrom.datetime;
    Todate:=datetimepickerTo.datetime;
   if Todate<=Fromdate  then
    begin
     ShowMessage('终止日期应大于开始日期');
   end;
end;

procedure TFormPaiHang.ButtonPrintClick(Sender: TObject);
begin
 If PageControlPaiHang.ActivePage=TabSheetLieBiao Then
    phbreport.QuickRep1.Print;
 If PageControlPaiHang.ActivePage=TabSheetZhiFang Then
    DBChartZhiFang.Print;
 If PageControlPaiHang.ActivePage=TabSheetBing Then
    DBChartBing.Print;
end;

procedure TFormPaiHang.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

procedure TFormPaiHang.DateTimePickerFromExit(Sender: TObject);
begin
   Fromdate:=datetimepickerFrom.Datetime;
   Todate:=datetimepickerTo.Datetime;
   if Todate<=Fromdate  then
    begin
     ShowMessage('终止日期应大于开始日期');
   end;
end;

procedure TFormPaiHang.DateTimePickerToExit(Sender: TObject);
begin
   FromDate:=DatetimePickerFrom.datetime;
   ToDate:=DatetimePickerTo.datetime;
   if ToDate<=FromDate then
    begin
     ShowMessage('终止日期应大于开始日期');
    end;
end;

end.