📄 cachedupdates.lfm
字号:
inherited CachedUpdatesFrame: TCachedUpdatesFrame
Width = 682
object DBGrid: TDBGrid
Height = 170
Top = 106
Width = 682
Align = alClient
DataSource = DataSource
FixedColor = clBtnFace
FixedHotColor = cl3DLight
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
ParentColor = False
TabOrder = 1
TabStop = True
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
end
object ToolBar: TPanel
Height = 106
Width = 682
Align = alTop
BevelOuter = bvNone
ClientHeight = 106
ClientWidth = 682
TabOrder = 0
object Panel7: TPanel
Height = 102
Width = 612
BevelOuter = bvNone
ClientHeight = 102
ClientWidth = 612
Color = 170
ParentColor = False
TabOrder = 0
object btClose: TSpeedButton
Left = 87
Height = 22
Top = 1
Width = 85
Caption = 'Close'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btCloseClick
end
object RefreshRecord: TSpeedButton
Left = 394
Height = 22
Top = 1
Width = 85
Caption = 'RefreshRecord'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = RefreshRecordClick
end
object btOpen: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 85
Caption = 'Open'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btOpenClick
end
object Panel6: TPanel
Left = 265
Height = 22
Top = 24
Width = 346
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 346
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 6
Height = 14
Top = 4
Width = 64
Caption = 'RecordTypes'
ParentColor = False
end
object cbDeleted: TCheckBox
Left = 287
Height = 19
Top = 3
Width = 63
Caption = 'Deleted'
OnClick = cbDeletedClick
TabOrder = 0
end
object cbInserted: TCheckBox
Left = 221
Height = 19
Top = 3
Width = 64
Caption = 'Inserted'
OnClick = cbInsertedClick
TabOrder = 1
end
object cbModified: TCheckBox
Left = 157
Height = 19
Top = 3
Width = 66
Caption = 'Modified'
OnClick = cbModifiedClick
TabOrder = 2
end
object cbUnmodified: TCheckBox
Left = 78
Height = 19
Top = 3
Width = 79
Caption = 'Unmodified'
OnClick = cbUnmodifiedClick
TabOrder = 3
end
end
object Panel10: TPanel
Left = 1
Height = 22
Top = 24
Width = 112
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 112
ParentColor = False
TabOrder = 1
object cbCachedUpdates: TCheckBox
Left = 8
Height = 19
Top = 3
Width = 103
Caption = 'CachedUpdates'
OnClick = cbCachedUpdatesClick
TabOrder = 0
end
end
object DBNavigator: TDBNavigator
Left = 173
Height = 22
Top = 1
Width = 220
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 220
Color = clBtnFace
DataSource = DataSource
Flat = True
ParentColor = False
TabOrder = 2
end
object Panel2: TPanel
Left = 480
Height = 22
Top = 1
Width = 131
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 131
ParentColor = False
TabOrder = 3
object cbCustomUpdate: TCheckBox
Left = 23
Height = 19
Top = 3
Width = 99
Caption = 'Custom Update'
OnClick = cbCustomUpdateClick
TabOrder = 0
end
end
object Panel1: TPanel
Left = 1
Height = 54
Top = 47
Width = 345
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 345
ParentColor = False
TabOrder = 4
object Label2: TLabel
Left = 5
Height = 13
Top = 5
Width = 48
Caption = 'Updates'
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
end
object Panel3: TPanel
Left = 5
Height = 24
Top = 23
Width = 333
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 333
Color = 170
ParentColor = False
TabOrder = 0
object btApply: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 82
Caption = 'Apply'
Color = clBtnFace
Flat = True
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btApplyClick
end
object btCommit: TSpeedButton
Left = 84
Height = 22
Top = 1
Width = 82
Caption = 'Commit'
Color = clBtnFace
Flat = True
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btCommitClick
end
object btCancel: TSpeedButton
Left = 167
Height = 22
Top = 1
Width = 82
Caption = 'Cancel'
Color = clBtnFace
Flat = True
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btCancelClick
end
object btRevertRecord: TSpeedButton
Left = 250
Height = 22
Top = 1
Width = 82
Caption = 'Revert'
Color = clBtnFace
Flat = True
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btRevertRecordClick
end
end
end
object Panel4: TPanel
Left = 347
Height = 54
Top = 47
Width = 264
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 264
ParentColor = False
TabOrder = 5
object Label3: TLabel
Left = 5
Height = 13
Top = 5
Width = 74
Caption = 'Transactions'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
end
object Panel5: TPanel
Left = 5
Height = 24
Top = 23
Width = 250
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 250
Color = 170
ParentColor = False
TabOrder = 0
object btStartTrans: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 82
Caption = 'Start'
Color = clBtnFace
Flat = True
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btStartTransClick
end
object btCommitTrans: TSpeedButton
Left = 84
Height = 22
Top = 1
Width = 82
Caption = 'Commit'
Color = clBtnFace
Flat = True
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btCommitTransClick
end
object btRollBackTrans: TSpeedButton
Left = 167
Height = 22
Top = 1
Width = 82
Caption = 'Rollback'
Color = clBtnFace
Flat = True
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
NumGlyphs = 0
Transparent = False
OnClick = btRollbackTransClick
end
end
end
object Panel8: TPanel
Left = 114
Height = 22
Top = 24
Width = 150
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 150
ParentColor = False
TabOrder = 6
object Label4: TLabel
Left = 8
Height = 13
Top = 4
Width = 83
Caption = 'BatchUpdateSize'
ParentColor = False
end
object edUpdateBatchSize: TEdit
Left = 99
Height = 21
Width = 29
OnExit = edUpdateBatchSizeExit
OnKeyDown = nil
TabOrder = 0
Text = '1'
end
object udUpdateBatchSize: TUpDown
Left = 128
Height = 21
Width = 15
Associate = edUpdateBatchSize
Min = 1
Position = 1
TabOrder = 1
end
end
end
end
object DataSource: TDatasource
DataSet = OraQuery
OnStateChange = DataSourceStateChange
OnDataChange = DataSourceDataChange
left = 87
top = 116
end
object OraQuery: TOraQuery
SQLInsert.Strings = (
'INSERT INTO Dept'
' (DEPTNO, DNAME, LOC)'
'VALUES'
' (:DEPTNO, :DNAME, :LOC)'
)
SQLDelete.Strings = (
'DELETE FROM Dept'
'WHERE'
' DEPTNO = :DEPTNO'
)
SQLUpdate.Strings = (
'UPDATE Dept'
'SET'
' DEPTNO = :DEPTNO,'
' DNAME = :DNAME,'
' LOC = :LOC'
'WHERE'
' DEPTNO = :OLD_DEPTNO'
)
SQLLock.Strings = (
'SELECT * FROM Dept'
'WHERE'
' DEPTNO = :DEPTNO'
'FOR UPDATE NOWAIT'
)
SQLRefresh.Strings = (
'WHERE'
' DEPTNO = :DEPTNO'
)
SQL.Strings = (
'SELECT * FROM Dept'
)
Debug = True
CachedUpdates = True
OnUpdateError = OraQueryUpdateError
OnCalcFields = OraQueryCalcFields
left = 54
top = 116
object OraQueryDEPTNO: TLongintField
FieldName = 'DEPTNO'
Required = True
end
object OraQueryDNAME: TStringField
DisplayWidth = 14
FieldName = 'DNAME'
ProviderFlags = [pfInUpdate, pfInWhere]
Size = 14
end
object OraQueryLOC: TStringField
DisplayWidth = 13
FieldName = 'LOC'
Index = 1
ProviderFlags = [pfInUpdate, pfInWhere]
Size = 13
end
object OraQueryStatus: TStringField
DisplayWidth = 24
FieldKind = fkCalculated
FieldName = 'Status'
Index = 2
ProviderFlags = [pfInUpdate, pfInWhere]
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -