samplemain.dfm

定时器for timer for ic chip

        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