<#name>

' @@ -117,9 +119,10 @@ object WebModule1: TWebModule1 #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 = FDTable2 OnHTMLTag = articlesHTMLTag Left = 112 Top = 88 @@ -131,6 +134,11 @@ object WebModule1: TWebModule1 ' ' ' ' ' ' + + ' ' '"' + - ',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>' - '

' - '

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

'#25147#12427'' + '

/>'#25147#12427'' '' '') OnHTMLTag = titleHTMLTag @@ -1904,10 +1652,11 @@ object WebModule1: TWebModule1 object ti: TDataSetPageProducer HTMLDoc.Strings = ( - '

><#database>' + - ''#8595'

' + '

/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 @@ -1918,7 +1667,6 @@ object WebModule1: TWebModule1 MasterFields = 'DBNUM' Connection = FDConnection1 FetchOptions.AssignedValues = [evLiveWindowParanoic] - FetchOptions.LiveWindowParanoic = True UpdateOptions.UpdateTableName = 'article' TableName = 'article' Left = 584 @@ -1969,34 +1717,29 @@ object WebModule1: TWebModule1 object FDTable5: TFDTable IndexFieldNames = 'ID' Connection = FDConnection1 - UpdateOptions.UpdateTableName = 'IMAGES' - TableName = 'IMAGES' + UpdateOptions.UpdateTableName = 'images' + TableName = 'images' Left = 712 Top = 184 - object FDTable5ID: TIntegerField - FieldName = 'ID' - Origin = 'ID' + object FDTable5id: TIntegerField + FieldName = 'id' + Origin = 'id' ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] Required = True end - object FDTable5NAME: TWideStringField - FieldName = 'NAME' - Origin = 'NAME' + object FDTable5name: TWideStringField + AutoGenerateValue = arDefault + FieldName = 'name' + Origin = '`name`' Size = 30 end - object FDTable5SOURCE: TBlobField - FieldName = 'SOURCE' - Origin = '"SOURCE"' + object FDTable5source: TWideMemoField + AutoGenerateValue = arDefault + FieldName = 'source' + Origin = '`source`' + BlobType = ftWideMemo end end - object FDQuery1: TFDQuery - Connection = FDConnection1 - SQL.Strings = ( - 'select dbnum,number,title from article' - ' where number = 1;') - Left = 624 - Top = 184 - end object FDTable4: TFDTable IndexFieldNames = 'ID' Connection = FDConnection1 @@ -2049,10 +1792,8 @@ object WebModule1: TWebModule1 Origin = 'TITLE2' Size = 320 end - object FDTable3mente: TBooleanField - FieldKind = fkCalculated + object FDTable3mente: TSmallintField FieldName = 'mente' - Calculated = True end object FDTable3INFO: TIntegerField FieldName = 'INFO' @@ -2073,9 +1814,7 @@ object WebModule1: TWebModule1 end object FDConnection1: TFDConnection Params.Strings = ( - 'Database=F:\web\cgi-bin\MYDATA.FDB' - 'ConnectionDef=test_server') - Connected = True + 'ConnectionDef=first_sql') Left = 632 Top = 56 end @@ -2098,4 +1837,56 @@ object WebModule1: TWebModule1 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