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.4.4.0'
  object Label1: TLabel
    Left = 14
    Height = 15
    Top = 16
    Width = 99
    Caption = 'Database Name:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 14
    Height = 15
    Top = 56
    Width = 36
    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 = 459
    Height = 15
    Top = 56
    Width = 68
    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 = 52
    Caption = 'DBName'
    ParentColor = False
  end
  object StopOnError: TCheckBox
    Left = 104
    Height = 22
    Top = 375
    Width = 136
    Caption = 'Stop On First Error'
    OnChange = StopOnErrorChange
    TabOrder = 5
  end
  object EchoInput: TCheckBox
    Left = 248
    Height = 22
    Top = 375
    Width = 91
    Caption = 'Echo Input'
    OnChange = EchoInputChange
    TabOrder = 6
  end
  object IBXScript1: TIBXScript
    Database = IBDatabase1
    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 = []
    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:	37
Committed:	Mon Feb 15 14:44:25 2016 UTC (8 years, 2 months ago) by tony
File size:	3697 byte(s)
Log Message:	Committing updates for Release R1-4-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			LCLVersion = '1.4.4.0'
11			object Label1: TLabel
12			Left = 14
13			Height = 15
14			Top = 16
15			Width = 99
16			Caption = 'Database Name:'
17			ParentColor = False
18			end
19			object Label2: TLabel
20			Left = 14
21			Height = 15
22			Top = 56
23			Width = 36
24			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			Left = 459
50			Height = 15
51			Top = 56
52			Width = 68
53			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			Width = 52
91			Caption = 'DBName'
92			ParentColor = False
93			end
94			object StopOnError: TCheckBox
95			Left = 104
96			Height = 22
97			Top = 375
98			Width = 136
99			Caption = 'Stop On First Error'
100			OnChange = StopOnErrorChange
101			TabOrder = 5
102			end
103			object EchoInput: TCheckBox
104			Left = 248
105			Height = 22
106			Top = 375
107			Width = 91
108			Caption = 'Echo Input'
109			OnChange = EchoInputChange
110			TabOrder = 6
111			end
112			object IBXScript1: TIBXScript
113			Database = IBDatabase1
114			Transaction = IBTransaction1
115			GetParamValue = IBXScript1GetParamValue
116			OnOutputLog = IBXScript1LogProc
117			OnErrorLog = IBXScript1LogProc
118			OnProgressEvent = IBXScript1ProgressEvent
119			OnSelectSQL = IBXScript1SelectSQL
120			left = 24
121			top = 104
122			end
123			object IBDatabase1: TIBDatabase
124			Connected = False
125			AllowStreamedConnected = False
126			DatabaseName = 'employee'
127			Params.Strings = (
128			'lc_ctype=UTF8 '
129			'user_name=SYSDBA'
130			)
131			IdleTimer = 0
132			TraceFlags = []
133			left = 24
134			top = 156
135			end
136			object IBTransaction1: TIBTransaction
137			Active = False
138			DefaultDatabase = IBDatabase1
139			Params.Strings = (
140			'concurrency'
141			'nowait'
142			)
143			left = 24
144			top = 208
145			end
146			object ActionList1: TActionList
147			left = 75
148			top = 104
149			object LoadScript: TAction
150			Caption = 'Load Script'
151			OnExecute = LoadScriptExecute
152			end
153			object RunScript: TAction
154			Caption = 'Execute'
155			OnExecute = RunScriptExecute
156			OnUpdate = RunScriptUpdate
157			end
158			end
159			object OpenDialog1: TOpenDialog
160			Title = 'Load SQL Script'
161			DefaultExt = '.sql'
162			Filter = 'SQL FIles\|.sql\|All Files\|.*'
163			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
164			left = 75
165			top = 156
166			end
167			object OpenBlobDialog: TOpenDialog
168			Filter = 'All Files\|.'
169			Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
170			left = 75
171			top = 208
172			end
173			object Timer1: TTimer
174			Interval = 0
175			OnTimer = Timer1Timer
176			left = 127
177			top = 112
178			end
179			end