frmmutiread.dfm

使用OCI类的API函数

object Form1: TForm1
  Left = 329
  Top = 309
  Width = 467
  Height = 487
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    459
    453)
  PixelsPerInch = 96
  TextHeight = 13
  object lbCon: TLabel
    Left = 17
    Top = 52
    Width = 8
    Height = 16
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 16
    Top = 16
    Width = 89
    Height = 25
    Caption = #36830#25509#25968#25454#24211
    TabOrder = 0
    OnClick = Button1Click
  end
  object cxGroupBox1: TcxGroupBox
    Left = 16
    Top = 80
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #34920#20449#24687
    TabOrder = 1
    Height = 151
    Width = 427
    object cxGrid5: TcxGrid
      Left = 2
      Top = 16
      Width = 423
      Height = 133
      Align = alClient
      TabOrder = 0
      LevelTabs.Style = 9
      LookAndFeel.Kind = lfUltraFlat
      LookAndFeel.NativeStyle = False
      object cxGridTableView3: TcxGridTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        DataController.Data = {
          B30100000F00000044617461436F6E74726F6C6C657231040000001200000054
          6378537472696E6756616C75655479706512000000546378537472696E675661
          6C75655479706512000000546378537472696E6756616C756554797065120000
          00546378537472696E6756616C7565547970650800000000000400000053434E
          320006000000496E73657274000300000064626F00060000005461626C653100
          000400000053434E310006000000496E73657274000300000064626F00060000
          005461626C653300000400000053434E31000600000044656C65746500030000
          0064626F00060000005461626C653200000400000053434E3100060000005570
          64617465000300000064626F00060000005461626C653100000400000053434E
          310006000000557064617465000300000064626F00060000005461626C653400
          000400000053434E320006000000557064617465000300000064626F00060000
          005461626C653200000400000053434E32000600000044656C65746500030000
          0064626F00060000005461626C653300000400000053434E320006000000496E
          73657274000300000064626F00060000005461626C6534}
        FilterRow.SeparatorColor = clBlack
        FilterRow.ApplyChanges = fracImmediately
        OptionsSelection.CellSelect = False
        OptionsView.NoDataToDisplayInfoText = #27809#26597#21040#24744#25628#32034#30340#35760#24405'!'
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.GroupRowStyle = grsOffice11
        object cxGridColumn9: TcxGridColumn
          Caption = #20107#21153#21495
          HeaderAlignmentHorz = taCenter
          SortIndex = 0
          SortOrder = soDescending
          Width = 99
        end
        object cxGridColumn10: TcxGridColumn
          Caption = #25805#20316
          FooterAlignmentHorz = taCenter
          HeaderAlignmentHorz = taCenter
          Width = 114
        end
        object cxGridColumn11: TcxGridColumn
          Caption = #29992#25143
          HeaderAlignmentHorz = taCenter
          Width = 112
        end
        object cxGridColumn12: TcxGridColumn
          Caption = #34920
          HeaderAlignmentHorz = taCenter
          Width = 114
        end
      end
      object cxGridDBBandedTableView3: TcxGridDBBandedTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        Bands = <
          item
          end>
      end
      object cxGridDBTableView3: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
      end
      object grdTable: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        FilterBox.Visible = fvNever
        OnCustomDrawCell = grdTableCustomDrawCell
        DataController.DataSource = dsTable
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = #34920#25968#25454#65306
            Kind = skCount
            Column = tbName
          end
          item
            Kind = skCount
            Column = tbOwner
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsSelection.CellSelect = False
        OptionsView.NoDataToDisplayInfoText = #26080#35760#24405'!'
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        object tbName: TcxGridDBColumn
          Caption = #34920#21517
          DataBinding.FieldName = 'tbName'
          FooterAlignmentHorz = taRightJustify
          GroupSummaryAlignment = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter
          Width = 200
        end
        object tbOwner: TcxGridDBColumn
          Caption = #34920#29992#25143
          DataBinding.FieldName = 'tbOwner'
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter
          Width = 100
        end
        object tbSpace: TcxGridDBColumn
          Caption = #34920#31354#38388
          DataBinding.FieldName = 'tbSpace'
          FooterAlignmentHorz = taCenter
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter
          Width = 100
        end
      end
      object cxGridLevel3: TcxGridLevel
        GridView = grdTable
      end
    end
  end
  object cxGroupBox2: TcxGroupBox
    Left = 16
    Top = 236
    Anchors = [akLeft, akRight, akBottom]
    Caption = #23383#27573#20449#24687
    TabOrder = 2
    Height = 189
    Width = 427
    object cxGrid1: TcxGrid
      Left = 2
      Top = 16
      Width = 423
      Height = 171
      Align = alClient
      TabOrder = 0
      LevelTabs.Style = 9
      LookAndFeel.Kind = lfUltraFlat
      LookAndFeel.NativeStyle = False
      object cxGridTableView1: TcxGridTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        DataController.Data = {
          B30100000F00000044617461436F6E74726F6C6C657231040000001200000054
          6378537472696E6756616C75655479706512000000546378537472696E675661
          6C75655479706512000000546378537472696E6756616C756554797065120000
          00546378537472696E6756616C7565547970650800000000000400000053434E
          320006000000496E73657274000300000064626F00060000005461626C653100
          000400000053434E310006000000496E73657274000300000064626F00060000
          005461626C653300000400000053434E31000600000044656C65746500030000
          0064626F00060000005461626C653200000400000053434E3100060000005570
          64617465000300000064626F00060000005461626C653100000400000053434E
          310006000000557064617465000300000064626F00060000005461626C653400
          000400000053434E320006000000557064617465000300000064626F00060000
          005461626C653200000400000053434E32000600000044656C65746500030000
          0064626F00060000005461626C653300000400000053434E320006000000496E
          73657274000300000064626F00060000005461626C6534}
        FilterRow.SeparatorColor = clBlack
        FilterRow.ApplyChanges = fracImmediately
        OptionsSelection.CellSelect = False
        OptionsView.NoDataToDisplayInfoText = #27809#26597#21040#24744#25628#32034#30340#35760#24405'!'
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.GroupRowStyle = grsOffice11
        object cxGridColumn1: TcxGridColumn
          Caption = #20107#21153#21495
          HeaderAlignmentHorz = taCenter
          SortIndex = 0
          SortOrder = soDescending
          Width = 99
        end
        object cxGridColumn2: TcxGridColumn
          Caption = #25805#20316
          FooterAlignmentHorz = taCenter
          HeaderAlignmentHorz = taCenter
          Width = 114
        end
        object cxGridColumn3: TcxGridColumn
          Caption = #29992#25143
          HeaderAlignmentHorz = taCenter
          Width = 112
        end
        object cxGridColumn4: TcxGridColumn
          Caption = #34920
          HeaderAlignmentHorz = taCenter
          Width = 114
        end
      end
      object cxGridDBBandedTableView1: TcxGridDBBandedTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        Bands = <
          item
          end>
      end
      object cxGridDBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
      end
      object grdCols: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        FilterBox.Visible = fvNever
        DataController.DataSource = dsCols
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            Column = colType
          end
          item
            Format = #34920#25968#37327#65306
            Kind = skCount
            Column = colName
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsSelection.CellSelect = False
        OptionsView.NoDataToDisplayInfoText = #26080#35760#24405'!'
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        object colName: TcxGridDBColumn
          Caption = #23383#27573#21517
          DataBinding.FieldName = 'colName'
          FooterAlignmentHorz = taRightJustify
          HeaderAlignmentHorz = taCenter
          HeaderGlyphAlignmentHorz = taCenter