?? samplemain.dfm
字號:
object ToolButton5: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton5Click
end
object DBNavigator6: TDBNavigator
Left = 59
Top = 2
Width = 240
Height = 21
DataSource = DSLongtext
TabOrder = 0
end
end
object Panel7: TPanel
Left = 0
Top = 29
Width = 543
Height = 164
Align = alTop
TabOrder = 1
object Label13: TLabel
Left = 8
Top = 8
Width = 7
Height = 13
Caption = '#'
end
object Label14: TLabel
Left = 8
Top = 48
Width = 17
Height = 13
Caption = 'text'
end
object SpeedButton2: TSpeedButton
Left = 144
Top = 24
Width = 23
Height = 22
Caption = '>>'
OnClick = SpeedButton2Click
end
object DBEdit12: TDBEdit
Left = 8
Top = 24
Width = 121
Height = 21
DataField = 'objectnr'
DataSource = DSLongtext
TabOrder = 0
end
object DBMemo1: TDBMemo
Left = 8
Top = 64
Width = 529
Height = 89
DataField = 'sometext'
DataSource = DSLongtext
TabOrder = 1
end
object Edit2: TEdit
Left = 176
Top = 24
Width = 361
Height = 21
TabOrder = 2
end
end
object DBGrid5: TDBGrid
Left = 0
Top = 193
Width = 543
Height = 232
Align = alClient
DataSource = DSLongtext
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet5: TTabSheet
Caption = 'IProvider'
ImageIndex = 4
object DBGrid6: TDBGrid
Left = 0
Top = 29
Width = 543
Height = 396
Align = alClient
DataSource = DSProvider
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ToolBar7: TToolBar
Left = 0
Top = 0
Width = 543
Height = 29
ButtonHeight = 21
ButtonWidth = 59
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 1
object ToolButton6: TToolButton
Left = 0
Top = 2
Caption = 'Open table'
ImageIndex = 0
OnClick = ToolButton6Click
end
object DBNavigator7: TDBNavigator
Left = 59
Top = 2
Width = 240
Height = 21
DataSource = DSProvider
TabOrder = 0
end
object Button1: TButton
Left = 299
Top = 2
Width = 94
Height = 21
Caption = '&Apply updates'
TabOrder = 1
OnClick = Button1Click
end
object Panel8: TPanel
Left = 393
Top = 2
Width = 64
Height = 21
Align = alLeft
TabOrder = 2
object Label17: TLabel
Left = 8
Top = 4
Width = 7
Height = 13
Caption = '#'
end
object Records: TLabel
Left = 24
Top = 4
Width = 6
Height = 13
Caption = '0'
end
end
end
end
object TabSheet7: TTabSheet
Caption = 'MultiQuery'
ImageIndex = 6
object Panel9: TPanel
Left = 0
Top = 0
Width = 543
Height = 41
Align = alTop
TabOrder = 0
object BitBtn3: TBitBtn
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Open query'
TabOrder = 0
OnClick = BitBtn3Click
end
end
object DBGrid7: TDBGrid
Left = 0
Top = 41
Width = 543
Height = 384
Align = alClient
DataSource = DSComplex
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet8: TTabSheet
Caption = 'User version'
ImageIndex = 7
object Edit3: TEdit
Left = 128
Top = 16
Width = 185
Height = 21
TabOrder = 0
end
object BitBtn4: TBitBtn
Left = 32
Top = 16
Width = 89
Height = 25
Caption = 'Get user version'
TabOrder = 1
OnClick = BitBtn4Click
end
object BitBtn5: TBitBtn
Left = 320
Top = 16
Width = 89
Height = 25
Caption = 'Set user version'
TabOrder = 2
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 32
Top = 56
Width = 89
Height = 25
Caption = 'Get table names'
TabOrder = 3
OnClick = BitBtn6Click
end
object LB: TListBox
Left = 128
Top = 48
Width = 281
Height = 97
ItemHeight = 13
TabOrder = 4
end
object BitBtn7: TBitBtn
Left = 32
Top = 160
Width = 89
Height = 25
Caption = 'Get fields'
TabOrder = 5
OnClick = BitBtn7Click
end
object LBF: TListBox
Left = 128
Top = 160
Width = 281
Height = 137
ItemHeight = 13
TabOrder = 6
end
object Button2: TButton
Left = 32
Top = 208
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 7
OnClick = Button2Click
end
end
end
object DB: TASQLite3DB
Database = 'SampleDB'
DefaultExt = '.sqb'
Version = '3.2.1'
DriverDLL = 'SQLite3.dll'
Connected = True
MustExist = False
ASQLiteInlineSQL = ASQLite3InlineSQL1
ExecuteInlineSQL = False
Left = 8
Top = 352
end
object ASQLite3InlineSQL1: TASQLite3InlineSQL
SQL.Strings = (
'create table NA'
'('
' personnr integer primary key,'
' name varchar(40),'
' address varchar(40)'
');'
''
'create table PARENTS'
' ('
' objectnr integer primary key,'
' father varchar(40),'
' mother varchar(40)'
');'
''
'create table CHILDREN'
' ('
' objectnr integer,'
' childname varchar(40),'
' primary key (objectnr, childname)'
');'
''
'create table IMG('
' img blob'
');'
''
'create table LT('
' objectnr integer primary key,'
' sometext longtext'
');'
''
'CREATE TABLE ex2('
'ID integer primary key,'
'a VARCHAR(10), '
'b NVARCHAR(15), '
'c TEXT, '
'd INTEGER, '
'e FLOAT, '
'f BOOLEAN, '
'g CLOB, '
'h BLOB, '
'i TIMESTAMP, '
'j NUMERIC(10,5) ,'
'k VARYING CHARACTER (24), '
'l NATIONAL VARYING CHARACTER(16) ,'
'm LongText'
'); ')
Left = 96
Top = 16
end
object TSimpleTable: TASQLite3Table
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
TableName = 'NA'
PrimaryAutoInc = False
Left = 8
Top = 384
end
object DSSimpleTable: TDataSource
DataSet = TSimpleTable
Left = 8
Top = 416
end
object QSimple: TASQLite3Query
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
RawSQL = False
SQL.Strings = (
'select * from na')
UpdateSQL = USimple
Left = 40
Top = 352
end
object USimple: TASQLite3UpdateSQL
InsertSQL.Strings = (
'insert into na *')
UpdateSQL.Strings = (
'update na * where personnr=:personnr')
DeleteSQL.Strings = (
'delete from na where personnr=:personnr')
Left = 40
Top = 384
end
object DSQSimple: TDataSource
DataSet = QSimple
Left = 40
Top = 416
end
object TParent: TASQLite3Table
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
TableName = 'PARENTS'
PrimaryAutoInc = False
Left = 72
Top = 320
end
object DSParent: TDataSource
DataSet = TParent
Left = 72
Top = 352
end
object TChild: TASQLite3Table
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
MasterFields = 'objectnr=objectnr;'
MasterSource = DSParent
SQLCursor = True
ReadOnly = False
UniDirectional = False
Filter = 'objectnr=1'
Filtered = True
TableName = 'CHILDREN'
PrimaryAutoInc = False
Left = 72
Top = 384
end
object DSChild: TDataSource
DataSet = TChild
Left = 72
Top = 416
end
object OPD: TOpenPictureDialog
Left = 104
Top = 320
end
object DSBlob: TDataSource
DataSet = TBlob
Left = 104
Top = 416
end
object TBlob: TASQLite3Table
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
TableName = 'IMG'
PrimaryAutoInc = False
Left = 104
Top = 384
end
object QBlob: TASQLite3Query
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
RawSQL = False
Left = 104
Top = 352
end
object TLongText: TASQLite3Table
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
TableName = 'LT'
PrimaryAutoInc = False
Left = 136
Top = 384
end
object DSLongtext: TDataSource
DataSet = TLongText
Left = 136
Top = 416
end
object QProvider: TASQLite3Query
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
RawSQL = False
SQL.Strings = (
'select * from parents')
Left = 168
Top = 320
end
object ClientDataSet: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider'
Left = 168
Top = 384
end
object DataSetProvider: TDataSetProvider
DataSet = QProvider
Left = 168
Top = 352
end
object DSProvider: TDataSource
DataSet = ClientDataSet
Left = 168
Top = 416
end
object QLongText: TASQLite3Query
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
RawSQL = False
Left = 136
Top = 352
end
object QComplex: TASQLite3Query
AutoCommit = False
SQLiteDateFormat = True
Connection = DB
MaxResults = 0
StartResult = 0
TypeLess = False
SQLCursor = True
ReadOnly = False
UniDirectional = False
RawSQL = False
SQL.Strings = (
'select * from parents p, children c where p.objectnr=c.objectnr')
Left = 200
Top = 384
end
object DSComplex: TDataSource
DataSet = QComplex
Left = 200
Top = 416
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -