Herm-Win/herm_insignias.dfm

object Insignias: TInsignias
  Left = 324
  Top = 124
  Width = 640
  Height = 480
  Caption = 'Gestión de Insignias'
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 640
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 249
    Top = 41
    Width = 3
    Height = 408
    Cursor = crHSplit
  end
  object TabControl1: TTabControl
    Left = 0
    Top = 41
    Width = 249
    Height = 408
    Align = alLeft
    MultiLine = True
    Style = tsFlatButtons
    TabOrder = 0
    Tabs.Strings = (
      'Cristo'
      'Virgen')
    TabIndex = 0
    OnChange = TabControl1Change
    object DBGrid2: TDBGrid
      Left = 4
      Top = 30
      Width = 241
      Height = 374
      Align = alClient
      DataSource = DsInsignias
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid2CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Insignia'
          Width = 146
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Suplemento'
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Image1: TImage
      Left = 592
      Top = 2
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001002020100000000000E80200001600000028000000
        2000000040000000010004000000000080020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000FFFFFFFFFFFFFFFFFFEAAFFFFFD005FFFF4FF2FFFEBFFD7FFD7FFEBF
        FAFBDF7FF5F99F9FF5FC3FAFF3FDBFCFEBCA53D7F3E007CFEBE007D7F3CA53CF
        EBFC3FD7F5FC3FAFF5F99FAFFAFBDF5FFD7FFEBFFEBFFD7FFF5FFAFFFFB00FFF
        FFE007FFFFE80BFFFFDE39FFFFDD5DFFFFEB6BFFFFE553FFFFFE3FFFFFFF7FFF
        FFFF7FFF}
    end
    object Bevel1: TBevel
      Left = 591
      Top = 1
      Width = 34
      Height = 34
      Shape = bsFrame
    end
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 4
      Width = 32
      Height = 32
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 42
      Top = 4
      Width = 32
      Height = 32
    end
    object Label1: TLabel
      Left = 248
      Top = 8
      Width = 89
      Height = 20
      Caption = 'Ordenar por:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object OrdenarPor: TComboBox
      Left = 344
      Top = 8
      Width = 233
      Height = 24
      ItemHeight = 16
      TabOrder = 0
      Text = 'Apellido1, Apellido2, Nombre'
      Items.Strings = (
        'Apellido1, Apellido2, Nombre'
        'NumHno'
        'FechaAntiguedad, FechaNacimiento')
    end
  end
  object DBGrid1: TDBGrid
    Left = 252
    Top = 41
    Width = 380
    Height = 408
    Align = alClient
    Color = clMenu
    DataSource = DsBusqHnos
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DsBusqHnos: TDataSource
    DataSet = TbBusqHnos
    Left = 292
    Top = 180
  end
  object TbInsignias: TTable
    OnNewRecord = TbInsigniasNewRecord
    Filter = 'CtoVirgen=False'
    FieldDefs = <
      item
        Name = 'idInsignia'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'CtoVirgen'
        DataType = ftBoolean
      end
      item
        Name = 'Insignia'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Suplemento'
        DataType = ftCurrency
      end>
    StoreDefs = True
    TableName = 'datos\TbInsignias.db'
    Left = 380
    Top = 329
  end
  object DsInsignias: TDataSource
    DataSet = TbInsignias
    Left = 380
    Top = 305
  end
  object TbBusqHnos: TQuery
    Left = 296
    Top = 208
  end
end