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
292 'create table if not exists'
293 ' kainushi.images(id int primary key,'
294 ' name varchar(30), source mediumblob);')
298 object FDTable2: TFDTable
300 Connection = FDConnection1
301 UpdateOptions.UpdateTableName = 'setting'
302 TableName = 'setting'
305 object FDTable2title: TWideStringField
306 AutoGenerateValue = arDefault
311 object FDTable2title2: TWideStringField
312 AutoGenerateValue = arDefault
317 object FDTable2mente: TSmallintField
318 AutoGenerateValue = arDefault
322 object FDTable2info: TIntegerField
323 AutoGenerateValue = arDefault
327 object FDTable2count: TIntegerField
328 AutoGenerateValue = arDefault
332 object FDTable2password: TWideStringField
333 AutoGenerateValue = arDefault
334 FieldName = 'password'
335 Origin = '`password`'
338 object FDTable2ng: TWideStringField
339 AutoGenerateValue = arDefault
345 object FDTable3: TFDTable
347 Connection = FDConnection1
348 UpdateOptions.UpdateTableName = 'dbname'
352 object FDTable3dbnum: TIntegerField
357 object FDTable3database: TWideStringField
358 FieldName = 'database'
359 Origin = '`database`'
364 object DataSource1: TDataSource