examples/employee/unit2.lfm

object EditEmployeeDlg: TEditEmployeeDlg
  Left = 1325
  Height = 397
  Top = 347
  Width = 395
  Caption = 'Edit Employee Details'
  ClientHeight = 397
  ClientWidth = 395
  OnClose = FormClose
  OnShow = FormShow
  LCLVersion = '0.9.30'
  object Label1: TLabel
    Left = 20
    Height = 18
    Top = 25
    Width = 72
    Caption = 'First Name'
    ParentColor = False
  end
  object DBEdit1: TDBEdit
    Left = 20
    Height = 27
    Top = 45
    Width = 194
    DataField = 'FIRST_NAME'
    DataSource = Datasource1
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 0
  end
  object Label2: TLabel
    Left = 20
    Height = 18
    Top = 96
    Width = 71
    Caption = 'Last Name'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 248
    Height = 18
    Top = 25
    Width = 92
    Caption = 'Employee No.'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 20
    Height = 18
    Top = 168
    Width = 83
    Caption = 'Date Started'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 248
    Height = 18
    Top = 168
    Width = 42
    Caption = 'Salary'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 20
    Height = 18
    Top = 240
    Width = 79
    Caption = 'Department'
    ParentColor = False
  end
  object DBEdit2: TDBEdit
    Left = 20
    Height = 27
    Top = 120
    Width = 194
    DataField = 'LAST_NAME'
    DataSource = Datasource1
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 1
  end
  object DBEdit4: TDBEdit
    Left = 248
    Height = 27
    Top = 45
    Width = 80
    DataField = 'EMP_NO'
    DataSource = Datasource1
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 2
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 20
    Height = 29
    Top = 259
    Width = 189
    DataField = 'DEPT_NO'
    DataSource = Datasource1
    KeyField = 'DEPT_NO'
    ListField = 'DEPARTMENT'
    ListFieldIndex = 0
    ListSource = Datasource2
    LookupCache = False
    NullValueKey = 16430
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    Left = 248
    Height = 27
    Top = 188
    Width = 96
    DataField = 'SALARY'
    DataSource = Datasource1
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 4
  end
  object DateEdit1: TDateEdit
    Left = 20
    Height = 27
    Top = 188
    Width = 104
    CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    OKCaption = 'OK'
    CancelCaption = 'Cancel'
    DateOrder = doNone
    ButtonWidth = 23
    CharCase = ecNormal
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
      72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
      52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
      75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
      C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
      7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
      ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
      7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
      B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
      82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
      BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
      87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
      75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
      8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
      73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
      8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
      71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
      94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
      ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
      98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
      FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
      9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
      FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
      9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
      FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
      A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
      F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
      A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
      8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
    }
    NumGlyphs = 0
    MaxLength = 0
    OnChange = DateEdit1Change
    TabOrder = 5
  end
  object Button1: TButton
    Left = 113
    Height = 25
    Top = 368
    Width = 75
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 6
  end
  object Button2: TButton
    Left = 208
    Height = 25
    Top = 368
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 7
  end
  object Label8: TLabel
    Left = 20
    Height = 18
    Top = 304
    Width = 52
    Caption = 'Country'
    ParentColor = False
  end
  object DBLookupComboBox3: TDBLookupComboBox
    Left = 21
    Height = 29
    Top = 321
    Width = 188
    DataField = 'JOB_COUNTRY'
    DataSource = Datasource1
    KeyField = 'COUNTRY'
    ListField = 'COUNTRY'
    ListFieldIndex = 0
    ListSource = Datasource4
    LookupCache = False
    TabOrder = 8
  end
  object IBDataSet1: TIBDataSet
    Database = Form1.IBDatabase1
    Transaction = Form1.IBTransaction1
    AfterClose = IBDataSet1AfterClose
    AfterInsert = IBDataSet1AfterInsert
    AfterRefresh = IBDataSet1AfterScroll
    AfterScroll = IBDataSet1AfterScroll
    BeforeOpen = IBDataSet1BeforeOpen
    BeforePost = IBDataSet1BeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'Delete From EMPLOYEE A'
      'Where A.EMP_NO = :EMP_NO'
    )
    InsertSQL.Strings = (
      'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
      'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
    )
    RefreshSQL.Strings = (
      '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'
      'Where A.EMP_NO = :EMP_NO'
    )
    SelectSQL.Strings = (
      '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'
      'Where EMP_NO = :EMP_NO'
    )
    ModifySQL.Strings = (
      'Update EMPLOYEE A Set '
      '  A.EMP_NO = :EMP_NO,'
      '  A.FIRST_NAME = :FIRST_NAME,'
      '  A.LAST_NAME = :LAST_NAME,'
      '  A.PHONE_EXT = :PHONE_EXT,'
      '  A.HIRE_DATE = :HIRE_DATE,'
      '  A.DEPT_NO = :DEPT_NO,'
      '  A.JOB_CODE = :JOB_CODE,'
      '  A.JOB_GRADE = :JOB_GRADE,'
      '  A.JOB_COUNTRY = :JOB_COUNTRY,'
      '  A.SALARY = :SALARY'
      'Where A.EMP_NO = :OLD_EMP_NO'
    )
    GeneratorField.Generator = 'EMP_NO_GEN'
    GeneratorField.Field = 'EMP_NO'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    left = 288
    top = 80
    object IBDataSet1EMP_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'EMP_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBDataSet1FIRST_NAME: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'FIRST_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object IBDataSet1LAST_NAME: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'LAST_NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBDataSet1PHONE_EXT: TIBStringField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'PHONE_EXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 4
    end
    object IBDataSet1HIRE_DATE: TDateTimeField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'HIRE_DATE'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBDataSet1DEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object IBDataSet1JOB_CODE: TIBStringField
      DisplayWidth = 5
      FieldKind = fkData
      FieldName = 'JOB_CODE'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 5
    end
    object IBDataSet1JOB_GRADE: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'JOB_GRADE'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBDataSet1JOB_COUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'JOB_COUNTRY'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object IBDataSet1SALARY: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'SALARY'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
    object IBDataSet1FULL_NAME: TIBStringField
      DisplayWidth = 37
      FieldKind = fkData
      FieldName = 'FULL_NAME'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = True
      Required = False
      Size = 37
    end
  end
  object Datasource1: TDatasource
    DataSet = IBDataSet1
    left = 248
    top = 80
  end
  object Depts: TIBQuery
    Database = Form1.IBDatabase1
    Transaction = Form1.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO From DEPARTMENT A'
      'Order by DEPARTMENT asc'
    )
    Params = <>
    left = 288
    top = 120
  end
  object Datasource2: TDatasource
    DataSet = Depts
    left = 248
    top = 120
  end
  object Countries: TIBQuery
    Database = Form1.IBDatabase1
    Transaction = Form1.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
      'Order by Country Asc'
    )
    Params = <>
    left = 367
    top = 120
    object CountriesCOUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'COUNTRY'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object CountriesCURRENCY: TIBStringField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'CURRENCY'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 10
    end
  end
  object Datasource4: TDatasource
    DataSet = Countries
    left = 328
    top = 120
  end
