u_attendance.~dfm

工作计划管理

object F_attendance: TF_attendance
  Left = 220
  Top = 128
  Width = 696
  Height = 480
  Caption = '考勤修改'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 88
    Width = 673
    Height = 353
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '添加修改出勤记录'
      OnShow = TabSheet1Show
      object Label5: TLabel
        Left = 8
        Top = 120
        Width = 84
        Height = 13
        Caption = '出勤记录列表：'
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 136
        Width = 649
        Height = 177
        DataSource = DM_main.DS_attendance
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            ReadOnly = True
            Title.Caption = '记录编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PERSON'
            ReadOnly = True
            Title.Caption = '员工号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IN_OUT'
            PickList.Strings = (
              'I'
              'O')
            Title.Caption = '出入情况'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'IO_TIME'
            Title.Caption = '时间'
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 649
        Height = 97
        Caption = '添加记录'
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 60
          Height = 13
          Caption = '出入时间：'
        end
        object Label2: TLabel
          Left = 232
          Top = 24
          Width = 36
          Height = 13
          Caption = '部门：'
        end
        object Label3: TLabel
          Left = 456
          Top = 24
          Width = 48
          Height = 13
          Alignment = taRightJustify
          Caption = '员工号：'
        end
        object Label4: TLabel
          Left = 468
          Top = 62
          Width = 36
          Height = 13
          Alignment = taRightJustify
          Caption = '姓名：'
        end
        object Gauge1: TGauge
          Left = 216
          Top = 80
          Width = 233
          Height = 9
          Progress = 0
        end
        object i_io_time: TMaskEdit
          Left = 80
          Top = 20
          Width = 121
          Height = 21
          EditMask = '!0000-!90-90 !90:00;1;_'
          MaxLength = 16
          TabOrder = 0
          Text = '    -  -     :  '
        end
        object i_in_out: TRadioGroup
          Left = 16
          Top = 48
          Width = 185
          Height = 33
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '出'
            '入')
          TabOrder = 1
        end
        object i_io_person_id: TMaskEdit
          Left = 512
          Top = 20
          Width = 121
          Height = 21
          EditMask = '>L!99999;1;_'
          MaxLength = 6
          TabOrder = 2
          Text = '      '
          OnChange = i_io_person_idChange
        end
        object B_add_all: TButton
          Left = 216
          Top = 48
          Width = 75
          Height = 25
          Caption = '全部员工'
          TabOrder = 3
          OnClick = B_add_allClick
        end
        object B_add_depart: TButton
          Left = 296
          Top = 48
          Width = 75
          Height = 25
          Caption = '部门员工'
          TabOrder = 4
          OnClick = B_add_departClick
        end
        object B_add_person: TButton
          Left = 376
          Top = 48
          Width = 75
          Height = 25
          Caption = '单个员工'
          TabOrder = 5
          OnClick = B_add_personClick
        end
        object i_io_person_name: TEdit
          Left = 512
          Top = 58
          Width = 121
          Height = 21
          Color = clSilver
          ReadOnly = True
          TabOrder = 6
        end
        object i_io_depart_id: TMaskEdit
          Left = 272
          Top = 20
          Width = 49
          Height = 21
          EditMask = '>LLL;1;_'
          MaxLength = 3
          TabOrder = 7
          Text = '   '
          OnChange = i_io_depart_idChange
        end
        object i_io_depart_name: TEdit
          Left = 336
          Top = 20
          Width = 89
          Height = 21
          Color = clSilver
          ReadOnly = True
          TabOrder = 8
        end
      end
      object B_seek_io: TButton
        Left = 576
        Top = 112
        Width = 75
        Height = 25
        Caption = '按条件检索'
        TabOrder = 2
        OnClick = B_seek_ioClick
      end
      object B_delete_attend: TButton
        Left = 472
        Top = 112
        Width = 91
        Height = 25
        Caption = '删除当前记录'
        TabOrder = 3
        OnClick = B_delete_attendClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = '加班记录'
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Label6: TLabel
        Left = 8
        Top = 120
        Width = 84
        Height = 13
        Caption = '加班记录列表：'
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 8
        Width = 649
        Height = 97
        Caption = '添加记录'
        TabOrder = 0
        object Label19: TLabel
          Left = 36
          Top = 24
          Width = 36
          Height = 13
          Caption = '日期：'
        end
        object Label20: TLabel
          Left = 264
          Top = 24
          Width = 48
          Height = 13
          Alignment = taRightJustify
          Caption = '员工号：'
        end
        object Label21: TLabel
          Left = 12
          Top = 64
          Width = 60
          Height = 13
          Caption = '加班时间：'
        end
        object Label22: TLabel
          Left = 152
          Top = 64
          Width = 24
          Height = 13
          Caption = '小时'
        end
        object Label28: TLabel
          Left = 252
          Top = 64
          Width = 60
          Height = 13
          Caption = '员工姓名：'
        end
        object i_overtime_date: TMaskEdit
          Left = 80
          Top = 20
          Width = 97
          Height = 21
          EditMask = '!0000-!90-90;1;_'
          MaxLength = 10
          TabOrder = 0
          Text = '    -  -  '
        end
        object i_overtime_person_id: TMaskEdit
          Left = 320
          Top = 20
          Width = 97
          Height = 21
          EditMask = '>L!00000;1;_'
          MaxLength = 6
          TabOrder = 1
          Text = '      '
          OnChange = i_overtime_person_idChange
        end
        object B_overtime_add: TButton
          Left = 504
          Top = 40
          Width = 75
          Height = 25
          Caption = '添加'
          TabOrder = 2
          OnClick = B_overtime_addClick
        end
        object i_overtime_person_name: TEdit
          Left = 320
          Top = 60
          Width = 97
          Height = 21
          Color = clSilver
          ReadOnly = True
          TabOrder = 3
        end
        object i_overtime_hour: TSpinEdit
          Left = 80
          Top = 59
          Width = 65
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 4
          Value = 0
        end
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 136
        Width = 649
        Height = 177
        DataSource = DM_main.DS_overtime
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID'
            ReadOnly = True
            Title.Caption = '记录编号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PERSON'
            ReadOnly = True
            Title.Caption = '员工号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WORK_HOURS'
            Title.Caption = '加班时间'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'WORK_DATE'
            Title.Caption = '加班日期'
            Visible = True
          end>
      end
      object B_seek_overtime: TButton
        Left = 576
        Top = 112
        Width = 75
        Height = 25
        Caption = '按条件检索'
        TabOrder = 2
        OnClick = B_seek_overtimeClick
      end
      object B_delete_overtime: TButton
        Left = 472
        Top = 112
        Width = 91
        Height = 25
        Caption = '删除当前记录'
        TabOrder = 3
        OnClick = B_delete_overtimeClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = '请假记录'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label7: TLabel
        Left = 8
        Top = 120
        Width = 84
        Height = 13
        Caption = '出勤记录列表：'
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 8
        Width = 649
        Height = 97
        Caption = '添加记录'
        TabOrder = 0
        object Label10: TLabel
          Left = 16
          Top = 24