📄 arrays.nfm
字号:
inherited ArraysFrame: TArraysFrame
object DBGrid: TDBGrid
Left = 0
Top = 49
Width = 443
Height = 228
Align = alClient
DataSource = DataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 443
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object ToolBar1: TPanel
Left = 1
Top = 1
Width = 414
Height = 47
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 85
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object btClose: TSpeedButton
Left = 87
Top = 1
Width = 85
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseClick
end
object btUpdateRecord: TSpeedButton
Left = 87
Top = 24
Width = 85
Height = 22
Caption = 'Update Record'
Flat = True
Transparent = False
OnClick = btUpdateRecordClick
end
object btAddRecord: TSpeedButton
Left = 1
Top = 24
Width = 85
Height = 22
Caption = 'Add Record'
Flat = True
Transparent = False
OnClick = btAddRecordClick
end
object DBNavigator1: TDBNavigator
Left = 173
Top = 1
Width = 240
Height = 22
DataSource = DataSource
Flat = True
TabOrder = 0
end
object Panel1: TPanel
Left = 173
Top = 24
Width = 240
Height = 22
BevelOuter = bvNone
TabOrder = 1
object cbObjectView: TCheckBox
Left = 24
Top = 3
Width = 77
Height = 16
Caption = 'ObjectView'
TabOrder = 0
OnClick = cbObjectViewClick
end
object cbSparseArrays: TCheckBox
Left = 120
Top = 3
Width = 88
Height = 16
Caption = 'SparseArrays'
TabOrder = 1
OnClick = cbSparseArraysClick
end
end
end
end
object DataSource: TDataSource
DataSet = Query
Left = 24
Top = 80
end
object Query: TSmartQuery
SQL.Strings = (
'SELECT RowNum, RowId, T.* FROM ODAC_Array T'
'')
Debug = True
LockMode = lmNone
ObjectView = True
Left = 240
Top = 56
end
object sqInsert: TOraSQL
SQL.Strings = (
'INSERT INTO ODAC_Array'
' (Code, Title, Arr1, Arr2, Arr3, Obj)'
'VALUES'
' (:Code, :Title, :Arr1, :Arr2, :Arr3, :Obj)'
'')
Debug = True
Left = 240
Top = 88
ParamData = <
item
DataType = ftUnknown
Name = 'Code'
end
item
DataType = ftUnknown
Name = 'Title'
end
item
DataType = ftUnknown
Name = 'Arr1'
end
item
DataType = ftUnknown
Name = 'Arr2'
end
item
DataType = ftUnknown
Name = 'Arr3'
end
item
DataType = ftUnknown
Name = 'Obj'
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -