object Form1: TForm1
  Left = 577
  Height = 402
  Top = 339
  Width = 773
  Caption = 'IBX Script Example'
  ClientHeight = 402
  ClientWidth = 773
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object Label1: TLabel
    Left = 14
    Height = 15
    Top = 16
    Width = 86
    Caption = 'Database Name:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 14
    Height = 15
    Top = 56
    Width = 30
    Caption = 'Script'
    ParentColor = False
  end
  object IBScript: TMemo
    Left = 14
    Height = 287
    Top = 72
    Width = 341
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'IBScript'
    )
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object Button1: TButton
    Left = 369
    Height = 30
    Top = 192
    Width = 77
    Action = RunScript
    Anchors = [akTop, akRight]
    TabOrder = 1
  end
  object Label3: TLabel
    Left = 467
    Height = 15
    Top = 56
    Width = 60
    Anchors = [akTop, akRight]
    Caption = 'Results Log'
    ParentColor = False
  end
  object ResultsLog: TMemo
    Left = 460
    Height = 287
    Top = 72
    Width = 296
    Anchors = [akTop, akRight, akBottom]
    Lines.Strings = (
      'ResultsLog'
    )
    ScrollBars = ssAutoVertical
    TabOrder = 2
  end
  object ProgressBar1: TProgressBar
    Left = 460
    Height = 20
    Top = 369
    Width = 296
    Anchors = [akRight, akBottom]
    TabOrder = 3
  end
  object Button2: TButton
    Left = 14
    Height = 30
    Top = 369
    Width = 82
    Action = LoadScript
    Anchors = [akLeft, akBottom]
    TabOrder = 4
  end
  object DBName: TLabel
    Left = 119
    Height = 15
    Top = 16
    Width = 47
    Caption = 'DBName'
    ParentColor = False
  end
  object StopOnError: TCheckBox
    Left = 104
    Height = 19
    Top = 375
    Width = 116
    Caption = 'Stop On First Error'
    OnChange = StopOnErrorChange
    TabOrder = 5
  end
  object EchoInput: TCheckBox
    Left = 248
    Height = 19
    Top = 375
    Width = 77
    Caption = 'Echo Input'
    OnChange = EchoInputChange
    TabOrder = 6
  end
  object IBXScript1: TIBXScript
    Database = IBDatabase1
    IgnoreGrants = False
    Transaction = IBTransaction1
    GetParamValue = IBXScript1GetParamValue
    OnOutputLog = IBXScript1LogProc
    OnErrorLog = IBXScript1LogProc
    OnProgressEvent = IBXScript1ProgressEvent
    OnSelectSQL = IBXScript1SelectSQL
    left = 24
    top = 104
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    AllowStreamedConnected = False
    DatabaseName = 'employee'
    Params.Strings = (
      'lc_ctype=UTF8                           '
      'user_name=SYSDBA'
    )
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    left = 24
    top = 156
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'concurrency'
      'nowait'
    )
    left = 24
    top = 208
  end
  object ActionList1: TActionList
    left = 75
    top = 104
    object LoadScript: TAction
      Caption = 'Load Script'
      OnExecute = LoadScriptExecute
    end
    object RunScript: TAction
      Caption = 'Execute'
      OnExecute = RunScriptExecute
      OnUpdate = RunScriptUpdate
    end
  end
  object OpenDialog1: TOpenDialog
    Title = 'Load SQL Script'
    DefaultExt = '.sql'
    Filter = 'SQL FIles|*.sql|All Files|*.*'
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 75
    top = 156
  end
  object OpenBlobDialog: TOpenDialog
    Filter = 'All Files|*.*'
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 75
    top = 208
  end
  object Timer1: TTimer
    Interval = 0
    OnTimer = Timer1Timer
    left = 127
    top = 112
  end
end