Develop and Download Open Source Software

Browse Subversion Repository

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 17 by yamat0jp, Wed Sep 28 14:30:22 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          Name = 'css'
59          PathInfo = '/css'
60          OnAction = WebModule1cssAction
61      end>      end>
62    BeforeDispatch = WebModuleBeforeDispatch    BeforeDispatch = WebModuleBeforeDispatch
63      AfterDispatch = WebModuleAfterDispatch
64    Height = 230    Height = 230
65    Width = 415    Width = 415
66    object FDTable1: TFDTable    object FDTable1: TFDTable
# Line 93  object WebModule1: TWebModule1 Line 105  object WebModule1: TWebModule1
105    end    end
106    object FDConnection1: TFDConnection    object FDConnection1: TFDConnection
107      Params.Strings = (      Params.Strings = (
       'Database=E:\Program Files (x86)\xampp\cgi-bin\data.sdb'  
108        'LockingMode=Normal'        'LockingMode=Normal'
109        'DriverID=SQLite')        'DriverID=SQLite')
110      Left = 56      Left = 56
# Line 108  object WebModule1: TWebModule1 Line 119  object WebModule1: TWebModule1
119      object FDTable2home: TWideMemoField      object FDTable2home: TWideMemoField
120        FieldName = 'home'        FieldName = 'home'
121        Origin = 'home'        Origin = 'home'
122        BlobType = ftWideMemo        BlobType = ftWideString
123      end      end
124      object FDTable2title: TWideMemoField      object FDTable2title: TWideMemoField
125        FieldName = 'title'        FieldName = 'title'
126        Origin = 'title'        Origin = 'title'
127        BlobType = ftWideMemo        BlobType = ftWideString
128      end      end
129      object FDTable2title2: TWideMemoField      object FDTable2title2: TWideMemoField
130        FieldName = 'title2'        FieldName = 'title2'
# Line 123  object WebModule1: TWebModule1 Line 134  object WebModule1: TWebModule1
134      object FDTable2pass: TWideMemoField      object FDTable2pass: TWideMemoField
135        FieldName = 'pass'        FieldName = 'pass'
136        Origin = 'pass'        Origin = 'pass'
137        BlobType = ftWideMemo        BlobType = ftWideString
138      end      end
139      object FDTable2ngwords: TWideMemoField      object FDTable2ngwords: TWideMemoField
140        FieldName = 'ngwords'        FieldName = 'ngwords'
141        Origin = 'ngwords'        Origin = 'ngwords'
142        BlobType = ftWideMemo        BlobType = ftWideMemo
143      end      end
144        object FDTable2mente: TBooleanField
145          FieldName = 'mente'
146        end
147    end    end
148    object PageProducer1: TPageProducer    object PageProducer1: TPageProducer
149      OnHTMLTag = PageProducer1HTMLTag      OnHTMLTag = PageProducer1HTMLTag
# Line 138  object WebModule1: TWebModule1 Line 152  object WebModule1: TWebModule1
152    end    end
153    object DataSetPageProducer2: TDataSetPageProducer    object DataSetPageProducer2: TDataSetPageProducer
154      HTMLDoc.Strings = (      HTMLDoc.Strings = (
155        '<hr size=1>[<#no>]'        '<hr size=1>'
156        '<font size="+1" color="#D01166"><b><#sub></b></font><br>'        '<section id=number>[<#no>]</section>'
157                '<section id=title><#sub></section>'
158          '  Name:<font color="#007000"><b><#name></b></font><font size="-1' +        '<section id=name>  Name:<h1><#name></h1></section>'
159          '">  Date:<#date></font>'        '<section id=date>  Date:<h1><#date></h1></section>'
160        '<p><tt><#com><br></tt></p>')        '<section id=comment><p><#com></p></section>'
161          '')
162      DataSet = FDTable1      DataSet = FDTable1
163      OnHTMLTag = DataSetPageProducer2HTMLTag      OnHTMLTag = DataSetPageProducer2HTMLTag
164      Left = 312      Left = 312

Legend:
Removed from v.1  
changed lines
  Added in v.17

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