frm_k_sjszpas.dfm

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

        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 271
        Top = 47
        Width = 70
        Height = 14
        Caption = #24310#26102#26102#38388#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object dtp1: TDateTimePicker
        Left = 82
        Top = 14
        Width = 123
        Height = 22
        Date = 36761.312500000000000000
        Time = 36761.312500000000000000
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Kind = dtkTime
        ParentFont = False
        TabOrder = 0
      end
      object dtp3: TDateTimePicker
        Left = 82
        Top = 43
        Width = 123
        Height = 22
        Date = 36761.340277777800000000
        Time = 36761.340277777800000000
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Kind = dtkTime
        ParentFont = False
        TabOrder = 1
      end
      object dtp2: TDateTimePicker
        Left = 355
        Top = 14
        Width = 123
        Height = 22
        Date = 36761.333333333300000000
        Time = 36761.333333333300000000
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Kind = dtkTime
        ParentFont = False
        TabOrder = 2
      end
      object dtp4: TDateTimePicker
        Left = 355
        Top = 43
        Width = 123
        Height = 22
        Date = 36761.354166666700000000
        Time = 36761.354166666700000000
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Kind = dtkTime
        ParentFont = False
        TabOrder = 3
      end
    end
    object bc: TEdit
      Left = 40
      Top = 12
      Width = 41
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = '0'
      OnKeyPress = bcKeyPress
    end
    object bcms: TEdit
      Left = 240
      Top = 12
      Width = 113
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object cmbCdZt: TComboBox
      Left = 432
      Top = 12
      Width = 78
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 3
      Items.Strings = (
        'C:'#36831#21040
        'Z:'#26089#36864)
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 126
      Width = 517
      Height = 171
      Align = alBottom
      Color = clHighlightText
      DataSource = DSSjb
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'bc'
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bcms'
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kssj'
          Title.Caption = #25171#21345#26102#38388
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dksj'
          Title.Caption = #19978'/'#19979#29677#26102#38388
          Width = 91
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jzsj'
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yssj'
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cdzt'
          Title.Caption = #36831#21040'/'#26089#36864
          Visible = True
        end>
    end
  end
  object TV: TTreeView
    Left = 8
    Top = 59
    Width = 169
    Height = 297
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Indent = 19
    ParentFont = False
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 24
    Top = 16
    Width = 81
    Height = 25
    Caption = #28155#21152
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 120
    Top = 16
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 208
    Top = 16
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object ADOTSjb: TADOTable
    Connection = WindData.AdoConn
    CursorType = ctStatic
    TableName = 'Kq_Sjb'
    Left = 392
    object ADOTSjbbc: TIntegerField
      DisplayLabel = #29677#27425
      FieldName = 'bc'
    end
    object ADOTSjbbcms: TStringField
      DisplayLabel = #29677#27425#25551#36848
      FieldName = 'bcms'
      Size = 16
    end
    object ADOTSjbkssj: TStringField
      DisplayLabel = #24320#22987#26102#38388
      FieldName = 'kssj'
      FixedChar = True
      Size = 8
    end
    object ADOTSjbdksj: TStringField
      DisplayLabel = #25171#21345#26102#38388
      FieldName = 'dksj'
      FixedChar = True
      Size = 8
    end
    object ADOTSjbjzsj: TStringField
      DisplayLabel = #25130#27490#26102#38388
      FieldName = 'jzsj'
      FixedChar = True
      Size = 8
    end
    object ADOTSjbyssj: TStringField
      DisplayLabel = #24310#36831#26102#38388
      FieldName = 'yssj'
      FixedChar = True
      Size = 8
    end
    object ADOTSjbcdzt: TStringField
      FieldName = 'cdzt'
      FixedChar = True
      Size = 4
    end
  end
  object DSSjb: TDataSource
    DataSet = ADOTSjb
    Left = 424
  end
  object popmenuYhxx: TPopupMenu
    Left = 464
    object N5: TMenuItem
      Caption = #26597#35810#29992#25143#20449#24687
    end
  end
end