frmmutiread.dfm

使用OCI类的API函数

          Width = 86
        end
        object colType: TcxGridDBColumn
          Caption = #23383#27573#31867#22411
          DataBinding.FieldName = 'colType'
          GroupSummaryAlignment = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter
          Width = 100
        end
        object colLen: TcxGridDBColumn
          Caption = #23383#27573#38271#24230
          DataBinding.FieldName = 'colLen'
          FooterAlignmentHorz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter
          Width = 100
        end
        object grdColsColumn1: TcxGridDBColumn
          Caption = 'Col4'
          DataBinding.FieldName = 'col4'
          Visible = False
          Width = 78
        end
      end
      object cxGrid1DBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
      end
      object cxGrid1BandedTableView1: TcxGridBandedTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        Bands = <
          item
          end>
      end
      object cxGridLevel1: TcxGridLevel
        GridView = grdCols
      end
    end
  end
  object Button2: TButton
    Left = 352
    Top = 16
    Width = 89
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #35835#21462#34920#20449#24687
    Enabled = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 432
    Width = 425
    Height = 17
    Min = 0
    Max = 100
    TabOrder = 4
  end
  object Button3: TButton
    Left = 352
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Search'
    TabOrder = 5
    Visible = False
    OnClick = Button3Click
  end
  object dsTable: TDataSource
    DataSet = tbTable1
    Left = 224
    Top = 168
  end
  object dsCols: TDataSource
    DataSet = tbCols1
    Left = 224
    Top = 304
  end
  object tbCols: TMemTableEh
    DetailFields = 'tbName;tbOwner'
    MasterFields = 'tbName;tbOwner'
    MasterSource = dsTable
    Params = <>
    Left = 192
    Top = 304
    object tbColstbName: TStringField
      FieldName = 'tbName'
      Size = 200
    end
    object tbColstbOwner: TStringField
      FieldName = 'tbOwner'
      Size = 100
    end
    object tbColscolName: TStringField
      FieldName = 'colName'
      Size = 200
    end
    object tbColscolType: TStringField
      FieldName = 'colType'
      Size = 100
    end
    object tbColscolLen: TStringField
      FieldName = 'colLen'
      Size = 100
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object tbName: TMTStringDataFieldEh
          FieldName = 'tbName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 200
          Transliterate = False
        end
        object tbOwner: TMTStringDataFieldEh
          FieldName = 'tbOwner'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 100
          Transliterate = False
        end
        object colName: TMTStringDataFieldEh
          FieldName = 'colName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 200
          Transliterate = False
        end
        object colType: TMTStringDataFieldEh
          FieldName = 'colType'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 100
          Transliterate = False
        end
        object colLen: TMTStringDataFieldEh
          FieldName = 'colLen'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 100
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            '10'
            'lgj'
            'Field2'
            'varchar'
            '100')
          (
            'Table1'
            'lgj'
            'Field1'
            'char'
            '10'))
      end
    end
  end
  object tbTable: TMemTableEh
    Params = <>
    SortOrder = 'tbOwner,tbName'
    Left = 192
    Top = 168
    object tbTabletbName: TStringField
      FieldName = 'tbName'
      Size = 200
    end
    object tbTabletbOwner: TStringField
      FieldName = 'tbOwner'
      Size = 100
    end
    object tbTabletbSpace: TStringField
      FieldName = 'tbSpace'
      Size = 100
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object tbName: TMTStringDataFieldEh
          FieldName = 'tbName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 200
          Transliterate = False
        end
        object tbOwner: TMTStringDataFieldEh
          FieldName = 'tbOwner'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 100
          Transliterate = False
        end
        object tbSpace: TMTStringDataFieldEh
          FieldName = 'tbSpace'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 100
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            'Table1'
            'lgj'
            'lgj'))
      end
    end
  end
  object tbTable1: TdxMemData
    Indexes = <>
    SortOptions = []
    SortedField = 'tbOwner,tbName'
    Left = 152
    Top = 168
    object tbTable1tbName: TStringField
      FieldName = 'tbName'
      Size = 200
    end
    object tbTable1tbOwner: TStringField
      FieldName = 'tbOwner'
      Size = 100
    end
    object tbTable1tbSpace: TStringField
      FieldName = 'tbSpace'
      Size = 100
    end
  end
  object tbCols1: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 152
    Top = 304
    object tbCols1colName: TStringField
      FieldName = 'colName'
      Size = 200
    end
    object tbCols1colType: TStringField
      FieldName = 'colType'
      Size = 100
    end
    object tbCols1colLen: TStringField
      FieldName = 'colLen'
      Size = 100
    end
    object tbCols1col4: TStringField
      FieldName = 'col4'
      Size = 10
    end
  end
end