8 |
|
ClientWidth = 1002 |
9 |
|
OnClose = FormClose |
10 |
|
OnShow = FormShow |
11 |
< |
LCLVersion = '1.4.0.1' |
11 |
> |
LCLVersion = '1.4.0.3' |
12 |
|
object Button1: TButton |
13 |
|
Left = 915 |
14 |
|
Height = 25 |
326 |
|
CancelCaption = 'Cancel' |
327 |
|
DateOrder = doNone |
328 |
|
ButtonWidth = 23 |
329 |
+ |
AutoSelect = False |
330 |
|
NumGlyphs = 1 |
331 |
|
MaxLength = 0 |
332 |
|
TabOrder = 3 |
518 |
|
object IBDatabase1: TIBDatabase |
519 |
|
Connected = False |
520 |
|
AllowStreamedConnected = False |
521 |
< |
DatabaseName = 'employee' |
521 |
> |
DatabaseName = 'localhost:employee' |
522 |
|
Params.Strings = ( |
523 |
|
'user_name=SYSDBA' |
524 |
|
'lc_ctype=UTF-8' |
595 |
|
'From EMPLOYEE' |
596 |
|
) |
597 |
|
Params = <> |
598 |
+ |
DataSetCloseAction = dcDiscardChanges |
599 |
|
left = 872 |
600 |
|
top = 376 |
601 |
|
object TotalsQueryTOTALSALARIES: TIBBCDField |
684 |
|
GeneratorField.Field = 'EMP_NO' |
685 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
686 |
|
GenerateParamNames = False |
687 |
+ |
DataSetCloseAction = dcSaveChanges |
688 |
|
AfterTransactionEnd = EmployeesAfterTransactionEnd |
689 |
+ |
OnValidatePost = EmployeesValidatePost |
690 |
|
left = 872 |
691 |
|
top = 336 |
692 |
|
object EmployeesEMP_NO: TSmallintField |
862 |
|
Name = 'JOB_GRADE' |
863 |
|
ParamType = ptInput |
864 |
|
end> |
865 |
+ |
DataSetCloseAction = dcDiscardChanges |
866 |
|
left = 872 |
867 |
|
top = 296 |
868 |
|
ParamData = < |
906 |
|
Name = 'JOB_GRADE' |
907 |
|
ParamType = ptInput |
908 |
|
end> |
909 |
+ |
DataSetCloseAction = dcDiscardChanges |
910 |
|
left = 872 |
911 |
|
top = 256 |
912 |
|
ParamData = < |
934 |
|
'Order by Upper(Department)' |
935 |
|
) |
936 |
|
Params = <> |
937 |
+ |
DataSetCloseAction = dcDiscardChanges |
938 |
|
left = 872 |
939 |
|
top = 210 |
940 |
|
end |