object FrmQueryProc: TFrmQueryProc
  Left = 198
  Top = 109
  Width = 381
  Height = 367
  Hint = 
    'Explore the Get_Emp_Proj procedure in the IBLOCAL alias to see t' +
    'he query procedure'
  Caption = 'Employee Project Assignments'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 373
    Height = 41
    Align = alTop
    Caption = 'Panel1'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 8
      Top = 8
      Width = 240
      Height = 25
      DataSource = DmEmployee.EmployeeSource
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 305
      Top = 8
      Width = 60
      Height = 25
      Hint = 'Exit and close this form'
      Caption = 'E&xit'
      TabOrder = 1
      Kind = bkClose
      Style = bsNew
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 373
    Height = 137
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 361
      Height = 125
      Hint = 'Select an employee to execute the query procedure'
      Align = alClient
      BorderStyle = bsNone
      DataSource = EmployeeSource
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 178
    Width = 373
    Height = 143
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel3'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 6
      Top = 6
      Width = 361
      Height = 131
      Hint = 'Use SQL Monitor to see the Get_Emp_Proj query procedure execute'
      Align = alClient
      BorderStyle = bsNone
      DataSource = EmployeeProjectsSource
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 321
    Width = 373
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object EmployeeSource: TDataSource
    DataSet = DmEmployee.EmployeeTable
    Enabled = False
    OnDataChange = EmployeeSourceDataChange
    Left = 92
    Top = 52
  end
  object EmployeeProjectsQuery: TQuery
    DatabaseName = 'EmployeeDemoDB'
    Params.Data = {0100010006454D505F4E4F0002020002000001}
    SQL.Strings = (
      'Select * from Get_Emp_Proj( :EMP_NO )')
    Left = 92
    Top = 188
  end
  object EmployeeProjectsSource: TDataSource
    DataSet = EmployeeProjectsQuery
    Left = 120
    Top = 188
  end
end