ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibgeneratoreditor.lfm
Revision: 80
Committed: Mon Jan 1 11:31:07 2018 UTC (6 years, 2 months ago) by tony
File size: 4751 byte(s)
Log Message:
Fixes merged into public release

File Contents

# Content
1 object GeneratorEditor: TGeneratorEditor
2 Left = 334
3 Height = 374
4 Top = 239
5 Width = 478
6 ActiveControl = Button1
7 Caption = 'Define Generator'
8 ClientHeight = 374
9 ClientWidth = 478
10 OnClose = FormClose
11 OnShow = FormShow
12 Position = poScreenCenter
13 LCLVersion = '1.8.1.0'
14 object Bevel1: TBevel
15 Left = 16
16 Height = 336
17 Top = 16
18 Width = 355
19 end
20 object Label1: TLabel
21 Left = 32
22 Height = 14
23 Top = 40
24 Width = 99
25 Caption = 'Generator Name'
26 ParentColor = False
27 end
28 object Label2: TLabel
29 Left = 32
30 Height = 14
31 Top = 192
32 Width = 66
33 Caption = 'Field Name'
34 ParentColor = False
35 end
36 object Label3: TLabel
37 Left = 35
38 Height = 14
39 Top = 269
40 Width = 82
41 Caption = 'Increment By'
42 ParentColor = False
43 end
44 object Button1: TButton
45 Left = 392
46 Height = 30
47 Top = 24
48 Width = 75
49 Caption = 'OK'
50 Default = True
51 ModalResult = 1
52 TabOrder = 0
53 end
54 object Button2: TButton
55 Left = 392
56 Height = 30
57 Top = 64
58 Width = 75
59 Cancel = True
60 Caption = 'Cancel'
61 ModalResult = 2
62 TabOrder = 1
63 end
64 object OnNewRecord: TRadioButton
65 Left = 38
66 Height = 22
67 Top = 112
68 Width = 116
69 Caption = 'On New Record'
70 Checked = True
71 TabOrder = 2
72 TabStop = True
73 end
74 object OnPost: TRadioButton
75 Left = 38
76 Height = 22
77 Top = 144
78 Width = 70
79 Caption = 'On Post'
80 TabOrder = 3
81 end
82 object IncrementBy: TEdit
83 Left = 39
84 Height = 24
85 Top = 292
86 Width = 52
87 TabOrder = 4
88 Text = 'IncrementBy'
89 end
90 object UpDown1: TUpDown
91 Left = 91
92 Height = 24
93 Top = 292
94 Width = 17
95 Associate = IncrementBy
96 Min = 0
97 Position = 0
98 TabOrder = 5
99 Wrap = False
100 end
101 object GeneratorNames: TIBLookupComboEditBox
102 Left = 33
103 Height = 27
104 Top = 56
105 Width = 313
106 OwnerDrawEditable = False
107 KeyField = 'RDB$GENERATOR_NAME'
108 ListField = 'RDB$GENERATOR_NAME'
109 ListFieldIndex = 0
110 ListSource = GeneratorSource
111 LookupCache = False
112 ScrollListDataset = True
113 TabOrder = 6
114 AutoInsert = False
115 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116 ItemHeight = 0
117 end
118 object FieldNames: TIBLookupComboEditBox
119 Left = 33
120 Height = 27
121 Top = 208
122 Width = 303
123 OwnerDrawEditable = False
124 KeyField = 'ColumnName'
125 ListField = 'ColumnName'
126 ListFieldIndex = 0
127 ListSource = PrimaryKeySource
128 LookupCache = False
129 ScrollListDataset = True
130 TabOrder = 7
131 AutoInsert = False
132 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
133 ItemHeight = 0
134 end
135 object SQLTransaction: TIBTransaction
136 Active = False
137 Params.Strings = (
138 'read'
139 'consistency'
140 )
141 left = 400
142 top = 264
143 end
144 object GeneratorQuery: TIBQuery
145 AllowAutoActivateTransaction = False
146 Transaction = SQLTransaction
147 BufferChunks = 1000
148 CachedUpdates = False
149 GenerateParamNames = False
150 GeneratorField.ApplyOnEvent = gaeOnNewRecord
151 SQL.Strings = (
152 'Select RDB$GENERATOR_NAME FROM RDB$GENERATORS '
153 'Where RDB$SYSTEM_FLAG = 0'
154 'Order by 1 asc'
155 )
156 Params = <>
157 DataSetCloseAction = dcDiscardChanges
158 left = 269
159 top = 322
160 end
161 object GeneratorSource: TDataSource
162 DataSet = GeneratorQuery
163 left = 176
164 top = 322
165 end
166 object PrimaryKeys: TIBQuery
167 AllowAutoActivateTransaction = False
168 Transaction = SQLTransaction
169 BeforeOpen = PrimaryKeysBeforeOpen
170 BufferChunks = 1000
171 CachedUpdates = False
172 GenerateParamNames = False
173 GeneratorField.ApplyOnEvent = gaeOnNewRecord
174 SQL.Strings = (
175 'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
176 'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
177 'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
178 'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
179 '= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
180 '''PRIMARY KEY'' and RDB$RELATION_NAME = '
181 ':RDB$RELATION_NAME'
182 )
183 Params = <
184 item
185 DataType = ftUnknown
186 Name = 'RDB$RELATION_NAME'
187 ParamType = ptInput
188 end>
189 DataSetCloseAction = dcDiscardChanges
190 left = 269
191 top = 264
192 ParamData = <
193 item
194 DataType = ftUnknown
195 Name = 'RDB$RELATION_NAME'
196 ParamType = ptInput
197 end>
198 end
199 object PrimaryKeySource: TDataSource
200 DataSet = PrimaryKeys
201 left = 160
202 top = 264
203 end
204 object IdentifyStatementSQL: TIBSQL
205 GenerateParamNames = False
206 UniqueParamNames = False
207 ParamCheck = True
208 Transaction = SQLTransaction
209 left = 400
210 top = 192
211 end
212 end