Develop and Download Open Source Software

mybbs

Browse Subversion Repository

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

Diff of /WebModuleUnit1.dfm

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

revision 9 by yamat0jp, Sat Sep 17 04:45:16 2016 UTC revision 19 by yamat0jp, Thu Sep 29 11:11:08 2016 UTC
# Line 53  object WebModule1: TWebModule1 Line 53  object WebModule1: TWebModule1
53        Name = 'adminset'        Name = 'adminset'
54        PathInfo = '/adminset'        PathInfo = '/adminset'
55        OnAction = WebModule1adminsetAction        OnAction = WebModule1adminsetAction
56        end
57        item
58          MethodType = mtGet
59          Name = 'css'
60          PathInfo = '/css'
61          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
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 113  object WebModule1: TWebModule1 Line 86  object WebModule1: TWebModule1
86      object FDTable2home: TWideMemoField      object FDTable2home: TWideMemoField
87        FieldName = 'home'        FieldName = 'home'
88        Origin = 'home'        Origin = 'home'
89        BlobType = ftWideMemo        BlobType = ftWideString
90      end      end
91      object FDTable2title: TWideMemoField      object FDTable2title: TWideMemoField
92        FieldName = 'title'        FieldName = 'title'
93        Origin = 'title'        Origin = 'title'
94        BlobType = ftWideMemo        BlobType = ftWideString
95      end      end
96      object FDTable2title2: TWideMemoField      object FDTable2title2: TWideMemoField
97        FieldName = 'title2'        FieldName = 'title2'
# Line 128  object WebModule1: TWebModule1 Line 101  object WebModule1: TWebModule1
101      object FDTable2pass: TWideMemoField      object FDTable2pass: TWideMemoField
102        FieldName = 'pass'        FieldName = 'pass'
103        Origin = 'pass'        Origin = 'pass'
104        BlobType = ftWideMemo        BlobType = ftWideString
105      end      end
106      object FDTable2ngwords: TWideMemoField      object FDTable2ngwords: TWideMemoField
107        FieldName = 'ngwords'        FieldName = 'ngwords'
# Line 146  object WebModule1: TWebModule1 Line 119  object WebModule1: TWebModule1
119    end    end
120    object DataSetPageProducer2: TDataSetPageProducer    object DataSetPageProducer2: TDataSetPageProducer
121      HTMLDoc.Strings = (      HTMLDoc.Strings = (
122        '<hr size=1>[<#no>]'        '<hr size=1>'
123        '<font size="+1" color="#D01166"><b><#sub></b></font><br>'        '<section id=number>[<#no>]</section>'
124                '<section id=title><#sub></section>'
125          '  Name:<font color="#007000"><b><#name></b></font><font size="-1' +        '<section id=name>  Name:<h1><#name></h1></section>'
126          '">  Date:<#date></font>'        '<section id=date>  Date:<h1><#date></h1></section>'
127        '<p><tt><#com><br></tt></p>')        '<section id=comment><#com></section>'
128      DataSet = FDTable1        '')
129      OnHTMLTag = DataSetPageProducer2HTMLTag      OnHTMLTag = DataSetPageProducer2HTMLTag
130      Left = 312      Left = 312
131      Top = 104      Top = 104
# Line 166  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 189  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.9  
changed lines
  Added in v.19
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help