Diff of /WebModuleUnit1.dfm

OSDN > Find Software > mybbs

 Browse Subversion Repository



/[bbs-as-pbbs]/WebModuleUnit1.dfm




Diff of /WebModuleUnit1.dfm



 Parent Directory

|  Revision Log



|  Patch














revision 18 by yamat0jp,
Thu Sep 29 08:48:40 2016 UTC




revision 19 by yamat0jp,
Thu Sep 29 11:11:08 2016 UTC






#

Line 59 
 object WebModule1: TWebModule1


Line 59 
 object WebModule1: TWebModule1












59
       Name = 'css'
       Name = 'css'

















60
       PathInfo = '/css'
       PathInfo = '/css'

















61
       OnAction = WebModule1cssAction
       OnAction = WebModule1cssAction












62
 
     end







63
 
     item







64
 
       MethodType = mtGet







65
 
       Name = 'archives'







66
 
       PathInfo = '/archives'







67
 
       OnAction = WebModule1archivesAction












68
     end>
     end>

















69
   BeforeDispatch = WebModuleBeforeDispatch
   BeforeDispatch = WebModuleBeforeDispatch

















70
   AfterDispatch = WebModuleAfterDispatch
   AfterDispatch = WebModuleAfterDispatch

















71
   Height = 230
   Height = 230

















72
   Width = 415
   Width = 415














   object FDTable1: TFDTable
 










     Connection = FDConnection1
 










     UpdateOptions.UpdateTableName = 'pbbs'
 










     TableName = 'pbbs'
 










     Left = 56
 










     Top = 144
 










     object FDTable1name: TWideMemoField
 










       FieldName = 'name'
 










       Origin = 'name'
 










       BlobType = ftWideMemo
 










     end
 










     object FDTable1no: TIntegerField
 










       FieldName = 'no'
 










       Origin = 'no'
 










     end
 










     object FDTable1date: TWideMemoField
 










       FieldName = 'date'
 










       Origin = 'date'
 










       BlobType = ftWideMemo
 










     end
 










     object FDTable1sub: TWideMemoField
 










       FieldName = 'sub'
 










       Origin = 'sub'
 










       BlobType = ftWideMemo
 










     end
 










     object FDTable1com: TWideMemoField
 










       FieldName = 'com'
 










       Origin = 'com'
 










       BlobType = ftWideMemo
 










     end
 










     object FDTable1pass: TWideMemoField
 










       FieldName = 'pass'
 










       Origin = 'pass'
 










       BlobType = ftWideMemo
 










     end
 










     object FDTable1line: TIntegerField
 










       FieldName = 'line'
 










       Origin = 'line'
 










     end
 










   end
 













73
   object FDConnection1: TFDConnection
   object FDConnection1: TFDConnection

















74
     Params.Strings = (
     Params.Strings = (

















75
       'LockingMode=Normal'
       'LockingMode=Normal'











#

Line 160 
 object WebModule1: TWebModule1


Line 126 
 object WebModule1: TWebModule1












126
       '<section id=date>  Date:<h1><#date></h1></section>'
       '<section id=date>  Date:<h1><#date></h1></section>'

















127
       '<section id=comment><#com></section>'
       '<section id=comment><#com></section>'

















128
       '')
       '')














     DataSet = FDTable1
 













129
     OnHTMLTag = DataSetPageProducer2HTMLTag
     OnHTMLTag = DataSetPageProducer2HTMLTag

















130
     Left = 312
     Left = 312

















131
     Top = 104
     Top = 104











#

Line 174 
 object WebModule1: TWebModule1


Line 139 
 object WebModule1: TWebModule1












139
       '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'
       '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'

















140
       '<th><font color="#007000"><b><#name></b></font></th>'
       '<th><font color="#007000"><b><#name></b></font></th>'

















141
       '</tr>')
       '</tr>')














     DataSet = FDTable1
 













142
     OnHTMLTag = DataSetPageProducer2HTMLTag
     OnHTMLTag = DataSetPageProducer2HTMLTag

















143
     Left = 312
     Left = 312

















144
     Top = 168
     Top = 168











#

Line 197 
 object WebModule1: TWebModule1


Line 161 
 object WebModule1: TWebModule1












161
       FieldName = 'line'
       FieldName = 'line'

















162
       Origin = 'line'
       Origin = 'line'

















163
     end
     end












164
 
   end







165
 
   object FDTable1: TFDTable







166
 
     Connection = FDConnection1







167
 
     UpdateOptions.UpdateTableName = 'pbbs'







168
 
     TableName = 'pbbs'







169
 
     Left = 56







170
 
     Top = 144







171
 
     object FDTable1name: TWideMemoField







172
 
       FieldName = 'name'







173
 
       Origin = 'name'







174
 
       BlobType = ftWideMemo







175
 
     end







176
 
     object FDTable1no: TIntegerField







177
 
       FieldName = 'no'







178
 
       Origin = 'no'







179
 
     end







180
 
     object FDTable1date: TWideMemoField







181
 
       FieldName = 'date'







182
 
       Origin = 'date'







183
 
       BlobType = ftWideMemo







184
 
     end







185
 
     object FDTable1sub: TWideMemoField







