main.dfm

ODAC 5.7.0.28

object fmMain: TfmMain
  Left = 184
  Top = 154
  Width = 761
  Height = 478
  Caption = 'Oracle Data Access Demo - working with ProxiSession'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 432
    Width = 753
    Height = 19
    Panels = <>
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 28
    Align = alTop
    TabOrder = 1
    object btConnectProxy: TButton
      Left = 244
      Top = 2
      Width = 79
      Height = 25
      Caption = 'Connect Proxy'
      TabOrder = 0
      OnClick = btConnectProxyClick
    end
    object DBNavigator1: TDBNavigator
      Left = 3
      Top = 2
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 1
    end
    object btOpenProxy: TButton
      Left = 324
      Top = 2
      Width = 75
      Height = 25
      Caption = 'Open Proxy'
      TabOrder = 2
      OnClick = btOpenProxyClick
    end
    object btDisconnectProxy: TButton
      Left = 400
      Top = 2
      Width = 92
      Height = 25
      Caption = 'Disconnect Proxy'
      TabOrder = 3
      OnClick = btDisconnectProxyClick
    end
    object btCreateUsers: TButton
      Left = 520
      Top = 2
      Width = 75
      Height = 25
      Caption = 'CreateUsers'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btCreateUsersClick
    end
    object btDropUsers: TButton
      Left = 600
      Top = 2
      Width = 75
      Height = 25
      Caption = 'DropUsers'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btDropUsersClick
    end
    object cbDebug: TCheckBox
      Left = 688
      Top = 8
      Width = 54
      Height = 15
      Caption = 'Debug'
      TabOrder = 6
      OnClick = cbDebugClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 28
    Width = 753
    Height = 116
    Align = alTop
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 144
    Width = 753
    Height = 28
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 3
    object DBNavigator2: TDBNavigator
      Left = 3
      Top = 2
      Width = 240
      Height = 25
      DataSource = DataSource2
      TabOrder = 0
    end
    object btConnectClient1: TButton
      Left = 244
      Top = 2
      Width = 84
      Height = 25
      Caption = 'Connect Client1'
      TabOrder = 1
      OnClick = btConnectClient1Click
    end
    object btOpenClient1: TButton
      Left = 330
      Top = 2
      Width = 75
      Height = 25
      Caption = 'Open Client1'
      TabOrder = 2
      OnClick = btOpenClient1Click
    end
    object btDisconnectClient1: TButton
      Left = 406
      Top = 2
      Width = 94
      Height = 25
      Caption = 'Disconnect Client1'
      TabOrder = 3
      OnClick = btDisconnectClient1Click
    end
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 172
    Width = 753
    Height = 116
    Align = alTop
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 316
    Width = 753
    Height = 116
    Align = alClient
    DataSource = DataSource3
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel2: TPanel
    Left = 0
    Top = 288
    Width = 753
    Height = 28
    Align = alTop
    Caption = 'Panel2'
    TabOrder = 6
    object DBNavigator3: TDBNavigator
      Left = 3
      Top = 2
      Width = 240
      Height = 25
      DataSource = DataSource3
      TabOrder = 0
    end
    object btConnectClient2: TButton
      Left = 244
      Top = 2
      Width = 84
      Height = 25
      Caption = 'Connect Client2'
      TabOrder = 1
      OnClick = btConnectClient2Click
    end
    object btOpenClient2: TButton
      Left = 330
      Top = 2
      Width = 75
      Height = 25
      Caption = 'Open Client2'
      TabOrder = 2
      OnClick = btOpenClient2Click
    end
    object btDisconnectClient2: TButton
      Left = 406
      Top = 2
      Width = 96
      Height = 25
      Caption = 'Disconnect Client2'
      TabOrder = 3
      OnClick = btDisconnectClient2Click
    end
  end
  object ManagerSession: TOraSession
    ConnectMode = cmSysDBA
    Username = 'Sys'
    Password = 'Manager'
    ConnectDialog = ConnectDialog1
    Left = 584
    Top = 32
  end
  object scCreateUsers: TOraScript
    Session = ManagerSession
    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 PROXYONE GRANT CONNECT THROUGH SCOTT AUTHENTIACATED' +
        ' USING PASSWORD;'
      ''
      'ALTER USER PROXYTWO GRANT CONNECT THROUGH SCOTT;'
      
        '--ALTER USER PROXYTWO GRANT CONNECT THROUGH SCOTT AUTHENTIACATED' +
        ' USING PASSWORD;'
      ''
      'CREATE TABLE PROXYONE.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');'
      ''
      'CREATE TABLE PROXYTWO.DEPT ('
      '  DEPTNO NUMBER(2),'
      '  DNAME VARCHAR2(14) ,'
      '  LOC VARCHAR2(13)'
      ');'
      ''
      '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 = 544
    Top = 32
  end
  object scDropUsers: TOraScript
    Session = ManagerSession
    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 = 624
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = OraProxyQuery
    Left = 8
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = OraClientOneQuery
    Left = 8
    Top = 176
  end
  object DataSource3: TDataSource
    DataSet = OraClientTwoQuery
    Left = 8
    Top = 320
  end
  object OraProxySession: TOraSession
    Username = 'Scott'
    Password = 'Tiger'
    ConnectDialog = ConnectDialog1
    Left = 40
    Top = 32
  end
  object OraProxyQuery: TOraQuery
    Session = OraProxySession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 80
    Top = 32
  end
  object OraClientOneSession: TOraSession
    Username = 'PROXYONE'
    Left = 40
    Top = 176
  end
  object OraClientTwoSession: TOraSession
    Username = 'PROXYTWO'
    Left = 40
    Top = 320
  end
  object OraClientOneQuery: TOraQuery
    Session = OraClientOneSession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 72
    Top = 176
  end
  object OraClientTwoQuery: TOraQuery
    Session = OraClientTwoSession
    SQL.Strings = (
      'SELECT * FROM DEPT')
    Left = 72
    Top = 320
  end
  object ConnectDialog1: TConnectDialog
    StoreLogInfo = False
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    Left = 120
    Top = 32
  end
end