📄 refs.dfm
字号:
inherited RefsFrame: TRefsFrame
object Splitter1: TSplitter
Left = 0
Top = 35
Width = 443
Height = 3
Cursor = crVSplit
Align = alBottom
Beveled = True
Color = 170
ParentColor = False
end
object ToolBar1: TPanel
Left = 0
Top = 0
Width = 443
Height = 26
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Panel4: TPanel
Left = 1
Top = 1
Width = 499
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btClose: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseClick
end
object DBNavigator1: TDBNavigator
Left = 167
Top = 1
Width = 240
Height = 22
DataSource = dsData
Flat = True
TabOrder = 0
end
object Panel5: TPanel
Left = 408
Top = 1
Width = 90
Height = 22
BevelOuter = bvNone
TabOrder = 1
object cbObjectView: TCheckBox
Left = 8
Top = 4
Width = 78
Height = 14
Caption = 'ObjectView'
TabOrder = 0
OnClick = cbObjectViewClick
end
end
end
end
object DBGrid: TDBGrid
Left = 0
Top = 26
Width = 443
Height = 9
Align = alClient
DataSource = dsData
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object Panel1: TPanel
Left = 0
Top = 38
Width = 443
Height = 26
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object Panel7: TPanel
Left = 360
Top = 1
Width = 242
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object DBNavigator3: TDBNavigator
Left = 1
Top = 1
Width = 240
Height = 22
DataSource = DataSource2
Flat = True
TabOrder = 0
end
end
object Panel8: TPanel
Left = 1
Top = 1
Width = 242
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 1
object DBNavigator2: TDBNavigator
Left = 1
Top = 1
Width = 240
Height = 22
DataSource = DataSource1
Flat = True
TabOrder = 0
end
end
end
object Panel3: TPanel
Left = 0
Top = 154
Width = 443
Height = 26
Align = alBottom
BevelOuter = bvNone
TabOrder = 5
object Panel6: TPanel
Left = 1
Top = 1
Width = 408
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btGetLeft: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Get Left'
Flat = True
Transparent = False
OnClick = btGetLeftClick
end
object btGetRight: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Get Right'
Flat = True
Transparent = False
OnClick = btGetRightClick
end
object DBNavigator4: TDBNavigator
Left = 167
Top = 1
Width = 240
Height = 22
DataSource = DataSource3
Flat = True
TabOrder = 0
end
end
end
object Panel2: TPanel
Left = 0
Top = 64
Width = 443
Height = 90
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 361
Height = 90
Align = alLeft
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object DBGrid2: TDBGrid
Left = 361
Top = 0
Width = 82
Height = 90
Align = alClient
DataSource = DataSource2
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
end
object DBGrid3: TDBGrid
Left = 0
Top = 180
Width = 443
Height = 97
Align = alBottom
DataSource = DataSource3
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object dsData: TDataSource
DataSet = Query
Left = 16
Top = 80
end
object Query: TSmartQuery
FullRefresh = True
Session = ODACForm.OraSession
SQL.Strings = (
'SELECT RowId, R.* FROM ODAC_Ref R '
'--SELECT REF(R) REF,RowId FROM ODAC_Ref R'
'--SELECT R.Left FROM ODAC_Ref R '
'')
Debug = True
FetchRows = 20
LockMode = lmNone
Options.FullRefresh = True
ObjectView = True
Left = 244
Top = 56
object QuerySTR: TStringField
FieldName = 'STR'
Size = 30
end
object QueryNUM: TFloatField
FieldName = 'NUM'
end
object QueryLEFT: TOraReferenceField
FieldName = 'LEFT'
end
object QueryRIGHT: TOraReferenceField
FieldName = 'RIGHT'
end
object QueryROWID: TStringField
FieldName = 'ROWID'
Size = 18
end
end
object DataSource1: TDataSource
DataSet = OraNestedTableLeft
Left = 16
Top = 192
end
object OraNestedTableLeft: TOraNestedTable
DataSetField = QueryLEFT
Left = 272
Top = 56
end
object OraNestedTable: TOraNestedTable
Left = 320
Top = 88
end
object OraNestedTableRight: TOraNestedTable
DataSetField = QueryRIGHT
Left = 272
Top = 88
end
object DataSource2: TDataSource
DataSet = OraNestedTableRight
Left = 376
Top = 192
end
object DataSource3: TDataSource
DataSet = OraNestedTable
Left = 16
Top = 304
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -