8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
13 OldCreateOrder = False
35 Caption = #12497#12473#12527#12540#12489' '#35373#23450#29992
45 object SpeedButton1: TSpeedButton
50 OnClick = SpeedButton1Click
52 object Button1: TButton
59 OnClick = Button1Click
61 object Button2: TButton
69 object Button3: TButton
76 OnClick = Button3Click
86 object DBNavigator1: TDBNavigator
93 object DBGrid1: TDBGrid
98 DataSource = DataSource1
100 TitleFont.Charset = DEFAULT_CHARSET
101 TitleFont.Color = clWindowText
102 TitleFont.Height = -11
103 TitleFont.Name = 'Tahoma'
106 object Button4: TButton
113 OnClick = Button4Click
122 object CheckBox1: TCheckBox
129 OnClick = CheckBox1Click
145 object Button5: TButton
152 OnClick = Button5Click
163 object UpDown1: TUpDown
173 OnClick = UpDown1Click
182 object ComboBox1: TComboBox
188 OnSelect = ComboBox1Select
190 object Button6: TButton
197 OnClick = Button6Click
199 object ListBox1: TListBox
204 DragMode = dmAutomatic
207 OnDragOver = ListBox1DragOver
208 OnEndDrag = ListBox1EndDrag
209 OnKeyDown = ListBox1KeyDown
210 OnStartDrag = ListBox1StartDrag
219 object FDConnection1: TFDConnection
221 'ConnectionDef=first_sql')
226 object FDTable1: TFDTable
229 IndexFieldNames = 'id'
230 Connection = FDConnection1
231 FetchOptions.AssignedValues = [evDetailCascade, evDetailServerCascade]
232 FetchOptions.DetailCascade = True
233 FetchOptions.DetailServerCascade = True
234 UpdateOptions.UpdateTableName = 'images'
238 object FDTable1ID: TIntegerField
243 object FDTable1NAME: TWideStringField
247 object FDTable1SOURCE: TBlobField
252 object OpenPictureDialog1: TOpenPictureDialog
258 object BindSourceDB1: TBindSourceDB
264 object BindingsList1: TBindingsList
266 OutputConverters = <>
269 object LinkPropertyToFieldCaption: TLinkPropertyToField
270 Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
271 DataSource = BindSourceDB1
274 ComponentProperty = 'Caption'
276 object LinkControlToField2: TLinkControlToField
277 Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
278 DataSource = BindSourceDB1
284 object FDGUIxWaitCursor1: TFDGUIxWaitCursor
289 object FDQuery1: TFDQuery
291 Connection = FDConnection1
294 'create table images(id int primary key,'
295 ' name varchar(30), source mediumblob);')
299 object FDTable2: TFDTable
301 Connection = FDConnection1
302 UpdateOptions.UpdateTableName = 'setting'
303 TableName = 'setting'
306 object FDTable2title: TWideStringField
307 AutoGenerateValue = arDefault
312 object FDTable2title2: TWideStringField
313 AutoGenerateValue = arDefault
318 object FDTable2mente: TSmallintField
319 AutoGenerateValue = arDefault
323 object FDTable2info: TIntegerField
324 AutoGenerateValue = arDefault
328 object FDTable2count: TIntegerField
329 AutoGenerateValue = arDefault
333 object FDTable2password: TWideStringField
334 AutoGenerateValue = arDefault
335 FieldName = 'password'
336 Origin = '`password`'
339 object FDTable2ng: TWideStringField
340 AutoGenerateValue = arDefault
346 object FDTable3: TFDTable
348 Connection = FDConnection1
349 UpdateOptions.UpdateTableName = 'dbname'
353 object FDTable3dbnum: TIntegerField
358 object FDTable3database: TWideStringField
359 FieldName = 'database'
360 Origin = '`database`'
365 object DataSource1: TDataSource