Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit5.dfm

Diff of /Unit5.dfm

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

revision 13 by yamat0jp, Tue Jul 26 09:17:38 2016 UTC revision 17 by yamat0jp, Wed Aug 24 12:31:07 2016 UTC
# Line 71  object AdminPage: TAdminPage Line 71  object AdminPage: TAdminPage
71      TabOrder = 3      TabOrder = 3
72      OnClick = IWButton4Click      OnClick = IWButton4Click
73    end    end
   object IWGrid1: TIWGrid  
     Left = 128  
     Top = 128  
     Width = 300  
     Height = 150  
     BorderColors.Color = clNone  
     BorderColors.Light = clNone  
     BorderColors.Dark = clNone  
     BGColor = clNone  
     BorderSize = 1  
     BorderStyle = tfDefault  
     Caption = 'IWGrid1'  
     CellPadding = 0  
     CellSpacing = 0  
     Font.Color = clNone  
     Font.Size = 10  
     Font.Style = []  
     FrameBuffer = 40  
     Lines = tlAll  
     UseFrame = False  
     UseSize = True  
     OnRender = IWGrid1Render  
     FriendlyName = 'IWGrid1'  
     ColumnCount = 5  
     RowCount = 1  
     ShowEmptyCells = True  
     ShowInvisibleRows = True  
     ScrollToCurrentRow = False  
   end  
