inherited frmCadComposicaoProduto: TfrmCadComposicaoProduto
  Caption = 'Composi'#231#227'o Produto'
  ClientHeight = 240
  ClientWidth = 773
  OldCreateOrder = True
  ExplicitWidth = 779
  ExplicitHeight = 269
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 773
    Height = 202
    ExplicitWidth = 773
    ExplicitHeight = 202
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 765
      ExplicitHeight = 192
      inherited Panel2: TPanel
        Left = 674
        Height = 155
        ExplicitLeft = 674
        ExplicitHeight = 155
      end
      inherited Panel3: TPanel
        Top = 155
        Width = 765
        ExplicitTop = 155
        ExplicitWidth = 765
      end
      inherited pnGrade: TPanel
        Width = 674
        Height = 155
        ExplicitWidth = 674
        ExplicitHeight = 155
        inherited grdPesquisa: TIB_Grid
          Width = 674
          Height = 139
          ExplicitWidth = 674
          ExplicitHeight = 139
        end
        inherited pnlOpcoesPesquisa: TPanel
          Width = 674
          ExplicitWidth = 674
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 765
      ExplicitHeight = 192
      inherited Panel6: TPanel
        Top = 156
        Width = 765
        ExplicitTop = 156
        ExplicitWidth = 765
        inherited Linhabotao: TShape
          Width = 763
          ExplicitWidth = 763
        end
        inherited Panel7: TPanel
          Left = 437
          ExplicitLeft = 437
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 4
        Width = 97
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 1
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 77
          Height = 16
          DataField = 'CODIGO'
          DataSource = DsPrincipal
          BiDiMode = bdLeftToRight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentBiDiMode = False
          ParentFont = False
        end
      end
      object GroupBox3: TGroupBox
        Left = 112
        Top = 4
        Width = 345
        Height = 142
        Caption = 'Tampa'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object GroupBox1: TGroupBox
          Left = 241
          Top = 0
          Width = 104
          Height = 142
          Caption = 'Batoque'
          TabOrder = 0
          object dbTamanhoBatoque: TIB_RadioGroup
            Left = 3
            Top = 23
            Width = 98
            Height = 98
            DataField = 'BATOQUE'
            DataSource = DsPrincipal
            BorderStyle = bsNone
            ParentBackground = False
            TabOrder = 0
            Items.Strings = (
              'PEQUENO'
              'M'#201'DIO'
              'GRANDE')
            Values.Strings = (
              'P'
              'M'
              'G')
          end
        end
        object edtRazaoSocial: TIB_Edit
          Left = 6
          Top = 53
          Width = 232
          Height = 24
          Hint = 'Raz'#227'o Social'
          AutoLabel.Margin = 0
          DataField = 'TAMPA'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          ParentBackground = False
          TabOrder = 1
        end
      end
      object dbTipoAlca: TIB_ComboBox
        Left = 475
        Top = 21
        Width = 233
        Height = 24
        AutoLabel.Kind = albTop
        DataField = 'TIPO_ALCA'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 3
        Items.Strings = (
          'ARAME'
          'BAQUELITE'
          'FIXA'
          'MADEIRA')
        ItemValues.Strings = (
          'A'
          'B'
          'F'
          'M')
      end
      object dbTipoCabo: TIB_ComboBox
        Left = 475
        Top = 70
        Width = 233
        Height = 24
        AutoLabel.Kind = albTop
        DataField = 'TIPO_CABO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 4
        Items.Strings = (
          'BAQUELITE'
          'MADEIRA')
        ItemValues.Strings = (
          'B'
          'M')
      end
      object dbTipoBatoque: TIB_ComboBox
        Left = 475
        Top = 117
        Width = 233
        Height = 24
        AutoLabel.Kind = albTop
        DataField = 'TIPO_BATOQUE'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 5
        Items.Strings = (
          'BAQUELITE'
          'MADEIRA')
        ItemValues.Strings = (
          'B'
          'M')
      end
    end
  end
  inherited Panel1: TPanel
    Width = 773
    ExplicitWidth = 773
    inherited Label2: TLabel
      Width = 197
      Caption = 'Composi'#231#227'o Produto'
      ExplicitWidth = 197
    end
    inherited Shape1: TShape
      Width = 773
      ExplicitWidth = 773
    end
    inherited imgAcao: TImage
      Left = 413
      ExplicitLeft = 413
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsDisplayLabel.Strings = (
      'CODIGO=C'#243'digo'
      'TAMPA=Tipo Tampa'
      'BATOQUE=Tamanho Batoque'
      'TIPO_ALCA=Tipo Al'#231'a'
      'TIPO_CABO=Tipo Cabo'
      'TAMANHO_TAMPA=Tamanho Tampa'
      'TIPO_BATOQUE=Tipo Batoque')
    FieldsVisible.Strings = (
      'CODIGO=TRUE'
      'TAMPA=TRUE'
      'BATOQUE=TRUE'
      'TIPO_ALCA=TRUE'
      'TIPO_CABO=TRUE'
      'TAMANHO_TAMPA=TRUE'
      'TIPO_BATOQUE=TRUE')
    SQL.Strings = (
      'SELECT * '
      'FROM COMPOSICAO_PRODUTO')
    DeleteSQL.Strings = (
      'DELETE FROM COMPOSICAO_PRODUTO'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    EditSQL.Strings = (
      'UPDATE COMPOSICAO_PRODUTO SET'
      '   CODIGO = :CODIGO, /*PK*/'
      '   TAMPA = :TAMPA,'
      '   BATOQUE = :BATOQUE,'
      '   TIPO_ALCA = :TIPO_ALCA,'
      '   TIPO_CABO = :TIPO_CABO,'
      '   TAMANHO_TAMPA = :TAMANHO_TAMPA,'
      '   TIPO_BATOQUE = :TIPO_BATOQUE'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'INSERT INTO COMPOSICAO_PRODUTO('
      '   CODIGO, /*PK*/'
      '   TAMPA,'
      '   BATOQUE,'
      '   TIPO_ALCA,'
      '   TIPO_CABO,'
      '   TAMANHO_TAMPA,'
      '   TIPO_BATOQUE)'
      'VALUES ('
      '   :CODIGO,'
      '   :TAMPA,'
      '   :BATOQUE,'
      '   :TIPO_ALCA,'
      '   :TIPO_CABO,'
      '   :TAMANHO_TAMPA,'
      '   :TIPO_BATOQUE)')
    KeyLinks.Strings = (
      'COMPOSICAO_PRODUTO.CODIGO')
    OrderingItemNo = -1
    OrderingItems.Strings = (
      'CODIGO=CODIGO;CODIGO DESC'
      'TAMPA=TAMPA;TAMPA DESC'
      'BATOQUE=BATOQUE;BATOQUE DESC'
      'TIPO_ALCA=TIPO_ALCA;TIPO_ALCA DESC'
      'TIPO_CABO=TIPO_CABO;TIPO_CABO DESC'
      'TAMANHO_TAMPA=TAMANHO_TAMPA;TAMANHO_TAMPA DESC'
      'TIPO_BATOQUE=TIPO_BATOQUE;TIPO_BATOQUE DESC')
    OrderingLinks.Strings = (
      'CODIGO=1'
      'TAMPA=2'
      'BATOQUE=3'
      'TIPO_ALCA=4'
      'TIPO_CABO=5'
      'TAMANHO_TAMPA=6'
      'TIPO_BATOQUE=7')
    SearchingLinks.Strings = (
      'CODIGO=CODIGO'
      'TAMPA=TAMPA'
      'BATOQUE=BATOQUE'
      'TIPO_ALCA=TIPO_ALCA'
      'TIPO_CABO=TIPO_CABO'
      'TAMANHO_TAMPA=TAMANHO_TAMPA'
      'TIPO_BATOQUE=TIPO_BATOQUE')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
end
