Develop and Download Open Source Software

Browse Subversion Repository

Contents of /Unit5.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: 10913 byte(s)
IWDBGridが使いこなせるようになりつつあります
1 object AdminPage: TAdminPage
2 Left = 0
3 Top = 0
4 Width = 555
5 Height = 400
6 RenderInvisibleControls = False
7 AllowPageAccess = True
8 ConnectionMode = cmAny
9 OnCreate = IWAppFormCreate
10 Background.Fixed = False
11 LayoutMgr = IWTemplateProcessorHTML1
12 HandleTabs = False
13 LeftToRight = True
14 LockUntilLoaded = True
15 LockOnSubmit = True
16 ShowHint = True
17 XPTheme = True
18 DesignLeft = 8
19 DesignTop = 8
20 object IWButton1: TIWButton
21 Left = 136
22 Top = 312
23 Width = 75
24 Height = 25
25 Caption = #19968#35239
26 Color = clBtnFace
27 Font.Color = clNone
28 Font.Size = 10
29 Font.Style = []
30 FriendlyName = 'IWButton1'
31 TabOrder = 0
32 OnClick = IWButton1Click
33 end
34 object IWButton2: TIWButton
35 Left = 320
36 Top = 344
37 Width = 75
38 Height = 25
39 Caption = #32013#21697#26360
40 Color = clBtnFace
41 Font.Color = clNone
42 Font.Size = 10
43 Font.Style = []
44 FriendlyName = 'IWButton2'
45 TabOrder = 1
46 end
47 object IWButton3: TIWButton
48 Left = 392
49 Top = 344
50 Width = 75
51 Height = 25
52 Caption = #37197#36865#34920
53 Color = clBtnFace
54 Font.Color = clNone
55 Font.Size = 10
56 Font.Style = []
57 FriendlyName = 'IWButton3'
58 TabOrder = 2
59 end
60 object IWButton4: TIWButton
61 Left = 464
62 Top = 344
63 Width = 75
64 Height = 25
65 Caption = #25147#12427
66 Color = clBtnFace
67 Font.Color = clNone
68 Font.Size = 10
69 Font.Style = []
70 FriendlyName = 'IWButton4'
71 TabOrder = 3
72 OnClick = IWButton4Click
73 end
74 object IWCheckBox1: TIWCheckBox
75 Left = 224
76 Top = 173
77 Width = 121
78 Height = 21
79 Visible = False
80 Caption = 'IWCheckBox1'
81 Editable = True
82 Font.Color = clNone
83 Font.Size = 10
84 Font.Style = []
85 SubmitOnAsyncEvent = True
86 Style = stNormal
87 TabOrder = 4
88 Checked = False
89 FriendlyName = 'IWCheckBox1'
90 end
91 object IWDBLabel1: TIWDBLabel
92 Left = 239
93 Top = 78
94 Width = 13
95 Height = 16
96 Font.Color = clNone
97 Font.Size = 10
98 Font.Style = []
99 HasTabOrder = False
100 DataField = 'ID'
101 DataSource = user_info
102 FriendlyName = 'IWDBLabel1'
103 end
104 object IWDBLabel2: TIWDBLabel
105 Left = 128
106 Top = 61
107 Width = 60
108 Height = 16
109 Font.Color = clNone
110 Font.Size = 10
111 Font.Style = []
112 HasTabOrder = False
113 DataField = 'ADDRESS'
114 DataSource = user_info
115 FriendlyName = 'IWDBLabel2'
116 end
117 object IWDBGrid1: TIWDBGrid
118 Left = 352
119 Top = 13
120 Width = 200
121 Height = 109
122 BorderColors.Color = clNone
123 BorderColors.Light = clNone
124 BorderColors.Dark = clNone
125 BGColor = clNone
126 BorderSize = 1
127 BorderStyle = tfDefault
128 Caption = 'IWDBGrid1'
129 CellPadding = 0
130 CellSpacing = 0
131 Font.Color = clNone
132 Font.Size = 10
133 Font.Style = []
134 FrameBuffer = 40
135 Lines = tlAll
136 UseFrame = True
137 UseSize = True
138 ScrollToCurrentRow = False
139 Columns = <>
140 DataSource = user_info
141 FooterRowCount = 0
142 FriendlyName = 'IWDBGrid1'
143 FromStart = True
144 HighlightColor = clNone
145 HighlightRows = False
146 Options = [dgShowTitles]
147 RefreshMode = rmAutomatic
148 RowLimit = 0
149 RollOver = False
150 RowClick = False
151 RollOverColor = clNone
152 RowHeaderColor = clNone
153 RowAlternateColor = clNone
154 RowCurrentColor = clNone
155 TabOrder = -1
156 end
157 object IWDBNavigator1: TIWDBNavigator
158 Left = 239
159 Top = 296
160 Width = 120
161 Height = 28
162 Confirmations.Delete = 'Are you sure you want to delete this record?'
163 Confirmations.Post = 'Are you sure you want to update this record?'
164 Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
165 DataSource = user_info
166 FriendlyName = 'IWDBNavigator1'
167 ImageHeight = 24
168 ImageWidth = 24
169 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
170 Orientation = orHorizontal
171 OnFirst = IWDBNavigator1First
172 OnPrior = IWDBNavigator1Prior
173 OnNext = IWDBNavigator1Next
174 OnLast = IWDBNavigator1Last
175 end
176 object IWButton5: TIWButton
177 Left = 136
178 Top = 352
179 Width = 75
180 Height = 25
181 Caption = #25972#29702
182 Color = clBtnFace
183 Font.Color = clNone
184 Font.Size = 10
185 Font.Style = []
186 FriendlyName = 'IWButton5'
187 TabOrder = 6
188 OnClick = IWButton5Click
189 end
190 object IWDBGrid2: TIWDBGrid
191 Left = 128
192 Top = 128
193 Width = 300
194 Height = 150
195 BorderColors.Color = clNone
196 BorderColors.Light = clNone
197 BorderColors.Dark = clNone
198 BGColor = clNone
199 BorderSize = 1
200 BorderStyle = tfDefault
201 Caption = 'IWDBGrid2'
202 CellPadding = 0
203 CellSpacing = 0
204 Font.Color = clNone
205 Font.Size = 10
206 Font.Style = []
207 FrameBuffer = 40
208 Lines = tlAll
209 UseFrame = True
210 UseSize = True
211 ScrollToCurrentRow = False
212 Columns = <
213 item
214 Alignment = taLeftJustify
215 BGColor = clNone
216 DoSubmitValidation = True
217 Font.Color = clNone
218 Font.Size = 10
219 Font.Style = []
220 Header = False
221 Height = '0'
222 ShowHint = True
223 VAlign = vaMiddle
224 Visible = True
225 Width = '0'
226 Wrap = False
227 RawText = False
228 Css = ''
229 BlobCharLimit = 0
230 CompareHighlight = hcNone
231 DataField = 'ORDER'
232 Title.Alignment = taCenter
233 Title.BGColor = clNone
234 Title.DoSubmitValidation = True
235 Title.Font.Color = clNone
236 Title.Font.Size = 10
237 Title.Font.Style = []
238 Title.Header = False
239 Title.Height = '0'
240 Title.ShowHint = True
241 Title.Text = #26085#20184
242 Title.VAlign = vaMiddle
243 Title.Visible = True
244 Title.Width = '0'
245 Title.Wrap = False
246 Title.RawText = True
247 end
248 item
249 Alignment = taLeftJustify
250 BGColor = clNone
251 DoSubmitValidation = True
252 Font.Color = clNone
253 Font.Size = 10
254 Font.Style = []
255 Header = False
256 Height = '0'
257 ShowHint = True
258 VAlign = vaMiddle
259 Visible = True
260 Width = '0'
261 Wrap = False
262 RawText = False
263 Css = ''
264 BlobCharLimit = 0
265 CompareHighlight = hcNone
266 DataField = 'NAME'
267 Title.Alignment = taCenter
268 Title.BGColor = clNone
269 Title.DoSubmitValidation = True
270 Title.Font.Color = clNone
271 Title.Font.Size = 10
272 Title.Font.Style = []
273 Title.Header = False
274 Title.Height = '0'
275 Title.ShowHint = True
276 Title.Text = #12372#27880#25991
277 Title.VAlign = vaMiddle
278 Title.Visible = True
279 Title.Width = '0'
280 Title.Wrap = False
281 Title.RawText = True
282 end
283 item
284 Alignment = taLeftJustify
285 BGColor = clNone
286 DoSubmitValidation = True
287 Font.Color = clNone
288 Font.Size = 10
289 Font.Style = []
290 Header = False
291 Height = '0'
292 ShowHint = True
293 VAlign = vaMiddle
294 Visible = True
295 Width = '0'
296 Wrap = False
297 RawText = False
298 Css = ''
299 BlobCharLimit = 0
300 CompareHighlight = hcNone
301 DataField = 'MAKER'
302 Title.Alignment = taCenter
303 Title.BGColor = clNone
304 Title.DoSubmitValidation = True
305 Title.Font.Color = clNone
306 Title.Font.Size = 10
307 Title.Font.Style = []
308 Title.Header = False
309 Title.Height = '0'
310 Title.ShowHint = True
311 Title.Text = #12513#12540#12459#12540
312 Title.VAlign = vaMiddle
313 Title.Visible = True
314 Title.Width = '0'
315 Title.Wrap = False
316 Title.RawText = True
317 end
318 item
319 Alignment = taLeftJustify
320 BGColor = clNone
321 DoSubmitValidation = True
322 Font.Color = clNone
323 Font.Size = 10
324 Font.Style = []
325 Header = False
326 Height = '0'
327 ShowHint = True
328 VAlign = vaMiddle
329 Visible = True
330 Width = '0'
331 Wrap = False
332 RawText = False
333 Css = ''
334 BlobCharLimit = 0
335 CompareHighlight = hcNone
336 DataField = 'VOLUME'
337 Title.Alignment = taCenter
338 Title.BGColor = clNone
339 Title.DoSubmitValidation = True
340 Title.Font.Color = clNone
341 Title.Font.Size = 10
342 Title.Font.Style = []
343 Title.Header = False
344 Title.Height = '0'
345 Title.ShowHint = True
346 Title.Text = #20491#25968
347 Title.VAlign = vaMiddle
348 Title.Visible = True
349 Title.Width = '0'
350 Title.Wrap = False
351 Title.RawText = True
352 end
353 item
354 Alignment = taLeftJustify
355 BGColor = clNone
356 DoSubmitValidation = True
357 Font.Color = clNone
358 Font.Size = 10
359 Font.Style = []
360 Header = False
361 Height = '0'
362 ShowHint = True
363 VAlign = vaMiddle
364 Visible = True
365 Width = '0'
366 Wrap = False
367 RawText = False
368 Css = ''
369 BlobCharLimit = 0
370 CompareHighlight = hcNone
371 DataField = 'CHECKVALUE'
372 LinkField = 'CHECKVALUE'
373 Title.Alignment = taCenter
374 Title.BGColor = clNone
375 Title.DoSubmitValidation = True
376 Title.Font.Color = clNone
377 Title.Font.Size = 10
378 Title.Font.Style = []
379 Title.Header = False
380 Title.Height = '0'
381 Title.ShowHint = True
382 Title.Text = #30330#36865#28168#12415
383 Title.VAlign = vaMiddle
384 Title.Visible = True
385 Title.Width = '0'
386 Title.Wrap = False
387 Title.RawText = True
388 end>
389 DataSource = DataModule3.item_info
390 FooterRowCount = 0
391 FriendlyName = 'IWDBGrid2'
392 FromStart = True
393 HighlightColor = clNone
394 HighlightRows = False
395 Options = [dgShowTitles]
396 RefreshMode = rmAutomatic
397 RowLimit = 0
398 RollOver = False
399 RowClick = False
400 RollOverColor = clNone
401 RowHeaderColor = clNone
402 RowAlternateColor = clNone
403 RowCurrentColor = clNone
404 TabOrder = -1
405 end
406 object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
407 TagType = ttIntraWeb
408 Templates.Default = 'admin.htm'
409 Left = 264
410 Top = 200
411 end
412 object FDQuery1: TFDQuery
413 AfterScroll = FDQuery1AfterScroll
414 Connection = DataModule3.FDConnection1
415 SQL.Strings = (
416 'select id,address,email from order_data,user_info'
417 ' where order_data.number = user_info.number;')
418 Left = 456
419 Top = 192
420 end
421 object user_info: TDataSource
422 DataSet = FDQuery1
423 Left = 456
424 Top = 256
425 end
426 end

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