uqueryallchart.dfm

港口货物管理系统

object fmqueryallchart: Tfmqueryallchart
  Left = 197
  Top = 107
  BorderStyle = bsDialog
  Caption = #35745#21010'-'#21040#28207#25968#25454#22270#24418#26174#31034
  ClientHeight = 503
  ClientWidth = 763
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 234
    Top = 16
    Width = 294
    Height = 27
    Caption = #35745#21010'-'#21040#28207#25968#25454#22270#24418#26174#31034
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 209
    Top = 6
    Width = 345
    Height = 50
  end
  object GroupBox2: TGroupBox
    Left = 121
    Top = 436
    Width = 521
    Height = 57
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 67
    Width = 193
    Height = 343
    Caption = #36873#39033
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 51
      Width = 48
      Height = 16
      Caption = #26376#20221#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 108
      Width = 48
      Height = 16
      Caption = #36135#20195#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 55
      Top = 46
      Width = 129
      Height = 27
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = []
      ItemHeight = 19
      ItemIndex = 2
      ParentFont = False
      TabOrder = 0
      Text = '03'
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        #25152#26377#26376)
    end
    object ComboBox2: TComboBox
      Left = 55
      Top = 103
      Width = 129
      Height = 27
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 1
    end
    object RadioGroup1: TRadioGroup
      Left = 8
      Top = 160
      Width = 177
      Height = 169
      Caption = #36873#25321#22270#24418#31867#22411
      ItemIndex = 2
      Items.Strings = (
        #25240#32447#22270
        #30452#26041#22270
        #39292'  '#22270)
      TabOrder = 2
    end
  end
  object DBChart1: TDBChart
    Left = 197
    Top = 77
    Width = 559
    Height = 330
    BackWall.Brush.Color = clWhite
    Title.Text.Strings = (
      'TDBChart')
    Legend.TextStyle = ltsRightValue
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    TabOrder = 0
  end
  object BitBtn3: TBitBtn
    Left = 509
    Top = 448
    Width = 105
    Height = 40
    Caption = #36864'   '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object BitBtn1: TBitBtn
    Left = 149
    Top = 448
    Width = 105
    Height = 40
    Caption = #26174#31034#22270#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 329
    Top = 448
    Width = 105
    Height = 40
    Caption = #25171#21360#22270#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object Query1: TQuery
    DatabaseName = 'port'
    Left = 600
    Top = 3
  end
  object BatchMove1: TBatchMove
    Destination = Table1
    Source = Query1
    Left = 656
    Top = 32
  end
  object Table1: TTable
    DatabaseName = 'port'
    TableName = 'mplan1.DB'
    Left = 608
    Top = 48
  end
  object Query2: TQuery
    DatabaseName = 'port'
    Left = 704
    Top = 16
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'port'
    SQL.Strings = (
      'select distinct agoodd from agoodd order by agoodd')
    Left = 16
    Top = 16
  end
end