From 82445cbea19b87e86c09773d1a8935fdb8542831 Mon Sep 17 00:00:00 2001
From: yamat0jp <terukohietori@gmail.com>
Date: Fri, 10 Jan 2020 08:32:30 +0900
Subject: [PATCH] =?utf8?q?tag=E3=81=AB=E4=BB=A3=E5=85=A5=E3=81=97=E3=81=9F?=
 =?utf8?q?=E6=96=87=E5=AD=97=E5=88=97=E3=81=8C=E3=83=AD=E3=83=BC=E3=82=AB?=
 =?utf8?q?=E3=83=AB=E5=A4=89=E6=95=B0=E3=81=A0=E3=81=A3=E3=81=9F=E6=89=8B?=
 =?utf8?q?=E9=81=95=E3=81=84=E3=82=92=E7=9B=B4=E3=81=99=20footer=E3=82=92?=
 =?utf8?q?=E4=B8=80=E5=BA=A6clear=E3=81=97=E3=81=A6=E3=81=8B=E3=82=89?=
 =?utf8?q?=E4=BD=BF=E3=81=86?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 WebModuleUnit1.dfm |  4 +---
 WebModuleUnit1.pas | 20 ++++++++------------
 2 files changed, 9 insertions(+), 15 deletions(-)

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 54b2374..c674804 100644
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -208,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
@@ -1835,7 +1833,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>'
diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index c9a13a2..047fe31 100644
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -106,6 +106,7 @@ type
   private
     { private éŒ¾ }
     ss: TStringList;
+    tagstr: string;
     procedure pages(count: Integer; var page: Integer);
     function hash(str: string): string;
     function mente: Boolean;
@@ -636,18 +637,14 @@ begin
   i := StrToIntDef(s, -1);
   pages(DataModule1.FDTable2.RecordCount, i);
   index.Tag := i;
-  s := '/admin';
-  Self.Tag := Integer(@s);
+  tagstr := '/admin';
+  Self.Tag := Integer(@tagstr);
   i := footer.HTMLDoc.Add
     ('<p style=text-align:center><a href="/index?db=<#dbnum>">–ß‚é</a>');
   admin.header.Text := adhead.Content;
-  if admin.Tag = 0 then
-    admin.footer.Insert(3, footer.Content)
-  else
-  begin
-    admin.footer.Delete(3);
-    admin.footer.Insert(3, footer.Content);
-  end;
+  admin.Footer.Clear;
+  admin.Footer.Add('<input type=submit value=íœ‚·‚é><input type=reset value=ƒŠƒZƒbƒg></form>');
+  admin.Footer.Add(footer.Content);
   admin.Tag := DataModule1.FDTable2.RecNo;
   footer.HTMLDoc.Delete(i);
   Response.ContentType := 'text/html;charset=utf-8';
@@ -797,8 +794,8 @@ begin
   int := StrToIntDef(Request.QueryFields.Values['num'], -1);
   pages(DataModule1.FDTable2.RecordCount, int);
   index.Tag := int;
-  s := '/index';
-  Self.Tag := Integer(@s);
+  tagstr := '/index';
+  Self.Tag := Integer(@tagstr);
   Response.ContentType := 'text/html; charset="utf-8"';
   if mente = false then
     Response.Content := index.Content;
@@ -870,7 +867,6 @@ procedure TWebModule1.WebModule1logoutAction(Sender: TObject;
   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
 var
   s: string;
-  v: Variant;
 begin
   with Response.Cookies.Add do
   begin
-- 
2.11.0