📄 queue.lfm
字号:
object QueueFrame: TQueueFrame
Height = 411
Width = 588
object ToolBar: TPanel
Height = 131
Width = 588
Align = alTop
BevelOuter = bvNone
TabOrder = 0
end
object Panel2: TPanel
Height = 162
Top = 249
Width = 588
Align = alBottom
BevelOuter = bvNone
ClientHeight = 162
ClientWidth = 588
TabOrder = 2
object Panel8: TPanel
Height = 162
Width = 567
BevelOuter = bvNone
ClientHeight = 162
ClientWidth = 567
Color = 170
ParentColor = False
TabOrder = 0
object btCreateTable: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 120
Caption = 'Create Queue Table'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btCreateTableClick
end
object btAlterTable: TSpeedButton
Left = 122
Height = 22
Top = 1
Width = 120
Caption = 'Alter Queue Table'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btAlterTableClick
end
object btDropTable: TSpeedButton
Left = 243
Height = 22
Top = 1
Width = 120
Caption = 'Drop Queue Table'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btDropTableClick
end
object btCreateQueue: TSpeedButton
Left = 1
Height = 22
Top = 24
Width = 88
Caption = 'Create Queue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btCreateQueueClick
end
object btReadTableProperties: TSpeedButton
Left = 364
Height = 22
Top = 1
Width = 202
Caption = 'Read Queue Table Properties'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btReadTablePropertiesClick
end
object btAlterQueue: TSpeedButton
Left = 90
Height = 22
Top = 24
Width = 88
Caption = 'Alter Queue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btAlterQueueClick
end
object btDropQueue: TSpeedButton
Left = 179
Height = 22
Top = 24
Width = 88
Caption = 'Drop Queue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btDropQueueClick
end
object btStatrQueue: TSpeedButton
Left = 268
Height = 22
Top = 24
Width = 88
Caption = 'Start Queue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btStatrQueueClick
end
object btStopQueue: TSpeedButton
Left = 357
Height = 22
Top = 24
Width = 88
Caption = 'Stop Queue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btStopQueueClick
end
object btReadQueueProperties: TSpeedButton
Left = 446
Height = 22
Top = 24
Width = 120
Caption = 'Read Queue Properties'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btReadQueuePropertiesClick
end
object Panel9: TPanel
Left = 1
Height = 114
Top = 47
Width = 256
BevelOuter = bvNone
ClientHeight = 114
ClientWidth = 256
ParentColor = False
TabOrder = 0
object Label6: TLabel
Left = 8
Height = 13
Top = 12
Width = 87
Caption = 'QueueTableName'
ParentColor = False
end
object Label7: TLabel
Left = 8
Height = 13
Top = 36
Width = 62
Caption = 'PayloadType'
ParentColor = False
end
object Label8: TLabel
Left = 8
Height = 13
Top = 60
Width = 35
Caption = 'SortList'
ParentColor = False
end
object Label9: TLabel
Left = 8
Height = 13
Top = 84
Width = 44
Caption = 'Comment'
ParentColor = False
end
object edTableName: TEdit
Left = 112
Height = 21
Top = 8
Width = 121
TabOrder = 0
Text = 'QT_SAMPLE'
end
object edPayloadType: TEdit
Left = 112
Height = 21
Top = 32
Width = 121
TabOrder = 1
Text = 'RAW'
end
object cbSortList: TComboBox
Left = 112
Height = 21
Top = 56
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'ENQ_TIME'
'PRIORITY'
'PRIORITY, ENQ_TIME'
'ENQ_TIME, PRIORITY'
)
TabOrder = 2
Text = 'ENQ_TIME'
end
object edComment: TEdit
Left = 112
Height = 21
Top = 80
Width = 121
TabOrder = 3
Text = 'Test queue table'
end
end
object Panel10: TPanel
Left = 258
Height = 114
Top = 47
Width = 308
BevelOuter = bvNone
ClientHeight = 114
ClientWidth = 308
ParentColor = False
TabOrder = 1
object Label10: TLabel
Left = 8
Height = 13
Top = 12
Width = 60
Caption = 'QueueName'
ParentColor = False
end
object Label11: TLabel
Left = 8
Height = 13
Top = 36
Width = 59
Caption = 'QueueTable'
ParentColor = False
end
object Label12: TLabel
Left = 8
Height = 13
Top = 60
Width = 53
Caption = 'MaxRetries'
ParentColor = False
end
object Label13: TLabel
Left = 8
Height = 13
Top = 84
Width = 44
Caption = 'Comment'
ParentColor = False
end
object edQueueName: TEdit
Left = 80
Height = 21
Top = 8
Width = 121
TabOrder = 0
Text = 'QU_SAMPLE'
end
object edQueueTable: TEdit
Left = 80
Height = 21
Top = 32
Width = 121
TabOrder = 1
Text = 'QT_SAMPLE'
end
object edMaxRetries: TEdit
Left = 80
Height = 21
Top = 56
Width = 121
TabOrder = 2
Text = '-1'
end
object edQueueComment: TEdit
Left = 80
Height = 21
Top = 80
Width = 121
TabOrder = 3
Text = 'Test queue'
end
end
end
end
object meLog: TMemo
Height = 118
Top = 131
Width = 588
Align = alClient
ScrollBars = ssVertical
TabOrder = 1
end
object Panel1: TPanel
Height = 130
Width = 406
BevelOuter = bvNone
ClientHeight = 130
ClientWidth = 406
Color = 170
ParentColor = False
TabOrder = 3
object btEnqueue: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 80
Caption = 'Enqueue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btEnqueueClick
end
object btDequeue: TSpeedButton
Left = 82
Height = 22
Top = 1
Width = 80
Caption = 'Dequeue'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btDequeueClick
end
object btListen: TSpeedButton
Left = 163
Height = 22
Top = 1
Width = 80
Caption = 'Listen'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btListenClick
end
object Panel3: TPanel
Left = 1
Height = 23
Top = 24
Width = 259
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 259
ParentColor = False
TabOrder = 0
object rbUseRaw: TRadioButton
Left = 25
Height = 19
Top = 3
Width = 107
Caption = 'Use RAW queue'
Checked = True
State = cbChecked
TabOrder = 0
end
object rbUseObject: TRadioButton
Left = 137
Height = 19
Top = 3
Width = 110
Caption = 'Use object queue'
TabOrder = 1
end
end
object Panel4: TPanel
Left = 261
Height = 23
Top = 24
Width = 144
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 144
ParentColor = False
TabOrder = 1
object cbNotification: TCheckBox
Left = 21
Height = 19
Top = 3
Width = 108
Caption = 'AsyncNotification'
OnClick = cbNotificationClick
TabOrder = 0
end
end
object Panel5: TPanel
Left = 1
Height = 81
Top = 48
Width = 212
BevelOuter = bvNone
ClientHeight = 81
ClientWidth = 212
ParentColor = False
TabOrder = 2
object Label1: TLabel
Left = 8
Height = 16
Top = 8
Width = 63
Caption = 'Payload:'
Font.Height = -13
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 32
Width = 37
Caption = 'DeptNo'
ParentColor = False
end
object Label3: TLabel
Left = 8
Height = 13
Top = 54
Width = 51
Caption = 'DeptName'
ParentColor = False
end
object edPayloadDeptNo: TEdit
Left = 72
Height = 21
Top = 28
Width = 121
TabOrder = 0
end
object edPayloadDeptName: TEdit
Left = 72
Height = 21
Top = 52
Width = 121
TabOrder = 1
end
end
object Panel6: TPanel
Left = 214
Height = 40
Top = 48
Width = 191
BevelOuter = bvNone
ClientHeight = 40
ClientWidth = 191
ParentColor = False
TabOrder = 3
object Label4: TLabel
Left = 8
Height = 13
Top = 14
Width = 77
Caption = 'Message Priority'
ParentColor = False
end
object edPriority: TEdit
Left = 90
Height = 21
Top = 10
Width = 92
TabOrder = 0
Text = '1'
end
end
object Panel7: TPanel
Left = 214
Height = 40
Top = 89
Width = 191
BevelOuter = bvNone
ClientHeight = 40
ClientWidth = 191
ParentColor = False
TabOrder = 4
object Label5: TLabel
Left = 8
Height = 13
Top = 14
Width = 60
Caption = 'WaitTimeout'
ParentColor = False
end
object edWaitTimeout: TEdit
Left = 90
Height = 21
Top = 10
Width = 92
OnChange = edWaitTimeoutChange
TabOrder = 0
end
end
object Panel11: TPanel
Left = 244
Height = 23
Width = 162
BevelOuter = bvNone
ParentColor = False
TabOrder = 5
end
end
object QueueRaw: TOraQueue
QueueName = 'QU_ODAC_RAW'
left = 16
top = 112
end
object QueueObject: TOraQueue
QueueName = 'QU_ODAC_DEPT'
left = 48
top = 112
end
object QueueTable: TOraQueueTable
left = 16
top = 160
end
object QueueAdmin: TOraQueueAdmin
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -