cachedupdates.xfm

ODAC 6 最新版的﹐網上找了好久才找到﹐不太好找啊﹐大家一起共享

inherited CachedUpdatesFrame: TCachedUpdatesFrame
  VertScrollBar.Range = 106
  object DBGrid: TDBGrid
    Left = 0
    Top = 106
    Width = 451
    Height = 198
    Align = alClient
    DataSource = DataSource
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    OnDrawDataCell = DBGridDrawDataCell
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 106
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel7: TPanel
      Left = 0
      Top = 0
      Width = 612
      Height = 102
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      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
        Color = clButton
        ParentColor = False
        TabOrder = 0
        object Label1: TLabel
          Left = 6
          Top = 4
          Width = 59
          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
        Color = clButton
        ParentColor = False
        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
        Color = clButton
        ParentColor = False
        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
        Color = clButton
        ParentColor = False
        TabOrder = 4
        object Label2: TLabel
          Left = 5
          Top = 5
          Width = 41
          Height = 19
          Caption = 'Updates'
          Font.Color = clMaroon
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Panel3: TPanel
          Left = 5
          Top = 23
          Width = 333
          Height = 24
          BevelOuter = bvNone
          Color = 170
          ParentColor = False
          TabOrder = 0
          object btApply: TSpeedButton
            Left = 1
            Top = 1
            Width = 82
            Height = 22
            Caption = 'Apply'
            Flat = True
            Font.Color = clMaroon
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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.Color = clMaroon
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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.Color = clMaroon
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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.Color = clMaroon
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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
        Color = clButton
        ParentColor = False
        TabOrder = 5
        object Label3: TLabel
          Left = 5
          Top = 5
          Width = 65
          Height = 19
          Caption = 'Transactions'
          Font.Color = clNavy
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Panel5: TPanel
          Left = 5
          Top = 23
          Width = 250
          Height = 24
          BevelOuter = bvNone
          Color = 170
          ParentColor = False
          TabOrder = 0
          object btStartTrans: TSpeedButton
            Left = 1
            Top = 1
            Width = 82
            Height = 22
            Caption = 'Start'
            Flat = True
            Font.Color = clNavy
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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.Color = clNavy
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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.Color = clNavy
            Font.Height = 11
            Font.Name = 'MS Sans Serif'
            Font.Pitch = fpVariable
            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
        Color = clButton
        ParentColor = False
        TabOrder = 6
        object Label4: TLabel
          Left = 8
          Top = 4
          Width = 80
          Height = 13
          Caption = 'BatchUpdateSize'
        end
        object edUpdateBatchSize: TEdit
          Left = 99
          Top = 0
          Width = 29
          Height = 21
          TabOrder = 0
          Text = '1'
          OnExit = edUpdateBatchSizeExit
        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