1 |
tony |
23 |
object EditLocation: TEditLocation |
2 |
|
|
Left = 248 |
3 |
|
|
Height = 102 |
4 |
|
|
Top = 170 |
5 |
|
|
Width = 336 |
6 |
|
|
BorderStyle = bsDialog |
7 |
|
|
Caption = 'Edit Location' |
8 |
|
|
ClientHeight = 102 |
9 |
|
|
ClientWidth = 336 |
10 |
|
|
OnClose = FormClose |
11 |
|
|
OnShow = FormShow |
12 |
|
|
Position = poMainFormCenter |
13 |
|
|
LCLVersion = '1.4.0.2' |
14 |
|
|
object Bevel1: TBevel |
15 |
|
|
Left = 8 |
16 |
|
|
Height = 70 |
17 |
|
|
Top = 11 |
18 |
|
|
Width = 227 |
19 |
|
|
end |
20 |
|
|
object IBLookupComboEditBox2: TIBLookupComboEditBox |
21 |
|
|
Left = 24 |
22 |
|
|
Height = 25 |
23 |
|
|
Top = 24 |
24 |
|
|
Width = 192 |
25 |
|
|
Anchors = [akTop, akLeft, akRight] |
26 |
|
|
AutoSize = False |
27 |
|
|
KeyField = 'COUNTRY' |
28 |
|
|
ListField = 'COUNTRY' |
29 |
|
|
ListFieldIndex = 0 |
30 |
|
|
ListSource = CountrySource |
31 |
|
|
LookupCache = False |
32 |
|
|
Style = csDropDownList |
33 |
|
|
TabOrder = 0 |
34 |
|
|
AutoInsert = False |
35 |
|
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
36 |
|
|
ItemHeight = 0 |
37 |
|
|
end |
38 |
|
|
object Button1: TButton |
39 |
|
|
Left = 248 |
40 |
|
|
Height = 25 |
41 |
|
|
Top = 8 |
42 |
|
|
Width = 75 |
43 |
|
|
Caption = 'OK' |
44 |
|
|
Default = True |
45 |
|
|
ModalResult = 1 |
46 |
|
|
TabOrder = 1 |
47 |
|
|
end |
48 |
|
|
object Button2: TButton |
49 |
|
|
Left = 248 |
50 |
|
|
Height = 25 |
51 |
|
|
Top = 40 |
52 |
|
|
Width = 75 |
53 |
|
|
Cancel = True |
54 |
|
|
Caption = 'Cancel' |
55 |
|
|
ModalResult = 2 |
56 |
|
|
TabOrder = 2 |
57 |
|
|
end |
58 |
|
|
object Countries: TIBQuery |
59 |
|
|
Database = Form1.IBDatabase1 |
60 |
|
|
Transaction = Form1.IBTransaction1 |
61 |
|
|
AfterOpen = CountriesAfterOpen |
62 |
|
|
BeforeOpen = CountriesBeforeOpen |
63 |
|
|
BufferChunks = 1000 |
64 |
|
|
CachedUpdates = False |
65 |
|
|
GenerateParamNames = False |
66 |
|
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
67 |
|
|
SQL.Strings = ( |
68 |
|
|
'Select A.COUNTRY, A.CURRENCY From COUNTRY A' |
69 |
|
|
'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY' |
70 |
|
|
'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE' |
71 |
|
|
'Order by 1' |
72 |
|
|
) |
73 |
|
|
Params = < |
74 |
|
|
item |
75 |
|
|
DataType = ftUnknown |
76 |
|
|
Name = 'JOB_CODE' |
77 |
|
|
ParamType = ptInput |
78 |
|
|
end |
79 |
|
|
item |
80 |
|
|
DataType = ftUnknown |
81 |
|
|
Name = 'JOB_GRADE' |
82 |
|
|
ParamType = ptInput |
83 |
|
|
end> |
84 |
|
|
left = 288 |
85 |
|
|
top = 72 |
86 |
|
|
ParamData = < |
87 |
|
|
item |
88 |
|
|
DataType = ftUnknown |
89 |
|
|
Name = 'JOB_CODE' |
90 |
|
|
ParamType = ptInput |
91 |
|
|
end |
92 |
|
|
item |
93 |
|
|
DataType = ftUnknown |
94 |
|
|
Name = 'JOB_GRADE' |
95 |
|
|
ParamType = ptInput |
96 |
|
|
end> |
97 |
|
|
end |
98 |
|
|
object CountrySource: TDataSource |
99 |
|
|
DataSet = Countries |
100 |
|
|
left = 248 |
101 |
|
|
top = 74 |
102 |
|
|
end |
103 |
|
|
end |