object frmMain: TfrmMain
  Left = 253
  Top = 121
  Width = 582
  Height = 389
  Caption = 'SQL Monitoring Example'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 218
    Width = 574
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 265
    Top = 24
    Width = 3
    Height = 194
    Cursor = crHSplit
  end
  object Memo1: TMemo
    Left = 0
    Top = 24
    Width = 265
    Height = 194
    Align = alLeft
    Lines.Strings = (
      'select * from employee')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 268
    Top = 24
    Width = 306
    Height = 194
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 221
    Width = 574
    Height = 122
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 574
    Height = 24
    AutoSize = True
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 3
    object btnRun: TToolButton
      Left = 0
      Top = 0
      Hint = 'Run SQL'
      Caption = 'btnRun'
      Enabled = False
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = RunClick
    end
    object btnLaunch: TToolButton
      Left = 23
      Top = 0
      Hint = 'New Monitor Window'
      Caption = 'btnLaunch'
      ImageIndex = 1
      OnClick = LaunchClick
    end
    object Label2: TLabel
      Left = 46
      Top = 0
      Width = 251
      Height = 22
      AutoSize = False
    end
    object Label1: TLabel
      Left = 297
      Top = 0
      Width = 3
      Height = 22
    end
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 
      'C:\Program Files\InterBase Corp\InterBase\examples\Database\empl' +
      'oyee.gdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]
    Left = 120
    Top = 40
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    DefaultAction = TACommitRetaining
    Left = 148
    Top = 40
  end
  object IBDataSet1: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 32
    CachedUpdates = False
    SelectSQL.Strings = (
      'select * from EMPLOYEE')
    Left = 184
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = IBDataSet1
    Left = 212
    Top = 40
  end
  object IBSQLMonitor1: TIBSQLMonitor
    OnSQL = IBSQLMonitor1SQL
    TraceFlags = [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]
    Left = 32
    Top = 36
  end
  object MainMenu1: TMainMenu
    Left = 424
    Top = 28
    object Trace1: TMenuItem
      Caption = 'Tracing'
      Checked = True
      object Connect3: TMenuItem
        Caption = 'DB Connect'
        OnClick = Connect3Click
      end
      object Trace2: TMenuItem
        Caption = 'Monitor Hook'
        Checked = True
        OnClick = Trace2Click
      end
      object SQLMonitor1: TMenuItem
        Caption = 'SQL Monitor'
        Checked = True
        OnClick = SQLMonitor1Click
      end
    end
    object Flags1: TMenuItem
      Caption = 'Flags'
      object Database1: TMenuItem
        Caption = 'Database'
        OnClick = Database1Click
      end
      object MonitorHook1: TMenuItem
        Caption = 'MonitorHook'
        OnClick = MonitorHook1Click
      end
      object SQLMonitor2: TMenuItem
        Caption = 'SQL Monitor'
        OnClick = SQLMonitor2Click
      end
    end
    object Clear1: TMenuItem
      Caption = 'Clear Trace'
      OnClick = Clear1Click
    end
    object MonitorCount1: TMenuItem
      Caption = 'MonitorCount'
      OnClick = MonitorCount1Click
    end
  end
  object ImageList1: TImageList
    Left = 280
    Top = 18
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
end
