statemploye.dfm

delphi renyuanguanlixinxioxitong

inherited frmStatEmployee: TfrmStatEmployee
  Left = 250
  Top = 193
  Width = 606
  Height = 443
  Caption = #21592#24037#32479#35745
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited CoolBar1: TCoolBar
    Top = 387
    Width = 598
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 594
      end>
    inherited ToolBar1: TToolBar
      Width = 581
      inherited tbtnSelect: TToolButton
        Visible = False
      end
      inherited tbtnView: TToolButton
        Visible = False
      end
    end
  end
  inherited Panel1: TPanel
    Width = 598
    Height = 257
    object Label2: TLabel
      Left = 32
      Top = 72
      Width = 121
      Height = 16
      AutoSize = False
      Caption = #36873#25321#32479#35745#22270#31867#22411
    end
    object Chart1: TChart
      Left = 192
      Top = 1
      Width = 405
      Height = 255
      AllowPanning = pmNone
      AllowZoom = False
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      BackWall.Pen.Visible = False
      Title.Text.Strings = (
        'TChart')
      AxisVisible = False
      ClipPoints = False
      Frame.Visible = False
      View3D = False
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      View3DWalls = False
      Align = alRight
      Color = clGradientActiveCaption
      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
      object Series2: TPieSeries
        Marks.ArrowLength = 8
        Marks.Visible = True
        SeriesColor = clGreen
        OtherSlice.Text = 'Other'
        PieValues.DateTime = False
        PieValues.Name = 'Pie'
        PieValues.Multiplier = 1.000000000000000000
        PieValues.Order = loNone
      end
      object Series3: TLineSeries
        Marks.ArrowLength = 8
        Marks.Visible = False
        SeriesColor = clYellow
        Pointer.InflateMargins = True
        Pointer.Style = psRectangle
        Pointer.Visible = False
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1.000000000000000000
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1.000000000000000000
        YValues.Order = loNone
      end
    end
    object lboxStat: TListBox
      Left = 32
      Top = 104
      Width = 121
      Height = 97
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      Items.Strings = (
        #30452#26041#22270
        #39292#22270
        #32447#22270)
      ParentFont = False
      TabOrder = 1
    end
  end
  inherited Panel2: TPanel
    Top = 257
    Width = 598
    Height = 130
    inherited dbgQuery: TDBGrid
      Width = 596
      Height = 128
      Columns = <
        item
          Expanded = False
          FieldName = 'POSTNO'
          Title.Caption = #23703#20301#32534#21495
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 124
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POSTNAME'
          Title.Caption = #23703#20301#21517#31216
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 172
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POSTCOUNT'
          Title.Caption = #21592#24037#25968#37327
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 78
          Visible = True
        end>
    end
  end
  inherited aqryQuery: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select a.PostNo,PostName,count(*) PostCount'
      'from Employee a,DCPost b'
      'where a.PostNo=b.PostNo'
      'group by a.PostNo,PostName')
    Left = 16
    Top = 353
    object aqryQueryPOSTNO: TWideStringField
      FieldName = 'POSTNO'
      FixedChar = True
      Size = 3
    end
    object aqryQueryPOSTNAME: TWideStringField
      FieldName = 'POSTNAME'
      Size = 30
    end
    object aqryQueryPOSTCOUNT: TBCDField
      FieldName = 'POSTCOUNT'
      ReadOnly = True
      Precision = 32
    end
  end
  inherited dsQuery: TDataSource
    Left = 48
    Top = 353
  end
end