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 26 by tony, Fri Mar 13 10:26:52 2015 UTC vs.
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 1002
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.4.0.1'
11 >  LCLVersion = '1.4.0.3'
12    object Button1: TButton
13      Left = 915
14      Height = 25
# Line 326 | Line 326 | object Form1: TForm1
326          CancelCaption = 'Cancel'
327          DateOrder = doNone
328          ButtonWidth = 23
329 +        AutoSelect = False
330          NumGlyphs = 1
331          MaxLength = 0
332          TabOrder = 3
# Line 517 | Line 518 | object Form1: TForm1
518    object IBDatabase1: TIBDatabase
519      Connected = False
520      AllowStreamedConnected = False
521 <    DatabaseName = 'employee'
521 >    DatabaseName = 'localhost:employee'
522      Params.Strings = (
523        'user_name=SYSDBA'
524        'lc_ctype=UTF-8'
# Line 594 | Line 595 | object Form1: TForm1
595        'From EMPLOYEE'
596      )
597      Params = <>
598 +    DataSetCloseAction = dcDiscardChanges
599      left = 872
600      top = 376
601      object TotalsQueryTOTALSALARIES: TIBBCDField
# Line 682 | Line 684 | object Form1: TForm1
684      GeneratorField.Field = 'EMP_NO'
685      GeneratorField.ApplyOnEvent = gaeOnNewRecord
686      GenerateParamNames = False
687 +    DataSetCloseAction = dcSaveChanges
688      AfterTransactionEnd = EmployeesAfterTransactionEnd
689 +    OnValidatePost = EmployeesValidatePost
690      left = 872
691      top = 336
692      object EmployeesEMP_NO: TSmallintField
# Line 858 | Line 862 | object Form1: TForm1
862          Name = 'JOB_GRADE'
863          ParamType = ptInput
864        end>
865 +    DataSetCloseAction = dcDiscardChanges
866      left = 872
867      top = 296
868      ParamData = <    
# Line 901 | Line 906 | object Form1: TForm1
906          Name = 'JOB_GRADE'
907          ParamType = ptInput
908        end>
909 +    DataSetCloseAction = dcDiscardChanges
910      left = 872
911      top = 256
912      ParamData = <    
# Line 928 | Line 934 | object Form1: TForm1
934        'Order by Upper(Department)'
935      )
936      Params = <>
937 +    DataSetCloseAction = dcDiscardChanges
938      left = 872
939      top = 210
940    end

Diff Legend

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