object CalendarSetup: TCalendarSetup
  Left = 70
  Top = 100
  Width = 577
  Height = 285
  Caption = 'Calendar Table Setup'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 16
  object SelectAll: TBitBtn
    Left = 20
    Top = 4
    Width = 65
    Height = 29
    Hint = 'Select All Employees'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = SelectAllClick
    Kind = bkAll
  end
  object Cancel: TBitBtn
    Left = 232
    Top = 4
    Width = 73
    Height = 29
    TabOrder = 1
    OnClick = CancelClick
    Kind = bkCancel
  end
  object OK: TBitBtn
    Left = 328
    Top = 4
    Width = 73
    Height = 29
    Hint = 'Look at Calendar'
    TabOrder = 2
    OnClick = OKClick
    Kind = bkOK
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 52
    Width = 569
    Height = 205
    Hint = 'Double click to Select employees by pressing Check box.'
    Columns = <
      item
        FieldName = 'Check'
      end
      item
        FieldName = 'Surname'
        ReadOnly = True
      end
      item
        FieldName = 'First Names'
        ReadOnly = True
      end>
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'System'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object DBNavigator1: TDBNavigator
    Left = 424
    Top = 4
    Width = 120
    Height = 29
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object CancelAll: TBitBtn
    Left = 108
    Top = 4
    Width = 93
    Height = 29
    Caption = 'Cancel All'
    TabOrder = 5
    OnClick = CancelAllClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
      555557777F777555F55500000000555055557777777755F75555005500055055
      555577F5777F57555555005550055555555577FF577F5FF55555500550050055
      5555577FF77577FF555555005050110555555577F757777FF555555505099910
      555555FF75777777FF555005550999910555577F5F77777775F5500505509990
      3055577F75F77777575F55005055090B030555775755777575755555555550B0
      B03055555F555757575755550555550B0B335555755555757555555555555550
      BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
      50BB555555555555575F555555555555550B55555555555555750000}
    NumGlyphs = 2
  end
  object Table1: TTable
    DatabaseName = 'Personnel_System'
    IndexFieldNames = 'Surname;First Names;Title'
    TableName = 'EMPLOYEE.DB'
    Left = 180
    Top = 68
    object Table1Check: TBooleanField
      DisplayWidth = 3
      FieldName = 'Check'
    end
    object Table1Surname: TStringField
      FieldName = 'Surname'
      Size = 25
    end
    object Table1FirstNames: TStringField
      FieldName = 'First Names'
      Size = 35
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 248
    Top = 68
  end
end