proxysession.nfm

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

inherited ProxySessionFrame: TProxySessionFrame
  object ToolBar: TPanel
    Left = 0
    Top = 47
    Width = 427
    Height = 50
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 237
      Height = 13
      Caption = '2. Connect proxy session. Login as Scott.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 427
      Height = 50
      Align = alTop
      Shape = bsTopLine
    end
    object Panel3: TPanel
      Left = 1
      Top = 25
      Width = 533
      Height = 24
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btConnectProxy: TSpeedButton
        Left = 242
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Connect Proxy'
        Flat = True
        Transparent = False
        OnClick = btConnectProxyClick
      end
      object btOpenProxy: TSpeedButton
        Left = 339
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Open Proxy'
        Flat = True
        Transparent = False
        OnClick = btOpenProxyClick
      end
      object btDisconnectProxy: TSpeedButton
        Left = 436
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Disconnect Proxy'
        Flat = True
        Transparent = False
        OnClick = btDisconnectProxyClick
      end
      object DBNavigator1: TDBNavigator
        Left = 1
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource1
        Flat = True
        TabOrder = 0
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 97
    Width = 427
    Height = 116
    Align = alTop
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 213
    Width = 427
    Height = 67
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 377
      Height = 13
      Caption = 
        '3. Connect fist client. Use login Proxyone and an empty password' +
        '.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 630
      Height = 13
      Caption = 
        'If you want client to connect using password then uncomment ALTE' +
        'R USER statements in user creation script.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel4: TPanel
      Left = 1
      Top = 41
      Width = 533
      Height = 24
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btConnectClient1: TSpeedButton
        Left = 242
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Connect Client1'
        Flat = True
        Transparent = False
        OnClick = btConnectClient1Click
      end
      object btOpenClient1: TSpeedButton
        Left = 339
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Open Client1'
        Flat = True
        Transparent = False
        OnClick = btOpenClient1Click
      end
      object btDisconnectClient1: TSpeedButton
        Left = 436
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Disconnect Client1'
        Flat = True
        Transparent = False
        OnClick = btDisconnectClient1Click
      end
      object DBNavigator2: TDBNavigator
        Left = 1
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource2
        Flat = True
        TabOrder = 0
      end
    end
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 280
    Width = 427
    Height = 116
    Align = alTop
    DataSource = DataSource2
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 446
    Width = 427
    Height = 0
    Align = alClient
    DataSource = DataSource3
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel2: TPanel
    Left = 0
    Top = 396
    Width = 427
    Height = 50
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 5
    object Label3: TLabel
      Left = 8
      Top = 8
      Width = 400
      Height = 13
      Caption = 
        '4. Connect second client. Use login Proxytwo and an empty passwo' +
        'rd.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel5: TPanel
      Left = 1
      Top = 25
      Width = 533
      Height = 24
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btConnectClient2: TSpeedButton
        Left = 242
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Connect Client2'
        Flat = True
        Transparent = False
        OnClick = btConnectClient2Click
      end
      object btOpenClient2: TSpeedButton
        Left = 339
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Open Client2'
        Flat = True
        Transparent = False
        OnClick = btOpenClient2Click
      end
      object btDisconnectClient2: TSpeedButton
        Left = 436
        Top = 1
        Width = 96
        Height = 22
        Caption = 'Disconnect Client2'
        Flat = True
        Transparent = False
        OnClick = btDisconnectClient2Click
      end
      object DBNavigator3: TDBNavigator
        Left = 1
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource3
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 47
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 6
    object Label5: TLabel
      Left = 8
      Top = 5
      Width = 367
      Height = 13
      Caption = '1. Create proxy schemata (corresponding privileges are required)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel7: TPanel
      Left = 0
      Top = 21
      Width = 173
      Height = 24
      BevelOuter = bvNone
      Caption = 'Drop'
      Color = 170
      TabOrder = 0
      object btCreate: TSpeedButton
        Left = 1
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Create'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        OnClick = btCreateClick
      end
      object btDrop: TSpeedButton
        Left = 87
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Drop'
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        OnClick = btDropClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = OraProxyQuery
    Left = 16
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = OraClientOneQuery
    Left = 16
    Top = 104
  end
  object DataSource3: TDataSource
    DataSet = OraClientTwoQuery
    Left = 16
    Top = 144
  end
  object OraProxySession: TOraSession
    Username = 'Scott'
    Password = 'Tiger'
    Left = 48
    Top = 64
  end
  object OraProxyQuery: TOraQuery
    Session = OraProxySession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 80
    Top = 72
  end
  object OraClientOneSession: TOraSession
    Username = 'PROXYONE'
    Left = 48
    Top = 104
  end
  object OraClientTwoSession: TOraSession
    Username = 'PROXYTWO'
    Left = 48
    Top = 144
  end
  object OraClientOneQuery: TOraQuery
    Session = OraClientOneSession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 80
    Top = 104
  end
  object OraClientTwoQuery: TOraQuery
    Session = OraClientTwoSession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 80
    Top = 144
  end
  object scCreate: TOraScript
    SQL.Strings = (
      'CREATE USER PROXYONE IDENTIFIED BY PROXY_ONE_PASSWORD;'
      ''
      'GRANT CONNECT,RESOURCE TO PROXYONE;'
      ''
      'CREATE USER PROXYTWO IDENTIFIED BY PROXY_TWO_PASSWORD;'
      ''
      'GRANT CONNECT,RESOURCE TO PROXYTWO;'
      ''
      'ALTER USER PROXYONE GRANT CONNECT THROUGH SCOTT;'
      ''
      'ALTER USER PROXYTWO GRANT CONNECT THROUGH SCOTT;'
      ''
      'CREATE TABLE PROXYONE.DEPT ('
      '  DEPTNO NUMBER(2),'
      '  DNAME VARCHAR2(14) ,'
      '  LOC VARCHAR2(13)'
      ');'
      ''
      'CREATE TABLE PROXYTWO.DEPT ('
      '  DEPTNO NUMBER(2),'
      '  DNAME VARCHAR2(14) ,'
      '  LOC VARCHAR2(13)'
      ');'
      ''
      'INSERT INTO PROXYONE.DEPT VALUES'
      '        (10,'#39'PROCUREMENT'#39','#39'NEW JERSEY'#39');'
      'INSERT INTO PROXYONE.DEPT VALUES '
      '        (20,'#39'REQUISITIONING'#39','#39'SAN FRANCISCO'#39');'
      'INSERT INTO PROXYONE.DEPT VALUES'
      '        (30,'#39'TEST'#39','#39'SYRACUSE'#39');'
      'INSERT INTO PROXYONE.DEPT VALUES'
      '        (40,'#39'PERSONNEL'#39','#39'AKRON'#39');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (90,'#39'DEVELOPMENT'#39','#39'LOS ANGELES'#39');'
      'INSERT INTO PROXYTWO.DEPT VALUES '
      '        (60,'#39'MANAGMENT'#39','#39'WASHINGTON'#39');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (70,'#39'WAREHOUSE'#39','#39'DETROIT'#39');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (80,'#39'SERVICE'#39','#39'MIAMI'#39');'
      ''
      'COMMIT;')
    Left = 184
    Top = 72
  end
  object scDrop: TOraScript
    SQL.Strings = (
      'DROP TABLE PROXYONE.DEPT;'
      'DROP TABLE PROXYTWO.DEPT;'
      'ALTER USER PROXYONE REVOKE CONNECT THROUGH SCOTT;'
      'ALTER USER PROXYTWO REVOKE CONNECT THROUGH SCOTT;'
      'DROP USER PROXYONE;'
      'DROP USER PROXYTWO;')
    Left = 216
    Top = 72
  end
end