Develop and Download Open Source Software

Browse Subversion Repository

Diff of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by yamat0jp, Fri Jul 22 23:40:03 2016 UTC revision 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC
# Line 1  Line 1 
1  object DataModule3: TDataModule3  object DataModule3: TDataModule3
2    OldCreateOrder = False    OldCreateOrder = False
3    Height = 250    Height = 350
4    Width = 314    Width = 314
5    object FDQuery1: TFDQuery    object FDQuery1: TFDQuery
6      Connection = FDConnection1      Connection = FDConnection1
7        SQL.Strings = (
8          'select number,id,email from order_data group by number;')
9      Left = 64      Left = 64
10      Top = 32      Top = 32
11    end    end
# Line 35  object DataModule3: TDataModule3 Line 37  object DataModule3: TDataModule3
37        Origin = 'ADDRESS'        Origin = 'ADDRESS'
38        Size = 480        Size = 480
39      end      end
40        object FDTable1ADDRESS2: TWideStringField
41          FieldName = 'ADDRESS2'
42          Origin = 'ADDRESS2'
43          Size = 480
44        end
45      object FDTable1PASSWORD: TWideStringField      object FDTable1PASSWORD: TWideStringField
46        FieldName = 'PASSWORD'        FieldName = 'PASSWORD'
47        Origin = '"PASSWORD"'        Origin = '"PASSWORD"'
# Line 172  object DataModule3: TDataModule3 Line 179  object DataModule3: TDataModule3
179      Left = 240      Left = 240
180      Top = 144      Top = 144
181    end    end
182      object FDTable4: TFDTable
183        Active = True
184        MasterSource = order
185        MasterFields = 'NUMBER'
186        Connection = FDConnection1
187        UpdateOptions.UpdateTableName = 'USER_INFO'
188        TableName = 'USER_INFO'
189        Left = 64
190        Top = 208
191        object FDTable4NUMBER: TIntegerField
192          FieldName = 'NUMBER'
193          Origin = 'NUMBER'
194        end
195        object FDTable4ID: TWideStringField
196          FieldName = 'ID'
197          Origin = 'ID'
198          Size = 80
199        end
200        object FDTable4ADDRESS: TWideStringField
201          FieldName = 'ADDRESS'
202          Origin = 'ADDRESS'
203          Size = 480
204        end
205        object FDTable4EMAIL: TWideStringField
206          FieldName = 'EMAIL'
207          Origin = 'EMAIL'
208          Size = 480
209        end
210        object FDTable4DATE: TDateField
211          FieldName = 'DATE'
212          Origin = '"DATE"'
213        end
214      end
215      object FDTable5: TFDTable
216        Active = True
217        MasterSource = order
218        MasterFields = 'ORDER'
219        Connection = FDConnection1
220        UpdateOptions.UpdateTableName = 'ITEM_INFO'
221        TableName = 'ITEM_INFO'
222        Left = 144
223        Top = 208
224        object FDTable5VOLUME: TIntegerField
225          FieldName = 'VOLUME'
226          Origin = 'VOLUME'
227        end
228        object FDTable5SERIAL: TIntegerField
229          FieldName = 'SERIAL'
230          Origin = 'SERIAL'
231        end
232        object FDTable5NAME: TWideStringField
233          FieldName = 'NAME'
234          Origin = 'NAME'
235          Size = 80
236        end
237        object FDTable5MAKER: TWideStringField
238          FieldName = 'MAKER'
239          Origin = 'MAKER'
240          Size = 80
241        end
242        object FDTable5PRICE: TIntegerField
243          FieldName = 'PRICE'
244          Origin = 'PRICE'
245        end
246        object FDTable5KEYFIELD: TIntegerField
247          FieldName = 'KEYFIELD'
248          Origin = 'KEYFIELD'
249        end
250        object FDTable5ORDER: TIntegerField
251          FieldName = 'ORDER'
252          Origin = '"ORDER"'
253        end
254      end
255      object user_info: TDataSource
256        DataSet = FDTable4
257        Left = 64
258        Top = 264
259      end
260      object item_info: TDataSource
261        DataSet = FDTable5
262        Left = 144
263        Top = 264
264      end
265      object FDTable6: TFDTable
266        Active = True
267        IndexFieldNames = 'ORDER'
268        Connection = FDConnection1
269        UpdateOptions.UpdateTableName = 'ORDER_DATA'
270        TableName = 'ORDER_DATA'
271        Left = 240
272        Top = 208
273        object FDTable6NUMBER: TIntegerField
274          FieldName = 'NUMBER'
275          Origin = 'NUMBER'
276        end
277        object FDTable6ORDER: TIntegerField
278          FieldName = 'ORDER'
279          Origin = '"ORDER"'
280        end
281        object FDTable6CHECKVALUE: TBooleanField
282          FieldName = 'CHECKVALUE'
283          Origin = 'CHECKVALUE'
284        end
285        object FDTable6DATE: TDateField
286          FieldName = 'DATE'
287          Origin = '"DATE"'
288        end
289        object FDTable6PRICE: TIntegerField
290          FieldName = 'PRICE'
291          Origin = 'PRICE'
292        end
293        object FDTable6LASTORDER: TDateField
294          FieldName = 'LASTORDER'
295          Origin = 'LASTORDER'
296        end
297      end
298      object order: TDataSource
299        DataSet = FDTable6
300        Left = 240
301        Top = 264
302      end
303  end  end

Legend:
Removed from v.11  
changed lines
  Added in v.12

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