udmuser.dfm

来自「Delphi面向对象编程思想附书源码 好用哦！」· DFM 代码 · 共 50 行

object UserDM: TUserDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 525
  Top = 202
  Height = 202
  Width = 374
  object adcUser: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 56
    Top = 24
  end
  object adqByName: TADOQuery
    Connection = adcUser
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'name'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from jbqk where name like :name ')
    Left = 152
    Top = 24
  end
  object dspUser: TDataSetProvider
    DataSet = adqByName
    Constraints = False
    Left = 56
    Top = 88
  end
  object adqTemp: TADOQuery
    Connection = adcUser
    Parameters = <>
    Left = 240
    Top = 24
  end
  object cdsUser: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUser'
    Left = 152
    Top = 88
  end
end