Develop and Download Open Source Software

Browse Subversion Repository

Diff of /Unit5.dfm

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

revision 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC revision 14 by yamat0jp, Fri Jul 29 10:50:16 2016 UTC
# Line 1  Line 1 
1  object IWForm3: TIWForm3  object AdminPage: TAdminPage
2    Left = 0    Left = 0
3    Top = 0    Top = 0
4    Width = 555    Width = 555
5    Height = 400    Height = 400
6    RenderInvisibleControls = False    RenderInvisibleControls = False
   OnRender = IWAppFormRender  
7    AllowPageAccess = True    AllowPageAccess = True
8    ConnectionMode = cmAny    ConnectionMode = cmAny
9    OnCreate = IWAppFormCreate    OnCreate = IWAppFormCreate
10    Background.Fixed = False    Background.Fixed = False
11      LayoutMgr = IWTemplateProcessorHTML1
12    HandleTabs = False    HandleTabs = False
13    LeftToRight = True    LeftToRight = True
14    LockUntilLoaded = True    LockUntilLoaded = True
# Line 22  object IWForm3: TIWForm3 Line 22  object IWForm3: TIWForm3
22      Top = 312      Top = 312
23      Width = 75      Width = 75
24      Height = 25      Height = 25
25      Caption = #26356#26032      Caption = #19968#35239
26      Color = clBtnFace      Color = clBtnFace
27      Font.Color = clNone      Font.Color = clNone
28      Font.Size = 10      Font.Size = 10
# Line 71  object IWForm3: TIWForm3 Line 71  object IWForm3: TIWForm3
71      TabOrder = 3      TabOrder = 3
72      OnClick = IWButton4Click      OnClick = IWButton4Click
73    end    end
74    object IWGrid1: TIWGrid    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      Left = 128
106      Top = 128      Top = 61
107      Width = 300      Width = 60
108      Height = 150      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      BorderColors.Color = clNone
123      BorderColors.Light = clNone      BorderColors.Light = clNone
124      BorderColors.Dark = clNone      BorderColors.Dark = clNone
125      BGColor = clNone      BGColor = clNone
126      BorderSize = 1      BorderSize = 1
127      BorderStyle = tfDefault      BorderStyle = tfDefault
128      Caption = 'IWGrid1'      Caption = 'IWDBGrid1'
129      CellPadding = 0      CellPadding = 0
130      CellSpacing = 0      CellSpacing = 0
131      Font.Color = clNone      Font.Color = clNone
# Line 90  object IWForm3: TIWForm3 Line 133  object IWForm3: TIWForm3
133      Font.Style = []      Font.Style = []
134      FrameBuffer = 40      FrameBuffer = 40
135      Lines = tlAll      Lines = tlAll
136      UseFrame = False      UseFrame = True
137      UseSize = True      UseSize = True
     FriendlyName = 'IWGrid1'  
     ColumnCount = 4  
     RowCount = 1  
     ShowEmptyCells = True  
     ShowInvisibleRows = True  
138      ScrollToCurrentRow = False      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    end
157    object IWComboBox1: TIWComboBox    object IWDBNavigator1: TIWDBNavigator
158      Left = 128      Left = 239
159      Top = 56      Top = 296
160      Width = 121      Width = 120
161      Height = 21      Height = 28
162      Font.Color = clNone      Confirmations.Delete = 'Are you sure you want to delete this record?'
163      Font.Size = 10      Confirmations.Post = 'Are you sure you want to update this record?'
164      Font.Style = []      Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
165      OnChange = IWComboBox1Change      DataSource = user_info
166      TabOrder = 4      FriendlyName = 'IWDBNavigator1'
167      ItemIndex = -1      ImageHeight = 24
168      FriendlyName = 'IWComboBox1'      ImageWidth = 24
169      NoSelectionText = '-- No Selection --'      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
170    end      Orientation = orHorizontal
171    object IWLabel1: TIWLabel      OnFirst = IWDBNavigator1First
172      Left = 280      OnPrior = IWDBNavigator1Prior
173      Top = 56      OnNext = IWDBNavigator1Next
174      Width = 58      OnLast = IWDBNavigator1Last
175      Height = 16    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      Font.Color = clNone
184      Font.Size = 10      Font.Size = 10
185      Font.Style = []      Font.Style = []
186      HasTabOrder = False      FriendlyName = 'IWButton5'
187      FriendlyName = 'IWLabel1'      TabOrder = 6
188      Caption = 'IWLabel1'      OnClick = IWButton5Click
189    end    end
190    object IWLabel2: TIWLabel    object IWDBGrid2: TIWDBGrid
191      Left = 128      Left = 128
192      Top = 83      Top = 128
193      Width = 58      Width = 300
194      Height = 16      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      Font.Color = clNone
205      Font.Size = 10      Font.Size = 10
206      Font.Style = []      Font.Style = []
207      HasTabOrder = False      FrameBuffer = 40
208      FriendlyName = 'IWLabel2'      Lines = tlAll
209      Caption = 'IWLabel2'      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    end
406    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
     Enabled = False  
407      TagType = ttIntraWeb      TagType = ttIntraWeb
408      Templates.Default = 'order.htm'      Templates.Default = 'admin.htm'
409      Left = 264      Left = 264
410      Top = 184      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    end
426  end  end

Legend:
Removed from v.10  
changed lines
  Added in v.14

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