First commit 10/01/2001

herm_insignias.dfm

@@ -0,0 +1,226 @@
+object Insignias: TInsignias
+  Left = 324
+  Top = 124
+  Width = 640
+  Height = 480
+  Caption = 'Gesti<74>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