OSDN Git Service

実は前回のコミット前にいろいろとやっていました
[newbbs/newbbs.git] / WebModuleUnit1.dfm
index c93c102..cd75d84 100644 (file)
@@ -6,102 +6,101 @@ object WebModule1: TWebModule1
       MethodType = mtGet
       Name = 'top'
       PathInfo = '/'
-      OnAction = TWebModule1topAction
+      OnAction = WebModule1topAction
     end
     item
       MethodType = mtGet
       Name = 'indexpage'
       PathInfo = '/index'
-      OnAction = TWebModule1indexpageAction
+      OnAction = WebModule1indexpageAction
     end
     item
       MethodType = mtPost
       Name = 'regist'
       PathInfo = '/regist'
-      OnAction = TWebModule1registAction
+      OnAction = WebModule1registAction
     end
     item
       MethodType = mtGet
       Name = 'admin'
       PathInfo = '/admin'
-      OnAction = TWebModule1adminAction
+      OnAction = WebModule1adminAction
     end
     item
       Name = 'search'
       PathInfo = '/search'
-      OnAction = TWebModule1searchAction
+      OnAction = WebModule1searchAction
     end
     item
       Name = 'help'
       PathInfo = '/help'
-      OnAction = TWebModule1helpAction
+      OnAction = WebModule1helpAction
     end
     item
       Name = 'master'
       PathInfo = '/master'
-      OnAction = TWebModule1masterAction
+      OnAction = WebModule1masterAction
     end
     item
       Name = 'alert'
       PathInfo = '/alert'
-      OnAction = TWebModule1alertAction
+      OnAction = WebModule1alertAction
     end
     item
       MethodType = mtPost
       Name = 'usrdel'
       PathInfo = '/userdel'
-      OnAction = TWebModule1deleteAction
     end
     item
       Name = 'jump'
       PathInfo = '/jump'
-      OnAction = TWebModule1jumpAction
+      OnAction = WebModule1jumpAction
     end
     item
       MethodType = mtGet
       Name = 'link'
       PathInfo = '/link'
-      OnAction = TWebModule1linkAction
+      OnAction = WebModule1linkAction
     end
     item
       MethodType = mtPost
       Name = 'admdel'
       PathInfo = '/admindel'
-      OnAction = TWebModule1admdelAction
+      OnAction = WebModule1admdelAction
     end
     item
       Name = 'login'
       PathInfo = '/login'
-      OnAction = TWebModule1loginAction
+      OnAction = WebModule1loginAction
     end
     item
       MethodType = mtPost
       Name = 'adminset'
       PathInfo = '/adminset'
-      OnAction = TWebModule1adminsetAction
+      OnAction = WebModule1adminsetAction
     end
     item
       MethodType = mtGet
       Name = 'logout'
       PathInfo = '/logout'
-      OnAction = TWebModule1logoutAction
+      OnAction = WebModule1logoutAction
     end
     item
       MethodType = mtGet
       Name = 'img'
       PathInfo = '/src'
-      OnAction = TWebModule1imgAction
+      OnAction = WebModule1imgAction
     end
     item
       MethodType = mtGet
       Name = 'file'
       PathInfo = '/file'
-      OnAction = TWebModule1fileAction
+      OnAction = WebModule1fileAction
     end
     item
       Name = 'title'
       PathInfo = '/title'
-      OnAction = TWebModule1titleAction
+      OnAction = WebModule1titleAction
     end>
   Height = 385
   Width = 436
@@ -209,8 +208,6 @@ object WebModule1: TWebModule1
         FieldName = 'DATE'
       end>
     Footer.Strings = (
-      '<input type=submit value='#21066#38500#12377#12427'><input type=reset value='#12522#12475#12483#12488'>'
-      '</form>'
       '')
     MaxRows = 30
     DataSet = DataModule1.FDTable2
@@ -262,7 +259,7 @@ object WebModule1: TWebModule1
       '      <p>'
       '    <input type="submit" value="'#26908#32034'"></p>'
       '    </form>'