74    object IWCheckBox1: TIWCheckBox    object IWCheckBox1: TIWCheckBox
75      Left = 224      Left = 32
76      Top = 173      Top = 128
77      Width = 121      Width = 121
78      Height = 21      Height = 21
79      Visible = False      Visible = False
# Line 119  object AdminPage: TAdminPage Line 90  object AdminPage: TAdminPage
90      FriendlyName = 'IWCheckBox1'      FriendlyName = 'IWCheckBox1'
91    end    end
92    object IWDBLabel1: TIWDBLabel    object IWDBLabel1: TIWDBLabel
93      Left = 280      Left = 239
94      Top = 78      Top = 78
95      Width = 13      Width = 13
96      Height = 16      Height = 16
# Line 128  object AdminPage: TAdminPage Line 99  object AdminPage: TAdminPage
99      Font.Style = []      Font.Style = []
100      HasTabOrder = False      HasTabOrder = False
101      DataField = 'ID'      DataField = 'ID'
102      DataSource = DataModule3.user_info      DataSource = user_info
103      FriendlyName = 'IWDBLabel1'      FriendlyName = 'IWDBLabel1'
104    end    end
105    object IWDBLabel2: TIWDBLabel    object IWDBLabel2: TIWDBLabel
# Line 141  object AdminPage: TAdminPage Line 112  object AdminPage: TAdminPage
112      Font.Style = []      Font.Style = []
113      HasTabOrder = False      HasTabOrder = False
114      DataField = 'ADDRESS'      DataField = 'ADDRESS'
115      DataSource = DataModule3.user_info      DataSource = user_info
116      FriendlyName = 'IWDBLabel2'      FriendlyName = 'IWDBLabel2'
117    end    end
118    object IWDBGrid1: TIWDBGrid    object IWDBGrid1: TIWDBGrid
# Line 167  object AdminPage: TAdminPage Line 138  object AdminPage: TAdminPage
138      UseSize = True      UseSize = True
139      ScrollToCurrentRow = False      ScrollToCurrentRow = False
140      Columns = <>      Columns = <>
141      DataSource = DataModule3.user_info      DataSource = user_info
142      FooterRowCount = 0      FooterRowCount = 0
143      FriendlyName = 'IWDBGrid1'      FriendlyName = 'IWDBGrid1'
144      FromStart = True      FromStart = True
# Line 192  object AdminPage: TAdminPage Line 163  object AdminPage: TAdminPage
163      Confirmations.Delete = 'Are you sure you want to delete this record?'      Confirmations.Delete = 'Are you sure you want to delete this record?'
164      Confirmations.Post = 'Are you sure you want to update this record?'      Confirmations.Post = 'Are you sure you want to update this record?'
165      Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'      Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
166      DataSource = DataModule3.order      DataSource = user_info
167      FriendlyName = 'IWDBNavigator1'      FriendlyName = 'IWDBNavigator1'
168      ImageHeight = 24      ImageHeight = 24
169      ImageWidth = 24      ImageWidth = 24
170      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
171      Orientation = orHorizontal      Orientation = orHorizontal
172        OnFirst = IWDBNavigator1First
173        OnPrior = IWDBNavigator1Prior
174        OnNext = IWDBNavigator1Next
175        OnLast = IWDBNavigator1Last
176    end    end
177    object IWButton5: TIWButton    object IWButton5: TIWButton
178      Left = 136      Left = 136
# Line 213  object AdminPage: TAdminPage Line 188  object AdminPage: TAdminPage
188      TabOrder = 6      TabOrder = 6
189      OnClick = IWButton5Click      OnClick = IWButton5Click
190    end    end
191      object IWDBGrid2: TIWDBGrid
192        Left = 128
193        Top = 128
194        Width = 300
195        Height = 150
196        BorderColors.Color = clNone
197        BorderColors.Light = clNone
198        BorderColors.Dark = clNone
199        BGColor = clNone
200        BorderSize = 1
201        BorderStyle = tfDefault
202        Caption = 'IWDBGrid2'
203        CellPadding = 0
204        CellSpacing = 0
205        Font.Color = clNone
206        Font.Size = 10
207        Font.Style = []
208        FrameBuffer = 40
209        Lines = tlAll
210        OnRenderCell = IWDBGrid2RenderCell
211        UseFrame = True
212        UseSize = True
213        OnRender = IWDBGrid2Render
214        ScrollToCurrentRow = False
215        Columns = <
216          item
217            Alignment = taLeftJustify
218            BGColor = clNone
219            DoSubmitValidation = True
220            Font.Color = clNone
221            Font.Size = 10
222            Font.Style = []
223            Header = False
224            Height = '0'
225            ShowHint = True
226            VAlign = vaMiddle
227            Visible = True
228            Width = '0'
229            Wrap = False
230            RawText = False
231            Css = ''
232            BlobCharLimit = 0
233            CompareHighlight = hcNone
234            DataField = 'ORDER'
235            Title.Alignment = taCenter
236            Title.BGColor = clNone
237            Title.DoSubmitValidation = True
238            Title.Font.Color = clNone
239            Title.Font.Size = 10
240            Title.Font.Style = []
241            Title.Header = False
242            Title.Height = '0'
243            Title.ShowHint = True
244            Title.Text = #26085#20184
245            Title.VAlign = vaMiddle
246            Title.Visible = True
247            Title.Width = '0'
248            Title.Wrap = False
249            Title.RawText = True
250          end
251          item
252            Alignment = taLeftJustify
253            BGColor = clNone
254            DoSubmitValidation = True
255            Font.Color = clNone
256            Font.Size = 10
257            Font.Style = []
258            Header = False
259            Height = '0'
260            ShowHint = True
261            VAlign = vaMiddle
262            Visible = True
263            Width = '0'
264            Wrap = False
265            RawText = False
266            Css = ''
267            BlobCharLimit = 0
268            CompareHighlight = hcNone
269            DataField = 'NAME'
270            Title.Alignment = taCenter
271            Title.BGColor = clNone
272            Title.DoSubmitValidation = True
273            Title.Font.Color = clNone
274            Title.Font.Size = 10
275            Title.Font.Style = []
276            Title.Header = False
277            Title.Height = '0'
278            Title.ShowHint = True
279            Title.Text = #12372#27880#25991
280            Title.VAlign = vaMiddle
281            Title.Visible = True
282            Title.Width = '0'
283            Title.Wrap = False
284            Title.RawText = True
285          end
286          item
287            Alignment = taLeftJustify
288            BGColor = clNone
289            DoSubmitValidation = True
290            Font.Color = clNone
291            Font.Size = 10
292            Font.Style = []
293            Header = False
294            Height = '0'
295            ShowHint = True
296            VAlign = vaMiddle
297            Visible = True
298            Width = '0'
299            Wrap = False
300            RawText = False
301            Css = ''
302            BlobCharLimit = 0
303            CompareHighlight = hcNone
304            DataField = 'MAKER'
305            Title.Alignment = taCenter
306            Title.BGColor = clNone
307            Title.DoSubmitValidation = True
308            Title.Font.Color = clNone
309            Title.Font.Size = 10
310            Title.Font.Style = []
311            Title.Header = False
312            Title.Height = '0'
313            Title.ShowHint = True
314            Title.Text = #12513#12540#12459#12540
315            Title.VAlign = vaMiddle
316            Title.Visible = True
317            Title.Width = '0'
318            Title.Wrap = False
319            Title.RawText = True
320          end
321          item
322            Alignment = taLeftJustify
323            BGColor = clNone
324            DoSubmitValidation = True
325            Font.Color = clNone
326            Font.Size = 10
327            Font.Style = []
328            Header = False
329            Height = '0'
330            ShowHint = True
331            VAlign = vaMiddle
332            Visible = True
333            Width = '0'
334            Wrap = False
335            RawText = False
336            Css = ''
337            BlobCharLimit = 0
338            CompareHighlight = hcNone
339            DataField = 'VOLUME'
340            Title.Alignment = taCenter
341            Title.BGColor = clNone
342            Title.DoSubmitValidation = True
343            Title.Font.Color = clNone
344            Title.Font.Size = 10
345            Title.Font.Style = []
346            Title.Header = False
347            Title.Height = '0'
348            Title.ShowHint = True
349            Title.Text = #20491#25968
350            Title.VAlign = vaMiddle
351            Title.Visible = True
352            Title.Width = '0'
353            Title.Wrap = False
354            Title.RawText = True
355          end
356          item
357            Alignment = taLeftJustify
358            BGColor = clNone
359            DoSubmitValidation = True
360            Font.Color = clNone
361            Font.Size = 10
362            Font.Style = []
363            Header = False
364            Height = '0'
365            ShowHint = True
366            VAlign = vaMiddle
367            Visible = True
368            Width = '0'
369            Wrap = False
370            RawText = False
371            Css = ''
372            BlobCharLimit = 0
373            CompareHighlight = hcNone
374            Title.Alignment = taCenter
375            Title.BGColor = clNone
376            Title.DoSubmitValidation = True
377            Title.Font.Color = clNone
378            Title.Font.Size = 10
379            Title.Font.Style = []
380            Title.Header = False
381            Title.Height = '0'
382            Title.ShowHint = True
383            Title.Text = #30330#36865#28168#12415
384            Title.VAlign = vaMiddle
385            Title.Visible = True
386            Title.Width = '0'
387            Title.Wrap = False
388            Title.RawText = True
389          end>
390        DataSource = DataModule3.item_info
391        FooterRowCount = 0
392        FriendlyName = 'IWDBGrid2'
393        FromStart = True
394        HighlightColor = clNone
395        HighlightRows = False
396        Options = [dgShowTitles]
397        RefreshMode = rmAutomatic
398        RowLimit = 0
399        RollOver = False
400        RowClick = False
401        RollOverColor = clNone
402        RowHeaderColor = clNone
403        RowAlternateColor = clNone
404        RowCurrentColor = clNone
405        TabOrder = -1
406      end
407    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML    object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
408      TagType = ttIntraWeb      TagType = ttIntraWeb
409      Templates.Default = 'admin.htm'      Templates.Default = 'admin.htm'
410      Left = 264      Left = 264
411      Top = 200      Top = 200
412    end    end
413      object FDQuery1: TFDQuery
414        AfterScroll = FDQuery1AfterScroll
415        Connection = DataModule3.FDConnection1
416        SQL.Strings = (
417          'select id,address,email from order_data,user_info'
418          ' where order_data.number = user_info.number;')
419        Left = 456
420        Top = 192
421      end
422      object user_info: TDataSource
423        DataSet = FDQuery1
424        Left = 456
425        Top = 256
426      end
427  end  end
Legend:
Removed from v.13  
changed lines
  Added in v.17
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help