Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 15 - (show annotations) (download)
Fri Aug 5 10:33:26 2016 UTC (7 years, 8 months ago) by yamat0jp
File size: 10117 byte(s)
TDataSetNotifyEventの切り替え方法がはっきりわかりませんでしたが適当に実装しました。
1 object DataModule3: TDataModule3
2 OldCreateOrder = False
3 Height = 333
4 Width = 428
5 object FDQuery1: TFDQuery
6 Connection = FDConnection1
7 Left = 64
8 Top = 32
9 end
10 object FDTable1: TFDTable
11 Active = True
12 IndexFieldNames = 'NUMBER'
13 Connection = FDConnection1
14 UpdateOptions.UpdateTableName = 'USER_DATA'
15 TableName = 'USER_DATA'
16 Left = 64
17 Top = 88
18 object FDTable1NAME: TWideStringField
19 FieldName = 'NAME'
20 Origin = 'NAME'
21 Required = True
22 Size = 80
23 end
24 object FDTable1EMAIL: TWideStringField
25 FieldName = 'EMAIL'
26 Origin = 'EMAIL'
27 Size = 80
28 end
29 object FDTable1BIRTH: TDateField
30 FieldName = 'BIRTH'
31 Origin = 'BIRTH'
32 end
33 object FDTable1ADDRESS: TWideStringField
34 FieldName = 'ADDRESS'
35 Origin = 'ADDRESS'
36 Size = 480
37 end
38 object FDTable1ADDRESS2: TWideStringField
39 FieldName = 'ADDRESS2'
40 Origin = 'ADDRESS2'
41 Size = 480
42 end
43 object FDTable1PASSWORD: TWideStringField
44 FieldName = 'PASSWORD'
45 Origin = '"PASSWORD"'
46 Size = 80
47 end
48 object FDTable1NUMBER: TIntegerField
49 FieldName = 'NUMBER'
50 Origin = 'NUMBER'
51 end
52 object FDTable1DATE: TDateField
53 FieldName = 'DATE'
54 Origin = '"DATE"'
55 end
56 end
57 object FDTable2: TFDTable
58 Active = True
59 FilterOptions = [foCaseInsensitive]
60 IndexFieldNames = 'MASTER'
61 Connection = FDConnection1
62 UpdateOptions.UpdateTableName = 'ITEM_DATA'
63 TableName = 'ITEM_DATA'
64 Left = 144
65 Top = 88
66 object FDTable2NAME: TWideStringField
67 FieldName = 'NAME'
68 Origin = 'NAME'
69 Size = 480
70 end
71 object FDTable2MAKER: TWideStringField
72 FieldName = 'MAKER'
73 Origin = 'MAKER'
74 Size = 480
75 end
76 object FDTable2STOCK: TIntegerField
77 FieldName = 'STOCK'
78 Origin = 'STOCK'
79 end
80 object FDTable2WEIGHT: TIntegerField
81 FieldName = 'WEIGHT'
82 Origin = 'WEIGHT'
83 end
84 object FDTable2DATE: TDateField
85 FieldName = 'DATE'
86 Origin = '"DATE"'
87 end
88 object FDTable2COMMENT: TWideMemoField
89 FieldName = 'COMMENT'
90 Origin = 'COMMENT'
91 BlobType = ftWideMemo
92 end
93 object FDTable2CATEGORY: TWideStringField
94 FieldName = 'CATEGORY'
95 Origin = 'CATEGORY'
96 Size = 80
97 end
98 object FDTable2IMAGE: TBlobField
99 FieldName = 'IMAGE'
100 Origin = 'IMAGE'
101 end
102 object FDTable2PRICE: TIntegerField
103 FieldName = 'PRICE'
104 Origin = 'PRICE'
105 Required = True
106 end
107 object FDTable2THUMBNAIL: TBlobField
108 FieldName = 'THUMBNAIL'
109 Origin = 'THUMBNAIL'
110 end
111 object FDTable2SERIAL: TIntegerField
112 FieldName = 'SERIAL'
113 Origin = 'SERIAL'
114 end
115 object FDTable2MASTER: TIntegerField
116 FieldName = 'MASTER'
117 Origin = 'MASTER'
118 end
119 end
120 object item: TDataSource
121 DataSet = FDTable2
122 Left = 144
123 Top = 144
124 end
125 object user: TDataSource
126 DataSet = FDTable1
127 Left = 64
128 Top = 144
129 end
130 object FDConnection1: TFDConnection
131 Params.Strings = (
132 'User_Name=sysdba'
133 'Password=masterkey'
134 'CharacterSet=UTF8'
135
136 'Database=C:\Users\yamat\Documents\Embarcadero\Studio\Projects\my' +
137 'app\zencart\Win32\Release\wwwroot\db\MYCART.GDB'
138 'DriverID=IB')
139 Connected = True
140 Left = 240
141 Top = 32
142 end
143 object FDTable3: TFDTable
144 Active = True
145 Connection = FDConnection1
146 UpdateOptions.UpdateTableName = 'FORM_DATA'
147 TableName = 'FORM_DATA'
148 Left = 240
149 Top = 88
150 object FDTable3NAME: TWideStringField
151 FieldName = 'NAME'
152 Origin = 'NAME'
153 Size = 80
154 end
155 object FDTable3BGCOLOR: TIntegerField
156 FieldName = 'BGCOLOR'
157 Origin = 'BGCOLOR'
158 end
159 object FDTable3MAILPASS: TWideStringField
160 FieldName = 'MAILPASS'
161 Origin = 'MAILPASS'
162 Size = 80
163 end
164 object FDTable3MAILUSER: TWideStringField
165 FieldName = 'MAILUSER'
166 Origin = 'MAILUSER'
167 Size = 80
168 end
169 object FDTable3MAILHOST: TWideStringField
170 FieldName = 'MAILHOST'
171 Origin = 'MAILHOST'
172 Size = 80
173 end
174 end
175 object form: TDataSource
176 DataSet = FDTable3
177 Left = 240
178 Top = 144
179 end
180 object FDTable5: TFDTable
181 Active = True
182 IndexFieldNames = 'ORDER'
183 MasterSource = order
184 MasterFields = 'ORDER'
185 Connection = FDConnection1
186 UpdateOptions.UpdateTableName = 'ITEM_INFO'
187 TableName = 'ITEM_INFO'
188 Left = 144
189 Top = 208
190 object FDTable5VOLUME: TIntegerField
191 FieldName = 'VOLUME'
192 Origin = 'VOLUME'
193 end
194 object FDTable5SERIAL: TIntegerField
195 FieldName = 'SERIAL'
196 Origin = 'SERIAL'
197 end
198 object FDTable5NAME: TWideStringField
199 FieldName = 'NAME'
200 Origin = 'NAME'
201 Size = 80
202 end
203 object FDTable5MAKER: TWideStringField
204 FieldName = 'MAKER'
205 Origin = 'MAKER'
206 Size = 80
207 end
208 object FDTable5PRICE: TIntegerField
209 FieldName = 'PRICE'
210 Origin = 'PRICE'
211 end
212 object FDTable5CHECKVALUE: TBooleanField
213 FieldName = 'CHECKVALUE'
214 Origin = 'CHECKVALUE'
215 end
216 object FDTable5KEYFIELD: TIntegerField
217 FieldName = 'KEYFIELD'
218 Origin = 'KEYFIELD'
219 end
220 object FDTable5ORDER: TIntegerField
221 FieldName = 'ORDER'
222 Origin = '"ORDER"'
223 end
224 end
225 object item_info: TDataSource
226 DataSet = FDTable5
227 Left = 144
228 Top = 264
229 end
230 object FDTable6: TFDTable
231 Active = True
232 IndexFieldNames = 'ORDER'
233 Connection = FDConnection1
234 UpdateOptions.UpdateTableName = 'ORDER_DATA'
235 TableName = 'ORDER_DATA'
236 Left = 240
237 Top = 208
238 object FDTable6NUMBER: TIntegerField
239 FieldName = 'NUMBER'
240 Origin = 'NUMBER'
241 end
242 object FDTable6ORDER: TIntegerField
243 FieldName = 'ORDER'
244 Origin = '"ORDER"'
245 end
246 object FDTable6DATE: TDateField
247 FieldName = 'DATE'
248 Origin = '"DATE"'
249 end
250 object FDTable6PRICE: TIntegerField
251 FieldName = 'PRICE'
252 Origin = 'PRICE'
253 end
254 object FDTable6LASTORDER: TDateField
255 FieldName = 'LASTORDER'
256 Origin = 'LASTORDER'
257 end
258 end
259 object order: TDataSource
260 DataSet = FDTable6
261 Left = 240
262 Top = 264
263 end
264 object FDTable4: TFDTable
265 Active = True
266 Connection = FDConnection1
267 UpdateOptions.UpdateTableName = 'USER_INFO'
268 TableName = 'USER_INFO'
269 Left = 64
270 Top = 208
271 object FDTable4NUMBER: TIntegerField
272 FieldName = 'NUMBER'
273 Origin = 'NUMBER'
274 end
275 object FDTable4ID: TWideStringField
276 FieldName = 'ID'
277 Origin = 'ID'
278 Size = 80
279 end
280 object FDTable4ADDRESS: TWideStringField
281 FieldName = 'ADDRESS'
282 Origin = 'ADDRESS'
283 Size = 480
284 end
285 object FDTable4EMAIL: TWideStringField
286 FieldName = 'EMAIL'
287 Origin = 'EMAIL'
288 Size = 480
289 end
290 end
291 object FDTransaction1: TFDTransaction
292 Connection = FDConnection1
293 Left = 336
294 Top = 248
295 end
296 object FDTable7: TFDTable
297 Active = True
298 Filtered = True
299 Connection = FDConnection1
300 UpdateOptions.UpdateTableName = 'ADMINCODE'
301 TableName = 'ADMINCODE'
302 Left = 336
303 Top = 88
304 object FDTable7NAME: TWideStringField
305 FieldName = 'NAME'
306 Origin = 'NAME'
307 Size = 80
308 end
309 object FDTable7NUMBER: TIntegerField
310 FieldName = 'NUMBER'
311 Origin = 'NUMBER'
312 end
313 object FDTable7EMAIL: TWideStringField
314 FieldName = 'EMAIL'
315 Origin = 'EMAIL'
316 Size = 480
317 end
318 object FDTable7BANK: TWideStringField
319 FieldName = 'BANK'
320 Origin = 'BANK'
321 Size = 80
322 end
323 object FDTable7TEL: TWideStringField
324 FieldName = 'TEL'
325 Origin = 'TEL'
326 Size = 80
327 end
328 object FDTable7ADDRESS: TWideStringField
329 FieldName = 'ADDRESS'
330 Origin = 'ADDRESS'
331 Size = 480
332 end
333 object FDTable7PASSWORD: TWideStringField
334 FieldName = 'PASSWORD'
335 Origin = '"PASSWORD"'
336 Size = 480
337 end
338 end
339 object DataSource1: TDataSource
340 DataSet = FDTable7
341 Left = 336
342 Top = 144
343 end
344 object FDTableView: TFDTable
345 Active = True
346 Filtered = True
347 Connection = FDConnection1
348 UpdateOptions.UpdateTableName = '"VIEW"'
349 TableName = '"VIEW"'
350 Left = 336
351 Top = 32
352 object FDTableViewNAME: TWideStringField
353 FieldName = 'NAME'
354 Origin = 'NAME'
355 Size = 480
356 end
357 object FDTableViewMAKER: TWideStringField
358 FieldName = 'MAKER'
359 Origin = 'MAKER'
360 Size = 480
361 end
362 object FDTableViewSTOCK: TIntegerField
363 FieldName = 'STOCK'
364 Origin = 'STOCK'
365 end
366 object FDTableViewWEIGHT: TIntegerField
367 FieldName = 'WEIGHT'
368 Origin = 'WEIGHT'
369 end
370 object FDTableViewDATE: TDateField
371 FieldName = 'DATE'
372 Origin = '"DATE"'
373 end
374 object FDTableViewCATEGORY: TWideStringField
375 FieldName = 'CATEGORY'
376 Origin = 'CATEGORY'
377 Size = 80
378 end
379 object FDTableViewTHUMBNAIL: TBlobField
380 FieldName = 'THUMBNAIL'
381 Origin = 'THUMBNAIL'
382 end
383 object FDTableViewIMAGE: TBlobField
384 FieldName = 'IMAGE'
385 Origin = 'IMAGE'
386 end
387 object FDTableViewPRICE: TIntegerField
388 FieldName = 'PRICE'
389 Origin = 'PRICE'
390 end
391 object FDTableViewCOMMENT: TWideMemoField
392 FieldName = 'COMMENT'
393 Origin = 'COMMENT'
394 BlobType = ftWideMemo
395 end
396 object FDTableViewMASTER: TIntegerField
397 FieldName = 'MASTER'
398 Origin = 'MASTER'
399 end
400 object FDTableViewSERIAL: TIntegerField
401 FieldName = 'SERIAL'
402 Origin = 'SERIAL'
403 end
404 end
405 object view: TDataSource
406 DataSet = FDTableView
407 Left = 144
408 Top = 32
409 end
410 end

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26