MySQLで不安定ながら画像を扱うことに成功しました。

[newbbs/newbbs.git] / tool / Unit2.dfm

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 0ae80f2..a83f648 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -3,7 +3,7 @@ object Form1: TForm1
   Top = 0
   Caption = 'Form1'
   ClientHeight = 657
-  ClientWidth = 635
+  ClientWidth = 640
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -21,29 +21,37 @@ object Form1: TForm1
     Height = 13
   end
   object Label2: TLabel
-    Left = 20
+    Left = 37
     Top = 531
     Width = 14
     Height = 13
     Caption = 'NG'
   end
   object Label3: TLabel
-    Left = 8
+    Left = 24
     Top = 579
-    Width = 36
-    Height = 13
-    Caption = #35373#23450#29992
+    Width = 50
+    Height = 26
+    Caption = #12497#12473#12527#12540#12489' '#35373#23450#29992
+    WordWrap = True
   end
   object Bevel1: TBevel
     Left = 20
     Top = 280
-    Width = 575
+    Width = 564
     Height = 50
     Shape = bsTopLine
   end
+  object SpeedButton1: TSpeedButton
+    Left = 561
+    Top = 488
+    Width = 23
+    Height = 22
+    OnClick = SpeedButton1Click
+  end
   object Button1: TButton
-    Left = 296
-    Top = 56
+    Left = 206
+    Top = 32
     Width = 75
     Height = 25
     Caption = 'Button1'
@@ -51,16 +59,17 @@ object Form1: TForm1
     OnClick = Button1Click
   end
   object Button2: TButton
-    Left = 296
-    Top = 96
+    Left = 206
+    Top = 72
     Width = 75
     Height = 25
     Caption = 'Button2'
     TabOrder = 1
+    OnClick = Button2Click
   end
   object Button3: TButton
-    Left = 296
-    Top = 191
+    Left = 206
+    Top = 167
     Width = 75
     Height = 25
     Caption = 'Button3'
@@ -68,7 +77,7 @@ object Form1: TForm1
     OnClick = Button3Click
   end
   object Edit1: TEdit
-    Left = 48
+    Left = 80
     Top = 225
     Width = 121
     Height = 21
@@ -76,7 +85,7 @@ object Form1: TForm1
     TabOrder = 3
   end
   object DBNavigator1: TDBNavigator
-    Left = 224
+    Left = 312
     Top = 222
     Width = 240
     Height = 25
@@ -84,10 +93,10 @@ object Form1: TForm1
     TabOrder = 4
   end
   object DBGrid1: TDBGrid
-    Left = 398
-    Top = 80
-    Width = 186
-    Height = 120
+    Left = 312
+    Top = 32
+    Width = 272
+    Height = 160
     DataSource = DataSource1
     TabOrder = 5
     TitleFont.Charset = DEFAULT_CHARSET
@@ -97,8 +106,8 @@ object Form1: TForm1
     TitleFont.Style = []
   end
   object Button4: TButton
-    Left = 296
-    Top = 160
+    Left = 206
+    Top = 136
     Width = 75
     Height = 25
     Caption = 'Button4'
@@ -106,37 +115,36 @@ object Form1: TForm1
     OnClick = Button4Click
   end
   object Memo1: TMemo
-    Left = 64
+    Left = 80
     Top = 376
-    Width = 425
+    Width = 345
     Height = 89
     TabOrder = 7
   end
   object CheckBox1: TCheckBox
-    Left = 64
+    Left = 80
     Top = 488
     Width = 97
     Height = 17
     Caption = 'mente'
     TabOrder = 8
-    OnClick = CheckBox1Click
   end
   object Edit3: TEdit
-    Left = 64
+    Left = 80
     Top = 528
-    Width = 425
+    Width = 345
     Height = 21
     TabOrder = 9
   end
   object Edit4: TEdit
-    Left = 64
+    Left = 80
     Top = 325
-    Width = 209
+    Width = 201
     Height = 21
     TabOrder = 10
   end
   object Button5: TButton
-    Left = 520
+    Left = 509
     Top = 323
     Width = 75
     Height = 25
@@ -163,12 +171,11 @@ object Form1: TForm1
     Max = 300
     Position = 30
     TabOrder = 13
-    OnClick = UpDown1Click
   end
   object Edit6: TEdit
-    Left = 64
+    Left = 80
     Top = 576
-    Width = 121
+    Width = 129
     Height = 21
     TabOrder = 14
   end
@@ -178,10 +185,9 @@ object Form1: TForm1
     Width = 145
     Height = 21
     TabOrder = 15
-    OnSelect = ComboBox1Select
   end
   object Button6: TButton
-    Left = 520
+    Left = 509
     Top = 368
     Width = 75
     Height = 25
@@ -189,12 +195,32 @@ object Form1: TForm1
     TabOrder = 16
     OnClick = Button6Click
   end
