inherited frmCadBanco: TfrmCadBanco
  Caption = 'frmCadBanco'
  ClientHeight = 257
  OldCreateOrder = True
  ExplicitHeight = 286
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Height = 219
    ActivePage = Acesso
    ExplicitHeight = 219
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 209
      inherited Panel2: TPanel
        Height = 172
        ExplicitHeight = 172
      end
      inherited Panel3: TPanel
        Top = 172
        ExplicitTop = 172
      end
      inherited pnGrade: TPanel
        Height = 172
        ExplicitHeight = 172
        inherited grdPesquisa: TIB_Grid
          Height = 156
          ExplicitHeight = 156
        end
      end
    end
    inherited Manutencao: TTabSheet
      Font.Style = []
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 209
      inherited Panel6: TPanel
        Top = 173
        ExplicitTop = 173
      end
      object dbCodigo: TIB_Edit
        Left = 24
        Top = 32
        Width = 121
        Height = 24
        AutoLabel.Kind = albTop
        DataField = 'CODIGO'
        DataSource = DsPrincipal
        ParentBackground = False
        TabOrder = 1
      end
      object dbNome: TIB_Edit
        Left = 24
        Top = 96
        Width = 497
        Height = 24
        AutoLabel.Kind = albTop
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        ParentBackground = False
        TabOrder = 2
      end
    end
  end
  inherited Panel1: TPanel
    inherited Label2: TLabel
      Width = 177
      Caption = 'Cadastro de Banco'
      ExplicitWidth = 177
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'CODIGO=C'#243'digo'
      'DESCRICAO=Nome Banco')
    FieldsDisplayWidth.Strings = (
      'DESCRICAO=326')
    FieldsVisible.Strings = (
      'LOGO=FALSE')
    SQL.Strings = (
      'SELECT *'
      'FROM BANCOS')
    DeleteSQL.Strings = (
      'DELETE FROM BANCOS'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    EditSQL.Strings = (
      'UPDATE BANCOS SET'
      '   CODIGO = :CODIGO, /*PK*/'
      '   DESCRICAO = :DESCRICAO,'
      '   LOGO = :LOGO'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'INSERT INTO BANCOS('
      '   CODIGO, /*PK*/'
      '   DESCRICAO,'
      '   LOGO)'
      'VALUES ('
      '   :CODIGO,'
      '   :DESCRICAO,'
      '   :LOGO)')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'CODIGO=CODIGO;CODIGO DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'CODIGO=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'CODIGO=CODIGO'
      'DESCRICAO=DESCRICAO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
end
