Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit3.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (show annotations) (download)
Sat Dec 26 07:30:17 2015 UTC (8 years, 3 months ago) by yamat0jp
File size: 3841 byte(s)
ユーザー登録フォームを作成

DataSetのFilter処理を正しいものに訂正


文字化け、画像表示に問題あり
1 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 IndexFieldNames = 'NUMBER'
13 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 end
24 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 end
48 object FDTable2: TFDTable
49 Active = True
50 FilterOptions = [foCaseInsensitive]
51 Connection = FDConnection1
52 UpdateOptions.UpdateTableName = 'ITEM_DATA'
53 TableName = 'ITEM_DATA'
54 Left = 144
55 Top = 88
56 object FDTable2NAME: TWideStringField
57 FieldName = 'NAME'
58 Origin = 'NAME'
59 Required = True
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 object FDTable2COMMENT: TMemoField
80 FieldName = 'COMMENT'
81 Origin = 'COMMENT'
82 BlobType = ftMemo
83 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 'DriverID=IB')
129 Connected = True
130 Left = 232
131 Top = 32
132 end
133 object FDTable3: TFDTable
134 Active = True
135 Connection = FDConnection1
136 UpdateOptions.UpdateTableName = 'FORM_DATA'
137 TableName = 'FORM_DATA'
138 Left = 240
139 Top = 88
140 object FDTable3NAME: TWideStringField
141 FieldName = 'NAME'
142 Origin = 'NAME'
143 Size = 80
144 end
145 object FDTable3BGCOLOR: TIntegerField
146 FieldName = 'BGCOLOR'
147 Origin = 'BGCOLOR'
148 end
149 end
150 object form: TDataSource
151 DataSet = FDTable3
152 Left = 240
153 Top = 144
154 end
155 object DataSource1: TDataSource
156 DataSet = FDQuery1
157 Left = 144
158 Top = 32
159 end
160 end

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