object FHistorialCon: TFHistorialCon
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Historial de contratos'
  ClientHeight = 378
  ClientWidth = 666
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBText1: TDBText
    Left = 40
    Top = 16
    Width = 593
    Height = 33
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 96
    Width = 650
    Height = 209
    DataSource = DSHistorial
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ide'
        Title.Caption = 'ID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Empleado'
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FechaInicio'
        Title.Caption = 'Fecha de Inicio'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FechaFinal'
        Title.Caption = 'Fecha Final'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FechaEmision'
        Title.Caption = 'Fecha de Emision'
        Width = 100
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 561
    Top = 336
    Width = 97
    Height = 34
    Caption = 'Cerrar'
    ModalResult = 8
    TabOrder = 1
  end
  object QHistorial: TADOQuery
    Connection = dm.Conector
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT Personal.ide, Personal.Titulo & '#39' '#39' & Personal.Nombre & '#39 +
        ' '#39' & Personal.Apaterno  & '#39' '#39' & Personal.AMaterno AS Empleado,  ' +
        'FechaContratos.FechaInicio, FechaContratos.FechaFinal, FechaCont' +
        'ratos.FechaEmision'
      
        'FROM FechaContratos LEFT JOIN Personal ON FechaContratos.IdPerso' +
        'nal = Personal.ide;')
    Left = 472
    Top = 24
  end
  object DSHistorial: TDataSource
    DataSet = QHistorial
    Left = 536
    Top = 24
  end
end
