MYSQL

diff --git a/Project3.dproj b/Project3.dproj
index d2eb409..53f24db 100644 (file)
--- a/Project3.dproj
+++ b/Project3.dproj
@@ -6,7 +6,7 @@
         <MainSource>Project3.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Win64</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>

diff --git a/Unit1.dfm b/Unit1.dfm
index d3580d6..9340309 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -17,19 +17,19 @@ object DataModule1: TDataModule1
     end
     object FDTable1DATABASE: TWideStringField
       FieldName = 'DATABASE'
-      Origin = '"DATABASE"'
+      Origin = 'DATABASE'
       Required = True
       Size = 80
     end
   end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'CharacterSet=UTF8'
-      'OpenMode=OpenOrCreate'
-      'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
-      'User_Name=sysdba'
-      'Password=masterkey'
-      'DriverID=IB')
+      'Password=admin'
+      'CharacterSet=utf8'
+      'User_Name=kainushi'
+      'Database=kainushi'
+      'Server=localhost'
+      'DriverID=MySQL')
     Connected = True
     Left = 144
     Top = 24
@@ -116,11 +116,11 @@ object DataModule1: TDataModule1
     end
     object FDTable3COUNT: TIntegerField
       FieldName = 'COUNT'
-      Origin = '"COUNT"'
+      Origin = 'COUNT'
     end
     object FDTable3PASSWORD: TWideStringField
       FieldName = 'PASSWORD'
-      Origin = '"PASSWORD"'
+      Origin = 'PASSWORD'
       Required = True
       Size = 80
     end
@@ -161,7 +161,7 @@ object DataModule1: TDataModule1
     end
     object FDTable4DATE: TDateField
       FieldName = 'DATE'
-      Origin = '"DATE"'
+      Origin = 'DATE'
       Required = True
     end
     object FDTable4REQUEST: TWideMemoField
@@ -197,9 +197,9 @@ object DataModule1: TDataModule1
   object FDQuery1: TFDQuery
     Connection = FDConnection1
     SQL.Strings = (
-      'select "DATABASE", title, name, "DATE" from'
+      'select "database", title, name, date from'
       ' dbname inner join article on dbname.dbnum = article.dbnum'
-      ' where number = 1 order by "DATE";')
+      ' where number = 1 order by date;')
     Left = 160
     Top = 144
   end

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 1c97507..d93f981 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -834,7 +834,7 @@ begin
     Name := 'user';
     Value := Request.ContentFields.Values['password'];
     Expires := Now + 14;
-    Secure := true;
+  //  Secure := true;
   end;
   i := DataModule1.FDTable1.Lookup('database',
     Request.ContentFields.Values['record'], 'dbnum');