object FBuscarBim: TFBuscarBim
  Left = 293
  Top = 110
  Caption = 'Buscar Bimestres'
  ClientHeight = 397
  ClientWidth = 634
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 8
    Width = 32
    Height = 19
    Caption = 'A'#241'o'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 200
    Top = 8
    Width = 73
    Height = 19
    Caption = 'Bimestre'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 88
    Width = 626
    Height = 233
    DataSource = DSBimestres
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'IdBimestre'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Anio'
        Width = 91
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NomMes'
        Width = 149
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Fecha_elab'
        Width = 170
        Visible = True
      end>
  end
  object CBAnio: TComboBox
    Left = 24
    Top = 33
    Width = 137
    Height = 27
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'CBAnio'
    OnChange = CBAnioChange
    Items.Strings = (
      '2017'
      '2018'
      '2019'
      '2020'
      '2021'
      '2022'
      '2023'
      '2024'
      '2025')
  end
  object BitBtn1: TBitBtn
    Left = 104
    Top = 344
    Width = 97
    Height = 33
    Caption = 'Aceptar'
    Kind = bkOK
    NumGlyphs = 2
    TabOrder = 2
  end
  object BitBtn2: TBitBtn
    Left = 384
    Top = 344
    Width = 97
    Height = 33
    Caption = 'Cancelar'
    Kind = bkCancel
    NumGlyphs = 2
    TabOrder = 3
  end
  object CBMes: TComboBox
    Left = 184
    Top = 33
    Width = 145
    Height = 27
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Text = 'CBMes'
    OnChange = CBAnioChange
    Items.Strings = (
      'ENERO'
      'FEBRERO'
      'MARZO'
      'ABRIL'
      'MAYO'
      'JUNIO'
      'JULIO'
      'AGOSTO'
      'SEPTIEMBRE'
      'OCTUBRE'
      'NOVIEMBRE'
      'DICIEMBRE')
  end
  object DSBimestres: TDataSource
    DataSet = QBimestres
    Left = 552
    Top = 16
  end
  object QBimestres: TADOQuery
    Connection = dm.Conector
    CursorType = ctStatic
    OnCalcFields = QBimestresCalcFields
    Parameters = <>
    SQL.Strings = (
      'Select * from Bimestres')
    Left = 480
    Top = 16
    object QBimestresIdBimestre: TAutoIncField
      FieldName = 'IdBimestre'
      ReadOnly = True
    end
    object QBimestresAnio: TSmallintField
      FieldName = 'Anio'
    end
    object QBimestresFecha_elab: TDateTimeField
      FieldName = 'Fecha_elab'
    end
    object QBimestresObservaciones: TWideStringField
      FieldName = 'Observaciones'
      Size = 255
    end
    object QBimestresMes: TWordField
      FieldName = 'Mes'
    end
    object QBimestresNomMes: TStringField
      FieldKind = fkCalculated
      FieldName = 'NomMes'
      Size = 15
      Calculated = True
    end
  end
end
