Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


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

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