186
 
       FieldName = 'sub'







187
 
       Origin = 'sub'







188
 
       BlobType = ftWideMemo







189
 
     end







190
 
     object FDTable1com: TWideMemoField







191
 
       FieldName = 'com'







192
 
       Origin = 'com'







193
 
       BlobType = ftWideMemo







194
 
     end







195
 
     object FDTable1pass: TWideMemoField







196
 
       FieldName = 'pass'







197
 
       Origin = 'pass'







198
 
       BlobType = ftWideMemo







199
 
     end







200
 
     object FDTable1line: TIntegerField







201
 
       FieldName = 'line'







202
 
       Origin = 'line'







203
 
     end












204
   end
   end

















205
 end
 end





























Legend:



Removed from v.18
 


changed lines


 
Added in v.19













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[bbs-as-pbbs]/WebModuleUnit1.dfm
-revision 18 by yamat0jp,
Thu Sep 29 08:48:40 2016 UTC
+revision 19 by yamat0jp,
Thu Sep 29 11:11:08 2016 UTC
 Line 59 
 object WebModule1: TWebModule1
        Name = 'css'
        PathInfo = '/css'
        OnAction = WebModule1cssAction
+     end
+     item
+       MethodType = mtGet
+       Name = 'archives'
+       PathInfo = '/archives'
+       OnAction = WebModule1archivesAction
      end>
    BeforeDispatch = WebModuleBeforeDispatch
    AfterDispatch = WebModuleAfterDispatch
    Height = 230
    Width = 415
-   object FDTable1: TFDTable
-     Connection = FDConnection1
-     UpdateOptions.UpdateTableName = 'pbbs'
-     TableName = 'pbbs'
-     Left = 56
-     Top = 144
-     object FDTable1name: TWideMemoField
-       FieldName = 'name'
-       Origin = 'name'
-       BlobType = ftWideMemo
-     end
-     object FDTable1no: TIntegerField
-       FieldName = 'no'
-       Origin = 'no'
-     end
-     object FDTable1date: TWideMemoField
-       FieldName = 'date'
-       Origin = 'date'
-       BlobType = ftWideMemo
-     end
-     object FDTable1sub: TWideMemoField
-       FieldName = 'sub'
-       Origin = 'sub'
-       BlobType = ftWideMemo
-     end
-     object FDTable1com: TWideMemoField
-       FieldName = 'com'
-       Origin = 'com'
-       BlobType = ftWideMemo
-     end
-     object FDTable1pass: TWideMemoField
-       FieldName = 'pass'
-       Origin = 'pass'
-       BlobType = ftWideMemo
-     end
-     object FDTable1line: TIntegerField
-       FieldName = 'line'
-       Origin = 'line'
-     end
-   end
    object FDConnection1: TFDConnection
      Params.Strings = (
        'LockingMode=Normal'
-Line 160 
 object WebModule1: TWebModule1
+Line 126 
 object WebModule1: TWebModule1
        '<section id=date>  Date:<h1><#date></h1></section>'
        '<section id=comment><#com></section>'
        '')
-     DataSet = FDTable1
      OnHTMLTag = DataSetPageProducer2HTMLTag
      Left = 312
      Top = 104
-Line 174 
 object WebModule1: TWebModule1
+Line 139 
 object WebModule1: TWebModule1
        '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'
        '<th><font color="#007000"><b><#name></b></font></th>'
        '</tr>')
-     DataSet = FDTable1
      OnHTMLTag = DataSetPageProducer2HTMLTag
      Left = 312
      Top = 168
-Line 197 
 object WebModule1: TWebModule1
+Line 161 
 object WebModule1: TWebModule1
        FieldName = 'line'
        Origin = 'line'
      end
+   end
+   object FDTable1: TFDTable
+     Connection = FDConnection1
+     UpdateOptions.UpdateTableName = 'pbbs'
+     TableName = 'pbbs'
+     Left = 56
+     Top = 144
+     object FDTable1name: TWideMemoField
+       FieldName = 'name'
+       Origin = 'name'
+       BlobType = ftWideMemo
+     end
+     object FDTable1no: TIntegerField
+       FieldName = 'no'
+       Origin = 'no'
+     end
+     object FDTable1date: TWideMemoField
+       FieldName = 'date'
+       Origin = 'date'
+       BlobType = ftWideMemo
+     end
+     object FDTable1sub: TWideMemoField
+       FieldName = 'sub'
+       Origin = 'sub'
+       BlobType = ftWideMemo
+     end
+     object FDTable1com: TWideMemoField
+       FieldName = 'com'
+       Origin = 'com'
+       BlobType = ftWideMemo
+     end
+     object FDTable1pass: TWideMemoField
+       FieldName = 'pass'
+       Origin = 'pass'
+       BlobType = ftWideMemo
+     end
+     object FDTable1line: TIntegerField
+       FieldName = 'line'
+       Origin = 'line'
+     end
    end
  end
 Legend:



Removed from v.18
 


changed lines


 
Added in v.19
 Legend:



Removed from v.18
 


changed lines


 
Added in v.19
-Removed from v.18
+Added in v.19
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

mybbs

Browse Subversion Repository