proxysession.lfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

object ProxySessionFrame: TProxySessionFrame
  Height = 567
  Width = 666
  object ToolBar: TPanel
    Height = 50
    Top = 47
    Width = 666
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 50
    ClientWidth = 666
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Height = 14
      Top = 8
      Width = 229
      Caption = '2. Connect proxy session. Login as Scott.'
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
    end
    object Bevel1: TBevel
      Height = 50
      Width = 666
      Align = alTop
      Shape = bsTopLine
    end
    object Panel3: TPanel
      Left = 1
      Height = 24
      Top = 25
      Width = 533
      BevelOuter = bvNone
      ClientHeight = 24
      ClientWidth = 533
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btConnectProxy: TSpeedButton
        Left = 242
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Connect Proxy'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btConnectProxyClick
      end
      object btOpenProxy: TSpeedButton
        Left = 339
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Open Proxy'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btOpenProxyClick
      end
      object btDisconnectProxy: TSpeedButton
        Left = 436
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Disconnect Proxy'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btDisconnectProxyClick
      end
      object DBNavigator1: TDBNavigator
        Left = 1
        Height = 22
        Top = 1
        Width = 240
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 240
        Color = clBtnFace
        DataSource = DataSource1
        Flat = True
        ParentColor = False
        TabOrder = 0
      end
    end
  end
  object DBGrid1: TDBGrid
    Height = 116
    Top = 97
    Width = 666
    Align = alTop
    DataSource = DataSource1
    FixedColor = clBtnFace
    FixedHotColor = cl3DLight
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
    ParentColor = False
    TabOrder = 1
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object Panel1: TPanel
    Height = 67
    Top = 213
    Width = 666
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 67
    ClientWidth = 666
    TabOrder = 2
    object Label2: TLabel
      Left = 8
      Height = 14
      Top = 8
      Width = 370
      Caption = '3. Connect fist client. Use login Proxyone and an empty password.'
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
    end
    object Label4: TLabel
      Left = 8
      Height = 14
      Top = 24
      Width = 620
      Caption = 'If you want client to connect using password then uncomment ALTER USER statements in user creation script.'
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
    end
    object Panel4: TPanel
      Left = 1
      Height = 24
      Top = 41
      Width = 533
      BevelOuter = bvNone
      ClientHeight = 24
      ClientWidth = 533
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btConnectClient1: TSpeedButton
        Left = 242
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Connect Client1'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btConnectClient1Click
      end
      object btOpenClient1: TSpeedButton
        Left = 339
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Open Client1'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btOpenClient1Click
      end
      object btDisconnectClient1: TSpeedButton
        Left = 436
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Disconnect Client1'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btDisconnectClient1Click
      end
      object DBNavigator2: TDBNavigator
        Left = 1
        Height = 22
        Top = 1
        Width = 240
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 240
        Color = clBtnFace
        DataSource = DataSource2
        Flat = True
        ParentColor = False
        TabOrder = 0
      end
    end
  end
  object DBGrid2: TDBGrid
    Height = 116
    Top = 280
    Width = 666
    Align = alTop
    DataSource = DataSource2
    FixedColor = clBtnFace
    FixedHotColor = cl3DLight
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
    ParentColor = False
    TabOrder = 3
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object DBGrid3: TDBGrid
    Height = 121
    Top = 446
    Width = 666
    Align = alClient
    DataSource = DataSource3
    FixedColor = clBtnFace
    FixedHotColor = cl3DLight
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
    ParentColor = False
    TabOrder = 4
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object Panel2: TPanel
    Height = 50
    Top = 396
    Width = 666
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 50
    ClientWidth = 666
    TabOrder = 5
    object Label3: TLabel
      Left = 8
      Height = 14
      Top = 8
      Width = 392
      Caption = '4. Connect second client. Use login Proxytwo and an empty password.'
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
    end
    object Panel5: TPanel
      Left = 1
      Height = 24
      Top = 25
      Width = 533
      BevelOuter = bvNone
      ClientHeight = 24
      ClientWidth = 533
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btConnectClient2: TSpeedButton
        Left = 242
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Connect Client2'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btConnectClient2Click
      end
      object btOpenClient2: TSpeedButton
        Left = 339
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Open Client2'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btOpenClient2Click
      end
      object btDisconnectClient2: TSpeedButton
        Left = 436
        Height = 22
        Top = 1
        Width = 96
        Caption = 'Disconnect Client2'
        Color = clBtnFace
        Flat = True
        NumGlyphs = 0
        Transparent = False
        OnClick = btDisconnectClient2Click
      end
      object DBNavigator3: TDBNavigator
        Left = 1
        Height = 22
        Top = 1
        Width = 240
        BevelOuter = bvNone
        ClientHeight = 22
        ClientWidth = 240
        Color = clBtnFace
        DataSource = DataSource3
        Flat = True
        ParentColor = False
        TabOrder = 0
      end
    end
  end
  object Panel6: TPanel
    Height = 47
    Width = 666
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 47
    ClientWidth = 666
    TabOrder = 6
    object Label5: TLabel
      Left = 8
      Height = 14
      Top = 5
      Width = 372
      Caption = '1. Create proxy schemata (corresponding privileges are required)'
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
    end
    object Panel7: TPanel
      Height = 24
      Top = 21
      Width = 173
      BevelOuter = bvNone
      Caption = 'Drop'
      ClientHeight = 24
      ClientWidth = 173
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btCreate: TSpeedButton
        Left = 1
        Height = 22
        Top = 1
        Width = 85
        Caption = 'Create'
        Color = clBtnFace
        Flat = True
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        NumGlyphs = 0
        Transparent = False
        OnClick = btCreateClick
      end
      object btDrop: TSpeedButton
        Left = 87
        Height = 22
        Top = 1
        Width = 85
        Caption = 'Drop'
        Color = clBtnFace
        Flat = True
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        NumGlyphs = 0
        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'
    )
    Options.AutoClose = False
    Options.FieldsAsString = False
    Options.DeferredLobRead = False
    Options.ScrollableCursor = False
    Options.FieldsOrigin = False
    Options.DefaultValues = False
    Options.NumberRange = False
    Options.QueryRecCount = False
    Options.AutoPrepare = False
    Options.ReturnParams = False
    Options.FlatBuffers = False
    Options.DetailDelay = 0
    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'
    )
    Options.AutoClose = False
    Options.FieldsAsString = False
    Options.DeferredLobRead = False
    Options.ScrollableCursor = False
    Options.FieldsOrigin = False
    Options.DefaultValues = False
    Options.NumberRange = False
    Options.QueryRecCount = False
    Options.AutoPrepare = False
    Options.ReturnParams = False
    Options.FlatBuffers = False
    Options.DetailDelay = 0
    left = 80
    top = 104
  end
  object OraClientTwoQuery: TOraQuery
    Session = OraClientTwoSession
    SQL.Strings = (
      'SELECT * FROM DEPT'
    )
    Options.AutoClose = False
    Options.FieldsAsString = False
    Options.DeferredLobRead = False
    Options.ScrollableCursor = False
    Options.FieldsOrigin = False
    Options.DefaultValues = False
    Options.NumberRange = False
    Options.QueryRecCount = False
    Options.AutoPrepare = False
    Options.ReturnParams = False
    Options.FlatBuffers = False
    Options.DetailDelay = 0
    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,''PROCUREMENT'',''NEW JERSEY'');'
      'INSERT INTO PROXYONE.DEPT VALUES '
      '        (20,''REQUISITIONING'',''SAN FRANCISCO'');'
      'INSERT INTO PROXYONE.DEPT VALUES'
      '        (30,''TEST'',''SYRACUSE'');'
      'INSERT INTO PROXYONE.DEPT VALUES'
      '        (40,''PERSONNEL'',''AKRON'');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (90,''DEVELOPMENT'',''LOS ANGELES'');'
      'INSERT INTO PROXYTWO.DEPT VALUES '
      '        (60,''MANAGMENT'',''WASHINGTON'');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (70,''WAREHOUSE'',''DETROIT'');'
      'INSERT INTO PROXYTWO.DEPT VALUES'
      '        (80,''SERVICE'',''MIAMI'');'
      ''
      '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