nestedtables.xfm

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

inherited NestedTablesFrame: TNestedTablesFrame
  VertScrollBar.Range = 192
  object Splitter2: TSplitter
    Left = 0
    Top = 189
    Width = 451
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    Color = 170
  end
  object Panel6: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 189
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 232
      Top = 0
      Height = 189
      Beveled = True
      Color = 170
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 232
      Height = 189
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 0
        Top = 49
        Width = 232
        Height = 140
        Align = alClient
        DataSource = DataSource1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Color = clBlack
        TitleFont.Height = 11
        TitleFont.Name = 'helvetica'
        TitleFont.Pitch = fpVariable
        TitleFont.Style = []
        TitleFont.Weight = 40
      end
      object Panel12: TPanel
        Left = 0
        Top = 0
        Width = 232
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 212
          Height = 47
          BevelOuter = bvNone
          Color = 170
          TabOrder = 0
          object btOpen: TSpeedButton
            Left = 1
            Top = 1
            Width = 104
            Height = 22
            Caption = 'Open'
            Flat = True
            Transparent = False
            OnClick = btOpenClick
          end
          object btClose: TSpeedButton
            Left = 106
            Top = 1
            Width = 105
            Height = 22
            Caption = 'Close'
            Flat = True
            Transparent = False
            OnClick = btCloseClick
          end
          object DBNavigator1: TDBNavigator
            Left = 1
            Top = 24
            Width = 210
            Height = 22
            DataSource = DataSource1
            Flat = True
            TabOrder = 0
          end
        end
      end
    end
    object Panel5: TPanel
      Left = 235
      Top = 0
      Width = 216
      Height = 189
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 49
        Width = 216
        Height = 140
        Align = alClient
        DataSource = DataSource2
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Color = clBlack
        TitleFont.Height = 11
        TitleFont.Name = 'helvetica'
        TitleFont.Pitch = fpVariable
        TitleFont.Style = []
        TitleFont.Weight = 40
      end
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 216
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Panel1: TPanel
          Left = 1
          Top = 1
          Width = 212
          Height = 47
          BevelOuter = bvNone
          Color = 170
          TabOrder = 0
          object btOpenNested: TSpeedButton
            Left = 1
            Top = 1
            Width = 104
            Height = 22
            Caption = 'Open'
            Flat = True
            Transparent = False
            OnClick = btOpenNestedClick
          end
          object btCloseNested: TSpeedButton
            Left = 106
            Top = 1
            Width = 105
            Height = 22
            Caption = 'Close'
            Flat = True
            Transparent = False
            OnClick = btCloseNestedClick
          end
          object DBNavigator2: TDBNavigator
            Left = 1
            Top = 24
            Width = 210
            Height = 22
            DataSource = DataSource2
            Flat = True
            TabOrder = 0
          end
        end
      end
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 192
    Width = 451
    Height = 112
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBGrid3: TDBGrid
      Left = 0
      Top = 49
      Width = 451
      Height = 63
      Align = alClient
      DataSource = DataSource3
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = 11
      TitleFont.Name = 'helvetica'
      TitleFont.Pitch = fpVariable
      TitleFont.Style = []
      TitleFont.Weight = 40
    end
    object Panel10: TPanel
      Left = 0
      Top = 0
      Width = 451
      Height = 49
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 422
        Height = 47
        BevelOuter = bvNone
        Color = 170
        TabOrder = 0
        object btOpenTable: TSpeedButton
          Left = 1
          Top = 1
          Width = 104
          Height = 22
          Caption = 'Open'
          Flat = True
          Transparent = False
          OnClick = btOpenTableClick
        end
        object btCloseTable: TSpeedButton
          Left = 106
          Top = 1
          Width = 104
          Height = 22
          Caption = 'Close'
          Flat = True
          Transparent = False
          OnClick = btCloseTableClick
        end
        object btGetTable: TSpeedButton
          Left = 1
          Top = 24
          Width = 104
          Height = 22
          Caption = 'Get Table'
          Flat = True
          Transparent = False
          OnClick = btGetTableClick
        end
        object btAppendTable: TSpeedButton
          Left = 211
          Top = 24
          Width = 105
          Height = 22
          Caption = 'Append Table'
          Flat = True
          Transparent = False
          OnClick = btAppendTableClick
        end
        object btImportTable: TSpeedButton
          Left = 106
          Top = 24
          Width = 104
          Height = 22
          Caption = 'Import Table'
          Flat = True
          Transparent = False
          OnClick = btImportTableClick
        end
        object btUpdateTable: TSpeedButton
          Left = 317
          Top = 24
          Width = 104
          Height = 22
          Caption = 'Update Table'
          Flat = True
          Transparent = False
          OnClick = btUpdateTableClick
        end
        object DBNavigator3: TDBNavigator
          Left = 211
          Top = 1
          Width = 210
          Height = 22
          DataSource = DataSource3
          Flat = True
          TabOrder = 0
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query
    Left = 32
    Top = 96
  end
  object DataSource2: TDataSource
    DataSet = OraNestedTable
    Left = 288
    Top = 96
  end
  object OraNestedTable: TOraNestedTable
    DataSetField = QueryCONTENT
    Left = 192
    Top = 120
  end
  object Query: TSmartQuery
    SQL.Strings = (
      'SELECT T.RowId, T.* FROM ODAC_NestedTable T'
      '')
    Debug = True
    LockMode = lmNone
    ObjectView = True
    Left = 160
    Top = 120
    object QueryCODE: TFloatField
      FieldName = 'CODE'
    end
    object QueryCONTENT: TOraDataSetField
      FieldName = 'CONTENT'
      ObjectType = 'SCOTT.TODACNESTEDTABLE'
    end
    object QueryROWID: TStringField
      FieldName = 'ROWID'
      ReadOnly = True
      Size = 18
    end
  end
  object sqGet: TOraSQL
    SQL.Strings = (
      'begin'
      '  SELECT Content'
      '  INTO :Res'
      '  FROM ODAC_NestedTable'
      '  WHERE Code = :Code;'
      'end;')
    Debug = True
    Left = 384
    Top = 264
    ParamData = <
      item
        DataType = ftDataSet
        Name = 'Res'
      end
      item
        DataType = ftUnknown
        Name = 'Code'
      end>
  end
  object OraNestedTable1: TOraNestedTable
    Left = 480
    Top = 264
  end
  object DataSource3: TDataSource
    DataSet = OraNestedTable1
    Left = 496
    Top = 344
  end
  object sqAppend: TOraSQL
    SQL.Strings = (
      'declare'
      '  lCode NUMBER;'
      'begin'
      '  SELECT Max(Code)'
      '  INTO lCode'
      '  FROM ODAC_NestedTable;'
      ''
      '  INSERT INTO ODAC_NestedTable'
      '    (Code, Content)'
      '  VALUES'
      '    (lCode + 1, :Value);'
      ''
      '  COMMIT;'
      'end;'
      '')
    Debug = True
    Left = 416
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Value'
      end>
  end
  object sqUpdate: TOraSQL
    SQL.Strings = (
      'begin'
      '  UPDATE ODAC_NestedTable SET'
      '    Content = :Value'
      '  WHERE '
      '    Code = :Code;'
      ''
      '  COMMIT;'
      'end;'
      '')
    Debug = True
    Left = 448
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Value'
      end
      item
        DataType = ftUnknown
        Name = 'Code'
      end>
  end
end