chart_bass.dfm

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

inherited Frm_chart_bass: TFrm_chart_bass
  Left = 280
  Top = 188
  Width = 646
  Height = 455
  ActiveControl = CB_3DCHART
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Frm_chart_bass'
  Constraints.MinHeight = 400
  Constraints.MinWidth = 500
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PanelBkGnd: TPanel
    Width = 638
    Height = 428
    object DBC_data: TDBChart
      Left = 0
      Top = 41
      Width = 638
      Height = 346
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.Direction = gdFromBottomLeft
      Gradient.EndColor = 16744576
      Gradient.Visible = True
      LeftWall.Brush.Color = clWhite
      LeftWall.Brush.Style = bsClear
      PrintProportional = False
      Title.Font.Charset = GB2312_CHARSET
      Title.Font.Color = clBlue
      Title.Font.Height = -19
      Title.Font.Name = #23435#20307
      Title.Font.Style = [fsBold, fsItalic]
      Title.Text.Strings = (
        #36890#29992#22270#34920)
      Chart3DPercent = 40
      LeftAxis.LabelsFont.Charset = GB2312_CHARSET
      LeftAxis.LabelsFont.Color = clBlack
      LeftAxis.LabelsFont.Height = -12
      LeftAxis.LabelsFont.Name = #23435#20307
      LeftAxis.LabelsFont.Style = []
      LeftAxis.Title.Caption = #25968#20540
      LeftAxis.Title.Font.Charset = GB2312_CHARSET
      LeftAxis.Title.Font.Color = clBlack
      LeftAxis.Title.Font.Height = -14
      LeftAxis.Title.Font.Name = #23435#20307
      LeftAxis.Title.Font.Style = []
      View3DWalls = False
      Align = alClient
      TabOrder = 0
      object Series_two: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clRed
        BarStyle = bsRectGradient
        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
      object Series_one: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = False
        SeriesColor = clBlue
        BarStyle = bsRectGradient
        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
    object Panel_top: TPanel
      Left = 0
      Top = 0
      Width = 638
      Height = 41
      Align = alTop
      TabOrder = 1
      object SB_query: TFlatSpeedButton
        Left = 300
        Top = 11
        Width = 25
        Height = 20
        Cursor = crHandPoint
        Hint = #25191#34892#26597#35810
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888800000888880000080F000888880F00080F000888880F
          0008000000080000000800F000000F00000800F000800F00000800F000800F00
          00088000000000000088880F00080F0008888800000800000888888000888000
          88888880F08880F0888888800088800088888888888888888888}
        Layout = blGlyphLeft
        ParentShowHint = False
        ShowHint = True
        OnClick = SB_queryClick
      end
      object Label4: TLabel
        Left = 18
        Top = 15
        Width = 162
        Height = 12
        Caption = #26085#26399#65306'                   '#33267
      end
      object Panel_printbutton: TPanel
        Left = 544
        Top = 1
        Width = 93
        Height = 39
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object SB_print: TFlatSpeedButton
          Left = 9
          Top = 8
          Width = 78
          Height = 25
          Cursor = crHandPoint
          Hint = #25171#21360#39044#35272
          Caption = #25253#34920#36755#20986
          Glyph.Data = {
            06030000424D06030000000000003600000028000000100000000F0000000100
            180000000000D0020000C40E0000C40E00000000000000000000C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000000000000000000000
            0000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0
            C0000000C0C0C0C0C0C000000000000000000000000000000000000000000000
            0000000000000000000000000000000000C0C0C0000000C0C0C0000000C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000FFFF00FFFF00FFFFC0C0C0C0C0C00000
            00000000000000C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000
            0000000000000000C0C0C0C0C0C0000000C0C0C0000000C0C0C0000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0000000C0C0C0000000C0C0C0000000
            000000000000000000000000000000000000000000000000000000C0C0C00000
            00C0C0C0000000000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000C0C0C0C0C0C0
            C0C0C0000000FFFFFF000000000000000000000000000000FFFFFF0000000000
            00000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0000000FFFFFF000000000000000000000000000000FFFFFF0000
            00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0
            C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
            00000000C0C0C0C0C0C0}
          Layout = blGlyphLeft
          ParentShowHint = False
          ShowHint = True
        end
      end
      object DTP_begin: TDateTimePicker
        Left = 53
        Top = 11
        Width = 113
        Height = 20
        CalAlignment = dtaLeft
        Date = 37363.8363062037
        Time = 37363.8363062037
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
        OnChange = DTP_beginChange
      end
      object DTP_end: TDateTimePicker
        Left = 184
        Top = 11
        Width = 113
        Height = 20
        CalAlignment = dtaLeft
        Date = 37363.8366037384
        Time = 37363.8366037384
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 2
        OnChange = DTP_endChange
      end
    end
    object Panel_bottom: TPanel
      Left = 0
      Top = 387
      Width = 638
      Height = 41
      Align = alBottom
      TabOrder = 2
      object Panel_closebutton: TPanel
        Left = 556
        Top = 1
        Width = 81
        Height = 39
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object DFB_CLOSE: TDsFancyButton
          Left = 7
          Top = 8
          Width = 67
          Height = 25
          Cursor = crHandPoint
          ButtonColor = clBtnFace
          Caption = #20851#38381'[&C]'
          FrameColor = clGray
          FrameWidth = 6
          CornerRadius = 3
          TextStyle = txRaised
          OnClick = DFB_CLOSEClick
        end
      end
      object CB_3DCHART: TFlatCheckBox
        Left = 7
        Top = 13
        Width = 76
        Height = 17
        Caption = #31435#20307#26174#31034
        TabOrder = 1
        TabStop = True
        OnClick = CB_3DCHARTClick
      end
      object TrackBar_3dview: TTrackBar
        Left = 84
        Top = 7
        Width = 150
        Height = 28
        Enabled = False
        Max = 100
        Min = 1
        Orientation = trHorizontal
        Frequency = 1
        Position = 40
        SelEnd = 0
        SelStart = 0
        TabOrder = 2
        TickMarks = tmBottomRight
        TickStyle = tsManual
        OnChange = TrackBar_3dviewChange
      end
    end
  end
  object Query_data: TQuery
    DatabaseName = 'THINKSHOP'
    Left = 20
    Top = 7
  end
end