tool/Unit2.dfm

   1 object Form1: TForm1
   2   Left = 0
   3   Top = 0
   4   Caption = 'Form1'
   5   ClientHeight = 657
   6   ClientWidth = 640
   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 = 206
  54     Top = 32
  55     Width = 75
  56     Height = 25
  57     Caption = 'Button1'
  58     TabOrder = 0
  59     OnClick = Button1Click
  60   end
  61   object Button2: TButton
  62     Left = 206
  63     Top = 72
  64     Width = 75
  65     Height = 25
  66     Caption = 'Button2'
  67     TabOrder = 1
  68   end
  69   object Button3: TButton
  70     Left = 206
  71     Top = 167
  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 = 312
  88     Top = 222
  89     Width = 240
  90     Height = 25
  91     DataSource = DataSource1
  92     TabOrder = 4
  93   end
  94   object DBGrid1: TDBGrid
  95     Left = 312
  96     Top = 32
  97     Width = 272
  98     Height = 160
  99     DataSource = DataSource1
 100     TabOrder = 5
 101     TitleFont.Charset = DEFAULT_CHARSET
 102     TitleFont.Color = clWindowText
 103     TitleFont.Height = -11
 104     TitleFont.Name = 'Tahoma'
 105     TitleFont.Style = []
 106   end
 107   object Button4: TButton
 108     Left = 206
 109     Top = 136
 110     Width = 75
 111     Height = 25
 112     Caption = 'Button4'
 113     TabOrder = 6
 114     OnClick = Button4Click
 115   end
 116   object Memo1: TMemo
 117     Left = 80
 118     Top = 376
 119     Width = 345
 120     Height = 89
 121     TabOrder = 7
 122   end
 123   object CheckBox1: TCheckBox
 124     Left = 80
 125     Top = 488
 126     Width = 97
 127     Height = 17
 128     Caption = 'mente'
 129     TabOrder = 8
 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   end
 174   object Edit6: TEdit
 175     Left = 80
 176     Top = 576
 177     Width = 129
 178     Height = 21
 179     TabOrder = 14
 180   end
 181   object ComboBox1: TComboBox
 182     Left = 280
 183     Top = 576
 184     Width = 145
 185     Height = 21
 186     TabOrder = 15
 187   end
 188   object Button6: TButton
 189     Left = 509
 190     Top = 368
 191     Width = 75
 192     Height = 25
 193     Caption = 'adapt'
 194     TabOrder = 16
 195     OnClick = Button6Click
 196   end
 197   object ListBox1: TListBox
 198     Left = 463
 199     Top = 516
 200     Width = 121
 201     Height = 97
 202     DragMode = dmAutomatic
 203     ItemHeight = 13
 204     TabOrder = 17
 205     OnDragOver = ListBox1DragOver
 206     OnEndDrag = ListBox1EndDrag
 207     OnKeyDown = ListBox1KeyDown
 208     OnStartDrag = ListBox1StartDrag
 209   end
 210   object Edit2: TEdit
 211     Left = 463
 212     Top = 486
 213     Width = 92
 214     Height = 21
 215     TabOrder = 18
 216   end
 217   object FDConnection1: TFDConnection
 218     Params.Strings = (
 219       'ConnectionDef=first_sql')
 220     Connected = True
 221     Left = 320
 222     Top = 24
 223   end
 224   object FDTable1: TFDTable
 225     Active = True
 226     CachedUpdates = True
 227     IndexFieldNames = 'id'
 228     Connection = FDConnection1
 229     FetchOptions.AssignedValues = [evDetailCascade, evDetailServerCascade]
 230     FetchOptions.DetailCascade = True
 231     FetchOptions.DetailServerCascade = True
 232     UpdateOptions.UpdateTableName = 'images'
 233     TableName = 'images'
 234     Left = 392
 235     Top = 24
 236     object FDTable1ID: TIntegerField
 237       FieldName = 'ID'
 238       Origin = 'ID'
 239       Required = True
 240     end
 241     object FDTable1NAME: TWideStringField
 242       FieldName = 'NAME'
 243       Origin = 'NAME'
 244     end
 245     object FDTable1SOURCE: TBlobField
 246       FieldName = 'SOURCE'
 247       Origin = '"SOURCE"'
 248     end
 249   end
 250   object OpenPictureDialog1: TOpenPictureDialog
 251     DefaultExt = 'jpg'
 252     FilterIndex = 2
 253     Left = 88
 254     Top = 96
 255   end
 256   object BindSourceDB1: TBindSourceDB
 257     DataSet = FDTable1
 258     ScopeMappings = <>
 259     Left = 176
 260     Top = 216
 261   end
 262   object BindingsList1: TBindingsList
 263     Methods = <>
 264     OutputConverters = <>
 265     Left = 20
 266     Top = 13
 267     object LinkPropertyToFieldCaption: TLinkPropertyToField
 268       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 269       DataSource = BindSourceDB1
 270       FieldName = 'id'
 271       Component = Label1
 272       ComponentProperty = 'Caption'
 273     end
 274     object LinkControlToField2: TLinkControlToField
 275       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 276       DataSource = BindSourceDB1
 277       FieldName = 'name'
 278       Control = Edit1
 279       Track = True
 280     end
 281   end
 282   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 283     Provider = 'Forms'
 284     Left = 88
 285     Top = 152
 286   end
 287   object FDQuery1: TFDQuery
 288     CachedUpdates = True
 289     Connection = FDConnection1
 290     SQL.Strings = (
 291       'use kainushi;'
 292       'create table images(id int primary key,'
 293       ' name varchar(30), source mediumblob);')
 294     Left = 440
 295     Top = 112
 296   end
 297   object FDTable2: TFDTable
 298     CachedUpdates = True
 299     Connection = FDConnection1
 300     UpdateOptions.UpdateTableName = 'setting'
 301     TableName = 'setting'
 302     Left = 496
 303     Top = 280
 304     object FDTable2title: TWideStringField
 305       AutoGenerateValue = arDefault
 306       FieldName = 'title'
 307       Origin = 'title'
 308       Size = 160
 309     end
 310     object FDTable2title2: TWideStringField
 311       AutoGenerateValue = arDefault
 312       FieldName = 'title2'
 313       Origin = 'title2'
 314       Size = 320
 315     end
 316     object FDTable2mente: TSmallintField
 317       AutoGenerateValue = arDefault
 318       FieldName = 'mente'
 319       Origin = 'mente'
 320     end
 321     object FDTable2info: TIntegerField
 322       AutoGenerateValue = arDefault
 323       FieldName = 'info'
 324       Origin = 'info'
 325     end
 326     object FDTable2count: TIntegerField
 327       AutoGenerateValue = arDefault
 328       FieldName = 'count'
 329       Origin = 'count'
 330     end
 331     object FDTable2password: TWideStringField
 332       AutoGenerateValue = arDefault
 333       FieldName = 'password'
 334       Origin = '`password`'
 335       Size = 100
 336     end
 337     object FDTable2ng: TWideStringField
 338       AutoGenerateValue = arDefault
 339       FieldName = 'ng'
 340       Origin = 'ng'
 341       Size = 300
 342     end
 343   end
 344   object FDTable3: TFDTable
 345     CachedUpdates = True
 346     Connection = FDConnection1
 347     UpdateOptions.UpdateTableName = 'dbname'
 348     TableName = 'dbname'
 349     Left = 440
 350     Top = 280
 351     object FDTable3dbnum: TIntegerField
 352       FieldName = 'dbnum'
 353       Origin = 'dbnum'
 354       Required = True
 355     end
 356     object FDTable3database: TWideStringField
 357       FieldName = 'database'
 358       Origin = '`database`'
 359       Required = True
 360       Size = 80
 361     end
 362   end
 363   object DataSource1: TDataSource
 364     DataSet = FDTable1
 365     Left = 464
 366     Top = 24
 367   end
 368 end