end
Revision:	7
Committed:	Sun Aug 5 18:28:19 2012 UTC (11 years, 8 months ago) by tony
File size:	12396 byte(s)
Log Message:	Committing updates for Release R1-0-0
#	User	Rev	Content
1	tony	7	object EditEmployeeDlg: TEditEmployeeDlg
2			Left = 1325
3			Height = 397
4			Top = 347
5			Width = 395
6			Caption = 'Edit Employee Details'
7			ClientHeight = 397
8			ClientWidth = 395
9			OnClose = FormClose
10			OnShow = FormShow
11			LCLVersion = '0.9.30'
12			object Label1: TLabel
13			Left = 20
14			Height = 18
15			Top = 25
16			Width = 72
17			Caption = 'First Name'
18			ParentColor = False
19			end
20			object DBEdit1: TDBEdit
21			Left = 20
22			Height = 27
23			Top = 45
24			Width = 194
25			DataField = 'FIRST_NAME'
26			DataSource = Datasource1
27			CharCase = ecNormal
28			MaxLength = 0
29			TabOrder = 0
30			end
31			object Label2: TLabel
32			Left = 20
33			Height = 18
34			Top = 96
35			Width = 71
36			Caption = 'Last Name'
37			ParentColor = False
38			end
39			object Label3: TLabel
40			Left = 248
41			Height = 18
42			Top = 25
43			Width = 92
44			Caption = 'Employee No.'
45			ParentColor = False
46			end
47			object Label4: TLabel
48			Left = 20
49			Height = 18
50			Top = 168
51			Width = 83
52			Caption = 'Date Started'
53			ParentColor = False
54			end
55			object Label5: TLabel
56			Left = 248
57			Height = 18
58			Top = 168
59			Width = 42
60			Caption = 'Salary'
61			ParentColor = False
62			end
63			object Label6: TLabel
64			Left = 20
65			Height = 18
66			Top = 240
67			Width = 79
68			Caption = 'Department'
69			ParentColor = False
70			end
71			object DBEdit2: TDBEdit
72			Left = 20
73			Height = 27
74			Top = 120
75			Width = 194
76			DataField = 'LAST_NAME'
77			DataSource = Datasource1
78			CharCase = ecNormal
79			MaxLength = 0
80			TabOrder = 1
81			end
82			object DBEdit4: TDBEdit
83			Left = 248
84			Height = 27
85			Top = 45
86			Width = 80
87			DataField = 'EMP_NO'
88			DataSource = Datasource1
89			CharCase = ecNormal
90			MaxLength = 0
91			TabOrder = 2
92			end
93			object DBLookupComboBox1: TDBLookupComboBox
94			Left = 20
95			Height = 29
96			Top = 259
97			Width = 189
98			DataField = 'DEPT_NO'
99			DataSource = Datasource1
100			KeyField = 'DEPT_NO'
101			ListField = 'DEPARTMENT'
102			ListFieldIndex = 0
103			ListSource = Datasource2
104			LookupCache = False
105			NullValueKey = 16430
106			TabOrder = 3
107			end
108			object DBEdit5: TDBEdit
109			Left = 248
110			Height = 27
111			Top = 188
112			Width = 96
113			DataField = 'SALARY'
114			DataSource = Datasource1
115			CharCase = ecNormal
116			MaxLength = 0
117			TabOrder = 4
118			end
119			object DateEdit1: TDateEdit
120			Left = 20
121			Height = 27
122			Top = 188
123			Width = 104
124			CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
125			OKCaption = 'OK'
126			CancelCaption = 'Cancel'
127			DateOrder = doNone
128			ButtonWidth = 23
129			CharCase = ecNormal
130			Glyph.Data = {
131			36040000424D3604000000000000360000002800000010000000100000000100
132			2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
133			FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
134			FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
135			72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
136			52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
137			75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
138			C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
139			7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
140			ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
141			7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
142			B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
143			82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
144			BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
145			87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
146			75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
147			8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
148			73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
149			8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
150			71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
151			94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
152			ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
153			98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
154			FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
155			9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
156			FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
157			9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
158			FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
159			A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
160			F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
161			A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
162			8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
163			FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
164			FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
165			}
166			NumGlyphs = 0
167			MaxLength = 0
168			OnChange = DateEdit1Change
169			TabOrder = 5
170			end
171			object Button1: TButton
172			Left = 113
173			Height = 25
174			Top = 368
175			Width = 75
176			Caption = 'OK'
177			Default = True
178			ModalResult = 1
179			TabOrder = 6
180			end
181			object Button2: TButton
182			Left = 208
183			Height = 25
184			Top = 368
185			Width = 75
186			Cancel = True
187			Caption = 'Cancel'
188			ModalResult = 2
189			TabOrder = 7
190			end
191			object Label8: TLabel
192			Left = 20
193			Height = 18
194			Top = 304
195			Width = 52
196			Caption = 'Country'
197			ParentColor = False
198			end
199			object DBLookupComboBox3: TDBLookupComboBox
200			Left = 21
201			Height = 29
202			Top = 321
203			Width = 188
204			DataField = 'JOB_COUNTRY'
205			DataSource = Datasource1
206			KeyField = 'COUNTRY'
207			ListField = 'COUNTRY'
208			ListFieldIndex = 0
209			ListSource = Datasource4
210			LookupCache = False
211			TabOrder = 8
212			end
213			object IBDataSet1: TIBDataSet
214			Database = Form1.IBDatabase1
215			Transaction = Form1.IBTransaction1
216			AfterClose = IBDataSet1AfterClose
217			AfterInsert = IBDataSet1AfterInsert
218			AfterRefresh = IBDataSet1AfterScroll
219			AfterScroll = IBDataSet1AfterScroll
220			BeforeOpen = IBDataSet1BeforeOpen
221			BeforePost = IBDataSet1BeforePost
222			BufferChunks = 1000
223			CachedUpdates = False
224			DeleteSQL.Strings = (
225			'Delete From EMPLOYEE A'
226			'Where A.EMP_NO = :EMP_NO'
227			)
228			InsertSQL.Strings = (
229			'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
230			'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
231			)
232			RefreshSQL.Strings = (
233			'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'
234			'Where A.EMP_NO = :EMP_NO'
235			)
236			SelectSQL.Strings = (
237			'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'
238			'Where EMP_NO = :EMP_NO'
239			)
240			ModifySQL.Strings = (
241			'Update EMPLOYEE A Set '
242			' A.EMP_NO = :EMP_NO,'
243			' A.FIRST_NAME = :FIRST_NAME,'
244			' A.LAST_NAME = :LAST_NAME,'
245			' A.PHONE_EXT = :PHONE_EXT,'
246			' A.HIRE_DATE = :HIRE_DATE,'
247			' A.DEPT_NO = :DEPT_NO,'
248			' A.JOB_CODE = :JOB_CODE,'
249			' A.JOB_GRADE = :JOB_GRADE,'
250			' A.JOB_COUNTRY = :JOB_COUNTRY,'
251			' A.SALARY = :SALARY'
252			'Where A.EMP_NO = :OLD_EMP_NO'
253			)
254			GeneratorField.Generator = 'EMP_NO_GEN'
255			GeneratorField.Field = 'EMP_NO'
256			GeneratorField.ApplyOnEvent = gaeOnNewRecord
257			left = 288
258			top = 80
259			object IBDataSet1EMP_NO: TSmallintField
260			DisplayWidth = 10
261			FieldKind = fkData
262			FieldName = 'EMP_NO'
263			Index = 0
264			LookupCache = False
265			ProviderFlags = [pfInUpdate, pfInWhere]
266			ReadOnly = False
267			Required = True
268			end
269			object IBDataSet1FIRST_NAME: TIBStringField
270			DisplayWidth = 15
271			FieldKind = fkData
272			FieldName = 'FIRST_NAME'
273			Index = 1
274			LookupCache = False
275			ProviderFlags = [pfInUpdate, pfInWhere]
276			ReadOnly = False
277			Required = True
278			Size = 15
279			end
280			object IBDataSet1LAST_NAME: TIBStringField
281			DisplayWidth = 20
282			FieldKind = fkData
283			FieldName = 'LAST_NAME'
284			Index = 2
285			LookupCache = False
286			ProviderFlags = [pfInUpdate, pfInWhere]
287			ReadOnly = False
288			Required = True
289			end
290			object IBDataSet1PHONE_EXT: TIBStringField
291			DisplayWidth = 4
292			FieldKind = fkData
293			FieldName = 'PHONE_EXT'
294			Index = 3
295			LookupCache = False
296			ProviderFlags = [pfInUpdate, pfInWhere]
297			ReadOnly = False
298			Required = False
299			Size = 4
300			end
301			object IBDataSet1HIRE_DATE: TDateTimeField
302			DisplayWidth = 10
303			FieldKind = fkData
304			FieldName = 'HIRE_DATE'
305			Index = 4
306			LookupCache = False
307			ProviderFlags = [pfInUpdate, pfInWhere]
308			ReadOnly = False
309			Required = True
310			end
311			object IBDataSet1DEPT_NO: TIBStringField
312			DisplayWidth = 3
313			FieldKind = fkData
314			FieldName = 'DEPT_NO'
315			Index = 5
316			LookupCache = False
317			ProviderFlags = [pfInUpdate, pfInWhere]
318			ReadOnly = False
319			Required = True
320			Size = 3
321			end
322			object IBDataSet1JOB_CODE: TIBStringField
323			DisplayWidth = 5
324			FieldKind = fkData
325			FieldName = 'JOB_CODE'
326			Index = 6
327			LookupCache = False
328			ProviderFlags = [pfInUpdate, pfInWhere]
329			ReadOnly = False
330			Required = True
331			Size = 5
332			end
333			object IBDataSet1JOB_GRADE: TSmallintField
334			DisplayWidth = 10
335			FieldKind = fkData
336			FieldName = 'JOB_GRADE'
337			Index = 7
338			LookupCache = False
339			ProviderFlags = [pfInUpdate, pfInWhere]
340			ReadOnly = False
341			Required = True
342			end
343			object IBDataSet1JOB_COUNTRY: TIBStringField
344			DisplayWidth = 15
345			FieldKind = fkData
346			FieldName = 'JOB_COUNTRY'
347			Index = 8
348			LookupCache = False
349			ProviderFlags = [pfInUpdate, pfInWhere]
350			ReadOnly = False
351			Required = True
352			Size = 15
353			end
354			object IBDataSet1SALARY: TIBBCDField
355			DisplayWidth = 18
356			FieldKind = fkData
357			FieldName = 'SALARY'
358			Index = 9
359			LookupCache = False
360			ProviderFlags = [pfInUpdate, pfInWhere]
361			ReadOnly = False
362			Required = True
363			Precision = 18
364			Currency = False
365			MaxValue = 0
366			MinValue = 0
367			Size = 2
368			end
369			object IBDataSet1FULL_NAME: TIBStringField
370			DisplayWidth = 37
371			FieldKind = fkData
372			FieldName = 'FULL_NAME'
373			Index = 10
374			LookupCache = False
375			ProviderFlags = [pfInUpdate, pfInWhere]
376			ReadOnly = True
377			Required = False
378			Size = 37
379			end
380			end
381			object Datasource1: TDatasource
382			DataSet = IBDataSet1
383			left = 248
384			top = 80
385			end
386			object Depts: TIBQuery
387			Database = Form1.IBDatabase1
388			Transaction = Form1.IBTransaction1
389			BufferChunks = 1000
390			CachedUpdates = False
391			GeneratorField.ApplyOnEvent = gaeOnNewRecord
392			SQL.Strings = (
393			'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO From DEPARTMENT A'
394			'Order by DEPARTMENT asc'
395			)
396			Params = <>
397			left = 288
398			top = 120
399			end
400			object Datasource2: TDatasource
401			DataSet = Depts
402			left = 248
403			top = 120
404			end
405			object Countries: TIBQuery
406			Database = Form1.IBDatabase1
407			Transaction = Form1.IBTransaction1
408			BufferChunks = 1000
409			CachedUpdates = False
410			GeneratorField.ApplyOnEvent = gaeOnNewRecord
411			SQL.Strings = (
412			'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
413			'Order by Country Asc'
414			)
415			Params = <>
416			left = 367
417			top = 120
418			object CountriesCOUNTRY: TIBStringField
419			DisplayWidth = 15
420			FieldKind = fkData
421			FieldName = 'COUNTRY'
422			Index = 0
423			LookupCache = False
424			ProviderFlags = [pfInUpdate, pfInWhere]
425			ReadOnly = False
426			Required = True
427			Size = 15
428			end
429			object CountriesCURRENCY: TIBStringField
430			DisplayWidth = 10
431			FieldKind = fkData
432			FieldName = 'CURRENCY'
433			Index = 1
434			LookupCache = False
435			ProviderFlags = [pfInUpdate, pfInWhere]
436			ReadOnly = False
437			Required = True
438			Size = 10
439			end
440			end
441			object Datasource4: TDatasource
442			DataSet = Countries
443			left = 328
444			top = 120
445			end
446			end