usecdata.dfm

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· DFM 代码 · 共 165 行

object SECData: TSECData
  OldCreateOrder = False
  Left = 357
  Top = 245
  Height = 289
  Width = 279
  object ABSDatabase1: TABSDatabase
    CurrentVersion = '4.84 '
    DatabaseFileName = '.\SEC.ABS'
    DatabaseName = 'SECLINK'
    Exclusive = False
    MaxConnections = 20
    MultiUser = False
    SessionName = 'Default'
    Left = 32
    Top = 8
  end
  object qryGetMaxID: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'select Max(ID)+1 from %s')
    Left = 32
    Top = 56
  end
  object qryTree: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = True
    SQL.Strings = (
      'Select ID,UPID,Text,Pro,Locked,IsFile from folders'
      'order by Pro,UPID'
      ''
      ' '
      ' '
      ' '
      ' ')
    Left = 32
    Top = 112
  end
  object UpTree: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'UpDate folders'
      'set Text=:Text'
      'where ID=:ID'
      ' '
      ' ')
    Left = 88
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Text'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object DelTree: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      '')
    Left = 32
    Top = 168
  end
  object InsTree: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'insert into folders(ID,UPID,Text,CreateDate,Pro,IsFile)'
      'values(:ID,:UPID,:Text,:CreateDate,:Pro,:IsFile)'
      ' '
      ' ')
    Left = 88
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'UPID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Text'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CreateDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Pro'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IsFile'
        ParamType = ptUnknown
      end>
  end
  object qryHints: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'select * from Hints')
    Left = 160
    Top = 112
  end
  object DP: TDataSetProvider
    Constraints = True
    Left = 88
    Top = 8
  end
  object qryTmp: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    Left = 88
    Top = 56
  end
  object UpHints: TABSQuery
    CurrentVersion = '4.84 '
    DatabaseName = 'SECLINK'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'update Hints'
      'set Runned=1'
      'where ID=:ID')
    Left = 160
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ID'
        ParamType = ptInput
      end>
  end
end