データベースはこの形で落ち着きそうです

diff --git a/Unit1.dfm b/Unit1.dfm
index 261fc66..44aebe8 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -3,7 +3,6 @@ object DataModule1: TDataModule1
   Height = 231
   Width = 302
   object FDTable1: TFDTable
-    Active = True
     IndexFieldNames = 'DBNUM'
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'dbname'
@@ -35,7 +34,6 @@ object DataModule1: TDataModule1
     Top = 24
   end
   object FDTable2: TFDTable
-    Active = True
     IndexFieldNames = 'DBNUM;NUMBER'
     MasterSource = DataSource1
     MasterFields = 'DBNUM'
@@ -90,7 +88,6 @@ object DataModule1: TDataModule1
     end
   end
   object FDTable3: TFDTable
-    Active = True
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'setting'
     TableName = 'setting'
@@ -124,10 +121,6 @@ object DataModule1: TDataModule1
       Required = True
       Size = 80
     end
-    object FDTable3TCNT: TIntegerField
-      FieldName = 'TCNT'
-      Origin = 'TCNT'
-    end
   end
   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
     Provider = 'Forms'
@@ -140,7 +133,6 @@ object DataModule1: TDataModule1
     Top = 152
   end
   object FDTable4: TFDTable
-    Active = True
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'req'
     TableName = 'req'
@@ -171,7 +163,6 @@ object DataModule1: TDataModule1
     end
   end
   object FDTable5: TFDTable
-    Active = True
     IndexFieldNames = 'ID'
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'images'

diff --git a/Unit1.pas b/Unit1.pas
index 15413ce..4747fbe 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -41,7 +41,6 @@ type
     FDTable4ID: TIntegerField;
     FDTable3PASSWORD: TWideStringField;
     FDTable2PASS: TWideStringField;
-    FDTable3TCNT: TIntegerField;
     FDTable5: TFDTable;
     FDTable5ID: TIntegerField;
     FDTable5NAME: TWideStringField;

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 11f0f3e..4c3ebf8 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -126,7 +126,8 @@ uses Unit1, IdHashSHA, IdGlobal, IdHash, IdHashMessageDigest;
 {$R *.dfm}
 
 const
-  promotion: string = '\8dL\8d\90:';
+  promotion = '\8dL\8d\90:';
+  tcnt = 7;
 
 procedure TTWebModule1.adheadHTMLTag(Sender: TObject; Tag: TTag;
   const TagString: string; TagParams: TStrings; var ReplaceText: string);
@@ -544,7 +545,7 @@ begin
   else if TagString = 'list' then
   begin
     i := DataModule1.FDTable3.FieldByName('info').AsInteger;
-    for k := 0 to DataModule1.FDTable3.FieldByName('tcnt').AsInteger do
+    for k := 0 to tcnt do
     begin
       if DataModule1.FDTable1.Eof = true then
         break;
@@ -579,8 +580,7 @@ begin
     ReplaceText := detail(TagString, TagParams.Values['id'])
   else if TagString = 'slide' then
   begin
-    j := DataModule1.FDTable3.FieldByName('tcnt').AsInteger;
-    for i := 1 to (DataModule1.FDTable1.RecordCount div j) + 1 do
+    for i := 1 to (DataModule1.FDTable1.RecordCount div tcnt) + 1 do
       ReplaceText := ReplaceText +
         '<div class="slide"><img src="/src?name=slide' + i.ToString +
         '.jpg" style=float:right;height:465px><#list></div>';
@@ -762,11 +762,11 @@ procedure TTWebModule1.TWebModule1imgAction(Sender: TObject;
   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
 begin
   with DataModule1.FDTable5 do
-  begin
-    Locate('name', Request.ContentFields.Values['name'], []);
-    Response.ContentType := 'image/jpeg';
-    Response.ContentStream := CreateBlobStream(FieldByName('source'), bmRead);
-  end;
+    if Locate('name', Request.ContentFields.Values['name']) = true then
+    begin
+      Response.ContentType := 'image/jpeg';
+      Response.ContentStream := CreateBlobStream(FieldByName('source'), bmRead);
+    end;
 end;
 
 procedure TTWebModule1.TWebModule1indexpageAction(Sender: TObject;
@@ -1023,9 +1023,23 @@ var
 begin
   with DataModule1 do
   begin
+    if FDTable1.Exists = false then
+      FDTable1.CreateTable;
+    if FDTable2.Exists = false then
+      FDTable2.CreateTable;
+    if FDTable3.Exists = false then
+      FDTable3.CreateTable;
+    if FDTable4.Exists = false then
+      FDTable4.CreateTable;
+    if FDTable5.Exists = false then
+      FDTable5.CreateTable;
+    FDTable1.Open;
+    FDTable2.Open;
+    FDTable3.Open;
+    FDTable4.Open;
+    FDTable5.Open;
     FDTable1.Refresh;
     FDTable3.Refresh;
-    FDTable5.Cancel;
     FDTable5.Refresh;
   end;
   if DataModule1.FDTable1.Bof and DataModule1.FDTable1.Eof then
@@ -1040,7 +1054,7 @@ begin
     DataModule1.FDTable3.AppendRecord
       (['\82Æ\82é\82Ë\81`\82Ç\8d\86',
       '<h1 style=color:maron;text-align:center;font-style:italic>\82Æ\82é\82Ë\81`\82Ç\8d\86</h1>',
-      false, a, 30, hash('admin'), 7]);
+      false, a, 30, hash('admin')]);
   end;
 end;