u_stat.pas

《delphi数据库系统开发实例导航》源代码

unit u_stat;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TeEngine, Series, ExtCtrls, Mask, TeeProcs, Chart;

type
  TF_stat = class(TForm)
    GroupBox1: TGroupBox;
    Chart1: TChart;
    Label1: TLabel;
    i_start_date: TMaskEdit;
    Label2: TLabel;
    i_end_date: TMaskEdit;
    i_step: TRadioGroup;
    i_type: TRadioGroup;
    Series1: TBarSeries;
    B_stat: TButton;
    B_print: TButton;
    i_room_level: TListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure B_statClick(Sender: TObject);
    procedure B_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_stat: TF_stat;

implementation

uses u_main, u_data;
{$R *.DFM}

procedure TF_stat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_main.RoomStat.Enabled:=True;
  Action:=caFree;
end;

procedure TF_stat.FormCreate(Sender: TObject);
begin
  i_end_date.Text:=FormatDateTime('yyyy-mm-dd', now);
  i_start_date.Text:=FormatDateTime('yyyy-mm-dd', now-30);
  DM_main.GetRoomLevel(i_room_level.Items);
  i_room_level.ItemIndex:=0;
end;

procedure TF_stat.B_statClick(Sender: TObject);
var
  StartDate, EndDate:TDate;
  TimeStep, StatType:Boolean;
begin
  StartDate:=StrToDate(i_start_date.Text);
  EndDate:=StrToDate(i_end_date.Text);
  TimeStep:=(i_step.ItemIndex=0);
  StatType:=(i_type.ItemIndex=0);
  DM_main.GetRoomStat(StartDate,EndDate,TimeStep,StatType,i_room_level.ItemIndex,Series1)
end;

procedure TF_stat.B_printClick(Sender: TObject);
begin
  Chart1.Print;
end;

end.