datamodule.dfm

Delphi7数据库开发教程,包含该书21套实例

object DM: TDM
  OldCreateOrder = False
  Left = 213
  Top = 234
  Height = 190
  Width = 361
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=FileManager;Data Source=LocalHost'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object adoqryDirectory: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AbsoluteIndex'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE directory '
      'SET AbsoluteIndex = :AbsoluteIndex '
      'WHERE ID = :ID')
    Left = 120
    Top = 16
  end
  object adotblDirectory: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Directory'
    Left = 112
    Top = 88
  end
  object adoqryItems: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'DirectoryID'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'DELETE FROM items'
      'WHERE DirecotryID = :DirectoryID')
    Left = 256
    Top = 16
  end
  object adotblItems: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Items'
    Left = 256
    Top = 88
  end
end