examples/scriptengine/unit1.lfm

object Form1: TForm1
  Left = 413
  Height = 402
  Top = 367
  Width = 773
  Caption = 'IBX Script Example'
  ClientHeight = 402
  ClientWidth = 773
  OnShow = FormShow
  LCLVersion = '1.6.2.0'
  object Label1: TLabel
    Left = 14
    Height = 17
    Top = 16
    Width = 94
    Caption = 'Database Name:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 14
    Height = 17
    Top = 56
    Width = 32
    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 = 464
    Height = 17
    Top = 56
    Width = 63
    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 = 17
    Top = 16
    Width = 51
    Caption = 'DBName'
    ParentColor = False
  end
  object StopOnError: TCheckBox
    Left = 104
    Height = 22
    Top = 375
    Width = 127
    Caption = 'Stop On First Error'
    OnChange = StopOnErrorChange
    TabOrder = 5
  end
  object EchoInput: TCheckBox
    Left = 248
    Height = 22
    Top = 375
    Width = 83
    Caption = 'Echo Input'
    OnChange = EchoInputChange
    TabOrder = 6
  end
  object IBXScript1: TIBXScript
    Database = IBDatabase1
    IgnoreGrants = False
    Transaction = IBTransaction1
    ShowAffectedRows = False
    ShowPerformanceStats = False
    GetParamValue = IBXScript1GetParamValue
    OnOutputLog = IBXScript1LogProc
    OnErrorLog = IBXScript1LogProc
    OnProgressEvent = IBXScript1ProgressEvent
    OnSelectSQL = IBXScript1SelectSQL
    left = 24
    top = 104
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    BeforeConnect = IBDatabase1BeforeConnect
    CreateIfNotExists = 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:	47
Committed:	Mon Jan 9 15:31:51 2017 UTC (7 years, 10 months ago) by tony
File size:	3896 byte(s)
Log Message:	Committing updates for Release R2-0-1
#	User	Rev	Content
1	tony	37	object Form1: TForm1
2	tony	47	Left = 413
3	tony	37	Height = 402
4	tony	47	Top = 367
5	tony	37	Width = 773
6			Caption = 'IBX Script Example'
7			ClientHeight = 402
8			ClientWidth = 773
9			OnShow = FormShow
10	tony	47	LCLVersion = '1.6.2.0'
11	tony	37	object Label1: TLabel
12			Left = 14
13	tony	47	Height = 17
14	tony	37	Top = 16
15	tony	47	Width = 94
16	tony	37	Caption = 'Database Name:'
17			ParentColor = False
18			end
19			object Label2: TLabel
20			Left = 14
21	tony	47	Height = 17
22	tony	37	Top = 56
23	tony	47	Width = 32
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	47	Left = 464
50			Height = 17
51	tony	37	Top = 56
52	tony	47	Width = 63
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	tony	47	Height = 17
89	tony	37	Top = 16
90	tony	47	Width = 51
91	tony	37	Caption = 'DBName'
92			ParentColor = False
93			end
94			object StopOnError: TCheckBox
95			Left = 104
96	tony	47	Height = 22
97	tony	37	Top = 375
98	tony	47	Width = 127
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	47	Height = 22
106	tony	37	Top = 375
107	tony	47	Width = 83
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	tony	47	ShowAffectedRows = False
117			ShowPerformanceStats = False
118	tony	37	GetParamValue = IBXScript1GetParamValue
119			OnOutputLog = IBXScript1LogProc
120			OnErrorLog = IBXScript1LogProc
121			OnProgressEvent = IBXScript1ProgressEvent
122			OnSelectSQL = IBXScript1SelectSQL
123			left = 24
124			top = 104
125			end
126			object IBDatabase1: TIBDatabase
127			Connected = False
128	tony	47	BeforeConnect = IBDatabase1BeforeConnect
129			CreateIfNotExists = False
130	tony	37	AllowStreamedConnected = False
131			DatabaseName = 'employee'
132			Params.Strings = (
133			'lc_ctype=UTF8 '
134			'user_name=SYSDBA'
135			)
136			IdleTimer = 0
137			TraceFlags = []
138	tony	45	UseDefaultSystemCodePage = False
139	tony	37	left = 24
140			top = 156
141			end
142			object IBTransaction1: TIBTransaction
143			Active = False
144			DefaultDatabase = IBDatabase1
145			Params.Strings = (
146			'concurrency'
147			'nowait'
148			)
149			left = 24
150			top = 208
151			end
152			object ActionList1: TActionList
153			left = 75
154			top = 104
155			object LoadScript: TAction
156			Caption = 'Load Script'
157			OnExecute = LoadScriptExecute
158			end
159			object RunScript: TAction
160			Caption = 'Execute'
161			OnExecute = RunScriptExecute
162			OnUpdate = RunScriptUpdate
163			end
164			end
165			object OpenDialog1: TOpenDialog
166			Title = 'Load SQL Script'
167			DefaultExt = '.sql'
168			Filter = 'SQL FIles\|.sql\|All Files\|.*'
169			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
170			left = 75
171			top = 156
172			end
173			object OpenBlobDialog: TOpenDialog
174			Filter = 'All Files\|.'
175			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
176			left = 75
177			top = 208
178			end
179			object Timer1: TTimer
180			Interval = 0
181			OnTimer = Timer1Timer
182			left = 127
183			top = 112
184			end
185			end