gquery.dfm

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

object FormQuShi: TFormQuShi
  Left = 168
  Top = 141
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '刷卡趋势分析'
  ClientHeight = 390
  ClientWidth = 586
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000003888738337700000000000000000038FBFFFB788B8837700000000000
    0788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB888700000000
    007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFBFF7777000000
    0007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FBFFFBF8000000
    00007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    0000066660FFFBFFFBFFFBFFF80000666000066660FBFFFBFFFBFFFBF8000666
    66000006660FFBFFFBFFFBFFF8000E6666066660660FFFFFFFFBFFFBF8000E66
    66066660660000000FFFFBFFF8000EE6660666606607777777FBFFFBF8000EE6
    660EEEE6660FFBFFFBFFFBFFF80000EEE0770E6660FBFFFBFFFBFFFBF8000000
    00000EEE60FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    0000077777777777777777777700000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FFFF00007FFC00
    001FF800000FF8000007FC000003FE000001FE000001FF000001FF000001FF80
    0001FF800001FF800001C7000001830000010000000100000001000000010000
    00010000000180000001C7000001FF800001FF800001FF800001FF800001FF80
    0001FF800001FFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000087B77088800000008FFFBF0B7880000008BFFFB0FB7800000
    8FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660FBFFFB700660
    0060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000FFBFFFB700000
    08FBFFFBFF7000000888888888800000000000000000FFFF0000F00F0000E003
    0000E0010000F0000000F0000000F8000000F800000090000000000000000000
    00000000000098000000F8000000F8000000FFFF0000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 16
  object panel1: TPanel
    Left = 8
    Top = 0
    Width = 569
    Height = 73
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object LabelFrom: TLabel
      Left = 136
      Top = 11
      Width = 16
      Height = 20
      Caption = '从'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelTo: TLabel
      Left = 138
      Top = 42
      Width = 16
      Height = 20
      Caption = '至'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelToYear: TLabel
      Left = 214
      Top = 40
      Width = 16
      Height = 20
      Caption = '年'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelFromMonth: TLabel
      Left = 270
      Top = 11
      Width = 16
      Height = 20
      Caption = '月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object LabelFromYear: TLabel
      Left = 214
      Top = 11
      Width = 16
      Height = 20
      Caption = '年'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object LabelToMonth: TLabel
      Left = 271
      Top = 39
      Width = 16
      Height = 20
      Caption = '月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object LabelFromDay: TLabel
      Left = 329
      Top = 12
      Width = 16
      Height = 20
      Caption = '日'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object LabelToDay: TLabel
      Left = 330
      Top = 40
      Width = 16
      Height = 20
      Caption = '日'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Panel3: TPanel
      Left = 352
      Top = 0
      Width = 217
      Height = 73
      TabOrder = 1
      object DBLookupComboBoxComp: TDBLookupComboBox
        Left = 24
        Top = 40
        Width = 177
        Height = 22
        DataField = 'comp_code'
        DataSource = HuaXiaData.qs_DataSource1
        KeyField = 'comp_code'
        ListField = 'comp_name'
        ListSource = HuaXiaData.CompDataSource
        TabOrder = 2
      end
      object RadioButtonSeleComp: TRadioButton
        Left = 120
        Top = 14
        Width = 89
        Height = 17
        Caption = '所选单位'
        TabOrder = 1
        OnClick = RadioButtonSeleCompClick
      end
      object RadioButtonAllComp: TRadioButton
        Left = 24
        Top = 15
        Width = 89
        Height = 17
        Caption = '全部单位'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButtonAllCompClick
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 129
      Height = 73
      TabOrder = 0
      object RadioButtonYear: TRadioButton
        Left = 24
        Top = 2
        Width = 81
        Height = 25
        Caption = '不同年'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButtonYearClick
      end
      object RadioButtonMonth: TRadioButton
        Left = 24
        Top = 30
        Width = 73
        Height = 17
        Caption = '不同月'
        TabOrder = 1
        OnClick = RadioButtonMonthClick
      end
      object RadioButtonDay: TRadioButton
        Left = 24
        Top = 53
        Width = 89
        Height = 17
        Caption = '不同日'
        TabOrder = 2
        OnClick = RadioButtonDayClick
      end
    end
    object SpinEditFromYear: TSpinEdit
      Left = 152
      Top = 8
      Width = 60
      Height = 23
      MaxValue = 2100
      MinValue = 1900
      TabOrder = 2
      Value = 1900
      OnExit = SpinEditFromYearExit
    end
    object SpinEditToYear: TSpinEdit
      Left = 153
      Top = 37
      Width = 60
      Height = 23
      MaxValue = 2100
      MinValue = 1900
      TabOrder = 3
      Value = 1900
      OnExit = SpinEditToYearExit
    end
    object SpinEditToMonth: TSpinEdit
      Left = 232
      Top = 37
      Width = 38
      Height = 23
      MaxValue = 12
      MinValue = 1
      TabOrder = 4
      Value = 1
      OnExit = SpinEditToMonthExit
    end
    object SpinEditFromMonth: TSpinEdit
      Left = 232
      Top = 8
      Width = 39
      Height = 23
      MaxValue = 12
      MinValue = 1
      TabOrder = 5
      Value = 1
      OnExit = SpinEditFromMonthExit
    end
    object SpinEditToDay: TSpinEdit
      Left = 288
      Top = 36
      Width = 40
      Height = 23
      MaxValue = 31
      MinValue = 1
      TabOrder = 6
      Value = 1
      OnExit = SpinEditToDayExit
    end
    object SpinEditFromDay: TSpinEdit
      Left = 288
      Top = 8
      Width = 40
      Height = 23
      MaxValue = 31
      MinValue = 1
      TabOrder = 7
      Value = 1
      OnExit = SpinEditFromDayExit
    end
  end
  object ButtonStatic: TButton
    Left = 153
    Top = 350
    Width = 75
    Height = 25
    Caption = '生成(&G)'
    TabOrder = 2
    OnClick = ButtonStaticClick
  end
  object ButtonClose: TButton
    Left = 417
    Top = 350
    Width = 75
    Height = 25
    Caption = '关闭(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = ButtonCloseClick
  end
  object PageControlQuShi: TPageControl
    Left = 8
    Top = 80
    Width = 569
    Height = 257
    ActivePage = TabSheetQuXian
    TabOrder = 1
    object TabSheetLieBiao: TTabSheet
      Caption = '列表显示'
      OnEnter = TabSheetLieBiaoEnter
      OnShow = TabSheetLieBiaoEnter
      object DBGridQuShi: TDBGrid
        Left = 0
        Top = 0
        Width = 561
        Height = 225
        DataSource = HuaXiaData.DataSourceQuShi
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheetQuXian: TTabSheet
      Caption = '曲线图'
      ImageIndex = 1
      OnEnter = TabSheetQuXianEnter
      OnShow = TabSheetQuXianEnter
      object DBChartQuShi: TDBChart
        Left = 0
        Top = 0
        Width = 561
        Height = 226
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        MarginBottom = 5
        MarginRight = 10
        MarginTop = 5
        Title.Text.Strings = (
          '')
        View3D = False
        TabOrder = 0
        object Series1: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clRed
          ShowInLegend = False
          XLabelsSource = 'comp_name'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'amount'
        end
        object Series2: TLineSeries
          Marks.ArrowLength = 20
          Marks.Visible = False
          SeriesColor = 16744576
          ShowInLegend = False
          XLabelsSource = 'COLUMN3'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'COLUMN3'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'COUNT_OF_brush_date'
        end
      end
    end
  end
  object ButtonPrint: TButton
    Left = 289
    Top = 350
    Width = 75
    Height = 25
    Caption = '打印(&P)'
    TabOrder = 4
    OnClick = ButtonPrintClick
  end
end