Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (show annotations) (download)
Sat Aug 27 13:22:00 2016 UTC (7 years, 9 months ago) by yamat0jp
File size: 10663 byte(s)
暫く制作から離れたいのでコミット
データベースに追加したフィールドがありますメンテナンスフォームも一応表示できます
1 object DataModule3: TDataModule3
2 OldCreateOrder = False
3 Height = 333
4 Width = 428
5 object FDQuery1: TFDQuery
6 Connection = FDConnection1
7 SQL.Strings = (
8 '')
9 Left = 64
10 Top = 32
11 end
12 object FDTable1: TFDTable
13 Active = True
14 IndexFieldNames = 'NUMBER'
15 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 end
26 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 object FDTable1ADDRESS2: TWideStringField
41 FieldName = 'ADDRESS2'
42 Origin = 'ADDRESS2'
43 Size = 480
44 end
45 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 object FDTable1DATE: TDateField
55 FieldName = 'DATE'
56 Origin = '"DATE"'
57 end
58 end
59 object FDTable2: TFDTable
60 Active = True
61 Filtered = True
62 FilterOptions = [foCaseInsensitive]
63 IndexFieldNames = 'MASTER'
64 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 object FDTable2COMMENT: TWideMemoField
92 FieldName = 'COMMENT'
93 Origin = 'COMMENT'
94 BlobType = ftWideMemo
95 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 object FDTable2AGREE: TBooleanField
123 FieldName = 'AGREE'
124 Origin = 'AGREE'
125 end
126 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 'CharacterSet=UTF8'
142
143 'Database=C:\Users\yamat\Documents\Embarcadero\Studio\Projects\my' +
144 'app\zencart\Win32\Release\wwwroot\db\MYCART.GDB'
145 'DriverID=IB')
146 Connected = True
147 Left = 240
148 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 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 object FDTable3ENABLE: TBooleanField
182 FieldName = 'ENABLE'
183 Origin = 'ENABLE'
184 end
185 end
186 object form: TDataSource
187 DataSet = FDTable3
188 Left = 240
189 Top = 144
190 end
191 object FDTable5: TFDTable
192 Active = True
193 IndexFieldNames = 'ORDER'
194 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 object FDTable5CHECKVALUE: TBooleanField
220 FieldName = 'CHECKVALUE'
221 Origin = 'CHECKVALUE'
222 end
223 object FDTable5KEYFIELD: TIntegerField
224 FieldName = 'KEYFIELD'
225 Origin = 'KEYFIELD'
226 end
227 object FDTable5ORDER: TIntegerField
228 FieldName = 'ORDER'
229 Origin = '"ORDER"'
230 end
231 object FDTable5SERIAL: TIntegerField
232 FieldName = 'SERIAL'
233 Origin = 'SERIAL'
234 end
235 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 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 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 AfterInsert = FDTableViewAfterInsert
358 Filtered = True
359 Filter = 'agree = true'
360 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 object FDTableViewACTIVATE: TBooleanField
418 FieldName = 'ACTIVATE'
419 Origin = 'ACTIVATE'
420 end
421 object FDTableViewAGREE: TBooleanField
422 FieldName = 'AGREE'
423 Origin = 'AGREE'
424 end
425 end
426 object view: TDataSource
427 DataSet = FDTableView
428 Left = 144
429 Top = 32
430 end
431 end

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