⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit12.dfm

📁 某个城市的工业区的污水处理
💻 DFM
字号:
object Day_curve: TDay_curve
  Left = 13
  Top = -6
  Width = 799
  Height = 599
  Caption = 'Day_curve'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 368
    Top = 8
    Width = 66
    Height = 19
    Caption = 'Label2'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 512
    Top = 0
    Width = 121
    Height = 33
    TabOrder = 0
    Kind = bkClose
  end
  object BitBtn2: TBitBtn
    Left = 672
    Top = 0
    Width = 113
    Height = 33
    TabOrder = 1
    Kind = bkHelp
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 520
    Width = 791
    Height = 33
    Panels = <
      item
        Text = #28165#21326#21160#25511'           '
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = -8
    Top = 40
    Width = 793
    Height = 478
    TabOrder = 3
    object DBChart1: TDBChart
      Left = 24
      Top = 8
      Width = 361
      Height = 233
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.Visible = True
      Title.Text.Strings = (
        #27700#20301'(m)')
      TabOrder = 0
      object Series1: TLineSeries
        Marks.ArrowLength = 8
        Marks.Style = smsValue
        Marks.Visible = False
        DataSource = Day_data.Query1
        SeriesColor = clRed
        ShowInLegend = False
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = True
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = #36816#34892#26102#38388
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = #27700#20301
      end
    end
    object DBChart2: TDBChart
      Left = 24
      Top = 248
      Width = 361
      Height = 233
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.Visible = True
      Title.Text.Strings = (
        #27969#36895'(m/s)')
      TabOrder = 1
      object Series2: TLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        DataSource = Day_data.Query1
        SeriesColor = clRed
        ShowInLegend = False
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = True
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = #36816#34892#26102#38388
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = #27969#36895
      end
    end
    object DBChart3: TDBChart
      Left = 400
      Top = 8
      Width = 361
      Height = 233
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.Visible = True
      Title.Text.Strings = (
        #30636#26102#27969#37327'(t/h)')
      TabOrder = 2
      object Series3: TLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        DataSource = Day_data.Query1
        SeriesColor = clRed
        ShowInLegend = False
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = True
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = #36816#34892#26102#38388
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = #30636#26102#27969#37327
      end
    end
    object DBChart4: TDBChart
      Left = 400
      Top = 248
      Width = 361
      Height = 233
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Gradient.Visible = True
      Title.Text.Strings = (
        #32047#31215#27969#37327'(t)')
      TabOrder = 3
      object Series4: TLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        DataSource = Day_data.Query1
        SeriesColor = clRed
        ShowInLegend = False
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = True
        XValues.Name = 'X'
        XValues.Multiplier = 1
        XValues.Order = loAscending
        XValues.ValueSource = #36816#34892#26102#38388
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1
        YValues.Order = loNone
        YValues.ValueSource = #32047#35745#27969#37327
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 272
    Top = 112
    object N1: TMenuItem
      Caption = #26354#32447#36873#25321
      object N2S1: TMenuItem
        Caption = '2D'
        OnClick = N2S1Click
      end
      object N3D1: TMenuItem
        Caption = '3D'
        OnClick = N3D1Click
      end
    end
    object N2: TMenuItem
      Caption = #36864#20986
      object N4: TMenuItem
        Caption = #36864#20986
        OnClick = N4Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -