smart.lfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

object SmartFrame: TSmartFrame
  Height = 240
  Width = 677
  object Splitter1: TSplitter
    Cursor = crVSplit
    Height = 3
    Top = 189
    Width = 677
    Align = alTop
    ResizeAnchor = akTop
  end
  object DBGrid: TDBGrid
    Height = 23
    Top = 217
    Width = 677
    Align = alClient
    Constraints.MinWidth = 50
    DataSource = DataSource
    FixedColor = clBtnFace
    FixedHotColor = cl3DLight
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
    ParentColor = False
    TabOrder = 3
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object ToolBar: TPanel
    Height = 89
    Width = 677
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 89
    ClientWidth = 677
    TabOrder = 0
    object Panel1: TPanel
      Left = -8
      Height = 87
      Width = 578
      BevelOuter = bvNone
      ClientHeight = 87
      ClientWidth = 578
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btClose: TSpeedButton
        Left = 95
        Height = 22
        Top = 1
        Width = 85
        Caption = 'Close'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 9
        Height = 22
        Top = 1
        Width = 85
        Caption = 'Open'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btOpenClick
      end
      object Panel2: TPanel
        Left = 399
        Height = 85
        Top = 1
        Width = 178
        BevelOuter = bvNone
        ClientHeight = 85
        ClientWidth = 178
        ParentColor = False
        TabOrder = 5
        object cbDMLRefresh: TCheckBox
          Left = 18
          Height = 19
          Hint = 'Supports by Oracle8 only'
          Top = 68
          Width = 86
          Caption = 'DMLRefresh'
          OnClick = cbDMLRefreshClick
          TabOrder = 4
        end
        object cbFullRefresh: TCheckBox
          Left = 18
          Height = 19
          Top = 52
          Width = 79
          Caption = 'FullRefresh'
          OnClick = cbFullRefreshClick
          TabOrder = 3
        end
        object cbRefreshBeforeEdit: TCheckBox
          Left = 18
          Height = 19
          Top = 3
          Width = 115
          Caption = 'Refresh BeforeEdit'
          OnClick = cbRefreshBeforeEditClick
          TabOrder = 0
        end
        object cbRefreshAfterInsert: TCheckBox
          Left = 18
          Height = 19
          Top = 19
          Width = 114
          Caption = 'Refresh AfterInsert'
          OnClick = cbRefreshAfterInsertClick
          TabOrder = 1
        end
        object cbRefreshAfterUpdate: TCheckBox
          Left = 18
          Height = 19
          Top = 36
          Width = 123
          Caption = 'Refresh AfterUpdate'
          OnClick = cbRefreshAfterUpdateClick
          TabOrder = 2
        end
      end
      object Panel5: TPanel
        Left = 181
        Height = 22
        Top = 1
        Width = 217
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 217
        ParentColor = False
        TabOrder = 0
        object StaticText1: TLabel
          Left = 78
          Height = 14
          Top = 4
          Width = 54
          Caption = 'FetchRows'
          ParentColor = False
        end
        object cbFetchAll: TCheckBox
          Left = 5
          Height = 19
          Top = 3
          Width = 64
          Caption = 'FetchAll'
          OnClick = cbFetchAllClick
          TabOrder = 0
        end
        object edFetchRows: TEdit
          Left = 136
          Height = 21
          Top = 1
          Width = 75
          OnExit = edFetchRowsExit
          TabOrder = 1
        end
      end
      object Panel6: TPanel
        Left = 181
        Height = 31
        Top = 55
        Width = 217
        BevelOuter = bvNone
        ClientHeight = 31
        ClientWidth = 217
        ParentColor = False
        TabOrder = 4
        object Label5: TLabel
          Left = 5
          Height = 14
          Top = 12
          Width = 25
          Caption = 'Filter'
          ParentColor = False
        end
        object edFilter: TEdit
          Left = 55
          Height = 21
          Top = 5
          Width = 98
          OnExit = edFilterExit
          TabOrder = 0
        end
        object cbFiltered: TCheckBox
          Left = 159
          Height = 19
          Top = 8
          Width = 60
          Caption = 'Filtered'
          OnClick = cbFilteredClick
          TabOrder = 1
        end
      end
      object Panel7: TPanel
        Left = 9
        Height = 30
        Top = 24
        Width = 171
        BevelOuter = bvNone
        ClientHeight = 30
        ClientWidth = 171
        ParentColor = False
        TabOrder = 1
        object Label2: TLabel
          Left = 5
          Height = 13
          Top = 8
          Width = 31
          Caption = 'Check'
          ParentColor = False
        end
        object cbCheck: TComboBox
          Left = 49
          Height = 21
          Top = 5
          Width = 118
          AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
          ItemHeight = 13
          Items.Strings = (
            'None'
            'Exception'
            'Refresh'
          )
          OnChange = cbCheckChange
          Style = csDropDownList
          TabOrder = 0
        end
      end
      object Panel8: TPanel
        Left = 181
        Height = 30
        Top = 24
        Width = 217
        BevelOuter = bvNone
        ClientHeight = 30
        ClientWidth = 217
        ParentColor = False
        TabOrder = 2
        object Label4: TLabel
          Left = 5
          Height = 13
          Top = 8
          Width = 45
          Caption = 'KeyFields'
          ParentColor = False
        end
        object edKeyFields: TEdit
          Left = 55
          Height = 21
          Top = 5
          Width = 157
          OnExit = edKeyFieldsExit
          TabOrder = 0
        end
      end
      object Panel3: TPanel
        Left = 9
        Height = 31
        Top = 55
        Width = 171
        BevelOuter = bvNone
        ClientHeight = 31
        ClientWidth = 171
        ParentColor = False
        TabOrder = 3
        object cbAutoCommit: TCheckBox
          Left = 11
          Height = 19
          Top = 8
          Width = 82
          Caption = 'AutoCommit'
          OnClick = cbAutoCommitClick
          TabOrder = 0
        end
        object cbExpand: TCheckBox
          Left = 108
          Height = 19
          Top = 7
          Width = 62
          Caption = 'Expand'
          OnClick = cbExpandClick
          TabOrder = 1
        end
      end
    end
  end
  object Memo: TMemo
    Height = 100
    Top = 89
    Width = 677
    Align = alTop
    Constraints.MinHeight = 50
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel10: TPanel
    Height = 25
    Top = 192
    Width = 677
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 25
    ClientWidth = 677
    TabOrder = 2
    object Panel9: TPanel
      Left = 1
      Height = 24
      Top = 1
      Width = 629
      BevelOuter = bvNone
      ClientHeight = 24
      ClientWidth = 629
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btView: TSpeedButton
        Left = 232
        Height = 22
        Hint = 'View'
        Top = 1
        Width = 23
        Color = clBtnFace
        Enabled = False
        Flat = True
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777770000007777777777777777770000007777777777777007770000007777
          7777777700007700000077777777777000077700000077770000070000777700
          00007770000000000777770000007700777770077777770000007007777E7700
          7777770000007007E777E7007777770000007007E77777007777770000007007
          EE7777007777770000007007EEE7770077777700000077007777700777777700
          0000777000000077777777000000777700000777777777000000777777777777
          777777000000777777777777777777000000
        }
        NumGlyphs = 0
        Transparent = False
        OnClick = btViewClick
        ShowHint = True
        ParentShowHint = False
      end
      object btRefreshRecord: TSpeedButton
        Left = 256
        Height = 22
        Top = 1
        Width = 85
        Caption = 'RefreshRecord'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btRefreshRecordClick
      end
      object btLock: TSpeedButton
        Left = 543
        Height = 22
        Top = 1
        Width = 85
        Caption = 'Lock'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btLockClick
      end
      object DBNavigator: TDBNavigator
        Left = 1
        Height = 22
        Top = 1
        Width = 230
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 230
        Color = clBtnFace
        DataSource = DataSource
        Flat = True
        ParentColor = False
        TabOrder = 0
      end
      object Panel4: TPanel
        Left = 342
        Height = 22
        Top = 1
        Width = 200
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 200
        ParentColor = False
        TabOrder = 1
        object Label1: TLabel
          Left = 3
          Height = 13
          Top = 4
          Width = 47
          Caption = 'Lock type'
          ParentColor = False
        end
        object cbLock: TComboBox
          Left = 55
          Height = 21
          Top = 1
          Width = 137
          AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
          ItemHeight = 13
          Items.Strings = (
            'None'
            'Immediate'
            'Delayed'
          )
          OnChange = cbLockChange
          Style = csDropDownList
          TabOrder = 0
        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
    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.AutoClose = False
    Options.FieldsAsString = False
    Options.DeferredLobRead = False
    Options.ScrollableCursor = False
    Options.FieldsOrigin = False
    Options.DefaultValues = False
    Options.NumberRange = False
    Options.QueryRecCount = False
    Options.AutoPrepare = False
    Options.ReturnParams = False
    Options.FlatBuffers = False
    Options.DetailDelay = 0
    Options.FullRefresh = True
    left = 203
    top = 101
  end
end