rsqkqxfs.dfm

一个用vb mysql实现的人事管理信息系统希望对大家有用。

object frm_rsqkqxfs: Tfrm_rsqkqxfs
  Left = 332
  Top = 281
  Width = 672
  Height = 439
  Caption = 'frm_rsqkqxfs'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 664
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label2: TLabel
      Left = 181
      Top = 10
      Width = 226
      Height = 29
      Caption = #20154#20107#24773#20917#26354#32447#20998#26512#22270
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clInfoBk
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 188
      Top = 10
      Width = 270
      Height = 29
      Caption = #20154#20107#24773#20917#26354#32447#20998#26512#22270
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -29
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 169
    Height = 364
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Bevel1: TBevel
      Left = 16
      Top = 64
      Width = 121
      Height = 213
      Style = bsRaised
    end
    object Bevel2: TBevel
      Left = 16
      Top = 11
      Width = 121
      Height = 41
      Style = bsRaised
    end
    object CheckBox1: TCheckBox
      Left = 30
      Top = 23
      Width = 67
      Height = 17
      Caption = '3D'#25928#26524
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object RadioButton1: TRadioButton
      Left = 28
      Top = 82
      Width = 97
      Height = 17
      Caption = #25353#24615#21035#29983#25104
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 27
      Top = 122
      Width = 98
      Height = 17
      Caption = #25353#23398#21382#29983#25104
      TabOrder = 2
    end
    object RadioButton3: TRadioButton
      Left = 28
      Top = 159
      Width = 95
      Height = 17
      Caption = #25353#37096#38376#29983#25104
      TabOrder = 3
    end
    object RadioButton4: TRadioButton
      Left = 28
      Top = 197
      Width = 97
      Height = 17
      Caption = #25353#32844#31216#29983#25104
      TabOrder = 4
    end
    object RadioButton5: TRadioButton
      Left = 28
      Top = 236
      Width = 97
      Height = 17
      Caption = #25353#32844#21153#29983#25104
      TabOrder = 5
    end
    object Button1: TButton
      Left = 32
      Top = 293
      Width = 75
      Height = 25
      Caption = #29983#25104#26354#32447
      TabOrder = 6
      OnClick = Button1Click
    end
  end
  object Panel3: TPanel
    Left = 169
    Top = 41
    Width = 495
    Height = 364
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object DBChart1: TDBChart
      Left = 1
      Top = 1
      Width = 493
      Height = 362
      AllowPanning = pmNone
      AllowZoom = False
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      BackWall.Pen.Visible = False
      MarginBottom = 5
      MarginLeft = 5
      MarginRight = 5
      MarginTop = 5
      Title.Font.Charset = GB2312_CHARSET
      Title.Font.Color = clBlue
      Title.Font.Height = -15
      Title.Font.Name = #23435#20307
      Title.Font.Style = []
      Title.Text.Strings = (
        #20154#20107#26354#32447#20998#26512)
      AxisVisible = False
      Chart3DPercent = 20
      ClipPoints = False
      Frame.Visible = False
      LeftAxis.LabelStyle = talText
      LeftAxis.Visible = False
      Legend.TextStyle = ltsRightValue
      Legend.Visible = False
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      View3DOptions.Zoom = 99
      View3DWalls = False
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
      object Series1: TPieSeries
        Marks.ArrowLength = 8
        Marks.Style = smsPercent
        Marks.Visible = True
        DataSource = ADOQuery1
        SeriesColor = clRed
        XLabelsSource = 'rs'
        OtherSlice.Text = 'Other'
        PieValues.DateTime = False
        PieValues.Name = 'Pie'
        PieValues.Multiplier = 1
        PieValues.Order = loAscending
        PieValues.ValueSource = 'rs'
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = dmain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select count(*) as rs,zc as hl from ygzlb group by zc')
    Left = 120
    Top = 16
  end
end