udmcontact.~dfm

来自「Delphi课堂使用用例」· ~DFM 代码 · 共 133 行

object dmContact: TdmContact
  OldCreateOrder = False
  Left = 192
  Top = 119
  Height = 263
  Width = 274
  object db: TDatabase
    AliasName = 'contact'
    Connected = True
    DatabaseName = 'db'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 24
    Top = 16
  end
  object tbPhoneCode: TTable
    DatabaseName = 'db'
    SessionName = 'Default'
    TableName = 'dbo.Code'
    Left = 24
    Top = 72
  end
  object qrSelect: TQuery
    DatabaseName = 'db'
    SessionName = 'Default'
    SQL.Strings = (
      
        'SELECT Contact.ContactName, Contact.PhoneCode, Contact.HomePhone' +
        ', '
      '      Contact.Mobile, Contact.Gender, Code.PhoneAddress'
      'FROM Code INNER JOIN'
      '      Contact ON Code.PhoneCode = Contact.PhoneCode')
    Left = 24
    Top = 128
  end
  object qrInsert: TQuery
    DatabaseName = 'db'
    SessionName = 'Default'
    SQL.Strings = (
      'Insert Into Contact'
      '(ContactName, PhoneCode, HomePhone, Mobile, Gender)'
      'Values(:N, :C, :P, :M, :G)')
    Left = 88
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'N'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'C'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'P'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'M'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'G'
        ParamType = ptUnknown
      end>
  end
  object qrUpdate: TQuery
    DatabaseName = 'db'
    SessionName = 'Default'
    SQL.Strings = (
      'Update Contact Set'
      '  ContactName = :N,'
      '  PhoneCode = :C,'
      '  HomePhone = :P,'
      '  Mobile = :M,'
      '  Gender = :G'
      'Where ContactName = :CN')
    Left = 136
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'N'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'C'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'P'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'M'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'G'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CN'
        ParamType = ptUnknown
      end>
  end
  object qrDelete: TQuery
    DatabaseName = 'db'
    SessionName = 'Default'
    SQL.Strings = (
      'Delete From Contact'
      'Where ContactName = :CN')
    Left = 184
    Top = 128
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CN'
        ParamType = ptUnknown
      end>
  end
end