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

Comparing ibx/trunk/examples/IdentityColumns/Unit1.lfm (file contents):
Revision 262 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 11 | Line 11 | object Form1: TForm1
11    OnCreate = FormCreate
12    OnShow = FormShow
13    Position = poDefaultSizeOnly
14 <  LCLVersion = '1.8.1.0'
14 >  LCLVersion = '2.0.0.2'
15    object IBDynamicGrid1: TIBDynamicGrid
16      Left = 10
17      Height = 301
# Line 91 | Line 91 | object Form1: TForm1
91      WordWrap = True
92    end
93    object IBDatabase1: TIBDatabase
94 <    Connected = False
94 >    Connected = True
95      AfterConnect = IBDatabase1AfterConnect
96      CreateIfNotExists = True
97      AllowStreamedConnected = False
# Line 125 | Line 125 | object Form1: TForm1
125      Transaction = IBTransaction1
126      BufferChunks = 1000
127      CachedUpdates = False
128 +    EnableStatistics = False
129      DeleteSQL.Strings = (
130        'Delete From IDTEST A'
131 <      'Where A.KEY = :OLD_KEY'
131 >      'Where A."KEY" = :OLD_KEY'
132      )
133      InsertSQL.Strings = (
134 <      'Insert Into IDTEST(SOMETEXT)'
135 <      'Values(:SOMETEXT) RETURNING KEY, COMPTEXT'
134 >      'Insert Into IDTEST (SOMETEXT)'
135 >      'Values(:SOMETEXT)'
136 >      ' RETURNING "KEY", COMPTEXT'
137      )
138      RefreshSQL.Strings = (
139 <      'Select A.COMPTEXT, A.KEY, A.SOMETEXT From IDTEST A'
140 <      'Where A.KEY = :KEY'
139 >      'Select A."KEY", A.SOMETEXT, A.COMPTEXT From IDTEST A'
140 >      'Where A."KEY" = :"KEY"'
141      )
142      SelectSQL.Strings = (
143 <      'Select A.COMPTEXT, A.KEY, A.SOMETEXT From IDTEST A'
143 >      'Select A."KEY", A.SOMETEXT, A.COMPTEXT From IDTEST A'
144      )
145      ModifySQL.Strings = (
146        'Update IDTEST A Set '
147        '  A.SOMETEXT = :SOMETEXT'
148 <      'Where A.KEY = :OLD_KEY'
149 <      'RETURNING COMPTEXT'
148 >      'Where A."KEY" = :OLD_KEY'
149 >      ' RETURNING A.COMPTEXT'
150      )
151      GeneratorField.ApplyOnEvent = gaeOnNewRecord
152      GenerateParamNames = False
153 +    MasterDetailDelay = 0
154      DataSetCloseAction = dcSaveChanges
155      left = 400
156      top = 46

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines