tool/Unit2.dfm

   1 object Form1: TForm1
   2   Left = 0
   3   Top = 0
   4   Caption = 'Form1'
   5   ClientHeight = 657
   6   ClientWidth = 849
   7   Color = clBtnFace
   8   Font.Charset = DEFAULT_CHARSET
   9   Font.Color = clWindowText
  10   Font.Height = -11
  11   Font.Name = 'Tahoma'
  12   Font.Style = []
  13   OldCreateOrder = False
  14   OnCreate = FormCreate
  15   PixelsPerInch = 96
  16   TextHeight = 13
  17   object Label1: TLabel
  18     Left = 48
  19     Top = 56
  20     Width = 3
  21     Height = 13
  22   end
  23   object Label2: TLabel
  24     Left = 37
  25     Top = 531
  26     Width = 14
  27     Height = 13
  28     Caption = 'NG'
  29   end
  30   object Label3: TLabel
  31     Left = 24
  32     Top = 579
  33     Width = 50
  34     Height = 26
  35     Caption = #12497#12473#12527#12540#12489' '#35373#23450#29992
  36     WordWrap = True
  37   end
  38   object Bevel1: TBevel
  39     Left = 20
  40     Top = 280
  41     Width = 564
  42     Height = 50
  43     Shape = bsTopLine
  44   end
  45   object SpeedButton1: TSpeedButton
  46     Left = 561
  47     Top = 488
  48     Width = 23
  49     Height = 22
  50     OnClick = SpeedButton1Click
  51   end
  52   object Button1: TButton
  53     Left = 296
  54     Top = 56
  55     Width = 75
  56     Height = 25
  57     Caption = 'Button1'
  58     TabOrder = 0
  59     OnClick = Button1Click
  60   end
  61   object Button2: TButton
  62     Left = 296
  63     Top = 96
  64     Width = 75
  65     Height = 25
  66     Caption = 'Button2'
  67     TabOrder = 1
  68   end
  69   object Button3: TButton
  70     Left = 296
  71     Top = 191
  72     Width = 75
  73     Height = 25
  74     Caption = 'Button3'
  75     TabOrder = 2
  76     OnClick = Button3Click
  77   end
  78   object Edit1: TEdit
  79     Left = 80
  80     Top = 225
  81     Width = 121
  82     Height = 21
  83     ReadOnly = True
  84     TabOrder = 3
  85   end
  86   object DBNavigator1: TDBNavigator
  87     Left = 280
  88     Top = 238
  89     Width = 240
  90     Height = 25
  91     TabOrder = 4
  92   end
  93   object DBGrid1: TDBGrid
  94     Left = 398
  95     Top = 80
  96     Width = 186
  97     Height = 120
  98     DataSource = DataSource1
  99     TabOrder = 5
 100     TitleFont.Charset = DEFAULT_CHARSET
 101     TitleFont.Color = clWindowText
 102     TitleFont.Height = -11
 103     TitleFont.Name = 'Tahoma'
 104     TitleFont.Style = []
 105   end
 106   object Button4: TButton
 107     Left = 296
 108     Top = 160
 109     Width = 75
 110     Height = 25
 111     Caption = 'Button4'
 112     TabOrder = 6
 113     OnClick = Button4Click
 114   end
 115   object Memo1: TMemo
 116     Left = 80
 117     Top = 376
 118     Width = 345
 119     Height = 89
 120     TabOrder = 7
 121   end
 122   object CheckBox1: TCheckBox
 123     Left = 80
 124     Top = 488
 125     Width = 97
 126     Height = 17
 127     Caption = 'mente'
 128     TabOrder = 8
 129     OnClick = CheckBox1Click
 130   end
 131   object Edit3: TEdit
 132     Left = 80
 133     Top = 528
 134     Width = 345
 135     Height = 21
 136     TabOrder = 9
 137   end
 138   object Edit4: TEdit
 139     Left = 80
 140     Top = 325
 141     Width = 201
 142     Height = 21
 143     TabOrder = 10
 144   end
 145   object Button5: TButton
 146     Left = 509
 147     Top = 323
 148     Width = 75
 149     Height = 25
 150     Caption = 'default'
 151     TabOrder = 11
 152     OnClick = Button5Click
 153   end
 154   object Edit5: TEdit
 155     Left = 328
 156     Top = 486
 157     Width = 65
 158     Height = 21
 159     ReadOnly = True
 160     TabOrder = 12
 161     Text = '30'
 162   end
 163   object UpDown1: TUpDown
 164     Left = 393
 165     Top = 486
 166     Width = 16
 167     Height = 21
 168     Associate = Edit5
 169     Min = 5
 170     Max = 300
 171     Position = 30
 172     TabOrder = 13
 173     OnClick = UpDown1Click
 174   end
 175   object Edit6: TEdit
 176     Left = 80
 177     Top = 576
 178     Width = 129
 179     Height = 21
 180     TabOrder = 14
 181   end
 182   object ComboBox1: TComboBox
 183     Left = 280
 184     Top = 576
 185     Width = 145
 186     Height = 21
 187     TabOrder = 15
 188     OnSelect = ComboBox1Select
 189   end
 190   object Button6: TButton
 191     Left = 509
 192     Top = 368
 193     Width = 75
 194     Height = 25
 195     Caption = 'adapt'
 196     TabOrder = 16
 197     OnClick = Button6Click
 198   end
 199   object ListBox1: TListBox
 200     Left = 463
 201     Top = 516
 202     Width = 121
 203     Height = 97
 204     DragMode = dmAutomatic
 205     ItemHeight = 13
 206     TabOrder = 17
 207     OnDragOver = ListBox1DragOver
 208     OnEndDrag = ListBox1EndDrag
 209     OnKeyDown = ListBox1KeyDown
 210     OnStartDrag = ListBox1StartDrag
 211   end
 212   object Edit2: TEdit
 213     Left = 463
 214     Top = 486
 215     Width = 92
 216     Height = 21
 217     TabOrder = 18
 218   end
 219   object FDConnection1: TFDConnection
 220     Params.Strings = (
 221       'ConnectionDef=first_sql')
 222     Connected = True
 223     Left = 144
 224     Top = 64
 225   end
 226   object FDTable1: TFDTable
 227     Active = True
 228     CachedUpdates = True
 229     IndexFieldNames = 'id'
 230     Connection = FDConnection1
 231     FetchOptions.AssignedValues = [evDetailCascade, evDetailServerCascade]
 232     FetchOptions.DetailCascade = True
 233     FetchOptions.DetailServerCascade = True
 234     UpdateOptions.UpdateTableName = 'images'
 235     TableName = 'images'
 236     Left = 232
 237     Top = 64
 238     object FDTable1ID: TIntegerField
 239       FieldName = 'ID'
 240       Origin = 'ID'
 241       Required = True
 242     end
 243     object FDTable1NAME: TWideStringField
 244       FieldName = 'NAME'
 245       Origin = 'NAME'
 246     end
 247     object FDTable1SOURCE: TBlobField
 248       FieldName = 'SOURCE'
 249       Origin = '"SOURCE"'
 250     end
 251   end
 252   object OpenPictureDialog1: TOpenPictureDialog
 253     DefaultExt = 'jpg'
 254     FilterIndex = 2
 255     Left = 144
 256     Top = 128
 257   end
 258   object BindSourceDB1: TBindSourceDB
 259     DataSet = FDTable1
 260     ScopeMappings = <>
 261     Left = 176
 262     Top = 216
 263   end
 264   object BindingsList1: TBindingsList
 265     Methods = <>
 266     OutputConverters = <>
 267     Left = 20
 268     Top = 13
 269     object LinkPropertyToFieldCaption: TLinkPropertyToField
 270       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 271       DataSource = BindSourceDB1
 272       FieldName = 'id'
 273       Component = Label1
 274       ComponentProperty = 'Caption'
 275     end
 276     object LinkControlToField2: TLinkControlToField
 277       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 278       DataSource = BindSourceDB1
 279       FieldName = 'name'
 280       Control = Edit1
 281       Track = True
 282     end
 283   end
 284   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 285     Provider = 'Forms'
 286     Left = 224
 287     Top = 160
 288   end
 289   object FDQuery1: TFDQuery
 290     CachedUpdates = True
 291     Connection = FDConnection1
 292     SQL.Strings = (
 293       'use kainushi;'
 294       'create table images(id int primary key,'
 295       ' name varchar(30), source mediumblob);')
 296     Left = 440
 297     Top = 112
 298   end
 299   object FDTable2: TFDTable
 300     CachedUpdates = True
 301     Connection = FDConnection1
 302     UpdateOptions.UpdateTableName = 'setting'
 303     TableName = 'setting'
 304     Left = 496
 305     Top = 280
 306     object FDTable2title: TWideStringField
 307       AutoGenerateValue = arDefault
 308       FieldName = 'title'
 309       Origin = 'title'
 310       Size = 160
 311     end
 312     object FDTable2title2: TWideStringField
 313       AutoGenerateValue = arDefault
 314       FieldName = 'title2'
 315       Origin = 'title2'
 316       Size = 320
 317     end
 318     object FDTable2mente: TSmallintField
 319       AutoGenerateValue = arDefault
 320       FieldName = 'mente'
 321       Origin = 'mente'
 322     end
 323     object FDTable2info: TIntegerField
 324       AutoGenerateValue = arDefault
 325       FieldName = 'info'
 326       Origin = 'info'
 327     end
 328     object FDTable2count: TIntegerField
 329       AutoGenerateValue = arDefault
 330       FieldName = 'count'
 331       Origin = 'count'
 332     end
 333     object FDTable2password: TWideStringField
 334       AutoGenerateValue = arDefault
 335       FieldName = 'password'
 336       Origin = '`password`'
 337       Size = 100
 338     end
 339     object FDTable2ng: TWideStringField
 340       AutoGenerateValue = arDefault
 341       FieldName = 'ng'
 342       Origin = 'ng'
 343       Size = 300
 344     end
 345   end
 346   object FDTable3: TFDTable
 347     CachedUpdates = True
 348     Connection = FDConnection1
 349     UpdateOptions.UpdateTableName = 'dbname'
 350     TableName = 'dbname'
 351     Left = 440
 352     Top = 280
 353     object FDTable3dbnum: TIntegerField
 354       FieldName = 'dbnum'
 355       Origin = 'dbnum'
 356       Required = True
 357     end
 358     object FDTable3database: TWideStringField
 359       FieldName = 'database'
 360       Origin = '`database`'
 361       Required = True
 362       Size = 80
 363     end
 364   end
 365   object DataSource1: TDataSource
 366     DataSet = FDTable1
 367     Left = 232
 368     Top = 112
 369   end
 370 end