Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 8 - (hide annotations) (download)
Thu Dec 31 08:51:02 2015 UTC (8 years, 3 months ago) by yamat0jp
File size: 3861 byte(s)
退会できるようにしました 細かいところを手直し
無駄なコードやレイアウト、挙動部分。
1 yamat0jp 2 object DataModule3: TDataModule3
2     OldCreateOrder = False
3     Height = 250
4     Width = 314
5     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     object FDTable1PASSWORD: TWideStringField
39     FieldName = 'PASSWORD'
40     Origin = '"PASSWORD"'
41     Size = 80
42     end
43     object FDTable1NUMBER: TIntegerField
44     FieldName = 'NUMBER'
45     Origin = 'NUMBER'
46     end
47 yamat0jp 1 end
48 yamat0jp 2 object FDTable2: TFDTable
49     Active = True
50 yamat0jp 3 FilterOptions = [foCaseInsensitive]
51 yamat0jp 8 IndexFieldNames = 'SERIAL'
52 yamat0jp 2 Connection = FDConnection1
53     UpdateOptions.UpdateTableName = 'ITEM_DATA'
54     TableName = 'ITEM_DATA'
55     Left = 144
56     Top = 88
57     object FDTable2NAME: TWideStringField
58     FieldName = 'NAME'
59     Origin = 'NAME'
60     Size = 480
61     end
62     object FDTable2MAKER: TWideStringField
63     FieldName = 'MAKER'
64     Origin = 'MAKER'
65     Size = 480
66     end
67     object FDTable2STOCK: TIntegerField
68     FieldName = 'STOCK'
69     Origin = 'STOCK'
70     end
71     object FDTable2WEIGHT: TIntegerField
72     FieldName = 'WEIGHT'
73     Origin = 'WEIGHT'
74     end
75     object FDTable2DATE: TDateField
76     FieldName = 'DATE'
77     Origin = '"DATE"'
78     end
79 yamat0jp 4 object FDTable2COMMENT: TWideMemoField
80 yamat0jp 2 FieldName = 'COMMENT'
81     Origin = 'COMMENT'
82 yamat0jp 4 BlobType = ftWideMemo
83 yamat0jp 2 end
84     object FDTable2CATEGORY: TWideStringField
85     FieldName = 'CATEGORY'
86     Origin = 'CATEGORY'
87     Size = 80
88     end
89     object FDTable2IMAGE: TBlobField
90     FieldName = 'IMAGE'
91     Origin = 'IMAGE'
92     end
93     object FDTable2PRICE: TIntegerField
94     FieldName = 'PRICE'
95     Origin = 'PRICE'
96     Required = True
97     end
98     object FDTable2THUMBNAIL: TBlobField
99     FieldName = 'THUMBNAIL'
100     Origin = 'THUMBNAIL'
101     end
102     object FDTable2SERIAL: TIntegerField
103     FieldName = 'SERIAL'
104     Origin = 'SERIAL'
105     end
106     object FDTable2MASTER: TIntegerField
107     FieldName = 'MASTER'
108     Origin = 'MASTER'
109     end
110     end
111     object item: TDataSource
112     DataSet = FDTable2
113     Left = 144
114     Top = 144
115     end
116     object user: TDataSource
117     DataSet = FDTable1
118     Left = 64
119     Top = 144
120     end
121     object FDConnection1: TFDConnection
122     Params.Strings = (
123     'User_Name=sysdba'
124     'Password=masterkey'
125    
126     'Database=E:\fuke masasi\My App\zencart_clone\Win32\Release\wwwro' +
127     'ot\db\MYCART.GDB'
128 yamat0jp 4 'CharacterSet=UTF8'
129 yamat0jp 2 'DriverID=IB')
130     Connected = True
131     Left = 232
132     Top = 32
133     end
134     object FDTable3: TFDTable
135     Active = True
136     Connection = FDConnection1
137     UpdateOptions.UpdateTableName = 'FORM_DATA'
138     TableName = 'FORM_DATA'
139     Left = 240
140     Top = 88
141     object FDTable3NAME: TWideStringField
142     FieldName = 'NAME'
143     Origin = 'NAME'
144     Size = 80
145     end
146     object FDTable3BGCOLOR: TIntegerField
147     FieldName = 'BGCOLOR'
148     Origin = 'BGCOLOR'
149     end
150     end
151     object form: TDataSource
152     DataSet = FDTable3
153     Left = 240
154     Top = 144
155     end
156     object DataSource1: TDataSource
157     Left = 144
158     Top = 32
159     end
160 yamat0jp 1 end

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