tool/Unit2.dfm

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