chardata.~dfm

来自「delphi renyuanguanlixinxioxitong」· ~DFM 代码 · 共 76 行

object frmCharData: TfrmCharData
  Left = 213
  Top = 177
  Width = 586
  Height = 370
  Caption = #25105#30340#22270#34920#35774#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 32
    Top = 8
    Width = 505
    Height = 273
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Font.Charset = ANSI_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = #23435#20307
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #21592#24037#23703#20301#32479#35745#22270#34920)
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      SeriesColor = clRed
      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
    end
  end
  object Button1: TButton
    Left = 216
    Top = 304
    Width = 75
    Height = 25
    Caption = #22270#34920#26174#31034
    TabOrder = 1
    OnClick = Button1Click
  end
  object aqrySearch: TADOQuery
    Connection = adoConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select PostName,count(*) PostCount'
      'from DCPost a, Employee b'
      'where a.PostNo=b.PostNo'
      'group by PostName')
    Left = 80
    Top = 8
  end
  object adoConn: TADOConnection
    ConnectionString = 
      'Provider=OraOLEDB.Oracle.1;Password=teacher;Persist Security Inf' +
      'o=True;User ID=teacher;Data Source=demo'
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 40
    Top = 8
  end
end