inherited frmCadSetor: TfrmCadSetor
  Left = 209
  Top = 201
  Caption = 'frmCadSetor'
  ClientHeight = 337
  ClientWidth = 609
  OldCreateOrder = True
  ExplicitWidth = 615
  ExplicitHeight = 366
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 609
    Height = 299
    ExplicitWidth = 609
    ExplicitHeight = 299
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 601
      ExplicitHeight = 289
      inherited Panel2: TPanel
        Left = 510
        Height = 252
        ExplicitLeft = 510
        ExplicitHeight = 252
      end
      inherited Panel3: TPanel
        Top = 252
        Width = 601
        ExplicitTop = 252
        ExplicitWidth = 601
        inherited edPesquisa: TEdit
          Left = 78
          ExplicitLeft = 78
        end
      end
      inherited pnGrade: TPanel
        Width = 510
        Height = 252
        ExplicitWidth = 510
        ExplicitHeight = 252
        inherited grdPesquisa: TIB_Grid
          Width = 510
          Height = 236
          ExplicitWidth = 510
          ExplicitHeight = 236
        end
        inherited pnlOpcoesPesquisa: TPanel
          Width = 510
          ExplicitWidth = 510
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 601
      ExplicitHeight = 289
      inherited Panel6: TPanel
        Top = 253
        Width = 601
        TabOrder = 1
        ExplicitTop = 253
        ExplicitWidth = 601
        inherited Linhabotao: TShape
          Width = 599
          ExplicitWidth = 599
        end
        inherited Panel7: TPanel
          Left = 273
          ExplicitLeft = 273
        end
      end
      object edtDescricao: TIB_Edit
        Left = 24
        Top = 80
        Width = 425
        Height = 24
        Hint = 'Descri'#231#227'o do setor'
        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
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = 24
        Top = 3
        Width = 97
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 2
        object dbCodigo: TIB_Text
          Left = 3
          Top = 18
          Width = 85
          Height = 16
          DataField = 'COD_SETOR'
          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
    end
  end
  inherited Panel1: TPanel
    Width = 609
    ExplicitWidth = 609
    inherited Label2: TLabel
      Width = 72
      Caption = 'Setores'
      ExplicitWidth = 72
    end
    inherited Shape1: TShape
      Width = 609
      ExplicitWidth = 609
    end
    inherited imgAcao: TImage
      Left = 249
      ExplicitLeft = 249
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'DESCRICAO=UPPER'
      'COD_SETOR=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_SETOR=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o')
    FieldsDisplayWidth.Strings = (
      'DESCRICAO=396')
    FieldsVisible.Strings = (
      'COD_FILIAL=FALSE'
      'EXPORTADO=FALSE'
      'DESCRICAO=TRUE'
      'COD_SETOR=TRUE')
    SQL.Strings = (
      'SELECT *'
      'FROM SETOR')
    DeleteSQL.Strings = (
      'DELETE FROM SETOR'
      'WHERE'
      '   COD_SETOR = :OLD_COD_SETOR')
    EditSQL.Strings = (
      'UPDATE SETOR SET'
      '   COD_SETOR = :COD_SETOR, /*PK*/'
      '   DESCRICAO = :DESCRICAO'
      'WHERE'
      '   COD_SETOR = :OLD_COD_SETOR')
    InsertSQL.Strings = (
      'INSERT INTO SETOR('
      '   COD_SETOR, /*PK*/'
      '   DESCRICAO)'
      'VALUES ('
      '   :COD_SETOR,'
      '   :DESCRICAO)')
    KeyLinks.Strings = (
      'SETOR.COD_SETOR')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_SETOR=COD_SETOR;COD_SETOR DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_SETOR=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'COD_SETOR=COD_SETOR'
      'DESCRICAO=DESCRICAO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Cadastro de Setores'
  end
end
