148 |
|
end |
149 |
|
end |
150 |
|
object IBDatabase1: TIBDatabase |
151 |
< |
Connected = True |
151 |
> |
Connected = False |
152 |
|
AfterConnect = IBDatabase1AfterConnect |
153 |
|
CreateIfNotExists = False |
154 |
|
AllowStreamedConnected = False |
172 |
|
'rec_version' |
173 |
|
'nowait' |
174 |
|
) |
175 |
< |
left = 232 |
175 |
> |
left = 272 |
176 |
|
top = 24 |
177 |
|
end |
178 |
|
object Depts: TIBTable |
189 |
|
IndexFieldNames = 'DEPT_NO' |
190 |
|
ReadOnly = True |
191 |
|
TableName = 'DEPARTMENT' |
192 |
< |
left = 314 |
192 |
> |
left = 424 |
193 |
|
top = 24 |
194 |
|
object DeptsDEPT_NO: TIBStringField |
195 |
|
DisplayWidth = 3 |
273 |
|
end |
274 |
|
object DataSource2: TDataSource |
275 |
|
DataSet = Depts |
276 |
< |
left = 272 |
276 |
> |
left = 360 |
277 |
|
top = 24 |
278 |
|
end |
279 |
|
object Datasource1: TDataSource |
280 |
|
DataSet = Employees |
281 |
< |
left = 368 |
281 |
> |
left = 496 |
282 |
|
top = 24 |
283 |
|
end |
284 |
|
object Employees: TIBTable |
296 |
|
MasterFields = 'DEPT_NO' |
297 |
|
MasterSource = DataSource2 |
298 |
|
TableName = 'EMPLOYEE' |
299 |
< |
left = 416 |
299 |
> |
left = 576 |
300 |
|
top = 24 |
301 |
|
object EmployeesEMP_NO: TSmallintField |
302 |
|
DisplayWidth = 10 |