dbname table にも対応

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

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 83d57b1..73ef4a3 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -2,8 +2,8 @@ object Form1: TForm1
   Left = 0
   Top = 0
   Caption = 'Form1'
-  ClientHeight = 299
-  ClientWidth = 635
+  ClientHeight = 657
+  ClientWidth = 849
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -12,22 +12,42 @@ object Form1: TForm1
   Font.Style = []
   OldCreateOrder = False
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
   PixelsPerInch = 96
   TextHeight = 13
-  object Image1: TImage
-    Left = 48
-    Top = 80
-    Width = 105
-    Height = 105
-    Proportional = True
-  end
   object Label1: TLabel
     Left = 48
     Top = 56
     Width = 3
     Height = 13
   end
+  object Label2: TLabel
+    Left = 20
+    Top = 531
+    Width = 14
+    Height = 13
+    Caption = 'NG'
+  end
+  object Label3: TLabel
+    Left = 8
+    Top = 579
+    Width = 36
+    Height = 13
+    Caption = #35373#23450#29992
+  end
+  object Bevel1: TBevel
+    Left = 20
+    Top = 280
+    Width = 575
+    Height = 50
+    Shape = bsTopLine
+  end
+  object SpeedButton1: TSpeedButton
+    Left = 618
+    Top = 488
+    Width = 23
+    Height = 22
+    OnClick = SpeedButton1Click
+  end
   object Button1: TButton
     Left = 296
     Top = 56
@@ -44,7 +64,6 @@ object Form1: TForm1
     Height = 25
     Caption = 'Button2'
     TabOrder = 1
-    OnClick = Button2Click
   end
   object Button3: TButton
     Left = 296
@@ -84,26 +103,151 @@ object Form1: TForm1
     TitleFont.Name = 'Tahoma'
     TitleFont.Style = []
   end
+  object Button4: TButton
+    Left = 296
+    Top = 160
+    Width = 75
+    Height = 25
+    Caption = 'Button4'
+    TabOrder = 6
+    OnClick = Button4Click
+  end
+  object Memo1: TMemo
+    Left = 64
+    Top = 376
+    Width = 425
+    Height = 89
+    TabOrder = 7
+  end
+  object CheckBox1: TCheckBox
+    Left = 64
+    Top = 488
+    Width = 97
+    Height = 17
+    Caption = 'mente'
+    TabOrder = 8
+    OnClick = CheckBox1Click
+  end
+  object Edit3: TEdit
+    Left = 64
+    Top = 528
+    Width = 425
+    Height = 21
+    TabOrder = 9
+  end
+  object Edit4: TEdit
+    Left = 64
+    Top = 325
+    Width = 209
+    Height = 21
+    TabOrder = 10
+  end
+  object Button5: TButton
+    Left = 520
+    Top = 323
+    Width = 75
+    Height = 25
+    Caption = 'default'
+    TabOrder = 11
+    OnClick = Button5Click
+  end
+  object Edit5: TEdit
+    Left = 328
+    Top = 486
+    Width = 65
+    Height = 21
+    ReadOnly = True
+    TabOrder = 12
+    Text = '30'
+  end
+  object UpDown1: TUpDown
+    Left = 393
+    Top = 486
+    Width = 16
+    Height = 21
+    Associate = Edit5
+    Min = 5
+    Max = 300
+    Position = 30
+    TabOrder = 13
+    OnClick = UpDown1Click
+  end
+  object Edit6: TEdit
+    Left = 64
+    Top = 576
+    Width = 121
+    Height = 21
+    TabOrder = 14
+  end
+  object ComboBox1: TComboBox
+    Left = 280
+    Top = 576
+    Width = 145
+    Height = 21
+    TabOrder = 15
+    OnSelect = ComboBox1Select
+  end
+  object Button6: TButton
+    Left = 520
+    Top = 368
+    Width = 75
+    Height = 25
+    Caption = 'adapt'
+    TabOrder = 16
+    OnClick = Button6Click
+  end
+  object ListBox1: TListBox
+    Left = 520
+    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 = 520
+    Top = 486
+    Width = 92
+    Height = 21
+    TabOrder = 18
+  end
   object FDConnection1: TFDConnection
     Params.Strings = (
-      'Database=kainushi'
-      'User_Name=masasi'
-      'Password=kainushi'
-      'CharacterSet=utf8'
-      'DriverID=MySQL')
+      'ConnectionDef=first_sql')
     Connected = True
     Left = 144
     Top = 64
   end
   object FDTable1: TFDTable
+    Active = True
+    CachedUpdates = True
     IndexFieldNames = 'id'
     Connection = FDConnection1
-    FetchOptions.AssignedValues = [evDetailServerCascade]
+    FetchOptions.AssignedValues = [evDetailCascade, evDetailServerCascade]
+    FetchOptions.DetailCascade = True
     FetchOptions.DetailServerCascade = True
     UpdateOptions.UpdateTableName = 'images'
     TableName = 'images'
     Left = 232
     Top = 64
+    object FDTable1ID: TIntegerField
+      FieldName = 'ID'
+      Origin = 'ID'
+      Required = True
+    end
+    object FDTable1NAME: TWideStringField
+      FieldName = 'NAME'
+      Origin = 'NAME'
+    end
+    object FDTable1SOURCE: TBlobField
+      FieldName = 'SOURCE'
+      Origin = '"SOURCE"'
+    end
   end
   object OpenPictureDialog1: TOpenPictureDialog
     DefaultExt = 'jpg'
@@ -114,8 +258,8 @@ object Form1: TForm1
   object BindSourceDB1: TBindSourceDB
     DataSet = FDTable1
     ScopeMappings = <>
-    Left = 312
-    Top = 152
+    Left = 176
+    Top = 216
   end
   object BindingsList1: TBindingsList
     Methods = <>
@@ -136,6 +280,27 @@ 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'
@@ -148,14 +313,85 @@ object Form1: TForm1
     Top = 112
   end
   object FDQuery1: TFDQuery
+    CachedUpdates = True
     Connection = FDConnection1
     SQL.Strings = (
-      'create database if not exists kainushi;'
       'use kainushi;'
-      'drop table images;'
       'create table images(id int primary key,'
       ' name varchar(30), source mediumblob);')
-    Left = 416
-    Top = 64
+    Left = 440
+    Top = 112
+  end
+  object FDTable2: TFDTable
+    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
+  end
+  object FDTable3: TFDTable
+    CachedUpdates = True
+    Connection = FDConnection1
+    UpdateOptions.UpdateTableName = 'kainushi.dbname'
+    TableName = 'kainushi.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
 end