examples/scriptengine/unit1.lfm

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