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 (6 years, 6 months 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).
#	Content
1	object Form1: TForm1
2	Left = 413
3	Height = 402
4	Top = 367
5	Width = 773
6	Caption = 'IBX Script Example'
7	ClientHeight = 402
8	ClientWidth = 773
9	DefaultMonitor = dmPrimary
10	OnShow = FormShow
11	Position = poScreenCenter
12	LCLVersion = '1.8.0.4'
13	object Label1: TLabel
14	Left = 14
15	Height = 14
16	Top = 16
17	Width = 99
18	Caption = 'Database Name:'
19	ParentColor = False
20	end
21	object Label2: TLabel
22	Left = 14
23	Height = 14
24	Top = 56
25	Width = 36
26	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	Left = 459
52	Height = 14
53	Top = 56
54	Width = 68
55	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	Height = 14
91	Top = 16
92	Width = 52
93	Caption = 'DBName'
94	ParentColor = False
95	end
96	object StopOnError: TCheckBox
97	Left = 104
98	Height = 22
99	Top = 375
100	Width = 136
101	Caption = 'Stop On First Error'
102	OnChange = StopOnErrorChange
103	TabOrder = 5
104	end
105	object EchoInput: TCheckBox
106	Left = 248
107	Height = 22
108	Top = 375
109	Width = 91
110	Caption = 'Echo Input'
111	OnChange = EchoInputChange
112	TabOrder = 6
113	end
114	object IBXScript1: TIBXScript
115	Database = IBDatabase1
116	IgnoreGrants = False
117	Transaction = IBTransaction1
118	ShowAffectedRows = False
119	ShowPerformanceStats = False
120	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	BeforeConnect = IBDatabase1BeforeConnect
131	CreateIfNotExists = False
132	AllowStreamedConnected = False
133	DatabaseName = 'employee'
134	Params.Strings = (
135	'lc_ctype=UTF8 '
136	'user_name=SYSDBA'
137	)
138	IdleTimer = 0
139	TraceFlags = []
140	UseDefaultSystemCodePage = False
141	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