WebModuleUnit1.dfm

   1 object WebModule1: TWebModule1
   2   OldCreateOrder = False
   3   OnCreate = WebModuleCreate
   4   Actions = <
   5     item
   6       Name = 'WebActionItem1'
   7       PathInfo = '/bbs'
   8       OnAction = WebModule1WebActionItem1Action
   9     end
  10     item
  11       Name = 'WebActionItem2'
  12       PathInfo = '/alert'
  13       OnAction = WebModule1WebActionItem2Action
  14     end
  15     item
  16       Default = True
  17       Name = 'WebActionItem3'
  18       PathInfo = '/top'
  19       OnAction = WebModule1WebActionItem3Action
  20     end
  21     item
  22       Name = 'WebActionItem4'
  23       PathInfo = '/admin'
  24       OnAction = WebModule1WebActionItem4Action
  25     end
  26     item
  27       Name = 'WebActionItem5'
  28       PathInfo = '/search'
  29       OnAction = WebModule1WebActionItem5Action
  30     end
  31     item
  32       Name = 'WebActionItem6'
  33       PathInfo = '/help'
  34       OnAction = WebModule1WebActionItem6Action
  35     end
  36     item
  37       MethodType = mtPost
  38       Name = 'WebActionItem7'
  39       PathInfo = '/rename'
  40       OnAction = WebModule1WebActionItem7Action
  41     end
  42     item
  43       MethodType = mtPost
  44       Name = 'WebActionItem8'
  45       PathInfo = '/createnew'
  46       OnAction = WebModule1WebActionItem8Action
  47     end>
  48   BeforeDispatch = WebModuleBeforeDispatch
  49   Height = 321
  50   Width = 415
  51   object FDConnection1: TFDConnection
  52     Params.Strings = (
  53       'Database=C:\Users\yamat\Documents\GitHub\pbbs2\templates\DATA.IB'
  54       'User_Name=sysdba'
  55       'Password=masterkey'
  56       'CharacterSet=UTF8'
  57       'OpenMode=OpenOrCreate'
  58       'DriverID=iB')
  59     Connected = True
  60     Left = 328
  61     Top = 24
  62   end
  63   object FDTable1: TFDTable
  64     Active = True
  65     Filtered = True
  66     Filter = 'dbname not like '#39#26410#38283#23553'%'#39
  67     IndexFieldNames = 'dbnumber'
  68     Connection = FDConnection1
  69     UpdateOptions.UpdateTableName = 'nametable'
  70     TableName = 'nametable'
  71     Left = 328
  72     Top = 104
  73     object FDTable1DBNUMBER: TIntegerField
  74       FieldName = 'DBNUMBER'
  75       Origin = 'DBNUMBER'
  76       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  77       Required = True
  78     end
  79     object FDTable1DBNAME: TWideStringField
  80       FieldName = 'DBNAME'
  81       Origin = 'DBNAME'
  82       Required = True
  83       Size = 128
  84     end
  85   end
  86   object FDTable2: TFDTable
  87     Active = True
  88     IndexFieldNames = 'dbnumber;cmnumber'
  89     MasterSource = DataSource1
  90     MasterFields = 'dbnumber'
  91     Connection = FDConnection1
  92     UpdateOptions.UpdateTableName = 'maintable'
  93     TableName = 'maintable'
  94     Left = 328
  95     Top = 160
  96     object FDTable2DBNUMBER: TIntegerField
  97       FieldName = 'DBNUMBER'
  98       Origin = 'DBNUMBER'
  99       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
 100       Required = True
 101     end
 102     object FDTable2CMNUMBER: TIntegerField
 103       FieldName = 'CMNUMBER'
 104       Origin = 'CMNUMBER'
 105       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
 106       Required = True
 107     end
 108     object FDTable2TITLE: TWideStringField
 109       FieldName = 'TITLE'
 110       Origin = 'TITLE'
 111       Required = True
 112       Size = 128
 113     end
 114     object FDTable2NAME: TWideStringField
 115       FieldName = 'NAME'
 116       Origin = 'NAME'
 117       Required = True
 118       Size = 128
 119     end
 120     object FDTable2COMMENT: TWideMemoField
 121       FieldName = 'COMMENT'
 122       Origin = 'COMMENT'
 123       BlobType = ftWideMemo
 124     end
 125     object FDTable2DATETIME: TDateField
 126       FieldName = 'DATETIME'
 127       Origin = 'DATETIME'
 128       Required = True
 129     end
 130     object FDTable2RAWDATA: TWideMemoField
 131       FieldName = 'RAWDATA'
 132       Origin = 'RAWDATA'
 133       BlobType = ftWideMemo
 134     end
 135   end
 136   object DataSource1: TDataSource
 137     DataSet = FDTable1
 138     Left = 248
 139     Top = 24
 140   end
 141   object DataSetPageProducer1: TDataSetPageProducer
 142     HTMLFile = 'templates\index.htm'
 143     DataSet = FDTable1
 144     OnHTMLTag = DataSetPageProducer1HTMLTag
 145     Left = 48
 146     Top = 88
 147   end
 148   object WebFileDispatcher1: TWebFileDispatcher
 149     WebFileExtensions = <
 150       item
 151         MimeType = 'text/css'
 152         Extensions = 'css'
 153       end
 154       item
 155         MimeType = 'text/html'
 156         Extensions = 'html;htm'
 157       end
 158       item
 159         MimeType = 'text/javascript'
 160         Extensions = 'js'
 161       end
 162       item
 163         MimeType = 'image/jpeg'
 164         Extensions = 'jpeg;jpg'
 165       end
 166       item
 167         MimeType = 'image/x-png'
 168         Extensions = 'png'
 169       end>
 170     WebDirectories = <
 171       item
 172         DirectoryAction = dirInclude
 173         DirectoryMask = '*'
 174       end
 175       item
 176         DirectoryAction = dirExclude
 177         DirectoryMask = '\templates\*'
 178       end>
 179     RootDirectory = '.'
 180     Left = 48
 181     Top = 24
 182   end
 183   object PageProducer1: TPageProducer
 184     HTMLDoc.Strings = (
 185       '<!doctype html>'
 186       '<html class=no-js lang=ja>'
 187       '<head>'
 188
 189         #9'<meta charset=utf-8 name="google-site-verification"  content="5' +
 190         'KOTJTKv1HgTtIt0zVGzuyAkADCwXRme-RiiKJ03l3s" />'
 191       #9'<meta http-equiv="X-UA-Compatible" content="IE=edge">'
 192       #9'<title>Top Page</title>'
 193       #9'<link rel="shortcut icon" href=img/favicon64.ico>'
 194
 195         #9'<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com' +
 196         '/bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqF' +
 197         'Gwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" cros' +
 198         'sorigin="anonymous">'
 199       '</head>'
 200       '<body>'
 201
 202         '   '#9'<script src="https://code.jquery.com/jquery-3.3.1.slim.min.j' +
 203         's" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp' +
 204         '4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>'
 205
 206         '    <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.j' +
 207         's/1.14.6/umd/popper.min.js" integrity="sha384-wHAiFfRlMFy6i5SRax' +
 208         'vfOCifBUQy1xHdJ/yoi7FRNXMRBu5WHdZYu1hA6ZOblgut" crossorigin="ano' +
 209         'nymous"></script>'
 210
 211         '    <script src="https://stackpath.bootstrapcdn.com/bootstrap/4.' +
 212         '2.1/js/bootstrap.min.js" integrity="sha384-B0UglyR+jN6CkvvICOB2j' +
 213         'oaf5I4l3gm9GU6Hc1og6Ls7i6U/mkkaduKaBhlAXv9k" crossorigin="anonym' +
 214         'ous"></script>'
 215       '<div id="fb-root"></div>'
 216       '<script>(function(d, s, id) {'
 217       '  var js, fjs = d.getElementsByTagName(s)[0];'
 218       '  if (d.getElementById(id)) return;'
 219       '  js = d.createElement(s); js.id = id;'
 220
 221         '  js.src = "//connect.facebook.net/ja_JP/sdk.js#xfbml=1&version=' +
 222         'v2.8";'
 223       '  fjs.parentNode.insertBefore(js, fjs);'
 224       '}(document, '#39'script'#39', '#39'facebook-jssdk'#39'));</script>'
 225       '<header><h1 style=text-align:center>'#28961#26009#38651#23376#25522#31034#26495#12408#12424#12358#12371#12381'</h1></header>'
 226       ''
 227       '<div id="slide-1" class="carousel slide" data-ride="carousel">'
 228       #9'<ol class="carousel-indicators">'
 229       '        <#first>'
 230       '        </ol>'
 231       #9'<div class="carousel-inner bg-dark">'
 232       '        <#second>'
 233       #9'</div>'
 234
 235         #9'<a class="carousel-control-prev" href="#slide-1" role="button" ' +
 236         'data-slide="prev">'
 237
 238         #9#9'<span class="carousel-control-prev-icon" aria-hidden="true"></' +
 239         'span>'
 240       #9#9'<span class="sr-only">Previouse</span>'
 241       #9'</a>'
 242
 243         #9'<a class="carousel-control-next" href="#slide-1" role="button" ' +
 244         'data-slide="next">'
 245
 246         #9#9'<span class="carousel-control-next-icon" aria-hidden="true"></' +
 247         'span>'
 248       #9#9'<span class="sr-only">Next</span>'
 249       #9'</a>'
 250       #9'</div>'
 251       '</div>'
 252       ''
 253       '<p>'
 254       '<p>'#12288'<em style="background-color:aqua">'#12288#12288#12288#12288'</em>'#12539#12539#12539'new!'
 255       ''
 256
 257         '<div class="fb-like" data-href="http://pybbs.herokuapp.com" data' +
 258         '-layout="box_count" data-action="like" data-size="small" data-sh' +
 259         'ow-faces="true" data-share="false"></div><footer>'
 260       '<p align="center">'#12522#12531#12463#12501#12522#12540
 261       #9'<p align="center"><img src="img/BBS_bn.jpg">'
 262       '<p><a href=/search target=_blank>'#20840#20307#26908#32034'</a>'
 263       '<p><a href=/help>'#20351#12356#26041#26696#20869'</a>'
 264       '<p>PR '#12522#12531#12463
 265       '<br>'
 266
 267         '<p><a href=https://www.amazon.co.jp/%E9%AB%98%E6%A0%A1%E5%8D%92%' +
 268         'E6%A5%AD%E3%81%BE%E3%81%A7%E3%81%AE%E3%82%B5%E3%83%83%E3%82%AB%E' +
 269         '3%83%BC%E6%88%A6%E8%A1%93-sanuki_kainushi-ebook/dp/B00AXBM08Q/re' +
 270         'f=sr_1_7?ie=UTF8&qid=1479369992&sr=8-7&keywords=sanuki_kainushi>' +
 271         #39640#26657#21330#26989#12414#12391#12398#12469#12483#12459#12540#25126#34899'</a><br>'
 272       'amazon kindle</p>'
 273       '<p>'
 274
 275         '<p><a href=https://www.amazon.co.jp/%E4%B8%AD%E5%AD%A6%E5%8D%92%' +
 276         'E6%A5%AD%E3%81%BE%E3%81%A7%E3%81%AE%E3%82%B5%E3%83%83%E3%82%AB%E' +
 277         '3%83%BC%E6%88%A6%E8%A1%93-sanuki_kainushi-ebook/dp/B014X0S874/re' +
 278         'f=sr_1_3?s=digital-text&ie=UTF8&qid=1479370246&sr=1-3>'#20013#23398#21330#26989#12414#12391#12398#12469#12483#12459 +
 279         #12540#25126#34899'</a><br>'
 280       'amazon kindle</p>'
 281       '</footer>'
 282       '</body>'
 283       '</html>')
 284     OnHTMLTag = PageProducer1HTMLTag
 285     Left = 48
 286     Top = 208
 287   end
 288   object DataSetPageProducer2: TDataSetPageProducer
 289     HTMLFile = 'templates/main.htm'
 290     DataSet = FDTable2
 291     OnHTMLTag = DataSetPageProducer2HTMLTag
 292     Left = 48
 293     Top = 152
 294   end
 295   object DataSetTableProducer1: TDataSetTableProducer
 296     Columns = <
 297       item
 298         BgColor = 'White'
 299         Title.Custom = 'width=5%'
 300         Title.BgColor = 'Aqua'
 301         Title.Caption = 'CHECK'
 302       end
 303       item
 304         FieldName = 'CMNUMBER'
 305         Title.Custom = 'width=5%'
 306         Title.BgColor = 'Aqua'
 307         Title.Caption = 'NUMBER'
 308       end
 309       item
 310         FieldName = 'TITLE'
 311         Title.BgColor = 'Aqua'
 312       end
 313       item
 314         FieldName = 'NAME'
 315         Title.BgColor = 'Aqua'
 316       end
 317       item
 318         BgColor = 'White'
 319         Title.Custom = 'width=5%'
 320         Title.BgColor = 'Aqua'
 321         Title.Caption = 'LINK'
 322       end>
 323     DataSet = FDTable2
 324     TableAttributes.BgColor = 'White'
 325     OnFormatCell = DataSetTableProducer1FormatCell
 326     Left = 328
 327     Top = 216
 328   end
 329   object PageProducer2: TPageProducer
 330     HTMLDoc.Strings = (
 331       '<html>'
 332       '<head>'
 333       '<meta charset="utf-8">'
 334       '</head>'
 335       '<body>'
 336       '  <link rel=stylesheet href=css/main.css>'
 337
 338         '<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/' +
 339         'bootstrap/4.2.1/css/bootstrap.min.css" integrity="sha384-GJzZqFG' +
 340         'wb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS" cross' +
 341         'origin="anonymous">'
 342       '<form method=post>'
 343
 344         #21517#31216#65306'<input type=edit name=text value=<#dbname>><input type=submit' +
 345         ' formaction=/rename?db=<#dbname> value="'#22793#26356'">'
 346
 347         '<p style=align:center><input type=submit formaction=/top?db=<#db' +
 348         'name> value="'#20840#21066#38500'">'
 349       '<#table>'
 350
 351         '<input type=submit formaction=/admin?db=<#dbname> value="'#21066#38500'"><in' +
 352         'put type=reset value="'#21462#12426#28040#12375'">'
 353       '</form>'
 354       '<#footer>'
 355       '<#section>'
 356       '<p style=text-align:center><a href=/bbs?db=<#dbname>>'#12418#12393#12427'</a></p>'
 357       '</body>'
 358       '</html>')
 359     OnHTMLTag = PageProducer2HTMLTag
 360     Left = 328
 361     Top = 264
 362   end
 363   object DataSetPageProducer3: TDataSetPageProducer
 364     HTMLFile = 'templates/alert.htm'
 365     DataSet = FDTable1
 366     OnHTMLTag = DataSetPageProducer3HTMLTag
 367     Left = 48
 368     Top = 256
 369   end
 370   object PageProducer3: TPageProducer
 371     HTMLFile = 'templates/search.htm'
 372     OnHTMLTag = PageProducer3HTMLTag
 373     Left = 248
 374     Top = 104
 375   end
 376   object PageProducer4: TPageProducer
 377     HTMLFile = 'templates/mentenance.htm'
 378     Left = 248
 379     Top = 160
 380   end
 381   object PageProducer5: TPageProducer
 382     HTMLFile = 'templates\help.htm'
 383     Left = 248
 384     Top = 264
 385   end
 386   object DataSetPageProducer4: TDataSetPageProducer
 387     HTMLFile = 'templates/form.htm'
 388     DataSet = FDTable1
 389     Left = 160
 390     Top = 224
 391   end
 392 end