📄 nestedtables.nfm
字号:
inherited NestedTablesFrame: TNestedTablesFrame
object Splitter2: TSplitter
Left = 0
Top = 189
Width = 443
Height = 3
Cursor = crVSplit
Align = alTop
Beveled = True
Color = 170
ParentColor = False
end
object Panel6: TPanel
Left = 0
Top = 0
Width = 443
Height = 189
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Splitter1: TSplitter
Left = 232
Top = 0
Height = 189
Beveled = True
Color = 170
ParentColor = False
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 232
Height = 189
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object DBGrid1: TDBGrid
Left = 0
Top = 49
Width = 232
Height = 140
Align = alClient
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object Panel12: TPanel
Left = 0
Top = 0
Width = 232
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 1
Width = 212
Height = 47
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 104
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btClose: TSpeedButton
Left = 106
Top = 1
Width = 105
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseClick
end
object DBNavigator1: TDBNavigator
Left = 1
Top = 24
Width = 210
Height = 22
DataSource = DataSource1
Flat = True
TabOrder = 0
end
end
end
end
object Panel5: TPanel
Left = 235
Top = 0
Width = 208
Height = 189
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object DBGrid2: TDBGrid
Left = 0
Top = 49
Width = 208
Height = 140
Align = alClient
DataSource = DataSource2
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object Panel11: TPanel
Left = 0
Top = 0
Width = 208
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Panel1: TPanel
Left = 1
Top = 1
Width = 212
Height = 47
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpenNested: TSpeedButton
Left = 1
Top = 1
Width = 104
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenNestedClick
end
object btCloseNested: TSpeedButton
Left = 106
Top = 1
Width = 105
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseNestedClick
end
object DBNavigator2: TDBNavigator
Left = 1
Top = 24
Width = 210
Height = 22
DataSource = DataSource2
Flat = True
TabOrder = 0
end
end
end
end
end
object Panel7: TPanel
Left = 0
Top = 192
Width = 443
Height = 85
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object DBGrid3: TDBGrid
Left = 0
Top = 49
Width = 443
Height = 36
Align = alClient
DataSource = DataSource3
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object Panel10: TPanel
Left = 0
Top = 0
Width = 443
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Panel3: TPanel
Left = 1
Top = 1
Width = 422
Height = 47
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpenTable: TSpeedButton
Left = 1
Top = 1
Width = 104
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenTableClick
end
object btCloseTable: TSpeedButton
Left = 106
Top = 1
Width = 104
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseTableClick
end
object btGetTable: TSpeedButton
Left = 1
Top = 24
Width = 104
Height = 22
Caption = 'Get Table'
Flat = True
Transparent = False
OnClick = btGetTableClick
end
object btAppendTable: TSpeedButton
Left = 211
Top = 24
Width = 105
Height = 22
Caption = 'Append Table'
Flat = True
Transparent = False
OnClick = btAppendTableClick
end
object btImportTable: TSpeedButton
Left = 106
Top = 24
Width = 104
Height = 22
Caption = 'Import Table'
Flat = True
Transparent = False
OnClick = btImportTableClick
end
object btUpdateTable: TSpeedButton
Left = 317
Top = 24
Width = 104
Height = 22
Caption = 'Update Table'
Flat = True
Transparent = False
OnClick = btUpdateTableClick
end
object DBNavigator3: TDBNavigator
Left = 211
Top = 1
Width = 210
Height = 22
DataSource = DataSource3
Flat = True
TabOrder = 0
end
end
end
end
object DataSource1: TDataSource
DataSet = Query
Left = 32
Top = 96
end
object DataSource2: TDataSource
DataSet = OraNestedTable
Left = 288
Top = 96
end
object OraNestedTable: TOraNestedTable
DataSetField = QueryCONTENT
Left = 192
Top = 120
end
object Query: TSmartQuery
Session = ODACForm.OraSession
SQL.Strings = (
'SELECT T.RowId, T.* FROM ODAC_NestedTable T'
'')
Debug = True
LockMode = lmNone
ObjectView = True
Left = 160
Top = 120
object QueryCODE: TFloatField
FieldName = 'CODE'
end
object QueryCONTENT: TOraDataSetField
FieldName = 'CONTENT'
ObjectType = 'SCOTT.TODACNESTEDTABLE'
end
object QueryROWID: TStringField
FieldName = 'ROWID'
ReadOnly = True
Size = 18
end
end
object sqGet: TOraSQL
Session = ODACForm.OraSession
SQL.Strings = (
'begin'
' SELECT Content'
' INTO :Res'
' FROM ODAC_NestedTable'
' WHERE Code = :Code;'
'end;')
Debug = True
Left = 384
Top = 264
ParamData = <
item
DataType = ftDataSet
Name = 'Res'
end
item
DataType = ftUnknown
Name = 'Code'
end>
end
object OraNestedTable1: TOraNestedTable
Left = 480
Top = 264
end
object DataSource3: TDataSource
DataSet = OraNestedTable1
Left = 496
Top = 344
end
object sqAppend: TOraSQL
Session = ODACForm.OraSession
SQL.Strings = (
'declare'
' lCode NUMBER;'
'begin'
' SELECT Max(Code)'
' INTO lCode'
' FROM ODAC_NestedTable;'
''
' INSERT INTO ODAC_NestedTable'
' (Code, Content)'
' VALUES'
' (lCode + 1, :Value);'
''
' COMMIT;'
'end;'
'')
Debug = True
Left = 416
Top = 264
ParamData = <
item
DataType = ftUnknown
Name = 'Value'
end>
end
object sqUpdate: TOraSQL
Session = ODACForm.OraSession
SQL.Strings = (
'begin'
' UPDATE ODAC_NestedTable SET'
' Content = :Value'
' WHERE '
' Code = :Code;'
''
' COMMIT;'
'end;'
'')
Debug = True
Left = 448
Top = 264
ParamData = <
item
DataType = ftUnknown
Name = 'Value'
end
item
DataType = ftUnknown
Name = 'Code'
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -