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
68 OnClick = Button2Click
70 object Button3: TButton
77 OnClick = Button3Click
87 object DBNavigator1: TDBNavigator
92 DataSource = DataSource1
95 object DBGrid1: TDBGrid
100 DataSource = DataSource1
102 TitleFont.Charset = DEFAULT_CHARSET
103 TitleFont.Color = clWindowText
104 TitleFont.Height = -11
105 TitleFont.Name = 'Tahoma'
108 object Button4: TButton
115 OnClick = Button4Click
124 object CheckBox1: TCheckBox
146 object Button5: TButton
153 OnClick = Button5Click
164 object UpDown1: TUpDown
182 object ComboBox1: TComboBox
189 object Button6: TButton
196 OnClick = Button6Click
198 object ListBox1: TListBox
203 DragMode = dmAutomatic
206 OnDragOver = ListBox1DragOver
207 OnEndDrag = ListBox1EndDrag
208 OnKeyDown = ListBox1KeyDown
209 OnStartDrag = ListBox1StartDrag
218 object FDConnection1: TFDConnection
220 'ConnectionDef=first_sql')
225 object FDTable1: TFDTable
228 IndexFieldNames = 'id'
229 Connection = FDConnection1
230 FetchOptions.AssignedValues = [evDetailCascade, evDetailServerCascade]
231 FetchOptions.DetailCascade = True
232 FetchOptions.DetailServerCascade = True
233 UpdateOptions.UpdateTableName = 'images'
237 object FDTable1ID: TIntegerField
242 object FDTable1NAME: TWideStringField
246 object FDTable1SOURCE: TBlobField
251 object OpenPictureDialog1: TOpenPictureDialog
257 object BindSourceDB1: TBindSourceDB
263 object BindingsList1: TBindingsList
265 OutputConverters = <>
268 object LinkPropertyToFieldCaption: TLinkPropertyToField
269 Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
270 DataSource = BindSourceDB1
273 ComponentProperty = 'Caption'
275 object LinkControlToField2: TLinkControlToField
276 Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
277 DataSource = BindSourceDB1
283 object FDGUIxWaitCursor1: TFDGUIxWaitCursor
288 object FDQuery1: TFDQuery
290 Connection = FDConnection1
293 'create table if not exists'
294 ' images(id int primary key,'
295 ' name varchar(30), source longblob);')
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