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 (12 years, 3 months ago) by tony
File size:	12396 byte(s)
Log Message:	Committing updates for Release R1-0-0
#	Content
1	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