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

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 743
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '0.9.30.1'
11 >  LCLVersion = '1.2.2.0'
12    object DBGrid1: TDBGrid
13      Left = 8
14      Height = 375
# Line 124 | Line 124 | object Form1: TForm1
124      AfterDelete = IBQuery1AfterDelete
125      AfterOpen = IBQuery1AfterOpen
126      BeforeClose = IBQuery1BeforeClose
127 –    BeforeOpen = IBQuery1BeforeOpen
127      OnDeleteError = IBQuery1PostError
128      OnPostError = IBQuery1PostError
129      BufferChunks = 1000
130      CachedUpdates = False
131 +    GenerateParamNames = False
132      GeneratorField.ApplyOnEvent = gaeOnNewRecord
133      SQL.Strings = (
134        'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
# Line 234 | Line 234 | object Form1: TForm1
234        Required = True
235        Size = 15
236      end
237 +    object IBQuery1FULL_NAME: TIBStringField
238 +      DisplayWidth = 37
239 +      FieldKind = fkData
240 +      FieldName = 'FULL_NAME'
241 +      Index = 9
242 +      LookupCache = False
243 +      ProviderFlags = [pfInUpdate, pfInWhere]
244 +      ReadOnly = True
245 +      Required = False
246 +      Size = 37
247 +    end
248      object IBQuery1SALARY: TIBBCDField
249        DisplayWidth = 18
250        FieldKind = fkData
251        FieldName = 'SALARY'
252 <      Index = 9
252 >      Index = 10
253        LookupCache = False
254        ProviderFlags = [pfInUpdate, pfInWhere]
255        ReadOnly = False
256        Required = True
246 –      OnGetText = IBQuery1SALARYGetText
257        Precision = 18
258        Currency = False
259        MaxValue = 0
260        MinValue = 0
261        Size = 2
262      end
253 –    object IBQuery1FULL_NAME: TIBStringField
254 –      DisplayWidth = 37
255 –      FieldKind = fkData
256 –      FieldName = 'FULL_NAME'
257 –      Index = 10
258 –      LookupCache = False
259 –      ProviderFlags = [pfInUpdate, pfInWhere]
260 –      ReadOnly = True
261 –      Required = False
262 –      Size = 37
263 –    end
263    end
264 <  object Datasource1: TDatasource
264 >  object Datasource1: TDataSource
265      DataSet = IBQuery1
266      left = 672
267      top = 296

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines