DataSource = DataSource1
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object wwCheckBox2: TwwCheckBox
        Left = 208
        Top = 42
        Width = 49
        Height = 17
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #26089#36864
        DataField = 'bOutEarly1'
        DataSource = DataSource1
        TabOrder = 4
        OnClick = wwCheckBox1Click
      end
      object wwDBSpinEdit2: TwwDBSpinEdit
        Left = 256
        Top = 42
        Width = 73
        Height = 21
        Increment = 1
        DataField = 'iOutEarlyTime1'
        DataSource = DataSource1
        TabOrder = 5
        UnboundDataType = wwDefault
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 120
      Width = 449
      Height = 77
      Caption = #29677#20108
      TabOrder = 4
      object Label9: TLabel
        Left = 16
        Top = 21
        Width = 26
        Height = 13
        Caption = #19978#29677
      end
      object Label10: TLabel
        Left = 16
        Top = 45
        Width = 26
        Height = 13
        Caption = #19979#29677
      end
      object Label11: TLabel
        Left = 330
        Top = 21
        Width = 29
        Height = 13
        Caption = #20998#37912' '
      end
      object Label12: TLabel
        Left = 330
        Top = 45
        Width = 29
        Height = 13
        Caption = #20998#37912' '
      end
      object SpeedButton3: TSpeedButton
        Tag = 21
        Left = 168
        Top = 16
        Width = 23
        Height = 22
        OnClick = SpeedButton1Click
      end
      object SpeedButton4: TSpeedButton
        Tag = 22
        Left = 168
        Top = 40
        Width = 23
        Height = 22
        OnClick = SpeedButton1Click
      end
      object wwDBDateTimePicker3: TwwDBDateTimePicker
        Left = 44
        Top = 17
        Width = 125
        Height = 21
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'tIn2'
        DataSource = DataSource1
        Epoch = 1950
        ShowButton = True
        TabOrder = 0
        DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
      end
      object wwDBDateTimePicker4: TwwDBDateTimePicker
        Left = 44
        Top = 41
        Width = 125
        Height = 21
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'tOut2'
        DataSource = DataSource1
        Epoch = 1950
        ShowButton = True
        TabOrder = 1
        DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
      end
      object wwCheckBox3: TwwCheckBox
        Left = 208
        Top = 18
        Width = 49
        Height = 17
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #36978#21040
        DataField = 'bInLater2'
        DataSource = DataSource1
        TabOrder = 2
        OnClick = wwCheckBox1Click
      end
      object wwDBSpinEdit3: TwwDBSpinEdit
        Left = 256
        Top = 18
        Width = 73
        Height = 21
        Increment = 1
        DataField = 'iInLaterTime2'
        DataSource = DataSource1
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object wwCheckBox4: TwwCheckBox
        Left = 208
        Top = 42
        Width = 49
        Height = 17
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #26089#36864
        DataField = 'bOutEarly2'
        DataSource = DataSource1
        TabOrder = 4
        OnClick = wwCheckBox1Click
      end
      object wwDBSpinEdit4: TwwDBSpinEdit
        Left = 256
        Top = 42
        Width = 73
        Height = 21
        Increment = 1
        DataField = 'iOutEarlyTime2'
        DataSource = DataSource1
        TabOrder = 5
        UnboundDataType = wwDefault
      end
    end
    object GroupBox3: TGroupBox
      Left = 16
      Top = 200
      Width = 449
      Height = 70
      Caption = #21152#29677
      TabOrder = 5
      object Label25: TLabel
        Left = 16
        Top = 21
        Width = 26
        Height = 13
        Caption = #19978#29677
      end
      object Label26: TLabel
        Left = 16
        Top = 45
        Width = 26
        Height = 13
        Caption = #19979#29677
      end
      object Label27: TLabel
        Left = 330
        Top = 21
        Width = 29
        Height = 13
        Caption = #20998#37912' '
      end
      object SpeedButton1: TSpeedButton
        Tag = 31
        Left = 168
        Top = 16
        Width = 23
        Height = 22
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Tag = 32
        Left = 168
        Top = 40
        Width = 23
        Height = 22
        OnClick = SpeedButton1Click
      end
      object wwDBDateTimePicker5: TwwDBDateTimePicker
        Left = 44
        Top = 17
        Width = 125
        Height = 21
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'tIn3'
        DataSource = DataSource1
        Epoch = 1950
        ShowButton = True
        TabOrder = 0
        DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
      end
      object wwDBDateTimePicker6: TwwDBDateTimePicker
        Left = 44
        Top = 41
        Width = 125
        Height = 21
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        DataField = 'tOut3'
        DataSource = DataSource1
        Epoch = 1950
        ShowButton = True
        TabOrder = 1
        DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
      end
      object wwCheckBox5: TwwCheckBox
        Left = 208
        Top = 18
        Width = 49
        Height = 17
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #36978#21040
        DataField = 'bInLater3'
        DataSource = DataSource1
        TabOrder = 2
        OnClick = wwCheckBox1Click
      end
      object wwDBSpinEdit5: TwwDBSpinEdit
        Left = 256
        Top = 17
        Width = 73
        Height = 21
        Increment = 1
        DataField = 'iInLaterTime3'
        DataSource = DataSource1
        TabOrder = 3
        UnboundDataType = wwDefault
      end
    end
    object DBEdit10: TDBEdit
      Left = 309
      Top = 299
      Width = 40
      Height = 21
      DataField = 'iUnOutTime'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 12
    end
  end
  object DBEdit11: TDBEdit
    Left = 344
    Top = 45
    Width = 121
    Height = 21
    DataField = 'dDate'
    DataSource = DataSource1
    Enabled = False
    TabOrder = 6
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    AfterOpen = ADOQuery1AfterOpen
    BeforePost = ADOQuery1BeforePost
    Parameters = <
      item
        Name = 'Date'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 37550d
      end
      item
        Name = 'WorkerNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 11
        Value = '12344545444'
      end>
    SQL.Strings = (
      
        'Select * From DailyCard Where iErrorNumber>0  and dDate=:Date  a' +
        'nd cWorkerNo=:WorkerNo'
      '')
    Left = 400
    Top = 296
    object ADOQuery1dDate: TDateTimeField
      FieldName = 'dDate'
    end
    object ADOQuery1cWorkerNo: TStringField
      FieldName = 'cWorkerNo'
      Size = 8
    end
    object ADOQuery1cWorkerName: TStringField
      FieldName = 'cWorkerName'
      Size = 8
    end
    object ADOQuery1cClassNo: TStringField
      FieldName = 'cClassNo'
      Size = 5
    end
    object ADOQuery1tIn1: TDateTimeField
      FieldName = 'tIn1'
    end
    object ADOQuery1tOut1: TDateTimeField
      FieldName = 'tOut1'
    end
    object ADOQuery1tIn2: TDateTimeField
      FieldName = 'tIn2'
    end
    object ADOQuery1tOut2: TDateTimeField
      FieldName = 'tOut2'
    end
    object ADOQuery1tIn3: TDateTimeField
      FieldName = 'tIn3'
    end
    object ADOQuery1tOut3: TDateTimeField
      FieldName = 'tOut3'
    end
    object ADOQuery1iLaterTime: TIntegerField
      FieldName = 'iLaterTime'
    end
    object ADOQuery1iLaterTimes: TIntegerField
      FieldName = 'iLaterTimes'
    end
    object ADOQuery1iLeaveEarlyTime: TIntegerField
      FieldName = 'iLeaveEarlyTime'
    end
    object ADOQuery1iLeaveEarlyTimes: TIntegerField
      FieldName = 'iLeaveEarlyTimes'
    end
    object ADOQuery1iOverTime: TIntegerField
      FieldName = 'iOverTime'
    end
    object ADOQuery1cNote: TStringField
      FieldName = 'cNote'
      Size = 100
    end
    object ADOQuery1cMemo: TMemoField
      FieldName = 'cMemo'
      BlobType = ftMemo
    end
    object ADOQuery1lChecked: TBooleanField
      FieldName = 'lChecked'
    end
    object ADOQuery1cUser: TStringField
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdateTime: TDateTimeField
      FieldName = 'tUpdateTime'
    end
    object ADOQuery1cAction: TStringField
      FieldName = 'cAction'
      Size = 4
    end
    object ADOQuery1bErrorMaintenanceEd: TBooleanField
      FieldName = 'bErrorMaintenanceEd'
    end
    object ADOQuery1cErrorMaintenanceUser: TStringField
      FieldName = 'cErrorMaintenanceUser'
      Size = 8
    end
    object ADOQuery1DepartMent: TStringField
      FieldKind = fkLookup
      FieldName = 'DepartMent'
      LookupDataSet = ADOTable1
      LookupKeyFields = 'cWorkerNo'
      LookupResultField = 'cDepartmentName'
      KeyFields = 'cWorkerNo'
      Lookup = True
    end
    object ADOQuery1ClassName: TStringField
      FieldKind = fkLookup
      FieldName = 'ClassName'
      LookupDataSet = ADOTable2
      LookupKeyFields = 'cClassNo'
      LookupResultField = 'cClassName'
      KeyFields = 'cClassNo'
      Lookup = True
    end
    object ADOQuery1iFreeTime: TIntegerField
      FieldName = 'iFreeTime'
    end
    object ADOQuery1iLeaveTime: TIntegerField
      FieldName = 'iLeaveTime'
    end
    object ADOQuery1bInLater1: TBooleanField
      FieldName = 'bInLater1'
    end
    object ADOQuery1iInLaterTime1: TIntegerField
      FieldName = 'iInLaterTime1'
    end
    object ADOQuery1bOutEarly1: TBooleanField
      FieldName = 'bOutEarly1'
    end
    object ADOQuery1iOutEarlyTime1: TIntegerField
      FieldName = 'iOutEarlyTime1'
    end
    object ADOQuery1iTime1: TFloatField
      FieldName = 'iTime1'
    end
    object ADOQuery1bInLater2: TBooleanField
      FieldName = 'bInLater2'
    end
    object ADOQuery1iInLaterTime2: TIntegerField
      FieldName = 'iInLaterTime2'
    end
    object ADOQuery1bOutEarly2: TBooleanField
      FieldName = 'bOutEarly2'
    end
    object ADOQuery1iOutEarlyTime2: TIntegerField
      FieldName = 'iOutEarlyTime2'
    end
    object ADOQuery1iTime2: TFloatField
      FieldName = 'iTime2'
    end
    object ADOQuery1bInLater3: TBooleanField
      FieldName = 'bInLater3'
    end
    object ADOQuery1iInLaterTime3: TIntegerField
      FieldName = 'iInLaterTime3'
    end
    object ADOQuery1iUnOutTime: TIntegerField
      FieldName = 'iUnOutTime'
    end
    object ADOQuery1CStatus1: TStringField
      FieldName = 'CStatus1'
      Size = 10
    end
    object ADOQuery1cStatus2: TStringField
      FieldName = 'cStatus2'
      Size = 10
    end
    object ADOQuery1tErrorMaintenanceTime: TDateTimeField
      FieldName = 'tErrorMaintenanceTime'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource1StateChange
    Left = 472
    Top = 296
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    TableName = 'V_Workers'
    Left = 440
    Top = 296
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    TableName = 'Class'
    Left = 512
    Top = 296
  end
end