+  object ListBox1: TListBox
+    Left = 463
+    Top = 516
+    Width = 121
+    Height = 97
+    DragMode = dmAutomatic
+    ItemHeight = 13
+    TabOrder = 17
+    OnDragOver = ListBox1DragOver
+    OnEndDrag = ListBox1EndDrag
+    OnKeyDown = ListBox1KeyDown
+    OnStartDrag = ListBox1StartDrag
+  end
+  object Edit2: TEdit
+    Left = 463
+    Top = 486
+    Width = 92
+    Height = 21
+    TabOrder = 18
+  end
   object FDConnection1: TFDConnection
     Params.Strings = (
       'ConnectionDef=first_sql')
     Connected = True
-    Left = 144
-    Top = 64
+    Left = 320
+    Top = 24
   end
   object FDTable1: TFDTable
     Active = True
@@ -206,8 +232,8 @@ object Form1: TForm1
     FetchOptions.DetailServerCascade = True
     UpdateOptions.UpdateTableName = 'images'
     TableName = 'images'
-    Left = 232
-    Top = 64
+    Left = 392
+    Top = 24
     object FDTable1ID: TIntegerField
       FieldName = 'ID'
       Origin = 'ID'
@@ -225,8 +251,8 @@ object Form1: TForm1
   object OpenPictureDialog1: TOpenPictureDialog
     DefaultExt = 'jpg'
     FilterIndex = 2
-    Left = 144
-    Top = 128
+    Left = 88
+    Top = 96
   end
   object BindSourceDB1: TBindSourceDB
     DataSet = FDTable1
@@ -253,59 +279,91 @@ object Form1: TForm1
       Control = Edit1
       Track = True
     end
-    object LinkControlToField1: TLinkControlToField
-      Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
-      DataSource = BindSourceDB2
-      FieldName = 'ng'
-      Control = Edit3
-      Track = True
-    end
-    object LinkControlToField5: TLinkControlToField
-      Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
-      DataSource = BindSourceDB2
-      FieldName = 'title'
-      Control = Edit4
-      Track = True
-    end
-    object LinkControlToField4: TLinkControlToField
-      Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
-      DataSource = BindSourceDB2
-      FieldName = 'title2'
-      Control = Memo1
-      Track = False
-    end
   end
   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
     Provider = 'Forms'
-    Left = 224
-    Top = 160
-  end
-  object DataSource1: TDataSource
-    DataSet = FDTable1
-    Left = 232
-    Top = 112
+    Left = 88
+    Top = 152
   end
   object FDQuery1: TFDQuery
+    CachedUpdates = True
     Connection = FDConnection1
     SQL.Strings = (
-      'use kainushi;'
-      'create table images(id int primary key,'
+      'create table if not exists'
+      ' kainushi.images(id int primary key,'
       ' name varchar(30), source mediumblob);')
     Left = 440
     Top = 112
   end
   object FDTable2: TFDTable
-    Active = True
+    CachedUpdates = True
     Connection = FDConnection1
     UpdateOptions.UpdateTableName = 'setting'
     TableName = 'setting'
     Left = 496
     Top = 280
+    object FDTable2title: TWideStringField
+      AutoGenerateValue = arDefault
+      FieldName = 'title'
+      Origin = 'title'
+      Size = 160
+    end
+    object FDTable2title2: TWideStringField
+      AutoGenerateValue = arDefault
+      FieldName = 'title2'
+      Origin = 'title2'
+      Size = 320
+    end
+    object FDTable2mente: TSmallintField
+      AutoGenerateValue = arDefault
+      FieldName = 'mente'
+      Origin = 'mente'
+    end
+    object FDTable2info: TIntegerField
+      AutoGenerateValue = arDefault
+      FieldName = 'info'
+      Origin = 'info'
+    end
+    object FDTable2count: TIntegerField
+      AutoGenerateValue = arDefault
+      FieldName = 'count'
+      Origin = 'count'
+    end
+    object FDTable2password: TWideStringField
+      AutoGenerateValue = arDefault
+      FieldName = 'password'
+      Origin = '`password`'
+      Size = 100
+    end
+    object FDTable2ng: TWideStringField
+      AutoGenerateValue = arDefault
+      FieldName = 'ng'
+      Origin = 'ng'
+      Size = 300
+    end
   end
-  object BindSourceDB2: TBindSourceDB
-    DataSet = FDTable2
-    ScopeMappings = <>
-    Left = 368
-    Top = 304
+  object FDTable3: TFDTable
+    CachedUpdates = True
+    Connection = FDConnection1
+    UpdateOptions.UpdateTableName = 'dbname'
+    TableName = 'dbname'
+    Left = 440
+    Top = 280
+    object FDTable3dbnum: TIntegerField
+      FieldName = 'dbnum'
+      Origin = 'dbnum'
+      Required = True
+    end
+    object FDTable3database: TWideStringField
+      FieldName = 'database'
+      Origin = '`database`'
+      Required = True
+      Size = 80
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = FDTable1
+    Left = 464
+    Top = 24
   end
 end