Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /Unit5.dfm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (hide annotations) (download)
Fri Jul 29 10:50:16 2016 UTC (7 years, 8 months ago) by yamat0jp
File size: 10913 byte(s)
IWDBGridが使いこなせるようになりつつあります
1 yamat0jp 12 object AdminPage: TAdminPage
2 yamat0jp 1 Left = 0
3     Top = 0
4     Width = 555
5     Height = 400
6     RenderInvisibleControls = False
7     AllowPageAccess = True
8     ConnectionMode = cmAny
9 yamat0jp 10 OnCreate = IWAppFormCreate
10 yamat0jp 1 Background.Fixed = False
11 yamat0jp 12 LayoutMgr = IWTemplateProcessorHTML1
12 yamat0jp 1 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 yamat0jp 13 Caption = #19968#35239
26 yamat0jp 1 Color = clBtnFace
27     Font.Color = clNone
28     Font.Size = 10
29     Font.Style = []
30     FriendlyName = 'IWButton1'
31     TabOrder = 0
32 yamat0jp 10 OnClick = IWButton1Click
33 yamat0jp 1 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 yamat0jp 10 OnClick = IWButton4Click
73 yamat0jp 1 end
74 yamat0jp 13 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 yamat0jp 14 Left = 239
93 yamat0jp 13 Top = 78
94     Width = 13
95 yamat0jp 10 Height = 16
96     Font.Color = clNone
97     Font.Size = 10
98     Font.Style = []
99     HasTabOrder = False
100 yamat0jp 13 DataField = 'ID'
101 yamat0jp 14 DataSource = user_info
102 yamat0jp 13 FriendlyName = 'IWDBLabel1'
103 yamat0jp 10 end
104 yamat0jp 13 object IWDBLabel2: TIWDBLabel
105 yamat0jp 10 Left = 128
106 yamat0jp 13 Top = 61
107     Width = 60
108 yamat0jp 10 Height = 16
109     Font.Color = clNone
110     Font.Size = 10
111     Font.Style = []
112     HasTabOrder = False
113 yamat0jp 13 DataField = 'ADDRESS'
114 yamat0jp 14 DataSource = user_info
115 yamat0jp 13 FriendlyName = 'IWDBLabel2'
116 yamat0jp 10 end
117 yamat0jp 13 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 yamat0jp 12 Font.Color = clNone
132     Font.Size = 10
133     Font.Style = []
134 yamat0jp 13 FrameBuffer = 40
135     Lines = tlAll
136     UseFrame = True
137     UseSize = True
138     ScrollToCurrentRow = False
139     Columns = <>
140 yamat0jp 14 DataSource = user_info
141 yamat0jp 13 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 yamat0jp 12 end
157 yamat0jp 13 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 yamat0jp 14 DataSource = user_info
166 yamat0jp 13 FriendlyName = 'IWDBNavigator1'
167     ImageHeight = 24
168     ImageWidth = 24
169     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
170     Orientation = orHorizontal
171 yamat0jp 14 OnFirst = IWDBNavigator1First
172     OnPrior = IWDBNavigator1Prior
173     OnNext = IWDBNavigator1Next
174     OnLast = IWDBNavigator1Last
175 yamat0jp 13 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 yamat0jp 12 Font.Color = clNone
184     Font.Size = 10
185     Font.Style = []
186 yamat0jp 13 FriendlyName = 'IWButton5'
187     TabOrder = 6
188     OnClick = IWButton5Click
189 yamat0jp 12 end
190 yamat0jp 14 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 yamat0jp 1 object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
407     TagType = ttIntraWeb
408 yamat0jp 12 Templates.Default = 'admin.htm'
409 yamat0jp 1 Left = 264
410 yamat0jp 13 Top = 200
411 yamat0jp 1 end
412 yamat0jp 14 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 yamat0jp 1 end

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