multiqueries.nfm

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

inherited MultiQueriesFrame: TMultiQueriesFrame
  object Splitter3: TSplitter
    Left = 336
    Top = 337
    Height = 0
    Color = 170
    ParentColor = False
    ResizeStyle = rsUpdate
    OnMoved = SplitterMoved
  end
  object Splitter1: TSplitter
    Left = 0
    Top = 334
    Width = 427
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Color = 170
    ParentColor = False
    ResizeStyle = rsUpdate
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 48
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 584
      Height = 46
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btClose: TSpeedButton
        Left = 72
        Top = 1
        Width = 70
        Height = 21
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 70
        Height = 21
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object btGetRP: TSpeedButton
        Left = 1
        Top = 23
        Width = 141
        Height = 22
        Caption = 'Get RowsProcessed'
        Flat = True
        Transparent = False
        OnClick = btGetRPClick
      end
      object cbNonBlocking: TCheckBox
        Left = 208
        Top = 1
        Width = 85
        Height = 21
        Caption = 'NonBlocking'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        OnClick = cbNonBlockingClick
      end
      object cbFetchAll: TCheckBox
        Left = 143
        Top = 1
        Width = 64
        Height = 21
        Caption = 'FetchAll'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 1
        OnClick = cbFetchAllClick
      end
      object cbPR: TCheckBox
        Left = 143
        Top = 23
        Width = 150
        Height = 22
        Caption = 'Auto RowsProcessed   '
        Color = clBtnFace
        ParentColor = False
        TabOrder = 2
      end
      object Panel4: TPanel
        Left = 294
        Top = 1
        Width = 142
        Height = 21
        BevelOuter = bvNone
        TabOrder = 3
        object Label2: TLabel
          Left = 4
          Top = 3
          Width = 64
          Height = 15
          AutoSize = False
          Caption = 'FetchRows'
          Layout = tlCenter
        end
        object edFetchRows: TEdit
          Left = 66
          Top = 2
          Width = 71
          Height = 21
          TabOrder = 0
          Text = '25'
          OnExit = edFetchRowsExit
        end
      end
      object Panel2: TPanel
        Left = 294
        Top = 23
        Width = 198
        Height = 22
        BevelOuter = bvNone
        TabOrder = 4
        object lbRP1: TLabel
          Left = 9
          Top = -1
          Width = 48
          Height = 22
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
        end
        object lbRP2: TLabel
          Left = 57
          Top = -1
          Width = 48
          Height = 22
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
        end
        object lbRP3: TLabel
          Left = 104
          Top = -1
          Width = 48
          Height = 22
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
        end
        object lbRP4: TLabel
          Left = 152
          Top = -1
          Width = 48
          Height = 22
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
        end
      end
      object cbMultiSession: TCheckBox
        Left = 493
        Top = 23
        Width = 90
        Height = 22
        Caption = 'Multi Session'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 5
        OnClick = cbMultiSessionClick
      end
      object Panel3: TPanel
        Left = 437
        Top = 1
        Width = 146
        Height = 21
        BevelOuter = bvNone
        TabOrder = 6
        object rbOne: TRadioButton
          Left = 5
          Top = 0
          Width = 48
          Height = 21
          Caption = 'One'
          Color = clBtnFace
          ParentColor = False
          TabOrder = 0
        end
        object rbTwo: TRadioButton
          Left = 53
          Top = 0
          Width = 48
          Height = 21
          Caption = 'Two'
          Color = clBtnFace
          ParentColor = False
          TabOrder = 1
        end
        object rbFour: TRadioButton
          Left = 101
          Top = 0
          Width = 48
          Height = 21
          Caption = 'Four'
          Checked = True
          Color = clBtnFace
          ParentColor = False
          TabOrder = 2
          TabStop = True
        end
      end
    end
  end
  object Panel: TPanel
    Left = 0
    Top = 48
    Width = 427
    Height = 286
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 336
      Top = 57
      Height = 229
      Color = 170
      ParentColor = False
      ResizeStyle = rsUpdate
      OnMoved = SplitterMoved
    end
    object Splitter4: TSplitter
      Left = 0
      Top = 54
      Width = 427
      Height = 3
      Cursor = crVSplit
      Align = alTop
      Color = 170
      ParentColor = False
      ResizeStyle = rsUpdate
    end
    object meSQL: TMemo
      Left = 0
      Top = 0
      Width = 427
      Height = 54
      Align = alTop
      Lines.Strings = (
        'SELECT * FROM All_Objects'
        '  WHERE OWNER IN ('#39'SYS'#39','#39'PUBLIC'#39','#39'SYSTEM'#39','#39'SCOTT'#39')')
      TabOrder = 0
      OnExit = meSQLExit
    end
    object Panel5: TPanel
      Left = 0
      Top = 57
      Width = 336
      Height = 229
      Align = alLeft
      TabOrder = 1
      object lbStatus1: TLabel
        Left = 1
        Top = 1
        Width = 334
        Height = 13
        Align = alTop
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 14
        Width = 334
        Height = 214
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object Panel6: TPanel
      Left = 339
      Top = 57
      Width = 88
      Height = 229
      Align = alClient
      TabOrder = 2
      object lbStatus2: TLabel
        Left = 1
        Top = 1
        Width = 86
        Height = 13
        Align = alTop
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = 1
        Top = 14
        Width = 86
        Height = 214
        Align = alClient
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 337
    Width = 336
    Height = 0
    Align = alLeft
    TabOrder = 2
    object lbStatus3: TLabel
      Left = 1
      Top = 1
      Width = 334
      Height = 13
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid3: TDBGrid
      Left = 1
      Top = 14
      Width = 334
      Height = 74
      Align = alClient
      DataSource = DataSource3
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel8: TPanel
    Left = 339
    Top = 337
    Width = 88
    Height = 0
    Align = alClient
    TabOrder = 3
    object lbStatus4: TLabel
      Left = 1
      Top = 1
      Width = 86
      Height = 13
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid4: TDBGrid
      Left = 1
      Top = 14
      Width = 86
      Height = 74
      Align = alClient
      DataSource = DataSource4
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object OraQuery1: TOraQuery
    Tag = 1
    Session = OdacForm.OraSession
    AfterExecute = OraQueryAfterExecute
    AfterFetch = OraQueryAfterFetch
    AfterClose = OraQueryAfterClose
    Left = 16
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = OraQuery1
    Left = 48
    Top = 144
  end
  object DataSource2: TDataSource
    DataSet = OraQuery2
    Left = 393
    Top = 145
  end
  object DataSource3: TDataSource
    DataSet = OraQuery3
    Left = 48
    Top = 376
  end
  object DataSource4: TDataSource
    DataSet = OraQuery4
    Left = 393
    Top = 378
  end
  object OraQuery2: TOraQuery
    Tag = 2
    Session = OdacForm.OraSession
    AfterExecute = OraQueryAfterExecute
    AfterFetch = OraQueryAfterFetch
    AfterClose = OraQueryAfterClose
    Left = 360
    Top = 144
  end
  object OraQuery3: TOraQuery
    Tag = 3
    LocalUpdate = True
    Session = OdacForm.OraSession
    AfterExecute = OraQueryAfterExecute
    AfterFetch = OraQueryAfterFetch
    AfterClose = OraQueryAfterClose
    Left = 16
    Top = 376
  end
  object OraQuery4: TOraQuery
    Tag = 4
    Session = OdacForm.OraSession
    AfterExecute = OraQueryAfterExecute
    AfterFetch = OraQueryAfterFetch
    AfterClose = OraQueryAfterClose
    Left = 360
    Top = 378
  end
  object ConnectDialog: TConnectDialog
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'Username'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    LabelSet = lsCustom
    Left = 589
    Top = 132
  end
  object OraSession2: TOraSession
    ConnectPrompt = False
    Left = 479
    Top = 132
  end
  object OraSession3: TOraSession
    ConnectPrompt = False
    Left = 511
    Top = 132
  end
  object OraSession4: TOraSession
    ConnectPrompt = False
    Left = 543
    Top = 132
  end
end