examples/scriptengine/unit1.lfm

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
Revision:	45
Committed:	Tue Dec 6 10:33:46 2016 UTC (7 years, 4 months ago) by tony
File size:	3759 byte(s)
Log Message:	Committing updates for Release R2-0-0
#	User	Rev	Content
1	tony	37	object Form1: TForm1
2			Left = 577
3			Height = 402
4			Top = 339
5			Width = 773
6			Caption = 'IBX Script Example'
7			ClientHeight = 402
8			ClientWidth = 773
9			OnShow = FormShow
10	tony	45	LCLVersion = '1.6.0.4'
11	tony	37	object Label1: TLabel
12			Left = 14
13			Height = 15
14			Top = 16
15	tony	45	Width = 86
16	tony	37	Caption = 'Database Name:'
17			ParentColor = False
18			end
19			object Label2: TLabel
20			Left = 14
21			Height = 15
22			Top = 56
23	tony	45	Width = 30
24	tony	37	Caption = 'Script'
25			ParentColor = False
26			end
27			object IBScript: TMemo
28			Left = 14
29			Height = 287
30			Top = 72
31			Width = 341
32			Anchors = [akTop, akLeft, akRight, akBottom]
33			Lines.Strings = (
34			'IBScript'
35			)
36			ScrollBars = ssAutoVertical
37			TabOrder = 0
38			end
39			object Button1: TButton
40			Left = 369
41			Height = 30
42			Top = 192
43			Width = 77
44			Action = RunScript
45			Anchors = [akTop, akRight]
46			TabOrder = 1
47			end
48			object Label3: TLabel
49	tony	45	Left = 467
50	tony	37	Height = 15
51			Top = 56
52	tony	45	Width = 60
53	tony	37	Anchors = [akTop, akRight]
54			Caption = 'Results Log'
55			ParentColor = False
56			end
57			object ResultsLog: TMemo
58			Left = 460
59			Height = 287
60			Top = 72
61			Width = 296
62			Anchors = [akTop, akRight, akBottom]
63			Lines.Strings = (
64			'ResultsLog'
65			)
66			ScrollBars = ssAutoVertical
67			TabOrder = 2
68			end
69			object ProgressBar1: TProgressBar
70			Left = 460
71			Height = 20
72			Top = 369
73			Width = 296
74			Anchors = [akRight, akBottom]
75			TabOrder = 3
76			end
77			object Button2: TButton
78			Left = 14
79			Height = 30
80			Top = 369
81			Width = 82
82			Action = LoadScript
83			Anchors = [akLeft, akBottom]
84			TabOrder = 4
85			end
86			object DBName: TLabel
87			Left = 119
88			Height = 15
89			Top = 16
90	tony	45	Width = 47
91	tony	37	Caption = 'DBName'
92			ParentColor = False
93			end
94			object StopOnError: TCheckBox
95			Left = 104
96	tony	45	Height = 19
97	tony	37	Top = 375
98	tony	45	Width = 116
99	tony	37	Caption = 'Stop On First Error'
100			OnChange = StopOnErrorChange
101			TabOrder = 5
102			end
103			object EchoInput: TCheckBox
104			Left = 248
105	tony	45	Height = 19
106	tony	37	Top = 375
107	tony	45	Width = 77
108	tony	37	Caption = 'Echo Input'
109			OnChange = EchoInputChange
110			TabOrder = 6
111			end
112			object IBXScript1: TIBXScript
113			Database = IBDatabase1
114	tony	45	IgnoreGrants = False
115	tony	37	Transaction = IBTransaction1
116			GetParamValue = IBXScript1GetParamValue
117			OnOutputLog = IBXScript1LogProc
118			OnErrorLog = IBXScript1LogProc
119			OnProgressEvent = IBXScript1ProgressEvent
120			OnSelectSQL = IBXScript1SelectSQL
121			left = 24
122			top = 104
123			end
124			object IBDatabase1: TIBDatabase
125			Connected = False
126			AllowStreamedConnected = False
127			DatabaseName = 'employee'
128			Params.Strings = (
129			'lc_ctype=UTF8 '
130			'user_name=SYSDBA'
131			)
132			IdleTimer = 0
133			TraceFlags = []
134	tony	45	UseDefaultSystemCodePage = False
135	tony	37	left = 24
136			top = 156
137			end
138			object IBTransaction1: TIBTransaction
139			Active = False
140			DefaultDatabase = IBDatabase1
141			Params.Strings = (
142			'concurrency'
143			'nowait'
144			)
145			left = 24
146			top = 208
147			end
148			object ActionList1: TActionList
149			left = 75
150			top = 104
151			object LoadScript: TAction
152			Caption = 'Load Script'
153			OnExecute = LoadScriptExecute
154			end
155			object RunScript: TAction
156			Caption = 'Execute'
157			OnExecute = RunScriptExecute
158			OnUpdate = RunScriptUpdate
159			end
160			end
161			object OpenDialog1: TOpenDialog
162			Title = 'Load SQL Script'
163			DefaultExt = '.sql'
164			Filter = 'SQL FIles\|.sql\|All Files\|.*'
165			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
166			left = 75
167			top = 156
168			end
169			object OpenBlobDialog: TOpenDialog
170			Filter = 'All Files\|.'
171			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
172			left = 75
173			top = 208
174			end
175			object Timer1: TTimer
176			Interval = 0
177			OnTimer = Timer1Timer
178			left = 127
179			top = 112
180			end
181			end