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