ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/scriptengine/unit1.lfm
(Generate patch)

Comparing ibx/trunk/examples/scriptengine/unit1.lfm (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 577
2 >  Left = 413
3    Height = 402
4 <  Top = 339
4 >  Top = 367
5    Width = 773
6    Caption = 'IBX Script Example'
7    ClientHeight = 402
8    ClientWidth = 773
9    OnShow = FormShow
10 <  LCLVersion = '1.6.0.4'
10 >  LCLVersion = '1.6.2.0'
11    object Label1: TLabel
12      Left = 14
13 <    Height = 15
13 >    Height = 17
14      Top = 16
15 <    Width = 86
15 >    Width = 94
16      Caption = 'Database Name:'
17      ParentColor = False
18    end
19    object Label2: TLabel
20      Left = 14
21 <    Height = 15
21 >    Height = 17
22      Top = 56
23 <    Width = 30
23 >    Width = 32
24      Caption = 'Script'
25      ParentColor = False
26    end
# Line 46 | Line 46 | object Form1: TForm1
46      TabOrder = 1
47    end
48    object Label3: TLabel
49 <    Left = 467
50 <    Height = 15
49 >    Left = 464
50 >    Height = 17
51      Top = 56
52 <    Width = 60
52 >    Width = 63
53      Anchors = [akTop, akRight]
54      Caption = 'Results Log'
55      ParentColor = False
# Line 85 | Line 85 | object Form1: TForm1
85    end
86    object DBName: TLabel
87      Left = 119
88 <    Height = 15
88 >    Height = 17
89      Top = 16
90 <    Width = 47
90 >    Width = 51
91      Caption = 'DBName'
92      ParentColor = False
93    end
94    object StopOnError: TCheckBox
95      Left = 104
96 <    Height = 19
96 >    Height = 22
97      Top = 375
98 <    Width = 116
98 >    Width = 127
99      Caption = 'Stop On First Error'
100      OnChange = StopOnErrorChange
101      TabOrder = 5
102    end
103    object EchoInput: TCheckBox
104      Left = 248
105 <    Height = 19
105 >    Height = 22
106      Top = 375
107 <    Width = 77
107 >    Width = 83
108      Caption = 'Echo Input'
109      OnChange = EchoInputChange
110      TabOrder = 6
# Line 113 | Line 113 | object Form1: TForm1
113      Database = IBDatabase1
114      IgnoreGrants = False
115      Transaction = IBTransaction1
116 +    ShowAffectedRows = False
117 +    ShowPerformanceStats = False
118      GetParamValue = IBXScript1GetParamValue
119      OnOutputLog = IBXScript1LogProc
120      OnErrorLog = IBXScript1LogProc
# Line 123 | Line 125 | object Form1: TForm1
125    end
126    object IBDatabase1: TIBDatabase
127      Connected = False
128 +    BeforeConnect = IBDatabase1BeforeConnect
129 +    CreateIfNotExists = False
130      AllowStreamedConnected = False
131      DatabaseName = 'employee'
132      Params.Strings = (

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines