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 = 20
  25     Top = 531
  26     Width = 14
  27     Height = 13
  28     Caption = 'NG'
  29   end
  30   object Label3: TLabel
  31     Left = 8
  32     Top = 579
  33     Width = 36
  34     Height = 13
  35     Caption = #35373#23450#29992
  36   end
  37   object Bevel1: TBevel
  38     Left = 20
  39     Top = 280
  40     Width = 575
  41     Height = 50
  42     Shape = bsTopLine
  43   end
  44   object SpeedButton1: TSpeedButton
  45     Left = 618
  46     Top = 488
  47     Width = 23
  48     Height = 22
  49     OnClick = SpeedButton1Click
  50   end
  51   object Button1: TButton
  52     Left = 296
  53     Top = 56
  54     Width = 75
  55     Height = 25
  56     Caption = 'Button1'
  57     TabOrder = 0
  58     OnClick = Button1Click
  59   end
  60   object Button2: TButton
  61     Left = 296
  62     Top = 96
  63     Width = 75
  64     Height = 25
  65     Caption = 'Button2'
  66     TabOrder = 1
  67   end
  68   object Button3: TButton
  69     Left = 296
  70     Top = 191
  71     Width = 75
  72     Height = 25
  73     Caption = 'Button3'
  74     TabOrder = 2
  75     OnClick = Button3Click
  76   end
  77   object Edit1: TEdit
  78     Left = 48
  79     Top = 225
  80     Width = 121
  81     Height = 21
  82     ReadOnly = True
  83     TabOrder = 3
  84   end
  85   object DBNavigator1: TDBNavigator
  86     Left = 224
  87     Top = 222
  88     Width = 240
  89     Height = 25
  90     DataSource = DataSource1
  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 = 64
 117     Top = 376
 118     Width = 425
 119     Height = 89
 120     TabOrder = 7
 121   end
 122   object CheckBox1: TCheckBox
 123     Left = 64
 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 = 64
 133     Top = 528
 134     Width = 425
 135     Height = 21
 136     TabOrder = 9
 137   end
 138   object Edit4: TEdit
 139     Left = 64
 140     Top = 325
 141     Width = 209
 142     Height = 21
 143     TabOrder = 10
 144   end
 145   object Button5: TButton
 146     Left = 520
 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 = 64
 177     Top = 576
 178     Width = 121
 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 = 520
 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 = 520
 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 = 520
 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     object LinkControlToField1: TLinkControlToField
 284       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 285       DataSource = BindSourceDB2
 286       FieldName = 'ng'
 287       Control = Edit3
 288       Track = True
 289     end
 290     object LinkControlToField5: TLinkControlToField
 291       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 292       DataSource = BindSourceDB2
 293       FieldName = 'title'
 294       Control = Edit4
 295       Track = True
 296     end
 297     object LinkControlToField4: TLinkControlToField
 298       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 299       DataSource = BindSourceDB2
 300       FieldName = 'title2'
 301       Control = Memo1
 302       Track = False
 303     end
 304   end
 305   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 306     Provider = 'Forms'
 307     Left = 224
 308     Top = 160
 309   end
 310   object DataSource1: TDataSource
 311     DataSet = FDTable1
 312     Left = 232
 313     Top = 112
 314   end
 315   object FDQuery1: TFDQuery
 316     CachedUpdates = True
 317     Connection = FDConnection1
 318     SQL.Strings = (
 319       'use kainushi;'
 320       'create table images(id int primary key,'
 321       ' name varchar(30), source mediumblob);')
 322     Left = 440
 323     Top = 112
 324   end
 325   object FDTable2: TFDTable
 326     CachedUpdates = True
 327     Connection = FDConnection1
 328     UpdateOptions.UpdateTableName = 'setting'
 329     TableName = 'setting'
 330     Left = 496
 331     Top = 280
 332     object FDTable2title: TWideStringField
 333       AutoGenerateValue = arDefault
 334       FieldName = 'title'
 335       Origin = 'title'
 336       Size = 160
 337     end
 338     object FDTable2title2: TWideStringField
 339       AutoGenerateValue = arDefault
 340       FieldName = 'title2'
 341       Origin = 'title2'
 342       Size = 320
 343     end
 344     object FDTable2mente: TSmallintField
 345       AutoGenerateValue = arDefault
 346       FieldName = 'mente'
 347       Origin = 'mente'
 348     end
 349     object FDTable2info: TIntegerField
 350       AutoGenerateValue = arDefault
 351       FieldName = 'info'
 352       Origin = 'info'
 353     end
 354     object FDTable2count: TIntegerField
 355       AutoGenerateValue = arDefault
 356       FieldName = 'count'
 357       Origin = 'count'
 358     end
 359     object FDTable2password: TWideStringField
 360       AutoGenerateValue = arDefault
 361       FieldName = 'password'
 362       Origin = '`password`'
 363       Size = 100
 364     end
 365     object FDTable2ng: TWideStringField
 366       AutoGenerateValue = arDefault
 367       FieldName = 'ng'
 368       Origin = 'ng'
 369       Size = 300
 370     end
 371   end
 372   object BindSourceDB2: TBindSourceDB
 373     DataSet = FDTable2
 374     ScopeMappings = <>
 375     Left = 368
 376     Top = 304
 377   end
 378   object FDTable3: TFDTable
 379     CachedUpdates = True
 380     Connection = FDConnection1
 381     UpdateOptions.UpdateTableName = 'kainushi.dbname'
 382     TableName = 'kainushi.dbname'
 383     Left = 440
 384     Top = 280
 385     object FDTable3dbnum: TIntegerField
 386       FieldName = 'dbnum'
 387       Origin = 'dbnum'
 388       Required = True
 389     end
 390     object FDTable3database: TWideStringField
 391       FieldName = 'database'
 392       Origin = '`database`'
 393       Required = True
 394       Size = 80
 395     end
 396   end
 397 end