前進

diff --git a/Unit1.pas b/Unit1.pas
index 07a033b..2d64031 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -352,7 +352,7 @@ begin
   ma:=Data.Values['mail'].Value;
   pa:=Data.Values['password'].Value;
   if reader.Locate('mail;password',VarArrayOf([ma,pa])) = true then
-    result:=reader.FieldByName('id').AsInteger
+    result:=reader.FieldByName('readerid').AsInteger
   else
     result:=0;
 end;
@@ -364,7 +364,7 @@ begin
   ma:=Data.Values['mail'].Value;
   pa:=Data.Values['password'].Value;
   if writer.Locate('mail;password',VarArrayOf([ma,pa])) = true then
-    result:=writer.FieldByName('id').AsInteger
+    result:=writer.FieldByName('writerid').AsInteger
   else
     result:=0;
 end;

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index 80f7399..fe155ed 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -140,7 +140,7 @@ object WebModule1: TWebModule1
       '    {{/items}}'
       '    <hr>'
       '    <p>'#26032#35215#30331#37682
-      '    <form method="post" action="/regist">'
+      '    <form method="post" action="/reader/data">'
       '        <input type="text" name="reader">'
       '        <input type="text" name="mail">'
       '        <input type="password" name="password">'

diff --git a/newstable.dproj b/newstable.dproj
index 8c61b09..68024b6 100644 (file)
--- a/newstable.dproj
+++ b/newstable.dproj
@@ -5,7 +5,7 @@
         <FrameworkType>VCL</FrameworkType>
         <MainSource>newstable.dpr</MainSource>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Application</AppType>