inherited frmCadUnidade: TfrmCadUnidade
  Caption = 'Cadastro de Unidades'
  ClientHeight = 294
  OldCreateOrder = True
  ExplicitHeight = 323
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Height = 256
    ExplicitHeight = 220
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 210
      inherited Panel2: TPanel
        Height = 209
        ExplicitHeight = 173
      end
      inherited Panel3: TPanel
        Top = 209
        ExplicitTop = 173
      end
      inherited pnGrade: TPanel
        Height = 209
        ExplicitHeight = 173
        inherited grdPesquisa: TIB_Grid
          Height = 193
          ExplicitHeight = 157
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 210
      inherited Panel6: TPanel
        Top = 210
        ExplicitTop = 174
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 3
        Width = 112
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 1
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 85
          Height = 16
          DataField = 'COD_UNIDADE'
          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 edtDescricao: TIB_Edit
        Left = 8
        Top = 80
        Width = 449
        Height = 24
        AutoLabel.Caption = 'Descri'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 2
      end
      object IB_Edit1: TIB_Edit
        Left = 8
        Top = 128
        Width = 97
        Height = 24
        AutoLabel.Caption = 'M'#225'scara'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'MASCARA'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 3
      end
      object IB_Edit2: TIB_Edit
        Left = 120
        Top = 128
        Width = 97
        Height = 24
        AutoLabel.Caption = 'Abreviatura'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'ABREVIATURA'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 4
      end
    end
  end
  inherited Panel1: TPanel
    inherited Label2: TLabel
      Width = 88
      Caption = 'Unidades'
      ExplicitWidth = 88
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'COD_UNIDADE=UPPER'
      'DESCRICAO=UPPER'
      'ABREVIATURA=UPPER'
      'MASCARA=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_UNIDADE=C'#243'digo'
      'DESCRICAO=Descri'#231'ao'
      'ABREVIATURA=Abreviatura'
      'MASCARA=M'#225'scara')
    FieldsVisible.Strings = (
      'COD_UNIDADE=TRUE'
      'DESCRICAO=TRUE'
      'ABREVIATURA=TRUE'
      'MASCARA=TRUE')
    SQL.Strings = (
      'SELECT *'
      'FROM UNIDADE')
    DeleteSQL.Strings = (
      'DELETE FROM UNIDADE'
      'WHERE'
      '   COD_UNIDADE = :OLD_COD_UNIDADE')
    EditSQL.Strings = (
      'UPDATE UNIDADE SET'
      '   COD_UNIDADE = :COD_UNIDADE, /*PK*/'
      '   DESCRICAO = :DESCRICAO,'
      '   ABREVIATURA = :ABREVIATURA,'
      '   MASCARA = :MASCARA'
      'WHERE'
      '   COD_UNIDADE = :OLD_COD_UNIDADE')
    InsertSQL.Strings = (
      'INSERT INTO UNIDADE('
      '   COD_UNIDADE, /*PK*/'
      '   DESCRICAO,'
      '   ABREVIATURA,'
      '   MASCARA)'
      'VALUES ('
      '   :COD_UNIDADE,'
      '   :DESCRICAO,'
      '   :ABREVIATURA,'
      '   :MASCARA)')
    KeyLinks.Strings = (
      'UNIDADE.COD_UNIDADE')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_UNIDADE=COD_UNIDADE;COD_UNIDADE DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC'
      'ABREVIATURA=ABREVIATURA;ABREVIATURA DESC'
      'MASCARA=MASCARA;MASCARA DESC')
    OrderingLinks.Strings = (
      'COD_UNIDADE=1'
      'DESCRICAO=2'
      'ABREVIATURA=3'
      'MASCARA=4')
    SearchingLinks.Strings = (
      'COD_UNIDADE=COD_UNIDADE'
      'DESCRICAO=DESCRICAO'
      'ABREVIATURA=ABREVIATURA'
      'MASCARA=MASCARA')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
end
