1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
object formSqlite: TformSqlite
Left = 154
Height = 240
Top = 362
Width = 257
Caption = 'formSqlite'
ClientHeight = 240
ClientWidth = 257
LCLVersion = '1.1'
object btnConnect: TButton
Left = 8
Height = 25
Top = 40
Width = 112
Caption = 'Connect'
OnClick = btnConnectClick
TabOrder = 0
end
object DBEdit1: TDBEdit
Left = 8
Height = 23
Top = 104
Width = 80
DataField = 'FirstFieldStr'
DataSource = SqliteDatasource
CharCase = ecNormal
MaxLength = 0
TabOrder = 1
end
object DBNavigator1: TDBNavigator
Left = 8
Height = 25
Top = 72
Width = 241
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 241
DataSource = SqliteDatasource
Options = []
TabOrder = 2
end
object btnCreateDB: TButton
Left = 136
Height = 25
Top = 8
Width = 113
Caption = 'Create DB'
OnClick = btnCreateDBClick
TabOrder = 3
end
object Edit1: TEdit
Left = 8
Height = 23
Top = 152
Width = 80
ReadOnly = True
TabOrder = 4
Text = 'Edit1'
end
object btnSaveDB: TButton
Left = 137
Height = 25
Top = 40
Width = 112
Caption = 'Save DB'
OnClick = btnSaveDBClick
TabOrder = 5
end
object SqliteDatasource: TDatasource
left = 136
top = 104
end
end
|
