unit6.dfm

基于ORACLE的数据库操作系统！！能实现对数据的查询

object Form6: TForm6
  Left = 167
  Top = 144
  Width = 399
  Height = 452
  Caption = #20449#24687#32479#35745
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #21326#25991#32454#40657
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 0
    Top = 72
    Width = 176
    Height = 17
    Caption = #35831#36755#20837#24744#35201#32479#35745#30340#36710#27425#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 56
    Top = 16
    Width = 256
    Height = 33
    Caption = #28779#36710#31080#21153#32479#35745#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -32
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 208
    Top = 72
    Width = 129
    Height = 22
    KeyField = #36710#27425#21495
    ListField = #36710#27425#21495
    ListSource = DataSource2
    TabOrder = 0
  end
  object Button1: TButton
    Left = 344
    Top = 96
    Width = 33
    Height = 97
    Caption = #30830#35748
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 96
    Width = 337
    Height = 65
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #21326#25991#32454#40657
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #21326#25991#32454#40657
    TitleFont.Style = []
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 168
    Width = 337
    Height = 25
    TabOrder = 3
  end
  object DBChart1: TDBChart
    Left = 0
    Top = 208
    Width = 161
    Height = 210
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #20837#22352#29575)
    TabOrder = 4
    object Series2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = Query1
      SeriesColor = clBlue
      Title = #20837#22352#29575
      XLabelsSource = #36710#27425#21495
      BarPen.Color = 4194432
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = #20837#24231#29575
    end
  end
  object Button2: TButton
    Left = 344
    Top = 232
    Width = 33
    Height = 153
    Caption = #36864#20986
    TabOrder = 5
    OnClick = Button2Click
  end
  object DBChart2: TDBChart
    Left = 176
    Top = 208
    Width = 161
    Height = 209
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #25910#20837#24635#37329#39069't')
    TabOrder = 6
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = Query1
      SeriesColor = clRed
      Title = #25910#20837#24635#37329#39069
      XLabelsSource = #36710#27425#21495
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = #25910#20837#24635#37329#39069
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 184
    Top = 104
  end
  object Query1: TQuery
    DatabaseName = 'hfx'
    DataSource = DataSource2
    SQL.Strings = (
      'select * from hfxview2')
    Left = 232
    Top = 112
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 144
    Top = 104
  end
  object Table1: TTable
    DatabaseName = 'hfx'
    TableName = 'HFXVIEW2'
    Left = 104
    Top = 104
  end
end