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     TabOrder = 4
  91   end
  92   object DBGrid1: TDBGrid
  93     Left = 398
  94     Top = 80
  95     Width = 186
  96     Height = 120
  97     DataSource = DataSource1
  98     TabOrder = 5
  99     TitleFont.Charset = DEFAULT_CHARSET
 100     TitleFont.Color = clWindowText
 101     TitleFont.Height = -11
 102     TitleFont.Name = 'Tahoma'
 103     TitleFont.Style = []
 104   end
 105   object Button4: TButton
 106     Left = 296
 107     Top = 160
 108     Width = 75
 109     Height = 25
 110     Caption = 'Button4'
 111     TabOrder = 6
 112     OnClick = Button4Click
 113   end
 114   object Memo1: TMemo
 115     Left = 64
 116     Top = 376
 117     Width = 425
 118     Height = 89
 119     TabOrder = 7
 120   end
 121   object CheckBox1: TCheckBox
 122     Left = 64
 123     Top = 488
 124     Width = 97
 125     Height = 17
 126     Caption = 'mente'
 127     TabOrder = 8
 128     OnClick = CheckBox1Click
 129   end
 130   object Edit3: TEdit
 131     Left = 64
 132     Top = 528
 133     Width = 425
 134     Height = 21
 135     TabOrder = 9
 136   end
 137   object Edit4: TEdit
 138     Left = 64
 139     Top = 325
 140     Width = 209
 141     Height = 21
 142     TabOrder = 10
 143   end
 144   object Button5: TButton
 145     Left = 520
 146     Top = 323
 147     Width = 75
 148     Height = 25
 149     Caption = 'default'
 150     TabOrder = 11
 151     OnClick = Button5Click
 152   end
 153   object Edit5: TEdit
 154     Left = 328
 155     Top = 486
 156     Width = 65
 157     Height = 21
 158     ReadOnly = True
 159     TabOrder = 12
 160     Text = '30'
 161   end
 162   object UpDown1: TUpDown
 163     Left = 393
 164     Top = 486
 165     Width = 16
 166     Height = 21
 167     Associate = Edit5
 168     Min = 5
 169     Max = 300
 170     Position = 30
 171     TabOrder = 13
 172     OnClick = UpDown1Click
 173   end
 174   object Edit6: TEdit
 175     Left = 64
 176     Top = 576
 177     Width = 121
 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     OnSelect = ComboBox1Select
 188   end
 189   object Button6: TButton
 190     Left = 520
 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 = 520
 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 = 520
 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 = 144
 223     Top = 64
 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 = 232
 236     Top = 64
 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 = 144
 255     Top = 128
 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 = 224
 286     Top = 160
 287   end
 288   object FDQuery1: TFDQuery
 289     CachedUpdates = True
 290     Connection = FDConnection1
 291     SQL.Strings = (
 292       'use kainushi;'
 293       'create table 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 = 232
 367     Top = 112
 368   end
 369 end