examples/lookupcombobox/Unit1.lfm

object Form1: TForm1
  Left = 616
  Height = 329
  Top = 256
  Width = 658
  Caption = 'IBLookup Combo Box Demo'
  ClientHeight = 329
  ClientWidth = 658
  DefaultMonitor = dmPrimary
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Label1: TLabel
    Left = 16
    Height = 14
    Top = 16
    Width = 98
    Caption = 'Employee Name'
    ParentColor = False
  end
  object IBLookupComboEditBox1: TIBLookupComboEditBox
    Left = 16
    Height = 27
    Top = 32
    Width = 224
    KeyField = 'EMP_NO'
    ListField = 'FULL_NAME'
    ListFieldIndex = 0
    ListSource = EmployeeSource
    LookupCache = False
    ScrollListDataset = True
    TabOrder = 0
    AutoInsert = True
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
    ItemHeight = 0
    KeyPressInterval = 600
    OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
  end
  object Label2: TLabel
    Left = 16
    Height = 14
    Top = 79
    Width = 103
    Caption = 'Employee Details'
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 19
    Height = 185
    Top = 97
    Width = 623
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelInner = bvLowered
    BevelOuter = bvLowered
    ClientHeight = 185
    ClientWidth = 623
    TabOrder = 1
    object Label3: TLabel
      Left = 14
      Height = 14
      Top = 18
      Width = 64
      Caption = 'First Name'
      ParentColor = False
    end
    object DBEdit1: TDBEdit
      Left = 14
      Height = 24
      Top = 32
      Width = 136
      DataField = 'FIRST_NAME'
      DataSource = EmployeeSource
      CharCase = ecNormal
      MaxLength = 0
      TabOrder = 0
    end
    object Label4: TLabel
      Left = 168
      Height = 14
      Top = 18
      Width = 64
      Caption = 'Last Name'
      ParentColor = False
    end
    object DBEdit2: TDBEdit
      Left = 168
      Height = 24
      Top = 32
      Width = 144
      DataField = 'LAST_NAME'
      DataSource = EmployeeSource
      CharCase = ecNormal
      MaxLength = 0
      TabOrder = 1
    end
    object Label5: TLabel
      Left = 547
      Height = 14
      Top = 120
      Width = 24
      Anchors = [akTop, akRight]
      Caption = 'Ext.'
      ParentColor = False
    end
    object DBEdit3: TDBEdit
      Left = 547
      Height = 24
      Top = 136
      Width = 48
      DataField = 'PHONE_EXT'
      DataSource = EmployeeSource
      Anchors = [akTop, akRight]
      CharCase = ecNormal
      MaxLength = 0
      TabOrder = 3
    end
    object Label6: TLabel
      Left = 16
      Height = 14
      Top = 65
      Width = 56
      Caption = 'Hire Date'
      ParentColor = False
    end
    object Label7: TLabel
      Left = 172
      Height = 14
      Top = 65
      Width = 37
      Caption = 'Salary'
      ParentColor = False
    end
    object DBEdit4: TDBEdit
      Left = 168
      Height = 24
      Top = 80
      Width = 144
      DataField = 'SALARY'
      DataSource = EmployeeSource
      CharCase = ecNormal
      MaxLength = 0
      TabOrder = 4
    end
    object Label8: TLabel
      Left = 392
      Height = 14
      Top = 16
      Width = 51
      Caption = 'Location'
      ParentColor = False
    end
    object Label9: TLabel
      Left = 331
      Height = 14
      Top = 16
      Width = 36
      Caption = 'Grade'
      ParentColor = False
    end
    object DBComboBox1: TDBComboBox
      Left = 331
      Height = 25
      Top = 32
      Width = 53
      DataField = 'JOB_GRADE'
      DataSource = EmployeeSource
      ItemHeight = 0
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
      )
      MaxLength = 0
      OnCloseUp = DBComboBox1CloseUp
      Style = csDropDownList
      TabOrder = 2
    end
    object Label10: TLabel
      Left = 333
      Height = 14
      Top = 65
      Width = 48
      Caption = 'Job Title'
      ParentColor = False
    end
    object Label11: TLabel
      Left = 17
      Height = 14
      Top = 122
      Width = 73
      Caption = 'Department'
      ParentColor = False
    end
    object DBEdit5: TDBEdit
      Left = 17
      Height = 24
      Top = 136
      Width = 495
      DataField = 'DEPT_PATH'
      DataSource = EmployeeSource
      ReadOnly = True
      Anchors = [akTop, akLeft, akRight]
      CharCase = ecNormal
      MaxLength = 0
      TabOrder = 5
    end
    object SpeedButton1: TSpeedButton
      Left = 516
      Height = 25
      Top = 136
      Width = 25
      Anchors = [akTop, akRight]
      Caption = '...'
      OnClick = SpeedButton1Click
    end
    object IBLookupComboEditBox2: TIBLookupComboEditBox
      Left = 392
      Height = 23
      Top = 32
      Width = 203
      Anchors = [akTop, akLeft, akRight]
      AutoSize = False
      DataField = 'JOB_COUNTRY'
      DataSource = EmployeeSource
      KeyField = 'COUNTRY'
      ListField = 'COUNTRY'
      ListFieldIndex = 0
      ListSource = CountriesSource
      LookupCache = False
      Style = csDropDownList
      TabOrder = 6
      AutoInsert = False
      AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 0
    end
    object IBLookupComboEditBox3: TIBLookupComboEditBox
      Left = 331
      Height = 28
      Top = 82
      Width = 264
      Anchors = [akTop, akLeft, akRight]
      DataField = 'JOB_CODE'
      DataSource = EmployeeSource
      KeyField = 'JOB_CODE'
      ListField = 'JOB_TITLE'
      ListFieldIndex = 0
      ListSource = JobCodeSource
      LookupCache = False
      Style = csDropDownList
      TabOrder = 7
      AutoInsert = False
      AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 0
    end
    object IBDateEdit1: TDBDateEdit
      Left = 17
      Height = 24
      Top = 82
      Width = 112
      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
      DateOrder = doNone
      ButtonWidth = 23
      AutoSelect = False
      NumGlyphs = 1
      MaxLength = 0
      TabOrder = 8
      DataField = 'HIRE_DATE'
      DataSource = EmployeeSource
    end
  end
  object CancelBtn: TButton
    Left = 567
    Height = 25
    Top = 293
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Cancel'
    OnClick = CancelBtnClick
    TabOrder = 2
  end
  object SaveBtn: TButton
    Left = 481
    Height = 25
    Top = 293
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Save'
    OnClick = SaveBtnClick
    TabOrder = 3
  end
  object DeleteBtn: TButton
    Left = 18
    Height = 25
    Top = 294
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Delete'
    OnClick = DeleteBtnClick
    TabOrder = 4
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    CreateIfNotExists = False
    AllowStreamedConnected = False
    DatabaseName = 'localhost:employee'
    Params.Strings = (
      'lc_ctype=UTF8'
      'user_name=SYSDBA'
      'user_name=SYSDBA'
    )
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    left = 328
    top = 24
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    left = 296
    top = 24
  end
  object Employees: TIBDataSet
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    AfterDelete = EmployeesAfterDelete
    AfterEdit = EmployeesAfterDelete
    AfterInsert = EmployeesAfterInsert
    AfterPost = EmployeesAfterPost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'Execute Procedure DELETE_EMPLOYEE :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 = (
      'with recursive Depts As ('
      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar'
      '(256)) as DEPT_PATH,'
      'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
      'From DEPARTMENT Where HEAD_DEPT is NULL '
      'UNION ALL'
      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
      '|| D.DEPARTMENT as DEPT_PATH,'
      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
      'From DEPARTMENT  D'
      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
      ')'
      ''
      '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, D.DEPT_PATH, '
      'D.DEPT_KEY_PATH'
      'From EMPLOYEE A'
      'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
      ''
      'Where A.EMP_NO = :EMP_NO'
    )
    SelectSQL.Strings = (
      'with recursive Depts As ('
      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
      'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
      'From DEPARTMENT Where HEAD_DEPT is NULL '
      'UNION ALL'
      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
      'From DEPARTMENT  D'
      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
      ')'
      ''
      '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, D.DEPT_PATH, D.DEPT_KEY_PATH'
      'From EMPLOYEE A'
      'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
      'Order by 3 asc'
    )
    ModifySQL.Strings = (
      'Update EMPLOYEE A Set '#13#10'  A.EMP_NO = :EMP_NO,'#13#10'  A.FIRST_NAME = :FIRST_NAME,'#13#10'  A.LAST_NAME = :LAST_NAME,'#13#10'  A.PHONE_EXT = :PHONE_EXT,'#13#10'  A.HIRE_DATE = :HIRE_DATE,'#13#10'  A.DEPT_NO = :DEPT_NO,'#13#10'  A.JOB_CODE = :JOB_CODE,'#13#10'  A.JOB_GRADE = :JOB_GRADE,'#13#10'  A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10'  A.SALARY = :SALARY'
      'Where A.EMP_NO = :OLD_EMP_NO'
    )
    GeneratorField.Generator = 'EMP_NO_GEN'
    GeneratorField.Field = 'EMP_NO'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    GenerateParamNames = False
    DataSetCloseAction = dcSaveChanges
    AfterTransactionEnd = EmployeesAfterTransactionEnd
    left = 496
    top = 16
    object EmployeesEMP_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'EMP_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesFIRST_NAME: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'FIRST_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesLAST_NAME: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'LAST_NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesPHONE_EXT: TIBStringField
      Alignment = taRightJustify
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'PHONE_EXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 4
    end
    object EmployeesHIRE_DATE: TDateTimeField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'HIRE_DATE'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesDEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object EmployeesJOB_CODE: TIBStringField
      DisplayWidth = 5
      FieldKind = fkData
      FieldName = 'JOB_CODE'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      OnChange = EmployeesJOB_CODEChange
      Size = 5
    end
    object EmployeesJOB_GRADE: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'JOB_GRADE'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      OnChange = EmployeesJOB_GRADEChange
    end
    object EmployeesJOB_COUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'JOB_COUNTRY'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesSALARY: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'SALARY'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      OnGetText = EmployeesSALARYGetText
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
    object EmployeesFULL_NAME: TIBStringField
      DisplayWidth = 37
      FieldKind = fkData
      FieldName = 'FULL_NAME'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      OnChange = EmployeesFULL_NAMEChange
      Size = 37
    end
    object EmployeesDEPT_PATH: TIBStringField
      DisplayWidth = 256
      FieldKind = fkData
      FieldName = 'DEPT_PATH'
      Index = 11
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 256
    end
    object EmployeesDEPT_KEY_PATH: TIBStringField
      DisplayWidth = 64
      FieldKind = fkData
      FieldName = 'DEPT_KEY_PATH'
      Index = 12
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 64
    end
  end
  object EmployeeSource: TDataSource
    DataSet = Employees
    OnDataChange = EmployeeSourceDataChange
    left = 462
    top = 16
  end
  object ApplicationProperties1: TApplicationProperties
    OnIdle = ApplicationProperties1Idle
    left = 328
    top = 56
  end
  object Countries: TIBQuery
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    BeforeOpen = CountriesBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
      'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
      'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE'
    )
    Params = <    
      item
        DataType = ftUnknown
        Name = 'JOB_CODE'
        ParamType = ptInput
      end    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
    DataSetCloseAction = dcDiscardChanges
    left = 425
    top = 56
    ParamData = <    
      item
        DataType = ftUnknown
        Name = 'JOB_CODE'
        ParamType = ptInput
      end    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
  end
  object CountriesSource: TDataSource
    DataSet = Countries
    left = 392
    top = 58
  end
  object JobCodes: TIBQuery
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    BeforeOpen = JobCodesBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select distinct A.JOB_CODE, A.JOB_TITLE From JOB A'
      'Where JOB_GRADE = :JOB_GRADE'
      'order by 2'
    )
    Params = <    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
    DataSetCloseAction = dcDiscardChanges
    left = 425
    top = 18
    ParamData = <    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
  end
  object JobCodeSource: TDataSource
    DataSet = JobCodes
    left = 392
    top = 18
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (7 years, 1 month ago) by tony
File size:	16559 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	Content
1	object Form1: TForm1
2	Left = 616
3	Height = 329
4	Top = 256
5	Width = 658
6	Caption = 'IBLookup Combo Box Demo'
7	ClientHeight = 329
8	ClientWidth = 658
9	DefaultMonitor = dmPrimary
10	OnClose = FormClose
11	OnShow = FormShow
12	Position = poScreenCenter
13	LCLVersion = '1.8.0.4'
14	object Label1: TLabel
15	Left = 16
16	Height = 14
17	Top = 16
18	Width = 98
19	Caption = 'Employee Name'
20	ParentColor = False
21	end
22	object IBLookupComboEditBox1: TIBLookupComboEditBox
23	Left = 16
24	Height = 27
25	Top = 32
26	Width = 224
27	KeyField = 'EMP_NO'
28	ListField = 'FULL_NAME'
29	ListFieldIndex = 0
30	ListSource = EmployeeSource
31	LookupCache = False
32	ScrollListDataset = True
33	TabOrder = 0
34	AutoInsert = True
35	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
36	ItemHeight = 0
37	KeyPressInterval = 600
38	OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
39	end
40	object Label2: TLabel
41	Left = 16
42	Height = 14
43	Top = 79
44	Width = 103
45	Caption = 'Employee Details'
46	ParentColor = False
47	end
48	object Panel1: TPanel
49	Left = 19
50	Height = 185
51	Top = 97
52	Width = 623
53	Anchors = [akTop, akLeft, akRight, akBottom]
54	BevelInner = bvLowered
55	BevelOuter = bvLowered
56	ClientHeight = 185
57	ClientWidth = 623
58	TabOrder = 1
59	object Label3: TLabel
60	Left = 14
61	Height = 14
62	Top = 18
63	Width = 64
64	Caption = 'First Name'
65	ParentColor = False
66	end
67	object DBEdit1: TDBEdit
68	Left = 14
69	Height = 24
70	Top = 32
71	Width = 136
72	DataField = 'FIRST_NAME'
73	DataSource = EmployeeSource
74	CharCase = ecNormal
75	MaxLength = 0
76	TabOrder = 0
77	end
78	object Label4: TLabel
79	Left = 168
80	Height = 14
81	Top = 18
82	Width = 64
83	Caption = 'Last Name'
84	ParentColor = False
85	end
86	object DBEdit2: TDBEdit
87	Left = 168
88	Height = 24
89	Top = 32
90	Width = 144
91	DataField = 'LAST_NAME'
92	DataSource = EmployeeSource
93	CharCase = ecNormal
94	MaxLength = 0
95	TabOrder = 1
96	end
97	object Label5: TLabel
98	Left = 547
99	Height = 14
100	Top = 120
101	Width = 24
102	Anchors = [akTop, akRight]
103	Caption = 'Ext.'
104	ParentColor = False
105	end
106	object DBEdit3: TDBEdit
107	Left = 547
108	Height = 24
109	Top = 136
110	Width = 48
111	DataField = 'PHONE_EXT'
112	DataSource = EmployeeSource
113	Anchors = [akTop, akRight]
114	CharCase = ecNormal
115	MaxLength = 0
116	TabOrder = 3
117	end
118	object Label6: TLabel
119	Left = 16
120	Height = 14
121	Top = 65
122	Width = 56
123	Caption = 'Hire Date'
124	ParentColor = False
125	end
126	object Label7: TLabel
127	Left = 172
128	Height = 14
129	Top = 65
130	Width = 37
131	Caption = 'Salary'
132	ParentColor = False
133	end
134	object DBEdit4: TDBEdit
135	Left = 168
136	Height = 24
137	Top = 80
138	Width = 144
139	DataField = 'SALARY'
140	DataSource = EmployeeSource
141	CharCase = ecNormal
142	MaxLength = 0
143	TabOrder = 4
144	end
145	object Label8: TLabel
146	Left = 392
147	Height = 14
148	Top = 16
149	Width = 51
150	Caption = 'Location'
151	ParentColor = False
152	end
153	object Label9: TLabel
154	Left = 331
155	Height = 14
156	Top = 16
157	Width = 36
158	Caption = 'Grade'
159	ParentColor = False
160	end
161	object DBComboBox1: TDBComboBox
162	Left = 331
163	Height = 25
164	Top = 32
165	Width = 53
166	DataField = 'JOB_GRADE'
167	DataSource = EmployeeSource
168	ItemHeight = 0
169	Items.Strings = (
170	'1'
171	'2'
172	'3'
173	'4'
174	'5'
175	)
176	MaxLength = 0
177	OnCloseUp = DBComboBox1CloseUp
178	Style = csDropDownList
179	TabOrder = 2
180	end
181	object Label10: TLabel
182	Left = 333
183	Height = 14
184	Top = 65
185	Width = 48
186	Caption = 'Job Title'
187	ParentColor = False
188	end
189	object Label11: TLabel
190	Left = 17
191	Height = 14
192	Top = 122
193	Width = 73
194	Caption = 'Department'
195	ParentColor = False
196	end
197	object DBEdit5: TDBEdit
198	Left = 17
199	Height = 24
200	Top = 136
201	Width = 495
202	DataField = 'DEPT_PATH'
203	DataSource = EmployeeSource
204	ReadOnly = True
205	Anchors = [akTop, akLeft, akRight]
206	CharCase = ecNormal
207	MaxLength = 0
208	TabOrder = 5
209	end
210	object SpeedButton1: TSpeedButton
211	Left = 516
212	Height = 25
213	Top = 136
214	Width = 25
215	Anchors = [akTop, akRight]
216	Caption = '...'
217	OnClick = SpeedButton1Click
218	end
219	object IBLookupComboEditBox2: TIBLookupComboEditBox
220	Left = 392
221	Height = 23
222	Top = 32
223	Width = 203
224	Anchors = [akTop, akLeft, akRight]
225	AutoSize = False
226	DataField = 'JOB_COUNTRY'
227	DataSource = EmployeeSource
228	KeyField = 'COUNTRY'
229	ListField = 'COUNTRY'
230	ListFieldIndex = 0
231	ListSource = CountriesSource
232	LookupCache = False
233	Style = csDropDownList
234	TabOrder = 6
235	AutoInsert = False
236	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
237	ItemHeight = 0
238	end
239	object IBLookupComboEditBox3: TIBLookupComboEditBox
240	Left = 331
241	Height = 28
242	Top = 82
243	Width = 264
244	Anchors = [akTop, akLeft, akRight]
245	DataField = 'JOB_CODE'
246	DataSource = EmployeeSource
247	KeyField = 'JOB_CODE'
248	ListField = 'JOB_TITLE'
249	ListFieldIndex = 0
250	ListSource = JobCodeSource
251	LookupCache = False
252	Style = csDropDownList
253	TabOrder = 7
254	AutoInsert = False
255	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
256	ItemHeight = 0
257	end
258	object IBDateEdit1: TDBDateEdit
259	Left = 17
260	Height = 24
261	Top = 82
262	Width = 112
263	CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
264	DateOrder = doNone
265	ButtonWidth = 23
266	AutoSelect = False
267	NumGlyphs = 1
268	MaxLength = 0
269	TabOrder = 8
270	DataField = 'HIRE_DATE'
271	DataSource = EmployeeSource
272	end
273	end
274	object CancelBtn: TButton
275	Left = 567
276	Height = 25
277	Top = 293
278	Width = 75
279	Anchors = [akRight, akBottom]
280	Caption = 'Cancel'
281	OnClick = CancelBtnClick
282	TabOrder = 2
283	end
284	object SaveBtn: TButton
285	Left = 481
286	Height = 25
287	Top = 293
288	Width = 75
289	Anchors = [akRight, akBottom]
290	Caption = 'Save'
291	OnClick = SaveBtnClick
292	TabOrder = 3
293	end
294	object DeleteBtn: TButton
295	Left = 18
296	Height = 25
297	Top = 294
298	Width = 75
299	Anchors = [akLeft, akBottom]
300	Caption = 'Delete'
301	OnClick = DeleteBtnClick
302	TabOrder = 4
303	end
304	object IBDatabase1: TIBDatabase
305	Connected = False
306	CreateIfNotExists = False
307	AllowStreamedConnected = False
308	DatabaseName = 'localhost:employee'
309	Params.Strings = (
310	'lc_ctype=UTF8'
311	'user_name=SYSDBA'
312	'user_name=SYSDBA'
313	)
314	DefaultTransaction = IBTransaction1
315	IdleTimer = 0
316	TraceFlags = []
317	UseDefaultSystemCodePage = False
318	left = 328
319	top = 24
320	end
321	object IBTransaction1: TIBTransaction
322	Active = False
323	DefaultDatabase = IBDatabase1
324	left = 296
325	top = 24
326	end
327	object Employees: TIBDataSet
328	AllowAutoActivateTransaction = False
329	Database = IBDatabase1
330	Transaction = IBTransaction1
331	AfterDelete = EmployeesAfterDelete
332	AfterEdit = EmployeesAfterDelete
333	AfterInsert = EmployeesAfterInsert
334	AfterPost = EmployeesAfterPost
335	BufferChunks = 1000
336	CachedUpdates = False
337	DeleteSQL.Strings = (
338	'Execute Procedure DELETE_EMPLOYEE :EMP_NO'
339	)
340	InsertSQL.Strings = (
341	'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
342	'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
343	)
344	RefreshSQL.Strings = (
345	'with recursive Depts As ('
346	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar'
347	'(256)) as DEPT_PATH,'
348	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
349	'From DEPARTMENT Where HEAD_DEPT is NULL '
350	'UNION ALL'
351	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH \|\| '' / '' '
352	'\|\| D.DEPARTMENT as DEPT_PATH,'
353	'Depts.DEPT_KEY_PATH \|\| '';'' \|\| D.DEPT_NO as DEPT_KEY_PATH'
354	'From DEPARTMENT D'
355	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
356	')'
357	''
358	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
359	'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
360	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
361	'D.DEPT_KEY_PATH'
362	'From EMPLOYEE A'
363	'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
364	''
365	'Where A.EMP_NO = :EMP_NO'
366	)
367	SelectSQL.Strings = (
368	'with recursive Depts As ('
369	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,'
370	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
371	'From DEPARTMENT Where HEAD_DEPT is NULL '
372	'UNION ALL'
373	'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH \|\| '' / '' \|\| D.DEPARTMENT as DEPT_PATH,'
374	'Depts.DEPT_KEY_PATH \|\| '';'' \|\| D.DEPT_NO as DEPT_KEY_PATH'
375	'From DEPARTMENT D'
376	'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
377	')'
378	''
379	'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
380	'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
381	'From EMPLOYEE A'
382	'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
383	'Order by 3 asc'
384	)
385	ModifySQL.Strings = (
386	'Update EMPLOYEE A Set '#13#10' A.EMP_NO = :EMP_NO,'#13#10' A.FIRST_NAME = :FIRST_NAME,'#13#10' A.LAST_NAME = :LAST_NAME,'#13#10' A.PHONE_EXT = :PHONE_EXT,'#13#10' A.HIRE_DATE = :HIRE_DATE,'#13#10' A.DEPT_NO = :DEPT_NO,'#13#10' A.JOB_CODE = :JOB_CODE,'#13#10' A.JOB_GRADE = :JOB_GRADE,'#13#10' A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10' A.SALARY = :SALARY'
387	'Where A.EMP_NO = :OLD_EMP_NO'
388	)
389	GeneratorField.Generator = 'EMP_NO_GEN'
390	GeneratorField.Field = 'EMP_NO'
391	GeneratorField.ApplyOnEvent = gaeOnNewRecord
392	GenerateParamNames = False
393	DataSetCloseAction = dcSaveChanges
394	AfterTransactionEnd = EmployeesAfterTransactionEnd
395	left = 496
396	top = 16
397	object EmployeesEMP_NO: TSmallintField
398	DisplayWidth = 10
399	FieldKind = fkData
400	FieldName = 'EMP_NO'
401	Index = 0
402	LookupCache = False
403	ProviderFlags = [pfInUpdate, pfInWhere]
404	ReadOnly = False
405	Required = True
406	end
407	object EmployeesFIRST_NAME: TIBStringField
408	DisplayWidth = 15
409	FieldKind = fkData
410	FieldName = 'FIRST_NAME'
411	Index = 1
412	LookupCache = False
413	ProviderFlags = [pfInUpdate, pfInWhere]
414	ReadOnly = False
415	Required = True
416	Size = 15
417	end
418	object EmployeesLAST_NAME: TIBStringField
419	DisplayWidth = 20
420	FieldKind = fkData
421	FieldName = 'LAST_NAME'
422	Index = 2
423	LookupCache = False
424	ProviderFlags = [pfInUpdate, pfInWhere]
425	ReadOnly = False
426	Required = True
427	end
428	object EmployeesPHONE_EXT: TIBStringField
429	Alignment = taRightJustify
430	DisplayWidth = 4
431	FieldKind = fkData
432	FieldName = 'PHONE_EXT'
433	Index = 3
434	LookupCache = False
435	ProviderFlags = [pfInUpdate, pfInWhere]
436	ReadOnly = False
437	Required = False
438	Size = 4
439	end
440	object EmployeesHIRE_DATE: TDateTimeField
441	DisplayWidth = 10
442	FieldKind = fkData
443	FieldName = 'HIRE_DATE'
444	Index = 4
445	LookupCache = False
446	ProviderFlags = [pfInUpdate, pfInWhere]
447	ReadOnly = False
448	Required = True
449	end
450	object EmployeesDEPT_NO: TIBStringField
451	DisplayWidth = 3
452	FieldKind = fkData
453	FieldName = 'DEPT_NO'
454	Index = 5
455	LookupCache = False
456	ProviderFlags = [pfInUpdate, pfInWhere]
457	ReadOnly = False
458	Required = True
459	Size = 3
460	end
461	object EmployeesJOB_CODE: TIBStringField
462	DisplayWidth = 5
463	FieldKind = fkData
464	FieldName = 'JOB_CODE'
465	Index = 6
466	LookupCache = False
467	ProviderFlags = [pfInUpdate, pfInWhere]
468	ReadOnly = False
469	Required = True
470	OnChange = EmployeesJOB_CODEChange
471	Size = 5
472	end
473	object EmployeesJOB_GRADE: TSmallintField
474	DisplayWidth = 10
475	FieldKind = fkData
476	FieldName = 'JOB_GRADE'
477	Index = 7
478	LookupCache = False
479	ProviderFlags = [pfInUpdate, pfInWhere]
480	ReadOnly = False
481	Required = True
482	OnChange = EmployeesJOB_GRADEChange
483	end
484	object EmployeesJOB_COUNTRY: TIBStringField
485	DisplayWidth = 15
486	FieldKind = fkData
487	FieldName = 'JOB_COUNTRY'
488	Index = 8
489	LookupCache = False
490	ProviderFlags = [pfInUpdate, pfInWhere]
491	ReadOnly = False
492	Required = True
493	Size = 15
494	end
495	object EmployeesSALARY: TIBBCDField
496	DisplayWidth = 18
497	FieldKind = fkData
498	FieldName = 'SALARY'
499	Index = 9
500	LookupCache = False
501	ProviderFlags = [pfInUpdate, pfInWhere]
502	ReadOnly = False
503	Required = True
504	OnGetText = EmployeesSALARYGetText
505	Precision = 18
506	Currency = False
507	MaxValue = 0
508	MinValue = 0
509	Size = 2
510	end
511	object EmployeesFULL_NAME: TIBStringField
512	DisplayWidth = 37
513	FieldKind = fkData
514	FieldName = 'FULL_NAME'
515	Index = 10
516	LookupCache = False
517	ProviderFlags = [pfInUpdate, pfInWhere]
518	ReadOnly = False
519	Required = False
520	OnChange = EmployeesFULL_NAMEChange
521	Size = 37
522	end
523	object EmployeesDEPT_PATH: TIBStringField
524	DisplayWidth = 256
525	FieldKind = fkData
526	FieldName = 'DEPT_PATH'
527	Index = 11
528	LookupCache = False
529	ProviderFlags = [pfInUpdate, pfInWhere]
530	ReadOnly = False
531	Required = True
532	Size = 256
533	end
534	object EmployeesDEPT_KEY_PATH: TIBStringField
535	DisplayWidth = 64
536	FieldKind = fkData
537	FieldName = 'DEPT_KEY_PATH'
538	Index = 12
539	LookupCache = False
540	ProviderFlags = [pfInUpdate, pfInWhere]
541	ReadOnly = False
542	Required = True
543	Size = 64
544	end
545	end
546	object EmployeeSource: TDataSource
547	DataSet = Employees
548	OnDataChange = EmployeeSourceDataChange
549	left = 462
550	top = 16
551	end
552	object ApplicationProperties1: TApplicationProperties
553	OnIdle = ApplicationProperties1Idle
554	left = 328
555	top = 56
556	end
557	object Countries: TIBQuery
558	AllowAutoActivateTransaction = False
559	Database = IBDatabase1
560	Transaction = IBTransaction1
561	BeforeOpen = CountriesBeforeOpen
562	BufferChunks = 1000
563	CachedUpdates = False
564	GenerateParamNames = False
565	GeneratorField.ApplyOnEvent = gaeOnNewRecord
566	SQL.Strings = (
567	'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
568	'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
569	'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE'
570	)
571	Params = <
572	item
573	DataType = ftUnknown
574	Name = 'JOB_CODE'
575	ParamType = ptInput
576	end
577	item
578	DataType = ftUnknown
579	Name = 'JOB_GRADE'
580	ParamType = ptInput
581	end>
582	DataSetCloseAction = dcDiscardChanges
583	left = 425
584	top = 56
585	ParamData = <
586	item
587	DataType = ftUnknown
588	Name = 'JOB_CODE'
589	ParamType = ptInput
590	end
591	item
592	DataType = ftUnknown
593	Name = 'JOB_GRADE'
594	ParamType = ptInput
595	end>
596	end
597	object CountriesSource: TDataSource
598	DataSet = Countries
599	left = 392
600	top = 58
601	end
602	object JobCodes: TIBQuery
603	AllowAutoActivateTransaction = False
604	Database = IBDatabase1
605	Transaction = IBTransaction1
606	BeforeOpen = JobCodesBeforeOpen
607	BufferChunks = 1000
608	CachedUpdates = False
609	GenerateParamNames = False
610	GeneratorField.ApplyOnEvent = gaeOnNewRecord
611	SQL.Strings = (
612	'Select distinct A.JOB_CODE, A.JOB_TITLE From JOB A'
613	'Where JOB_GRADE = :JOB_GRADE'
614	'order by 2'
615	)
616	Params = <
617	item
618	DataType = ftUnknown
619	Name = 'JOB_GRADE'
620	ParamType = ptInput
621	end>
622	DataSetCloseAction = dcDiscardChanges
623	left = 425
624	top = 18
625	ParamData = <
626	item
627	DataType = ftUnknown
628	Name = 'JOB_GRADE'
629	ParamType = ptInput
630	end>
631	end
632	object JobCodeSource: TDataSource
633	DataSet = JobCodes
634	left = 392
635	top = 18
636	end
637	end