📄 cachedupdates.dfm
字号:
inherited CachedUpdatesFrame: TCachedUpdatesFrame
object DBGrid: TDBGrid
Left = 0
Top = 106
Width = 443
Height = 171
Align = alClient
DataSource = DataSource
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawDataCell = DBGridDrawDataCell
end
object ToolBar: TPanel
Left = 0
Top = 0
Width = 443
Height = 106
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Panel7: TPanel
Left = 0
Top = 0
Width = 612
Height = 102
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btClose: TSpeedButton
Left = 87
Top = 1
Width = 85
Height = 22
Caption = 'Close'
Flat = True
Transparent = False
OnClick = btCloseClick
end
object RefreshRecord: TSpeedButton
Left = 394
Top = 1
Width = 85
Height = 22
Caption = 'RefreshRecord'
Flat = True
Transparent = False
OnClick = RefreshRecordClick
end
object btOpen: TSpeedButton
Left = 1
Top = 1
Width = 85
Height = 22
Caption = 'Open'
Flat = True
Transparent = False
OnClick = btOpenClick
end
object Panel6: TPanel
Left = 265
Top = 24
Width = 346
Height = 22
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 4
Width = 64
Height = 13
Caption = 'RecordTypes'
end
object cbDeleted: TCheckBox
Left = 287
Top = 3
Width = 63
Height = 17
Caption = 'Deleted'
TabOrder = 0
OnClick = cbDeletedClick
end
object cbInserted: TCheckBox
Left = 221
Top = 3
Width = 62
Height = 17
Caption = 'Inserted'
TabOrder = 1
OnClick = cbInsertedClick
end
object cbModified: TCheckBox
Left = 157
Top = 3
Width = 65
Height = 17
Caption = 'Modified'
TabOrder = 2
OnClick = cbModifiedClick
end
object cbUnmodified: TCheckBox
Left = 78
Top = 3
Width = 79
Height = 17
Caption = 'Unmodified'
TabOrder = 3
OnClick = cbUnmodifiedClick
end
end
object Panel10: TPanel
Left = 1
Top = 24
Width = 112
Height = 22
BevelOuter = bvNone
TabOrder = 1
object cbCachedUpdates: TCheckBox
Left = 8
Top = 3
Width = 97
Height = 17
Caption = 'CachedUpdates'
TabOrder = 0
OnClick = cbCachedUpdatesClick
end
end
object DBNavigator: TDBNavigator
Left = 173
Top = 1
Width = 220
Height = 22
DataSource = DataSource
Flat = True
TabOrder = 2
end
object Panel2: TPanel
Left = 480
Top = 1
Width = 131
Height = 22
BevelOuter = bvNone
TabOrder = 3
object cbCustomUpdate: TCheckBox
Left = 23
Top = 3
Width = 97
Height = 17
Caption = 'Custom Update'
TabOrder = 0
OnClick = cbCustomUpdateClick
end
end
object Panel1: TPanel
Left = 1
Top = 47
Width = 345
Height = 54
BevelOuter = bvNone
TabOrder = 4
object Label2: TLabel
Left = 5
Top = 5
Width = 48
Height = 13
Caption = 'Updates'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Panel3: TPanel
Left = 5
Top = 23
Width = 333
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btApply: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Apply'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btApplyClick
end
object btCommit: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Commit'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btCommitClick
end
object btCancel: TSpeedButton
Left = 167
Top = 1
Width = 82
Height = 22
Caption = 'Cancel'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btCancelClick
end
object btRevertRecord: TSpeedButton
Left = 250
Top = 1
Width = 82
Height = 22
Caption = 'Revert'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btRevertRecordClick
end
end
end
object Panel4: TPanel
Left = 347
Top = 47
Width = 264
Height = 54
BevelOuter = bvNone
TabOrder = 5
object Label3: TLabel
Left = 5
Top = 5
Width = 74
Height = 13
Caption = 'Transactions'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Panel5: TPanel
Left = 5
Top = 23
Width = 250
Height = 24
BevelOuter = bvNone
Color = 170
TabOrder = 0
object btStartTrans: TSpeedButton
Left = 1
Top = 1
Width = 82
Height = 22
Caption = 'Start'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btStartTransClick
end
object btCommitTrans: TSpeedButton
Left = 84
Top = 1
Width = 82
Height = 22
Caption = 'Commit'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btCommitTransClick
end
object btRollBackTrans: TSpeedButton
Left = 167
Top = 1
Width = 82
Height = 22
Caption = 'Rollback'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = btRollbackTransClick
end
end
end
object Panel8: TPanel
Left = 114
Top = 24
Width = 150
Height = 22
BevelOuter = bvNone
TabOrder = 6
object Label4: TLabel
Left = 8
Top = 4
Width = 83
Height = 13
Caption = 'BatchUpdateSize'
end
object edUpdateBatchSize: TEdit
Left = 99
Top = 0
Width = 29
Height = 21
TabOrder = 0
Text = '1'
OnExit = edUpdateBatchSizeExit
end
object udUpdateBatchSize: TUpDown
Left = 128
Top = 0
Width = 15
Height = 21
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')
Session = ODACForm.OraSession
SQL.Strings = (
'SELECT * FROM Dept')
Debug = True
CachedUpdates = True
OnUpdateError = OraQueryUpdateError
OnCalcFields = OraQueryCalcFields
Left = 54
Top = 116
object OraQueryDEPTNO: TIntegerField
FieldName = 'DEPTNO'
Required = True
end
object OraQueryDNAME: TStringField
FieldName = 'DNAME'
Size = 14
end
object OraQueryLOC: TStringField
FieldName = 'LOC'
Size = 13
end
object OraQueryStatus: TStringField
DisplayWidth = 24
FieldKind = fkCalculated
FieldName = 'Status'
Calculated = True
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -