やるべきことはできたけれど 画像の保持に関しては失敗ばかり

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 3cf9bb5..148ee13 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -148,6 +148,7 @@ object Form1: TForm1
     Top = 486
     Width = 65
     Height = 21
+    ReadOnly = True
     TabOrder = 12
   end
   object UpDown1: TUpDown
@@ -160,6 +161,7 @@ object Form1: TForm1
     Max = 300
     Position = 30
     TabOrder = 13
+    OnClick = UpDown1Click
   end
   object Edit6: TEdit
     Left = 64
@@ -263,13 +265,6 @@ object Form1: TForm1
       Control = Edit4
       Track = True
     end
-    object LinkControlToField6: TLinkControlToField
-      Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
-      DataSource = BindSourceDB2
-      FieldName = 'count'
-      Control = Edit5
-      Track = True
-    end
     object LinkControlToField4: TLinkControlToField
       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
       DataSource = BindSourceDB2

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index c72c1b1..e6eede7 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -54,7 +54,6 @@ type
     Edit5: TEdit;
     UpDown1: TUpDown;
     Edit6: TEdit;
-    LinkControlToField6: TLinkControlToField;
     LinkControlToField4: TLinkControlToField;
     ComboBox1: TComboBox;
     Button6: TButton;
@@ -67,6 +66,7 @@ type
     procedure Button6Click(Sender: TObject);
     procedure ComboBox1Select(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
+    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
   private
     { Private \90é\8c¾ }
   public
@@ -136,15 +136,16 @@ procedure TForm1.Button6Click(Sender: TObject);
     with TIdHashSHA1.Create do
     begin
       try
-        result:=HashStringAsHex(str);
+        result := HashStringAsHex(str);
       finally
         Free;
       end;
     end;
   end;
+
 begin
   if Edit6.Text <> '' then
-    FDTable2.FieldByName('password').AsString:=hash(hash(Edit6.Text));
+    FDTable2.FieldByName('password').AsString := hash(hash(Edit6.Text));
   FDTable2.Post;
   FDTable2.Edit;
 end;
@@ -161,8 +162,6 @@ begin
 end;
 
 procedure TForm1.ComboBox1Select(Sender: TObject);
-var
-  i: Integer;
 begin
   FDQuery1.Open('select * from dbname');
   FDTable2.FieldByName('info').AsInteger := FDQuery1.Lookup('database',
@@ -197,8 +196,14 @@ begin
       'database');
     Close;
   end;
+  CheckBox1.Checked := FDTable2.FieldByName('mente').AsInteger = 1;
+  UpDown1.Position := FDTable2.FieldByName('count').AsInteger;
   FDTable2.Edit;
-  CheckBox1Click(nil);
+end;
+
+procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
+begin
+  FDTable2.FieldByName('count').AsInteger := UpDown1.Position;
 end;
 
 end.