| 8 |
|
ClientWidth = 658 |
| 9 |
|
OnClose = FormClose |
| 10 |
|
OnShow = FormShow |
| 11 |
< |
LCLVersion = '1.4.2.0' |
| 11 |
> |
LCLVersion = '1.6.0.4' |
| 12 |
|
object Label1: TLabel |
| 13 |
|
Left = 16 |
| 14 |
|
Height = 15 |
| 302 |
|
TabOrder = 4 |
| 303 |
|
end |
| 304 |
|
object IBDatabase1: TIBDatabase |
| 305 |
< |
Connected = False |
| 305 |
> |
Connected = True |
| 306 |
|
AllowStreamedConnected = False |
| 307 |
|
DatabaseName = 'localhost:employee' |
| 308 |
|
Params.Strings = ( |
| 312 |
|
DefaultTransaction = IBTransaction1 |
| 313 |
|
IdleTimer = 0 |
| 314 |
|
TraceFlags = [] |
| 315 |
+ |
UseDefaultSystemCodePage = False |
| 316 |
|
left = 328 |
| 317 |
|
top = 24 |
| 318 |
|
end |
| 372 |
|
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
| 373 |
|
'From EMPLOYEE A' |
| 374 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
| 375 |
+ |
'Order by 3 asc' |
| 376 |
|
) |
| 377 |
|
ModifySQL.Strings = ( |
| 378 |
|
'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' |
