adminページをいじった レイアウトを少しと パスワード変更時のタイプミス防止

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 0d6dea3..a5d63c9 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -197,9 +197,11 @@ object WebModule1: TWebModule1
   object admin: TDataSetTableProducer
     Columns = <
       item
+        Custom = 'width=10%'
         FieldName = 'CHECK'
       end
       item
+        Custom = 'width=10%'
         FieldName = 'NUMBER'
       end
       item
@@ -1803,6 +1805,10 @@ object WebModule1: TWebModule1
       
         '      <input type="password" style="HEIGHT: 23px; WIDTH: 85px" n' +
         'ame="pass">'
+      '       / '#30906#35469
+      
+        '      <input type=password style=height:23px;width:85px name=pas' +
+        's2>'
       '      </p>'
       '    </label>'
       '    <p>'

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 1f7e518..6e178d6 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -882,7 +882,7 @@ begin
     else
       i := 0;
     FieldByName('mente').AsInteger := i;
-    if s <> '' then
+    if (s <> '')and(s = Request.ContentFields.Values['pass2']) then
     begin
       s := hash(s);
       FieldByName('password').AsString := hash(s);