u_data.dfm

来自「sqllite3数据库基本应用(打开,关闭表,及更新数据表)」· DFM 代码 · 共 138 行

object Data: TData
  OldCreateOrder = False
  Left = 213
  Top = 327
  Height = 282
  Width = 321
  object db: TASQLite3DB
    Database = 'syw.syw'
    DefaultExt = '.syw'
    Version = '3.3.4'
    DriverDLL = 'SQLite3.dll'
    Connected = True
    MustExist = False
    ExecuteInlineSQL = False
    Left = 112
    Top = 72
  end
  object Qmain: 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 main')
    Left = 16
    Top = 8
  end
  object Qtask: 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 task')
    Left = 64
    Top = 8
  end
  object Qtype: 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 type')
    Left = 112
    Top = 8
  end
  object Qlogin: TASQLite3Query
    AutoCommit = False
    SQLiteDateFormat = True
    Connection = db
    MaxResults = 0
    StartResult = 0
    TypeLess = False
    SQLCursor = True
    ReadOnly = False
    UniDirectional = False
    Active = True
    RawSQL = False
    SQL.Strings = (
      'select * from department')
    Left = 160
    Top = 8
  end
  object Qlist: 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 requestlist')
    Left = 200
    Top = 8
  end
  object Quser: 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 users')
    UpdateSQL = Update
    Left = 248
    Top = 8
  end
  object Datauser: TDataSource
    DataSet = Quser
    Left = 256
    Top = 144
  end
  object Update: TASQLite3UpdateSQL
    DeleteSQL.Strings = (
      'delete from users where username=:username')
    Left = 160
    Top = 72
  end
  object datamain: TDataSource
    DataSet = Qmain
    Left = 16
    Top = 144
  end
  object Datalist: TDataSource
    DataSet = Qlist
    Left = 200
    Top = 144
  end
end