formdorset.dfm

pasa人力资源考勤管理系统

        end
        object DBEdit2: TDBEdit
          Left = 42
          Top = 190
          Width = 135
          Height = 21
          DataField = 'cardno'
          DataSource = DDorInit
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
        object DBEdit3: TDBEdit
          Left = 42
          Top = 240
          Width = 135
          Height = 21
          DataField = 'dept'
          DataSource = DDorInit
          TabOrder = 3
          OnKeyPress = FormKeyPress
        end
        object DBEdit4: TDBEdit
          Left = 42
          Top = 264
          Width = 135
          Height = 21
          DataField = 'reReader'
          DataSource = DDorInit
          TabOrder = 4
          OnKeyPress = FormKeyPress
        end
        object DBEdit5: TDBEdit
          Left = 42
          Top = 289
          Width = 135
          Height = 21
          DataField = 'noid'
          DataSource = DDorInit
          TabOrder = 5
          OnKeyPress = FormKeyPress
        end
        object DBEdit6: TDBEdit
          Left = 42
          Top = 215
          Width = 135
          Height = 21
          DataField = 'name'
          DataSource = DDorInit
          TabOrder = 2
          OnKeyPress = FormKeyPress
        end
        object DBEdit7: TDBEdit
          Left = 42
          Top = 314
          Width = 135
          Height = 21
          DataField = 'times'
          DataSource = DDorInit
          TabOrder = 6
          OnKeyPress = FormKeyPress
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 599
        Height = 424
        Align = alClient
        DataSource = DDorInit
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 99
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'times'
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'reReader'
            Width = 31
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'mark'
            Width = 37
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'noid'
            Width = 38
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'photo'
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = '门禁日汇总'
      ImageIndex = 3
      object Splitter1: TSplitter
        Left = 0
        Top = 170
        Width = 784
        Height = 2
        Cursor = crVSplit
        Align = alTop
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 172
        Width = 784
        Height = 252
        Align = alClient
        DataSource = DDorday1
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'times'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'reReader'
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'mark'
            Width = 32
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'noid'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'photo'
            Visible = True
          end>
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 33
        Width = 784
        Height = 137
        Align = alTop
        DataSource = DDorday
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid4TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'rq'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'daytimes'
            Visible = True
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 33
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 2
        object Label30: TLabel
          Left = 571
          Top = 10
          Width = 48
          Height = 13
          Caption = '部门名称'
        end
        object Label27: TLabel
          Left = 347
          Top = 8
          Width = 111
          Height = 13
          Caption = '工号/卡号/姓名/部门'
        end
        object Label25: TLabel
          Left = 188
          Top = 10
          Width = 48
          Height = 13
          Caption = '结束日期'
        end
        object Label26: TLabel
          Left = 172
          Top = 7
          Width = 16
          Height = 16
          Caption = '----'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '新细明体'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label24: TLabel
          Left = 9
          Top = 9
          Width = 48
          Height = 13
          Caption = '开始日期'
        end
        object ComboBox6: TComboBox
          Left = 625
          Top = 5
          Width = 91
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          OnChange = ComboBox6Change
          OnKeyPress = FormKeyPress
        end
        object Edit3: TEdit
          Left = 480
          Top = 5
          Width = 80
          Height = 21
          TabOrder = 2
          OnExit = Edit3Exit
          OnKeyPress = FormKeyPress
        end
        object MaskEdit5: TMaskEdit
          Left = 243
          Top = 5
          Width = 81
          Height = 21
          EditMask = '9999/99/99;1;_'
          MaxLength = 10
          TabOrder = 1
          Text = '    /  /  '
          OnExit = Edit3Exit
          OnKeyPress = FormKeyPress
        end
        object DateTimePicker2: TDateTimePicker
          Left = 326
          Top = 5
          Width = 18
          Height = 21
          CalAlignment = dtaLeft
          Date = 37313.9958338773
          Time = 37313.9958338773
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
          OnExit = DateTimePicker2Exit
        end
        object DateTimePicker1: TDateTimePicker
          Left = 148
          Top = 6
          Width = 17
          Height = 21
          CalAlignment = dtaLeft
          Date = 37313.9958338773
          Time = 37313.9958338773
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 5
          OnExit = DateTimePicker1Exit
        end
        object MaskEdit4: TMaskEdit
          Left = 64
          Top = 6
          Width = 81
          Height = 21
          EditMask = '9999/99/99;1;_'
          MaxLength = 10
          TabOrder = 0
          Text = '    /  /  '
          OnKeyPress = FormKeyPress
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = '门禁月汇总'
      ImageIndex = 4
      object Splitter2: TSplitter
        Left = 0
        Top = 169
        Width = 784
        Height = 2
        Cursor = crVSplit
        Align = alTop
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 32
        Width = 784
        Height = 137
        Align = alTop
        DataSource = DDormonthy
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText