Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (show annotations) (download)
Fri Jul 29 10:50:16 2016 UTC (7 years, 8 months ago) by yamat0jp
File size: 7274 byte(s)
IWDBGridが使いこなせるようになりつつあります
1 object DataModule3: TDataModule3
2 OldCreateOrder = False
3 Height = 333
4 Width = 314
5 object FDQuery1: TFDQuery
6 Connection = FDConnection1
7 SQL.Strings = (
8 'select number,id,email from order_data group by number;')
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 FilterOptions = [foCaseInsensitive]
62 IndexFieldNames = 'SERIAL'
63 Connection = FDConnection1
64 UpdateOptions.UpdateTableName = 'ITEM_DATA'
65 TableName = 'ITEM_DATA'
66 Left = 144
67 Top = 88
68 object FDTable2NAME: TWideStringField
69 FieldName = 'NAME'
70 Origin = 'NAME'
71 Size = 480
72 end
73 object FDTable2MAKER: TWideStringField
74 FieldName = 'MAKER'
75 Origin = 'MAKER'
76 Size = 480
77 end
78 object FDTable2STOCK: TIntegerField
79 FieldName = 'STOCK'
80 Origin = 'STOCK'
81 end
82 object FDTable2WEIGHT: TIntegerField
83 FieldName = 'WEIGHT'
84 Origin = 'WEIGHT'
85 end
86 object FDTable2DATE: TDateField
87 FieldName = 'DATE'
88 Origin = '"DATE"'
89 end
90 object FDTable2COMMENT: TWideMemoField
91 FieldName = 'COMMENT'
92 Origin = 'COMMENT'
93 BlobType = ftWideMemo
94 end
95 object FDTable2CATEGORY: TWideStringField
96 FieldName = 'CATEGORY'
97 Origin = 'CATEGORY'
98 Size = 80
99 end
100 object FDTable2IMAGE: TBlobField
101 FieldName = 'IMAGE'
102 Origin = 'IMAGE'
103 end
104 object FDTable2PRICE: TIntegerField
105 FieldName = 'PRICE'
106 Origin = 'PRICE'
107 Required = True
108 end
109 object FDTable2THUMBNAIL: TBlobField
110 FieldName = 'THUMBNAIL'
111 Origin = 'THUMBNAIL'
112 end
113 object FDTable2SERIAL: TIntegerField
114 FieldName = 'SERIAL'
115 Origin = 'SERIAL'
116 end
117 object FDTable2MASTER: TIntegerField
118 FieldName = 'MASTER'
119 Origin = 'MASTER'
120 end
121 end
122 object item: TDataSource
123 DataSet = FDTable2
124 Left = 144
125 Top = 144
126 end
127 object user: TDataSource
128 DataSet = FDTable1
129 Left = 64
130 Top = 144
131 end
132 object FDConnection1: TFDConnection
133 Params.Strings = (
134 'User_Name=sysdba'
135 'Password=masterkey'
136 'CharacterSet=UTF8'
137
138 'Database=C:\Users\yamat\Documents\Embarcadero\Studio\Projects\my' +
139 'app\zencart\Win32\Release\wwwroot\db\MYCART.GDB'
140 'DriverID=IB')
141 Connected = True
142 Left = 232
143 Top = 32
144 end
145 object FDTable3: TFDTable
146 Active = True
147 Connection = FDConnection1
148 UpdateOptions.UpdateTableName = 'FORM_DATA'
149 TableName = 'FORM_DATA'
150 Left = 240
151 Top = 88
152 object FDTable3NAME: TWideStringField
153 FieldName = 'NAME'
154 Origin = 'NAME'
155 Size = 80
156 end
157 object FDTable3BGCOLOR: TIntegerField
158 FieldName = 'BGCOLOR'
159 Origin = 'BGCOLOR'
160 end
161 object FDTable3MAILPASS: TWideStringField
162 FieldName = 'MAILPASS'
163 Origin = 'MAILPASS'
164 Size = 80
165 end
166 object FDTable3MAILUSER: TWideStringField
167 FieldName = 'MAILUSER'
168 Origin = 'MAILUSER'
169 Size = 80
170 end
171 object FDTable3MAILHOST: TWideStringField
172 FieldName = 'MAILHOST'
173 Origin = 'MAILHOST'
174 Size = 80
175 end
176 end
177 object form: TDataSource
178 DataSet = FDTable3
179 Left = 240
180 Top = 144
181 end
182 object FDTable5: TFDTable
183 Active = True
184 IndexFieldNames = 'ORDER'
185 MasterSource = order
186 MasterFields = 'ORDER'
187 Connection = FDConnection1
188 UpdateOptions.UpdateTableName = 'ITEM_INFO'
189 TableName = 'ITEM_INFO'
190 Left = 144
191 Top = 208
192 object FDTable5VOLUME: TIntegerField
193 FieldName = 'VOLUME'
194 Origin = 'VOLUME'
195 end
196 object FDTable5SERIAL: TIntegerField
197 FieldName = 'SERIAL'
198 Origin = 'SERIAL'
199 end
200 object FDTable5NAME: TWideStringField
201 FieldName = 'NAME'
202 Origin = 'NAME'
203 Size = 80
204 end
205 object FDTable5MAKER: TWideStringField
206 FieldName = 'MAKER'
207 Origin = 'MAKER'
208 Size = 80
209 end
210 object FDTable5PRICE: TIntegerField
211 FieldName = 'PRICE'
212 Origin = 'PRICE'
213 end
214 object FDTable5CHECKVALUE: TBooleanField
215 FieldName = 'CHECKVALUE'
216 Origin = 'CHECKVALUE'
217 end
218 object FDTable5KEYFIELD: TIntegerField
219 FieldName = 'KEYFIELD'
220 Origin = 'KEYFIELD'
221 end
222 object FDTable5ORDER: TIntegerField
223 FieldName = 'ORDER'
224 Origin = '"ORDER"'
225 end
226 end
227 object item_info: TDataSource
228 DataSet = FDTable5
229 Left = 144
230 Top = 264
231 end
232 object FDTable6: TFDTable
233 Active = True
234 IndexFieldNames = 'ORDER'
235 Connection = FDConnection1
236 UpdateOptions.UpdateTableName = 'ORDER_DATA'
237 TableName = 'ORDER_DATA'
238 Left = 240
239 Top = 208
240 object FDTable6NUMBER: TIntegerField
241 FieldName = 'NUMBER'
242 Origin = 'NUMBER'
243 end
244 object FDTable6ORDER: TIntegerField
245 FieldName = 'ORDER'
246 Origin = '"ORDER"'
247 end
248 object FDTable6DATE: TDateField
249 FieldName = 'DATE'
250 Origin = '"DATE"'
251 end
252 object FDTable6PRICE: TIntegerField
253 FieldName = 'PRICE'
254 Origin = 'PRICE'
255 end
256 object FDTable6LASTORDER: TDateField
257 FieldName = 'LASTORDER'
258 Origin = 'LASTORDER'
259 end
260 end
261 object order: TDataSource
262 DataSet = FDTable6
263 Left = 240
264 Top = 264
265 end
266 object FDTable4: TFDTable
267 Active = True
268 Connection = FDConnection1
269 UpdateOptions.UpdateTableName = 'USER_INFO'
270 TableName = 'USER_INFO'
271 Left = 64
272 Top = 208
273 object FDTable4NUMBER: TIntegerField
274 FieldName = 'NUMBER'
275 Origin = 'NUMBER'
276 end
277 object FDTable4ID: TWideStringField
278 FieldName = 'ID'
279 Origin = 'ID'
280 Size = 80
281 end
282 object FDTable4ADDRESS: TWideStringField
283 FieldName = 'ADDRESS'
284 Origin = 'ADDRESS'
285 Size = 480
286 end
287 object FDTable4EMAIL: TWideStringField
288 FieldName = 'EMAIL'
289 Origin = 'EMAIL'
290 Size = 480
291 end
292 end
293 end

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