📄 samplemain.dfm
字号:
object FMain: TFMain
Left = 199
Top = 162
Width = 696
Height = 480
Caption = 'SQLite3 samples (Aducom Software)'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 137
Height = 446
Align = alLeft
TabOrder = 0
object Label15: TLabel
Left = 8
Top = 56
Width = 120
Height = 91
Caption =
'To use this sample application please press above button to crea' +
'te the (empty) sample database. It'#39's a sample of how to use the ' +
'InlineSQL too.'
WordWrap = True
end
object Label16: TLabel
Left = 8
Top = 168
Width = 114
Height = 52
Caption =
'(c) 2003..2005 Aducom Software Groningen www.aducom.com sqlite.a' +
'ducom.com'
WordWrap = True
end
object BitBtn1: TBitBtn
Left = 8
Top = 8
Width = 121
Height = 41
Caption = 'Inline create dbtables'
TabOrder = 0
OnClick = BitBtn1Click
end
end
object PageControl1: TPageControl
Left = 137
Top = 0
Width = 551
Height = 446
ActivePage = TabSheet8
Align = alClient
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Simple table'
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton1Click
end
object DBNavigator1: TDBNavigator
Left = 59
Top = 2
Width = 240
Height = 21
DataSource = DSSimpleTable
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 29
Width = 543
Height = 68
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 8
Width = 7
Height = 13
Caption = '#'
end
object Label2: TLabel
Left = 136
Top = 8
Width = 26
Height = 13
Caption = 'name'
end
object Label3: TLabel
Left = 264
Top = 8
Width = 37
Height = 13
Caption = 'address'
end
object DBEdit1: TDBEdit
Left = 8
Top = 24
Width = 121
Height = 21
DataField = 'personnr'
DataSource = DSSimpleTable
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 136
Top = 24
Width = 121
Height = 21
DataField = 'name'
DataSource = DSSimpleTable
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 264
Top = 24
Width = 257
Height = 21
DataField = 'address'
DataSource = DSSimpleTable
TabOrder = 2
end
object CBNumber: TCheckBox
Left = 8
Top = 48
Width = 97
Height = 17
Caption = 'Autonumber'
TabOrder = 3
OnClick = CBNumberClick
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 97
Width = 543
Height = 328
Align = alClient
DataSource = DSSimpleTable
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet2: TTabSheet
Caption = 'Query / UpdateSQL'
ImageIndex = 1
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 0
object ToolButton2: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton2Click
end
object DBNavigator2: TDBNavigator
Left = 59
Top = 2
Width = 240
Height = 21
DataSource = DSQSimple
TabOrder = 0
end
end
object Panel3: TPanel
Left = 0
Top = 29
Width = 543
Height = 60
Align = alTop
TabOrder = 1
object Label4: TLabel
Left = 8
Top = 8
Width = 7
Height = 13
Caption = '#'
end
object Label5: TLabel
Left = 136
Top = 8
Width = 26
Height = 13
Caption = 'name'
end
object Label6: TLabel
Left = 264
Top = 8
Width = 37
Height = 13
Caption = 'address'
end
object DBEdit4: TDBEdit
Left = 8
Top = 24
Width = 121
Height = 21
DataField = 'personnr'
DataSource = DSQSimple
TabOrder = 0
end
object DBEdit5: TDBEdit
Left = 136
Top = 24
Width = 121
Height = 21
DataField = 'name'
DataSource = DSQSimple
TabOrder = 1
end
object DBEdit6: TDBEdit
Left = 264
Top = 24
Width = 257
Height = 21
DataField = 'address'
DataSource = DSQSimple
TabOrder = 2
end
end
object DBGrid2: TDBGrid
Left = 0
Top = 89
Width = 543
Height = 336
Align = alClient
DataSource = DSQSimple
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet3: TTabSheet
Caption = 'Master / Detail'
ImageIndex = 2
object ToolBar3: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar3'
Color = clMoneyGreen
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton3Click
end
object DBNavigator3: TDBNavigator
Left = 59
Top = 2
Width = 240
Height = 21
DataSource = DSParent
TabOrder = 0
end
end
object Panel4: TPanel
Left = 0
Top = 29
Width = 543
Height = 52
Align = alTop
Color = clMoneyGreen
TabOrder = 1
object Label7: TLabel
Left = 8
Top = 8
Width = 7
Height = 13
Caption = '#'
end
object Label8: TLabel
Left = 136
Top = 8
Width = 27
Height = 13
Caption = 'father'
end
object Label9: TLabel
Left = 328
Top = 8
Width = 32
Height = 13
Caption = 'mother'
end
object DBEdit7: TDBEdit
Left = 8
Top = 24
Width = 121
Height = 21
Color = clGray
DataField = 'objectnr'
DataSource = DSParent
ReadOnly = True
TabOrder = 0
end
object DBEdit8: TDBEdit
Left = 136
Top = 24
Width = 177
Height = 21
DataField = 'father'
DataSource = DSParent
TabOrder = 1
end
object DBEdit9: TDBEdit
Left = 328
Top = 24
Width = 153
Height = 21
DataField = 'mother'
DataSource = DSParent
TabOrder = 2
end
end
object DBGrid3: TDBGrid
Left = 0
Top = 81
Width = 543
Height = 88
Align = alTop
Color = clMoneyGreen
DataSource = DSParent
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ToolBar4: TToolBar
Left = 0
Top = 169
Width = 543
Height = 29
Caption = 'ToolBar4'
TabOrder = 3
object DBNavigator4: TDBNavigator
Left = 0
Top = 2
Width = 240
Height = 22
DataSource = DSChild
TabOrder = 0
end
end
object Panel5: TPanel
Left = 0
Top = 198
Width = 543
Height = 68
Align = alTop
TabOrder = 4
object Label10: TLabel
Left = 16
Top = 8
Width = 7
Height = 13
Caption = '#'
end
object Label11: TLabel
Left = 144
Top = 8
Width = 22
Height = 13
Caption = 'child'
end
object DBEdit10: TDBEdit
Left = 16
Top = 24
Width = 121
Height = 21
Color = clGray
DataField = 'objectnr'
DataSource = DSChild
ReadOnly = True
TabOrder = 0
end
object DBEdit11: TDBEdit
Left = 144
Top = 24
Width = 281
Height = 21
DataField = 'childname'
DataSource = DSChild
TabOrder = 1
end
object RO: TCheckBox
Left = 144
Top = 48
Width = 137
Height = 17
Caption = 'Read only dataset'
TabOrder = 2
OnClick = ROClick
end
end
object DBGrid4: TDBGrid
Left = 0
Top = 266
Width = 543
Height = 159
Align = alClient
DataSource = DSChild
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet4: TTabSheet
Caption = 'Blob'
ImageIndex = 3
object Panel6: TPanel
Left = 0
Top = 29
Width = 543
Height = 52
Align = alTop
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 320
Top = 24
Width = 23
Height = 22
Caption = '...'
OnClick = SpeedButton1Click
end
object Label12: TLabel
Left = 16
Top = 8
Width = 32
Height = 13
Caption = 'picture'
end
object Edit1: TEdit
Left = 16
Top = 24
Width = 305
Height = 21
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 352
Top = 24
Width = 75
Height = 25
Caption = 'Add picture'
TabOrder = 1
OnClick = BitBtn2Click
end
end
object ToolBar5: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar5'
ShowCaptions = True
TabOrder = 1
object ToolButton4: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton4Click
end
object DBNavigator5: TDBNavigator
Left = 59
Top = 2
Width = 220
Height = 21
DataSource = DSBlob
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete]
TabOrder = 0
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 81
Width = 543
Height = 344
Align = alClient
TabOrder = 2
object DBI: TDBImage
Left = 0
Top = 0
Width = 537
Height = 337
BorderStyle = bsNone
DataField = 'img'
DataSource = DSBlob
TabOrder = 0
end
end
end
object TabSheet6: TTabSheet
Caption = 'Clob'
ImageIndex = 5
object ToolBar6: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -