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 380 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 409 by tony, Sun Jan 22 12:19:56 2023 UTC

# Line 11 | Line 11 | object Form1: TForm1
11    OnCreate = FormCreate
12    OnShow = FormShow
13    Position = poDefaultSizeOnly
14 <  LCLVersion = '2.0.0.2'
14 >  LCLVersion = '2.2.0.2'
15    object IBDynamicGrid1: TIBDynamicGrid
16      Left = 10
17      Height = 301
# Line 87 | Line 87 | object Form1: TForm1
87      Width = 725
88      AutoSize = False
89      Caption = 'This test requires Firebird 3 or later. It demonstrates the handling of Identity columns and how INSERT RETURNING (or Update Returning) can also be used to efficiently update COMPUTED BY columns on insert/update. '#10#10'The Application will create a simple database in a temporary location using a local Firebird Server when it is first run.'#10#10'Click on "Add" to insert a new row and on "Post" to insert the row into the database - or just move the cursor to a new column. Rows can be edited in situ. Note the only the "SOMETEXT" column is editable.'
90    ParentColor = False
90      WordWrap = True
91    end
92    object IBDatabase1: TIBDatabase
93 <    Connected = True
93 >    Connected = False
94      AfterConnect = IBDatabase1AfterConnect
95      CreateIfNotExists = True
96      AllowStreamedConnected = False
# Line 105 | Line 104 | object Form1: TForm1
104      TraceFlags = []
105      UseDefaultSystemCodePage = False
106      OnCreateDatabase = IBDatabase1CreateDatabase
107 <    left = 149
108 <    top = 46
107 >    Left = 149
108 >    Top = 46
109    end
110    object IBTransaction1: TIBTransaction
111 +    TransactionName = '{4D1B147D-63D8-4CD3-A211-023DA181A953}'
112      Active = False
113      DefaultDatabase = IBDatabase1
114      Params.Strings = (
# Line 116 | Line 116 | object Form1: TForm1
116        'rec_version'
117        'nowait'
118      )
119 <    left = 240
120 <    top = 46
119 >    Left = 240
120 >    Top = 46
121    end
122    object IBDataSet1: TIBDataSet
123      AllowAutoActivateTransaction = False
# Line 125 | Line 125 | object Form1: TForm1
125      Transaction = IBTransaction1
126      BufferChunks = 1000
127      CachedUpdates = False
128 +    CaseSensitiveParameterNames = False
129      EnableStatistics = False
130      DeleteSQL.Strings = (
131        'Delete From IDTEST A'
# Line 152 | Line 153 | object Form1: TForm1
153      GenerateParamNames = False
154      MasterDetailDelay = 0
155      DataSetCloseAction = dcSaveChanges
156 <    left = 400
157 <    top = 46
156 >    TZTextOption = tzOffset
157 >    DefaultTZDate = 43831
158 >    SQLFiltered = False
159 >    Left = 400
160 >    Top = 46
161    end
162    object DataSource1: TDataSource
163      DataSet = IBDataSet1
164 <    left = 326
165 <    top = 46
164 >    Left = 326
165 >    Top = 46
166    end
167    object ApplicationProperties1: TApplicationProperties
168      OnIdle = ApplicationProperties1Idle
169 <    left = 520
170 <    top = 48
169 >    Left = 520
170 >    Top = 48
171    end
172    object IBDatabaseInfo1: TIBDatabaseInfo
173      Database = IBDatabase1
174 <    left = 155
175 <    top = 114
174 >    Left = 155
175 >    Top = 114
176    end
177   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines