X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=WebModuleUnit1.dfm;h=c89c24c2f29adf837943be0499e6b23ea7f99c89;hb=36c8f26603c4e23585dfd8f9d6b4dfb921e7a072;hp=46d836f77f4db51105f2217acf077cd8afb8a2a7;hpb=18ad76adc80a0a89630e85484755036b2e141ed6;p=newbbs%2Fnewbbs.git diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm index 46d836f..c89c24c 100644 --- a/WebModuleUnit1.dfm +++ b/WebModuleUnit1.dfm @@ -1,4 +1,4 @@ -object TWebModule1: TTWebModule1 +object WebModule1: TWebModule1 OldCreateOrder = False OnCreate = WebModuleCreate Actions = < @@ -6,111 +6,112 @@ object TWebModule1: TTWebModule1 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 + OnAction = WebModule1usrdelAction 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 + Width = 909 object articles: TDataSetPageProducer HTMLDoc.Strings = ( '
' - #9'
> style=text-decoration:none>' + #9'
>/jump?db' + + '=<#dbnum>&num=<#number>' + ' style=text-decoration:none>' #9#9'[<#number>]
' #9'
<#title>
' #9'
'#12288'Name:

<#name>

' @@ -118,10 +119,10 @@ object TWebModule1: TTWebModule1 #9'

'#9661#9650#9661#9650#9661#9650#9661 #9'

<#comment>
' - '
&num=<#number>>'#22577#21578'
' + '
/alert?d' + + 'b=<#dbnum>&num=<#number>>'#22577#21578'
' #9'

'#9651#9660#9651#9660#9651#9660#9651) - DataSet = DataModule1.FDTable2 + DataSet = FDTable2 OnHTMLTag = articlesHTMLTag Left = 112 Top = 88 @@ -133,6 +134,11 @@ object TWebModule1: TTWebModule1 ' ' ' ' ' ' + + ' ' '"' + - ',d.insertBefore(c.lastChild,d.firstChild)}function l(){var a=r.e' + - 'lements;return typeof a=="string"?a.split(" "):a}function m(a){v' + - 'ar b=i[a[g]];return b||(b={},h++,a[g]=h,i[h]=b),b}function n(a,c' + - ',f){c||(c=b);if(j)return c.createElement(a);f||(f=m(c));var g;re' + - 'turn f.cache[a]?g=f.cache[a].cloneNode():e.test(a)?g=(f.cache[a]' + - '=f.createElem(a)).cloneNode():g=f.createElem(a),g.canHaveChildre' + - 'n&&!d.test(a)?f.frag.appendChild(g):g}function o(a,c){a||(a=b);i' + - 'f(j)return a.createDocumentFragment();c=c||m(a);var d=c.frag.clo' + - 'neNode(),e=0,f=l(),g=f.length;for(;e",' + - 'f="hidden"in a,j=a.childNodes.length==1||function(){b.createElem' + - 'ent("a");var a=b.createDocumentFragment();return typeof a.cloneN' + - 'ode=="undefined"||typeof a.createDocumentFragment=="undefined"||' + - 'typeof a.createElement=="undefined"}()}catch(c){f=!0,j=!0}})();v' + - 'ar r={elements:c.elements||"abbr article aside audio bdi canvas ' + - 'data datalist details figcaption figure footer header hgroup mar' + - 'k meter nav output progress section summary time video",shivCSS:' + - 'c.shivCSS!==!1,supportsUnknownElements:j,shivMethods:c.shivMetho' + - 'ds!==!1,type:"default",shivDocument:q,createElement:n,createDocu' + - 'mentFragment:o};a.html5=r,q(b)}(this,b),e._version=d,g.className' + - '=g.className.replace(/(^|\s)no-js(\s|$)/,"$1$2")+(f?" js "+p.joi' + - 'n(" "):""),e}(this,this.document);') - Left = 152 - Top = 272 - end object adhead: TPageProducer HTMLDoc.Strings = ( '<#pr>' - '

' + + ' ' + + ' ' + + ' /adminset?db=<#data' + + 'base> style=text-align:center>' ' ' '

' @@ -1842,9 +1572,11 @@ object TWebModule1: TTWebModule1 ' >'#12513#12531#12486#12490 + #12531#12473#34920#31034'

' '

' - '

'#12525#12464#12450#12454#12488'

' + '

'#12525#12464#12450#12454#12488'

' '
' - '
') + + '/admindel?db=<#database> method=post style=te' + + 'xt-align:center>') OnHTMLTag = adheadHTMLTag Left = 176 Top = 88 @@ -1882,7 +1614,7 @@ object TWebModule1: TTWebModule1 #9'});' '});' '') - Left = 104 + Left = 184 Top = 272 end object title: TPageProducer @@ -1910,7 +1642,7 @@ object TWebModule1: TTWebModule1 '' '<#pr>' '<#main>' - '

'#25147#12427'' + '

/>'#25147#12427'' '' '') OnHTMLTag = titleHTMLTag @@ -1919,11 +1651,242 @@ object TWebModule1: TTWebModule1 end object ti: TDataSetPageProducer HTMLDoc.Strings = ( - '

<#database>'#8595'

' - '
'#12479#12452#12488#12523': '#39'<#title> , '#35352#20107#25968': <#count> , '#26356#26032#26178#21051': <#date>

' + + '

/index?db=<#dbnum>><#dat' + + 'abase>'#8595'

' + '
'#12479#12452#12488#12523': <#title> ; '#35352#20107#25968': <#count> ; '#26356#26032#26178#21051': <#date>

