frm_k_bcszpas.dfm

来自「是一个用delphi设计的考勤系统」· DFM 代码 · 共 1,145 行 · 第 1/5 页

      C000C0C0C0C0C0C0C0C0C0C0C0C0C1C1C1C2C2C2C5C5C5C8C8C8CBCBCBCFCFCF
      D3D3D3D5D5D5D7D7D7D8D8D8D7D7D7D5D5D5D3D3D3CFCFCFCBCBCBC8C8C8C5C5
      C5C2C2C2C1C1C1C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
    OnClick = BtnLastClick
  end
  object YhLv: TListView
    Left = 237
    Top = 86
    Width = 535
    Height = 240
    Checkboxes = True
    Columns = <
      item
        Caption = #29992#25143#32534#21495
        Width = 108
      end
      item
        Caption = #29992#25143#22995#21517
        Width = 87
      end
      item
        Caption = #25152#23646#37096#38376
        Width = 195
      end
      item
        Alignment = taCenter
        Caption = #24050#35774#29677#27425
        Width = 141
      end>
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 0
    ViewStyle = vsReport
    OnColumnClick = YhLvColumnClick
  end
  object Panel1: TPanel
    Left = 1
    Top = 87
    Width = 201
    Height = 347
    Caption = 'Panel1'
    TabOrder = 1
    object TV: TTreeView
      Left = 1
      Top = 1
      Width = 199
      Height = 345
      Align = alClient
      AutoExpand = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      Indent = 19
      ParentFont = False
      TabOrder = 0
      OnClick = TVClick
    end
  end
  object BcLv: TListView
    Left = 208
    Top = 332
    Width = 564
    Height = 104
    Checkboxes = True
    Columns = <
      item
        Caption = #29677#27425
        Width = 54
      end
      item
        Caption = #25551#36848
        Width = 108
      end
      item
        Caption = #24320#22987#26102#38388
        Width = 98
      end
      item
        Caption = #25171#21345#26102#38388
        Width = 98
      end
      item
        Caption = #24310#26102#26102#38388
        Width = 98
      end
      item
        Caption = #25130#27490#26102#38388
        Width = 98
      end>
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    Items.Data = {
      600000000400000000000000FFFFFFFFFFFFFFFF000000000000000001310000
      0000FFFFFFFFFFFFFFFF0000000000000000013200000000FFFFFFFFFFFFFFFF
      0000000000000000013300000000FFFFFFFFFFFFFFFF00000000000000000134}
    ParentFont = False
    TabOrder = 2
    ViewStyle = vsReport
    OnColumnClick = BcLvColumnClick
  end
  object ProgressBar1: TProgressBar
    Left = 4
    Top = 46
    Width = 768
    Height = 7
    Smooth = True
    TabOrder = 3
  end
  object rbnfg: TRadioButton
    Left = 236
    Top = 60
    Width = 192
    Height = 18
    Caption = #35206#30422#65306#21024#38500#24050#26377#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object rbnhl: TRadioButton
    Left = 434
    Top = 60
    Width = 176
    Height = 18
    Caption = #24573#30053#65306#20445#30041#24050#26377#35774#32622
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    TabStop = True
  end
  object cmbN: TComboBox
    Left = 46
    Top = 56
    Width = 65
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 6
    Items.Strings = (
      '2001'
      '2002'
      '2003'
      '2004'
      '2005'
      '2006'
      '2007'
      '2008'
      '2009'
      '2010')
  end
  object cmbY: TComboBox
    Left = 132
    Top = 56
    Width = 48
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 7
    Items.Strings = (
      '01'
      '02'
      '03'
      '04'
      '05'
      '06'
      '07'
      '08'
      '09'
      '10'
      '11'
      '12')
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = 8
    Width = 81
    Height = 25
    Caption = #20840#37096#35774#23450
    TabOrder = 8
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 112
    Top = 8
    Width = 75
    Height = 25
    Caption = #37096#20998#35774#23450
    TabOrder = 9
    OnClick = BitBtn2Click
  end
  object qryBcsd: TADOQuery
    Connection = WindData.AdoConn
    Parameters = <>
    SQL.Strings = (
      'select * from v_yhk where 1>2')
    Left = 248
    Top = 16
  end
end