inherited frmCadCompromisso: TfrmCadCompromisso
  Caption = 'Compromissos'
  ClientHeight = 356
  OldCreateOrder = True
  ExplicitHeight = 385
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Height = 318
    ExplicitHeight = 318
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 308
      inherited Panel2: TPanel
        Height = 271
        ExplicitHeight = 271
      end
      inherited Panel3: TPanel
        Top = 271
        ExplicitTop = 271
      end
      inherited pnGrade: TPanel
        Height = 271
        ExplicitHeight = 271
        inherited grdPesquisa: TIB_Grid
          Height = 255
          ExplicitHeight = 255
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 308
      inherited Panel6: TPanel
        Top = 272
        TabOrder = 6
        ExplicitTop = 272
      end
      object edtDescricao: TIB_Edit
        Left = 14
        Top = 24
        Width = 571
        Height = 24
        Hint = 'Descri'#231#227'o do compromisso'
        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 edtDataCompromisso: TIB_Date
        Left = 14
        Top = 72
        Width = 131
        Height = 24
        AutoLabel.Caption = 'Data'
        AutoLabel.Kind = albTop
        DataField = 'DATA_EVENTO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 1
        IncCellHeight = 1
        IncCellWidth = 2
        DrawYearArrow = False
      end
      object edtHoraCompromisso: TIB_Edit
        Left = 184
        Top = 72
        Width = 121
        Height = 24
        AutoLabel.Caption = 'Hora'
        AutoLabel.Kind = albTop
        DataField = 'HORA_EVENTO'
        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 GroupBox1: TGroupBox
        Left = 14
        Top = 112
        Width = 161
        Height = 113
        Caption = 'Alarme'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        object IB_Date1: TIB_Date
          Left = 11
          Top = 32
          Width = 131
          Height = 24
          AutoLabel.Caption = 'Data'
          AutoLabel.Kind = albTop
          DataField = 'DATA_AVISO'
          DataSource = DsPrincipal
          ParentBackground = False
          TabOrder = 0
          IncCellHeight = 1
          IncCellWidth = 2
          DrawYearArrow = False
        end
        object IB_Edit1: TIB_Edit
          Left = 11
          Top = 73
          Width = 105
          Height = 24
          AutoLabel.Caption = 'Hora'
          AutoLabel.Kind = albTop
          DataField = 'HORA_AVISO'
          DataSource = DsPrincipal
          ParentBackground = False
          TabOrder = 1
        end
      end
      object IB_Memo1: TIB_Memo
        Left = 184
        Top = 120
        Width = 393
        Height = 105
        AutoLabel.Caption = 'Obs'
        AutoLabel.Kind = albTop
        DataField = 'OBS'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 5
        AutoSize = False
      end
      object IB_CheckBox1: TIB_CheckBox
        Left = 384
        Top = 72
        Width = 153
        Height = 17
        DataField = 'LIDA'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        BorderStyle = bsNone
        ParentBackground = False
        TabOrder = 3
        Caption = 'Conclu'#237'do'
      end
    end
  end
  inherited Panel1: TPanel
    inherited Label2: TLabel
      Width = 140
      Caption = 'Compromissos'
      ExplicitWidth = 140
    end
  end
  inherited TbPrincipal: TIB_Query
    ColumnAttributes.Strings = (
      'LIDA=BOOLEAN=T,F')
    FieldsCharCase.Strings = (
      'CODIGO=UPPER'
      'DATA_CAD=UPPER'
      'HORA_CAD=UPPER'
      'OBS=UPPER'
      'DATA_EVENTO=UPPER'
      'HORA_EVENTO=UPPER'
      'DATA_AVISO=UPPER'
      'HORA_AVISO=UPPER'
      'DESCRICAO=UPPER'
      'LIDA=UPPER'
      'COD_USUARIO=UPPER')
    FieldsDisplayLabel.Strings = (
      'CODIGO=C'#243'digo'
      'DATA_EVENTO=Data'
      'HORA_EVENTO=Hora'
      'DESCRICAO=Descri'#231#227'o')
    FieldsEditMask.Strings = (
      'HORA_EVENTO=99:99'
      'HORA_AVISO=99:99')
    FieldsVisible.Strings = (
      'CODIGO=TRUE'
      'DATA_CAD=FALSE'
      'HORA_CAD=FALSE'
      'OBS=FALSE'
      'DATA_EVENTO=TRUE'
      'HORA_EVENTO=TRUE'
      'DATA_AVISO=FALSE'
      'HORA_AVISO=FALSE'
      'DESCRICAO=TRUE'
      'LIDA=FALSE'
      'COD_USUARIO=FALSE')
    SQL.Strings = (
      'SELECT COMPROMISSO.*'
      'FROM COMPROMISSO')
    DeleteSQL.Strings = (
      'DELETE FROM COMPROMISSO'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    EditSQL.Strings = (
      'UPDATE COMPROMISSO SET'
      '   CODIGO = :CODIGO, /*PK*/'
      '   DATA_CAD = :DATA_CAD,'
      '   HORA_CAD = :HORA_CAD,'
      '   OBS = :OBS,'
      '   DATA_EVENTO = :DATA_EVENTO,'
      '   HORA_EVENTO = :HORA_EVENTO,'
      '   DATA_AVISO = :DATA_AVISO,'
      '   HORA_AVISO = :HORA_AVISO,'
      '   DESCRICAO = :DESCRICAO,'
      '   LIDA = :LIDA,'
      '   COD_USUARIO = :COD_USUARIO'
      'WHERE'
      '   CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'INSERT INTO COMPROMISSO('
      '   CODIGO, /*PK*/'
      '   DATA_CAD,'
      '   HORA_CAD,'
      '   OBS,'
      '   DATA_EVENTO,'
      '   HORA_EVENTO,'
      '   DATA_AVISO,'
      '   HORA_AVISO,'
      '   DESCRICAO,'
      '   LIDA,'
      '   COD_USUARIO)'
      'VALUES ('
      '   :CODIGO,'
      '   :DATA_CAD,'
      '   :HORA_CAD,'
      '   :OBS,'
      '   :DATA_EVENTO,'
      '   :HORA_EVENTO,'
      '   :DATA_AVISO,'
      '   :HORA_AVISO,'
      '   :DESCRICAO,'
      '   :LIDA,'
      '   :COD_USUARIO)')
    KeyLinks.Strings = (
      'COMPROMISSO.CODIGO')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'CODIGO=CODIGO;CODIGO DESC'
      'DATA_EVENTO=DATA_EVENTO;DATA_EVENTO DESC'
      'HORA_EVENTO=HORA_EVENTO;HORA_EVENTO DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'CODIGO=1'
      'DATA_EVENTO=2'
      'HORA_EVENTO=3'
      'DESCRICAO=4')
    SearchingLinks.Strings = (
      'CODIGO=CODIGO'
      'DATA_EVENTO=DATA_EVENTO'
      'HORA_EVENTO=HORA_EVENTO'
      'DESCRICAO=DESCRICAO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Cadastro de Compromissos'
  end
end
