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