Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 15 - (hide annotations) (download)
Fri Aug 5 10:33:26 2016 UTC (7 years, 8 months ago) by yamat0jp
File size: 10117 byte(s)
TDataSetNotifyEventの切り替え方法がはっきりわかりませんでしたが適当に実装しました。
1 yamat0jp 2 object DataModule3: TDataModule3
2     OldCreateOrder = False
3 yamat0jp 14 Height = 333
4 yamat0jp 15 Width = 428
5 yamat0jp 2 object FDQuery1: TFDQuery
6     Connection = FDConnection1
7     Left = 64
8     Top = 32
9     end
10     object FDTable1: TFDTable
11     Active = True
12 yamat0jp 3 IndexFieldNames = 'NUMBER'
13 yamat0jp 2 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 yamat0jp 1 end
24 yamat0jp 2 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 yamat0jp 12 object FDTable1ADDRESS2: TWideStringField
39     FieldName = 'ADDRESS2'
40     Origin = 'ADDRESS2'
41     Size = 480
42     end
43 yamat0jp 2 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 yamat0jp 11 object FDTable1DATE: TDateField
53     FieldName = 'DATE'
54     Origin = '"DATE"'
55     end
56 yamat0jp 1 end
57 yamat0jp 2 object FDTable2: TFDTable
58     Active = True
59 yamat0jp 3 FilterOptions = [foCaseInsensitive]
60 yamat0jp 15 IndexFieldNames = 'MASTER'
61 yamat0jp 2 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 yamat0jp 4 object FDTable2COMMENT: TWideMemoField
89 yamat0jp 2 FieldName = 'COMMENT'
90     Origin = 'COMMENT'
91 yamat0jp 4 BlobType = ftWideMemo
92 yamat0jp 2 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 yamat0jp 11 'CharacterSet=UTF8'
135 yamat0jp 2
136 yamat0jp 11 'Database=C:\Users\yamat\Documents\Embarcadero\Studio\Projects\my' +
137     'app\zencart\Win32\Release\wwwroot\db\MYCART.GDB'
138 yamat0jp 2 'DriverID=IB')
139     Connected = True
140 yamat0jp 15 Left = 240
141 yamat0jp 2 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 yamat0jp 9 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 yamat0jp 2 end
175     object form: TDataSource
176     DataSet = FDTable3
177     Left = 240
178     Top = 144
179     end
180 yamat0jp 12 object FDTable5: TFDTable
181     Active = True
182 yamat0jp 13 IndexFieldNames = 'ORDER'
183 yamat0jp 12 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 yamat0jp 13 object FDTable5CHECKVALUE: TBooleanField
213     FieldName = 'CHECKVALUE'
214     Origin = 'CHECKVALUE'
215     end
216 yamat0jp 12 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 yamat0jp 14 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 yamat0jp 15 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 yamat0jp 1 end

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