-      '      <p><a href="/">'#25522#31034#26495#12408#25147#12427
+      '      <p><a href="/index?db=<#dbnum>">'#25522#31034#26495#12408#25147#12427
       '</a></p>'
       '    <#items>'
       '  </body>'
@@ -294,13 +291,7 @@ object WebModule1: TWebModule1
       '<body>'
       '<#pr>'
       '<P>'#35370#21839#32773#12398#30342#12373#12435'</P>'
-      '<form action=/help method=post>'
-      #9'<p>'#12362#21839#12356#21512#12431#12379'<'#21066#38500#20381#38972#12394#12393#20309#12391#12418'></p>'
-      #9'<textarea name=help style=height:100px;width:250px>'
-      #25237#31295#32773#21517#12394#12393#65306
-      #30456#35527#20869#23481#65306
-      #12381#12398#20182#65306'</textarea><br>'
-      #9'<input type=submit value="'#36865#20449'"></form>'
+      '<#area>'
       #9'<p><br>'
       '<p>'#38283#30330#32773#12398#30342#12373#12435
       '<p>pybbs'#12398'API'
@@ -428,6 +419,7 @@ object WebModule1: TWebModule1
       '<input type=radio name=delete value=all>'#12377#12409#12390#28040#21435
       '<input type=submit value="'#36865#20449'">'
       '</form>'
+      '<p style=text-align:center><a href=/logout>'#12525#12464#12450#12454#12488'</a>'
       '<p style=text-align:center><a href=/>'#25147#12427'</a>'
       '</body></html>')
     OnHTMLTag = masterHTMLTag
@@ -437,8 +429,7 @@ object WebModule1: TWebModule1
   object alert: TDataSetPageProducer
     HTMLDoc.Strings = (
       '<tr><td>'
-      '<p><a href=/jump?db=<#dbname>&num=<#posnum>>'
-      '    [ <#dbname>-<#posnum> ]</a><#date>'
+      '<p><#plus><#date>'
       '<p><#article></td><td><#request>'
       '</td><tr>')
     DataSet = DataModule1.FDTable4
@@ -1835,7 +1826,7 @@ object WebModule1: TWebModule1
       '    <label><p>'#12497#12473#12527#12540#12489#12398#22793#26356
       
         '      <input type="password" style="HEIGHT: 23px; WIDTH: 85px" n' +
-        'ame="pass" value="<#password>">'
+        'ame="pass">'
       '      </p>'
       '    </label>'
       '    <p>'
@@ -1843,7 +1834,7 @@ object WebModule1: TWebModule1
         '    <input type="checkbox" value="on" name="mente" <#mente>>'#12513#12531#12486#12490 +
         #12531#12473#34920#31034'</p>'
       '    <p><input type="submit" value="'#22793#26356'"></p>'
-      '    <p><a href="/logout">'#12525#12464#12450#12454#12488'</a></p>'
+      '    <p><a href="/logout?db=<#database>">'#12525#12464#12450#12454#12488'</a></p>'
       '</form>'
       '<form action=/admindel method=post style=text-align:center>')
     OnHTMLTag = adheadHTMLTag
@@ -1920,9 +1911,12 @@ object WebModule1: TWebModule1
   end
   object ti: TDataSetPageProducer
     HTMLDoc.Strings = (
-      '<p style=font-weight:bold><#database>'#8595'</p>'
-      '<div>'#12479#12452#12488#12523': '#39'<#title> , '#35352#20107#25968': <#count> , '#26356#26032#26178#21051': <#date></div><p>'
+      
+        '<p style=font-weight:bold><a href=/index?db=<#dbnum>><#database>' +
+        '</a>'#8595'</p>'
+      '<div>'#12479#12452#12488#12523': <#title> ; '#35352#20107#25968': <#count> ; '#26356#26032#26178#21051': <#date></div><p>'
       '')
+    DataSet = DataModule1.FDQuery1
     OnHTMLTag = tiHTMLTag
     Left = 48
     Top = 320