smart.xfm

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

inherited SmartFrame: TSmartFrame
  Width = 665
  VertScrollBar.Range = 217
  object Splitter1: TSplitter
    Left = 0
    Top = 189
    Width = 665
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 217
    Width = 665
    Height = 87
    Align = alClient
    Constraints.MinWidth = 50
    DataSource = DataSource
    TabOrder = 3
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 665
    Height = 89
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel1: TPanel
      Left = -8
      Top = 0
      Width = 578
      Height = 87
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btClose: TSpeedButton
        Left = 95
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 9
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object Panel2: TPanel
        Left = 399
        Top = 1
        Width = 178
        Height = 85
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 5
        object cbDMLRefresh: TCheckBox
          Left = 18
          Top = 68
          Width = 88
          Height = 15
          Hint = 'Supports by Oracle8 only'
          Caption = 'DMLRefresh'
          TabOrder = 4
          OnClick = cbDMLRefreshClick
        end
        object cbFullRefresh: TCheckBox
          Left = 18
          Top = 52
          Width = 77
          Height = 15
          Caption = 'FullRefresh'
          TabOrder = 3
          OnClick = cbFullRefreshClick
        end
        object cbRefreshBeforeEdit: TCheckBox
          Left = 18
          Top = 3
          Width = 121
          Height = 17
          Caption = 'Refresh BeforeEdit'
          TabOrder = 0
          OnClick = cbRefreshBeforeEditClick
        end
        object cbRefreshAfterInsert: TCheckBox
          Left = 18
          Top = 19
          Width = 121
          Height = 17
          Caption = 'Refresh AfterInsert'
          TabOrder = 1
          OnClick = cbRefreshAfterInsertClick
        end
        object cbRefreshAfterUpdate: TCheckBox
          Left = 18
          Top = 36
          Width = 121
          Height = 17
          Caption = 'Refresh AfterUpdate'
          TabOrder = 2
          OnClick = cbRefreshAfterUpdateClick
        end
      end
      object Panel5: TPanel
        Left = 181
        Top = 1
        Width = 217
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 0
        object StaticText1: TLabel
          Left = 78
          Top = 4
          Width = 52
          Height = 13
          Caption = 'FetchRows'
        end
        object cbFetchAll: TCheckBox
          Left = 5
          Top = 3
          Width = 62
          Height = 17
          Caption = 'FetchAll'
          TabOrder = 0
          OnClick = cbFetchAllClick
        end
        object edFetchRows: TEdit
          Left = 136
          Top = 1
          Width = 75
          Height = 21
          TabOrder = 1
          OnExit = edFetchRowsExit
        end
      end
      object Panel6: TPanel
        Left = 181
        Top = 55
        Width = 217
        Height = 31
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 4
        object Label5: TLabel
          Left = 5
          Top = 12
          Width = 23
          Height = 13
          Caption = 'Filter'
        end
        object edFilter: TEdit
          Left = 55
          Top = 5
          Width = 98
          Height = 21
          TabOrder = 0
          OnExit = edFilterExit
        end
        object cbFiltered: TCheckBox
          Left = 159
          Top = 8
          Width = 58
          Height = 17
          Caption = 'Filtered'
          TabOrder = 1
          OnClick = cbFilteredClick
        end
      end
      object Panel7: TPanel
        Left = 9
        Top = 24
        Width = 171
        Height = 30
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object Label2: TLabel
          Left = 5
          Top = 8
          Width = 29
          Height = 13
          Caption = 'Check'
        end
        object cbCheck: TComboBox
          Left = 49
          Top = 5
          Width = 118
          Height = 21
          ItemHeight = 15
          Items.Strings = (
            'None'
            'Exception'
            'Refresh')
          TabOrder = 0
          OnChange = cbCheckChange
        end
      end
      object Panel8: TPanel
        Left = 181
        Top = 24
        Width = 217
        Height = 30
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 2
        object Label4: TLabel
          Left = 5
          Top = 8
          Width = 43
          Height = 13
          Caption = 'KeyFields'
        end
        object edKeyFields: TEdit
          Left = 55
          Top = 5
          Width = 157
          Height = 21
          TabOrder = 0
          OnExit = edKeyFieldsExit
        end
      end
      object Panel3: TPanel
        Left = 9
        Top = 55
        Width = 171
        Height = 31
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 3
        object cbAutoCommit: TCheckBox
          Left = 11
          Top = 8
          Width = 97
          Height = 17
          Caption = 'AutoCommit'
          TabOrder = 0
          OnClick = cbAutoCommitClick
        end
        object cbExpand: TCheckBox
          Left = 108
          Top = 7
          Width = 65
          Height = 17
          Caption = 'Expand'
          TabOrder = 1
          OnClick = cbExpandClick
        end
      end
    end
  end
  object Memo: TMemo
    Left = 0
    Top = 89
    Width = 665
    Height = 100
    Align = alTop
    Constraints.MinHeight = 50
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel10: TPanel
    Left = 0
    Top = 192
    Width = 665
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Panel9: TPanel
      Left = 1
      Top = 1
      Width = 629
      Height = 24
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btView: TSpeedButton
        Left = 232
        Top = 1
        Width = 23
        Height = 22
        Hint = 'View'
        Enabled = False
        Flat = True
        Glyph.Data = {
          52010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777770000007777777777777777770000007777777777777007770000007777
          7777777700007700000077777777777000077700000077770000070000777700
          00007770000000000777770000007700777770077777770000007007777E7700
          7777770000007007E777E7007777770000007007E77777007777770000007007
          EE7777007777770000007007EEE7770077777700000077007777700777777700
          0000777000000077777777000000777700000777777777000000777777777777
          777777000000777777777777777777000000}
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        OnClick = btViewClick
      end
      object btRefreshRecord: TSpeedButton
        Left = 256
        Top = 1
        Width = 85
        Height = 22
        Caption = 'RefreshRecord'
        Flat = True
        Transparent = False
        OnClick = btRefreshRecordClick
      end
      object btLock: TSpeedButton
        Left = 543
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Lock'
        Flat = True
        Transparent = False
        OnClick = btLockClick
      end
      object DBNavigator: TDBNavigator
        Left = 1
        Top = 1
        Width = 230
        Height = 22
        DataSource = DataSource
        Flat = True
        TabOrder = 0
      end
      object Panel4: TPanel
        Left = 342
        Top = 1
        Width = 200
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object Label1: TLabel
          Left = 3
          Top = 4
          Width = 45
          Height = 13
          Caption = 'Lock type'
        end
        object cbLock: TComboBox
          Left = 55
          Top = 1
          Width = 137
          Height = 21
          ItemHeight = 15
          Items.Strings = (
            'None'
            'Immediate'
            'Delayed')
          TabOrder = 0
          OnChange = cbLockChange
        end
      end
    end
  end
  object DataSource: TDataSource
    DataSet = SmartQuery
    OnStateChange = DataSourceStateChange
    OnDataChange = DataSourceDataChange
    Left = 235
    Top = 101
  end
  object SmartQuery: TSmartQuery
    CheckMode = cmException
    FullRefresh = True
    Session = ODACForm.OraSession
    SQL.Strings = (
      'SELECT'
      '  E.EmpNo, E.EName, E.DeptNo, E.RowId, D.*'
      'FROM'
      '  Emp E, Dept D'
      'WHERE'
      '  E.DeptNo = D.DeptNo(+)'
      '')
    Debug = True
    RefreshOptions = [roAfterInsert, roAfterUpdate]
    Options.FullRefresh = True
    Left = 203
    Top = 101
  end
end