u_stat.dfm

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

object F_stat: TF_stat
  Left = 220
  Top = 191
  BorderStyle = bsSingle
  Caption = '统计报表'
  ClientHeight = 424
  ClientWidth = 585
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 569
    Height = 97
    Anchors = [akLeft, akTop, akRight]
    Caption = '统计条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 72
      Height = 13
      Caption = '时间范围：从'
    end
    object Label2: TLabel
      Left = 176
      Top = 24
      Width = 12
      Height = 13
      Caption = '到'
    end
    object i_start_date: TMaskEdit
      Left = 104
      Top = 20
      Width = 65
      Height = 21
      EditMask = '!0000-!90-90;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '    -  -  '
    end
    object i_end_date: TMaskEdit
      Left = 192
      Top = 20
      Width = 65
      Height = 21
      EditMask = '!0000-!90-90;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    -  -  '
    end
    object i_step: TRadioGroup
      Left = 24
      Top = 56
      Width = 89
      Height = 33
      Caption = '时间单位'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '日'
        '月')
      TabOrder = 2
    end
    object i_type: TRadioGroup
      Left = 280
      Top = 16
      Width = 105
      Height = 73
      Caption = '统计内容'
      ItemIndex = 0
      Items.Strings = (
        '营业额'
        '客房使用率')
      TabOrder = 3
    end
    object B_stat: TButton
      Left = 120
      Top = 64
      Width = 57
      Height = 25
      Caption = '统计'
      TabOrder = 4
      OnClick = B_statClick
    end
    object B_print: TButton
      Left = 184
      Top = 64
      Width = 83
      Height = 25
      Caption = '打印统计图'
      TabOrder = 5
      OnClick = B_printClick
    end
    object i_room_level: TListBox
      Left = 400
      Top = 16
      Width = 145
      Height = 73
      Columns = 1
      ItemHeight = 13
      TabOrder = 6
    end
  end
  object Chart1: TChart
    Left = 8
    Top = 112
    Width = 569
    Height = 305
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'TChart')
    MaxPointsPerPage = 12
    TabOrder = 1
    Anchors = [akLeft, akTop, akRight, akBottom]
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clRed
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
end