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 1 by yamat0jp, Wed Sep 23 09:26:54 2015 UTC revision 20 by yamat0jp, Thu Sep 29 14:15:09 2016 UTC
# Line 47  object WebModule1: TWebModule1 Line 47  object WebModule1: TWebModule1
47        Name = 'search'        Name = 'search'
48        PathInfo = '/search'        PathInfo = '/search'
49        OnAction = WebModule1searchAction        OnAction = WebModule1searchAction
50        end
51        item
52          MethodType = mtPost
53          Name = 'adminset'
54          PathInfo = '/adminset'
55          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  
   object FDConnection1: TFDConnection  
     Params.Strings = (  
       'Database=E:\Program Files (x86)\xampp\cgi-bin\data.sdb'  
       'LockingMode=Normal'  
       'DriverID=SQLite')  
     Left = 56  
     Top = 80  
   end  
73    object FDTable2: TFDTable    object FDTable2: TFDTable
74      Connection = FDConnection1      Connection = FDConnection1
75      UpdateOptions.UpdateTableName = 'information'      UpdateOptions.UpdateTableName = 'information'
# Line 108  object WebModule1: TWebModule1 Line 79  object WebModule1: TWebModule1
79      object FDTable2home: TWideMemoField      object FDTable2home: TWideMemoField
80        FieldName = 'home'        FieldName = 'home'
81        Origin = 'home'        Origin = 'home'
82        BlobType = ftWideMemo        BlobType = ftWideString
83      end      end
84      object FDTable2title: TWideMemoField      object FDTable2title: TWideMemoField
85        FieldName = 'title'        FieldName = 'title'
86        Origin = 'title'        Origin = 'title'
87        BlobType = ftWideMemo        BlobType = ftWideString
88      end      end
89      object FDTable2title2: TWideMemoField      object FDTable2title2: TWideMemoField
90        FieldName = 'title2'        FieldName = 'title2'
# Line 123  object WebModule1: TWebModule1 Line 94  object WebModule1: TWebModule1
94      object FDTable2pass: TWideMemoField      object FDTable2pass: TWideMemoField
95        FieldName = 'pass'        FieldName = 'pass'
96        Origin = 'pass'        Origin = 'pass'
97        BlobType = ftWideMemo        BlobType = ftWideString
98      end      end
99      object FDTable2ngwords: TWideMemoField      object FDTable2ngwords: TWideMemoField
100        FieldName = 'ngwords'        FieldName = 'ngwords'
101        Origin = 'ngwords'        Origin = 'ngwords'
102        BlobType = ftWideMemo        BlobType = ftWideMemo
103      end      end
104        object FDTable2mente: TBooleanField
105          FieldName = 'mente'
106        end
107    end    end
108    object PageProducer1: TPageProducer    object PageProducer1: TPageProducer
109      OnHTMLTag = PageProducer1HTMLTag      OnHTMLTag = PageProducer1HTMLTag
# Line 138  object WebModule1: TWebModule1 Line 112  object WebModule1: TWebModule1
112    end    end
113    object DataSetPageProducer2: TDataSetPageProducer    object DataSetPageProducer2: TDataSetPageProducer
114      HTMLDoc.Strings = (      HTMLDoc.Strings = (
115        '<hr size=1>[<#no>]'        '<hr size=1>'
116        '<font size="+1" color="#D01166"><b><#sub></b></font><br>'        '<section id=number>[<#no>]</section>'
117                '<section id=title><#sub></section>'
118          '  Name:<font color="#007000"><b><#name></b></font><font size="-1' +        '<section id=name>  Name:<h1><#name></h1></section>'
119          '">  Date:<#date></font>'        '<section id=date>  Date:<h1><#date></h1></section>'
120        '<p><tt><#com><br></tt></p>')        '<section id=comment><#com></section>'
121      DataSet = FDTable1        '')
122      OnHTMLTag = DataSetPageProducer2HTMLTag      OnHTMLTag = DataSetPageProducer2HTMLTag
123      Left = 312      Left = 312
124      Top = 104      Top = 104
# Line 158  object WebModule1: TWebModule1 Line 132  object WebModule1: TWebModule1
132        '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'        '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'
133        '<th><font color="#007000"><b><#name></b></font></th>'        '<th><font color="#007000"><b><#name></b></font></th>'
134        '</tr>')        '</tr>')
     DataSet = FDTable1  
135      OnHTMLTag = DataSetPageProducer2HTMLTag      OnHTMLTag = DataSetPageProducer2HTMLTag
136      Left = 312      Left = 312
137      Top = 168      Top = 168
# Line 182  object WebModule1: TWebModule1 Line 155  object WebModule1: TWebModule1
155        Origin = 'line'        Origin = 'line'
156      end      end
157    end    end
158      object FDTable1: TFDTable
159        Connection = FDConnection1
160        UpdateOptions.UpdateTableName = 'pbbs'
161        TableName = 'pbbs'
162        Left = 56
163        Top = 144
164        object FDTable1name: TWideMemoField
165          FieldName = 'name'
166          Origin = 'name'
167          BlobType = ftWideMemo
168        end
169        object FDTable1no: TIntegerField
170          FieldName = 'no'
171          Origin = 'no'
172        end
173        object FDTable1date: TWideMemoField
174          FieldName = 'date'
175          Origin = 'date'
176          BlobType = ftWideMemo
177        end
178        object FDTable1sub: TWideMemoField
179          FieldName = 'sub'
180          Origin = 'sub'
181          BlobType = ftWideMemo
182        end
183        object FDTable1com: TWideMemoField
184          FieldName = 'com'
185          Origin = 'com'
186          BlobType = ftWideMemo
187        end
188        object FDTable1pass: TWideMemoField
189          FieldName = 'pass'
190          Origin = 'pass'
191          BlobType = ftWideMemo
192        end
193        object FDTable1line: TIntegerField
194          FieldName = 'line'
195          Origin = 'line'
196        end
197      end
198      object FDConnection1: TFDConnection
199        Params.Strings = (
200          'LockingMode=Normal'
201          'DriverID=SQLite')
202        Left = 56
203        Top = 80
204      end
205  end  end
Legend:
Removed from v.1  
changed lines
  Added in v.20
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help