ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbcontrolgrid/unit4.lfm
Revision: 23
Committed: Fri Mar 13 10:26:52 2015 UTC (9 years, 8 months ago) by tony
File size: 2295 byte(s)
Log Message:
Committing updates for Release R1-2-1

File Contents

# User Rev Content
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