' '') + DataSet = FDQuery1 OnHTMLTag = tiHTMLTag Left = 48 Top = 320 end + object FDTable2: TFDTable + IndexFieldNames = 'DBNUM;NUMBER' + MasterSource = DataSource1 + MasterFields = 'DBNUM' + Connection = FDConnection1 + FetchOptions.AssignedValues = [evLiveWindowParanoic] + UpdateOptions.UpdateTableName = 'article' + TableName = 'article' + Left = 584 + Top = 120 + object FDTable2DBNUM: TIntegerField + FieldName = 'DBNUM' + Origin = 'DBNUM' + ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] + Required = True + end + object FDTable2NUMBER: TIntegerField + FieldName = 'NUMBER' + Origin = 'NUMBER' + ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] + Required = True + end + object FDTable2TITLE: TWideStringField + FieldName = 'TITLE' + Origin = 'TITLE' + Size = 160 + end + object FDTable2NAME: TWideStringField + FieldName = 'NAME' + Origin = 'NAME' + Size = 160 + end + object FDTable2COMMENT: TWideMemoField + FieldName = 'COMMENT' + Origin = 'COMMENT' + BlobType = ftWideMemo + end + object FDTable2RAW: TWideMemoField + FieldName = 'RAW' + Origin = 'RAW' + BlobType = ftWideMemo + end + object FDTable2DATE: TDateField + FieldName = 'DATE' + Origin = 'DATE' + end + object FDTable2PASS: TWideStringField + FieldName = 'PASS' + Origin = 'PASS' + FixedChar = True + Size = 40 + end + end + object FDTable5: TFDTable + IndexFieldNames = 'ID' + Connection = FDConnection1 + UpdateOptions.UpdateTableName = 'images' + TableName = 'images' + Left = 712 + Top = 184 + object FDTable5id: TIntegerField + FieldName = 'id' + Origin = 'id' + ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] + Required = True + end + object FDTable5name: TWideStringField + AutoGenerateValue = arDefault + FieldName = 'name' + Origin = '`name`' + Size = 30 + end + object FDTable5source: TWideMemoField + AutoGenerateValue = arDefault + FieldName = 'source' + Origin = '`source`' + BlobType = ftWideMemo + end + end + object FDTable4: TFDTable + IndexFieldNames = 'ID' + Connection = FDConnection1 + UpdateOptions.UpdateTableName = 'req' + TableName = 'req' + Left = 712 + Top = 120 + object FDTable4ID: TIntegerField + FieldName = 'ID' + Origin = 'ID' + Required = True + end + object FDTable4DBNAME: TIntegerField + FieldName = 'DBNAME' + Origin = 'DBNAME' + end + object FDTable4POSNUM: TIntegerField + FieldName = 'POSNUM' + Origin = 'POSNUM' + end + object FDTable4DATE: TDateField + FieldName = 'DATE' + Origin = 'DATE' + Required = True + end + object FDTable4REQUEST: TWideMemoField + FieldName = 'REQUEST' + Origin = 'REQUEST' + BlobType = ftWideMemo + end + end + object DataSource1: TDataSource + DataSet = FDTable1 + Left = 520 + Top = 184 + end + object FDTable3: TFDTable + Connection = FDConnection1 + UpdateOptions.UpdateTableName = 'setting' + TableName = 'setting' + Left = 648 + Top = 120 + object FDTable3TITLE: TWideStringField + FieldName = 'TITLE' + Origin = 'TITLE' + Size = 160 + end + object FDTable3TITLE2: TWideStringField + FieldName = 'TITLE2' + Origin = 'TITLE2' + Size = 320 + end + object FDTable3mente: TSmallintField + FieldName = 'mente' + end + object FDTable3INFO: TIntegerField + FieldName = 'INFO' + Origin = 'INFO' + end + object FDTable3COUNT: TIntegerField + FieldName = 'COUNT' + Origin = 'COUNT' + end + object FDTable3password: TWideStringField + FieldName = 'password' + Size = 100 + end + object FDTable3ng: TWideStringField + FieldName = 'ng' + Size = 300 + end + end + object FDConnection1: TFDConnection + Params.Strings = ( + 'ConnectionDef=first_sql') + Left = 632 + Top = 56 + end + object FDTable1: TFDTable + IndexFieldNames = 'DBNUM' + Connection = FDConnection1 + UpdateOptions.UpdateTableName = 'dbname' + TableName = 'dbname' + Left = 520 + Top = 120 + object FDTable1DBNUM: TIntegerField + FieldName = 'DBNUM' + Origin = 'DBNUM' + Required = True + end + object FDTable1DATABASE: TWideStringField + FieldName = 'DATABASE' + Origin = 'DATABASE' + Required = True + Size = 80 + end + end + object login: TPageProducer + HTMLDoc.Strings = ( + '' + ' ' + ' ' + ' '#12525#12464#12452#12531'' + ' ' + ' ' + '<#pr>' + '

'#31649#29702#32773#29992#12525#12464#12452#12531#30011#38754 + '

' + '
' + ' /login method="post">' + '

' + ' >' + ' '#9' ' + ' ' + '

' + '
' + + '


/ >TOP'#12408#31227#21205'' + + '

' + ' ' + '') + OnHTMLTag = loginHTMLTag + Left = 296 + Top = 96 + end + object footer: TPageProducer + HTMLDoc.Strings = ( + '') + OnHTMLTag = footerHTMLTag + Left = 112 + Top = 192 + end + object FDGUIxWaitCursor1: TFDGUIxWaitCursor + Provider = 'Forms' + Left = 632 + Top = 256 + end + object FDQuery1: TFDQuery + Connection = FDConnection1 + SQL.Strings = ( + 'select dbnum,title,max(date) from article ' + ' group by dbnum order by max(date);') + Left = 616 + Top = 184 + end end