queue.nfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited QueueFrame: TQueueFrame
  Width = 588
  Height = 411
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 588
    Height = 131
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 249
    Width = 588
    Height = 162
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Panel8: TPanel
      Left = 0
      Top = 0
      Width = 567
      Height = 162
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btCreateTable: TSpeedButton
        Left = 1
        Top = 1
        Width = 120
        Height = 22
        Caption = 'Create Queue Table'
        Flat = True
        Transparent = False
        OnClick = btCreateTableClick
      end
      object btAlterTable: TSpeedButton
        Left = 122
        Top = 1
        Width = 120
        Height = 22
        Caption = 'Alter Queue Table'
        Flat = True
        Transparent = False
        OnClick = btAlterTableClick
      end
      object btDropTable: TSpeedButton
        Left = 243
        Top = 1
        Width = 120
        Height = 22
        Caption = 'Drop Queue Table'
        Flat = True
        Transparent = False
        OnClick = btDropTableClick
      end
      object btCreateQueue: TSpeedButton
        Left = 1
        Top = 24
        Width = 88
        Height = 22
        Caption = 'Create Queue'
        Flat = True
        Transparent = False
        OnClick = btCreateQueueClick
      end
      object btReadTableProperties: TSpeedButton
        Left = 364
        Top = 1
        Width = 202
        Height = 22
        Caption = 'Read Queue Table Properties'
        Flat = True
        Transparent = False
        OnClick = btReadTablePropertiesClick
      end
      object btAlterQueue: TSpeedButton
        Left = 90
        Top = 24
        Width = 88
        Height = 22
        Caption = 'Alter Queue'
        Flat = True
        Transparent = False
        OnClick = btAlterQueueClick
      end
      object btDropQueue: TSpeedButton
        Left = 179
        Top = 24
        Width = 88
        Height = 22
        Caption = 'Drop Queue'
        Flat = True
        Transparent = False
        OnClick = btDropQueueClick
      end
      object btStatrQueue: TSpeedButton
        Left = 268
        Top = 24
        Width = 88
        Height = 22
        Caption = 'Start Queue'
        Flat = True
        Transparent = False
        OnClick = btStatrQueueClick
      end
      object btStopQueue: TSpeedButton
        Left = 357
        Top = 24
        Width = 88
        Height = 22
        Caption = 'Stop Queue'
        Flat = True
        Transparent = False
        OnClick = btStopQueueClick
      end
      object btReadQueueProperties: TSpeedButton
        Left = 446
        Top = 24
        Width = 120
        Height = 22
        Caption = 'Read Queue Properties'
        Flat = True
        Transparent = False
        OnClick = btReadQueuePropertiesClick
      end
      object Panel9: TPanel
        Left = 1
        Top = 47
        Width = 256
        Height = 114
        BevelOuter = bvNone
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Top = 12
          Width = 87
          Height = 13
          Caption = 'QueueTableName'
        end
        object Label7: TLabel
          Left = 8
          Top = 36
          Width = 62
          Height = 13
          Caption = 'PayloadType'
        end
        object Label8: TLabel
          Left = 8
          Top = 60
          Width = 35
          Height = 13
          Caption = 'SortList'
        end
        object Label9: TLabel
          Left = 8
          Top = 84
          Width = 44
          Height = 13
          Caption = 'Comment'
        end
        object edTableName: TEdit
          Left = 112
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 0
          Text = 'QT_SAMPLE'
        end
        object edPayloadType: TEdit
          Left = 112
          Top = 32
          Width = 121
          Height = 21
          TabOrder = 1
          Text = 'RAW'
        end
        object cbSortList: TComboBox
          Left = 112
          Top = 56
          Width = 121
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Text = 'ENQ_TIME'
          Items.Strings = (
            'ENQ_TIME'
            'PRIORITY'
            'PRIORITY, ENQ_TIME'
            'ENQ_TIME, PRIORITY')
        end
        object edComment: TEdit
          Left = 112
          Top = 80
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'Test queue table'
        end
      end
      object Panel10: TPanel
        Left = 258
        Top = 47
        Width = 308
        Height = 114
        BevelOuter = bvNone
        TabOrder = 1
        object Label10: TLabel
          Left = 8
          Top = 12
          Width = 60
          Height = 13
          Caption = 'QueueName'
        end
        object Label11: TLabel
          Left = 8
          Top = 36
          Width = 59
          Height = 13
          Caption = 'QueueTable'
        end
        object Label12: TLabel
          Left = 8
          Top = 60
          Width = 53
          Height = 13
          Caption = 'MaxRetries'
        end
        object Label13: TLabel
          Left = 8
          Top = 84
          Width = 44
          Height = 13
          Caption = 'Comment'
        end
        object edQueueName: TEdit
          Left = 80
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 0
          Text = 'QU_SAMPLE'
        end
        object edQueueTable: TEdit
          Left = 80
          Top = 32
          Width = 121
          Height = 21
          TabOrder = 1
          Text = 'QT_SAMPLE'
        end
        object edMaxRetries: TEdit
          Left = 80
          Top = 56
          Width = 121
          Height = 21
          TabOrder = 2
          Text = '-1'
        end
        object edQueueComment: TEdit
          Left = 80
          Top = 80
          Width = 121
          Height = 21
          TabOrder = 3
          Text = 'Test queue'
        end
      end
    end
  end
  object meLog: TMemo
    Left = 0
    Top = 131
    Width = 588
    Height = 118
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 406
    Height = 130
    BevelOuter = bvNone
    Color = 170
    TabOrder = 3
    object btEnqueue: TSpeedButton
      Left = 1
      Top = 1
      Width = 80
      Height = 22
      Caption = 'Enqueue'
      Flat = True
      Transparent = False
      OnClick = btEnqueueClick
    end
    object btDequeue: TSpeedButton
      Left = 82
      Top = 1
      Width = 80
      Height = 22
      Caption = 'Dequeue'
      Flat = True
      Transparent = False
      OnClick = btDequeueClick
    end
    object btListen: TSpeedButton
      Left = 163
      Top = 1
      Width = 80
      Height = 22
      Caption = 'Listen'
      Flat = True
      Transparent = False
      OnClick = btListenClick
    end
    object Panel3: TPanel
      Left = 1
      Top = 24
      Width = 259
      Height = 23
      BevelOuter = bvNone
      TabOrder = 0
      object rbUseRaw: TRadioButton
        Left = 25
        Top = 3
        Width = 105
        Height = 17
        Caption = 'Use RAW queue'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbUseObject: TRadioButton
        Left = 137
        Top = 3
        Width = 105
        Height = 17
        Caption = 'Use object queue'
        TabOrder = 1
      end
    end
    object Panel4: TPanel
      Left = 261
      Top = 24
      Width = 144
      Height = 23
      BevelOuter = bvNone
      TabOrder = 1
      object cbNotification: TCheckBox
        Left = 21
        Top = 3
        Width = 105
        Height = 17
        Caption = 'AsyncNotification'
        TabOrder = 0
        OnClick = cbNotificationClick
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 48
      Width = 212
      Height = 81
      BevelOuter = bvNone
      TabOrder = 2
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 63
        Height = 16
        Caption = 'Payload:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 32
        Width = 37
        Height = 13
        Caption = 'DeptNo'
      end
      object Label3: TLabel
        Left = 8
        Top = 54
        Width = 51
        Height = 13
        Caption = 'DeptName'
      end
      object edPayloadDeptNo: TEdit
        Left = 72
        Top = 28
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object edPayloadDeptName: TEdit
        Left = 72
        Top = 52
        Width = 121
        Height = 21
        TabOrder = 1
      end
    end
    object Panel6: TPanel
      Left = 214
      Top = 48
      Width = 191
      Height = 40
      BevelOuter = bvNone
      TabOrder = 3
      object Label4: TLabel
        Left = 8
        Top = 14
        Width = 77
        Height = 13
        Caption = 'Message Priority'
      end
      object edPriority: TEdit
        Left = 90
        Top = 10
        Width = 92
        Height = 21
        TabOrder = 0
        Text = '1'
      end
    end
    object Panel7: TPanel
      Left = 214
      Top = 89
      Width = 191
      Height = 40
      BevelOuter = bvNone
      TabOrder = 4
      object Label5: TLabel
        Left = 8
        Top = 14
        Width = 60
        Height = 13
        Caption = 'WaitTimeout'
      end
      object edWaitTimeout: TEdit
        Left = 90
        Top = 10
        Width = 92
        Height = 21
        TabOrder = 0
        OnChange = edWaitTimeoutChange
      end
    end
    object Panel11: TPanel
      Left = 244
      Top = 0
      Width = 162
      Height = 23
      BevelOuter = bvNone
      TabOrder = 5
    end
  end
  object QueueRaw: TOraQueue
    Session = ODACForm.OraSession
    QueueName = 'QU_ODAC_RAW'
    Left = 16
    Top = 112
  end
  object QueueObject: TOraQueue
    Session = ODACForm.OraSession
    QueueName = 'QU_ODAC_DEPT'
    Left = 48
    Top = 112
  end
  object QueueTable: TOraQueueTable
    Session = ODACForm.OraSession
    Left = 16
    Top = 160
  end
  object QueueAdmin: TOraQueueAdmin
    Session = ODACForm.OraSession
    Left = 48
    Top = 160
  end
  object OraSession2: TOraSession
    LoginPrompt = False
    Left = 181
    Top = 111
  end
  object QueueRaw2: TOraQueue
    Session = OraSession2
    QueueName = 'QU_ODAC_RAW'
    DequeueOptions.WaitTimeout = 5
    OnMessage = QueueMessage
    Left = 216
    Top = 112
  end
  object QueueObject2: TOraQueue
    Session = OraSession2
    QueueName = 'QU_ODAC_DEPT'
    DequeueOptions.WaitTimeout = 5
    OnMessage = QueueMessage
    Left = 248
    Top = 112
  end
end