md.dfm

一个会员管理系统delphi源代码,非常好

object Dm1: TDm1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 317
  Top = 262
  Height = 260
  Width = 699
  object con1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object dsLoginUser: TDataSource
    DataSet = tblLoginUser
    Left = 24
    Top = 128
  end
  object tblLoginUser: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'LoginUser'
    Left = 24
    Top = 72
  end
  object dsHuiyuan: TDataSource
    DataSet = tblHuiyuan
    Left = 96
    Top = 128
  end
  object tblHuiyuan: TADOTable
    Connection = con1
    CursorType = ctStatic
    BeforeDelete = tblHuiyuanBeforeDelete
    TableName = 'huiyuan'
    Left = 96
    Top = 72
  end
  object tblcity: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'city'
    Left = 152
    Top = 64
  end
  object dscity: TDataSource
    DataSet = tblcity
    Left = 152
    Top = 120
  end
  object qryhuiyuan: TADOQuery
    Connection = con1
    CursorType = ctStatic
    BeforeDelete = qryhuiyuanBeforeDelete
    Parameters = <>
    Left = 200
    Top = 64
  end
  object dsqryhuiyuan: TDataSource
    DataSet = qryhuiyuan
    Left = 200
    Top = 112
  end
  object dsmemo: TDataSource
    DataSet = qrymemo
    Left = 280
    Top = 128
  end
  object qrymemo: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 264
    Top = 64
  end
  object adoqry1: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 344
    Top = 80
  end
  object qryhydetail: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    Left = 408
    Top = 80
    object qryhydetailbm: TWideStringField
      FieldName = 'bm'
      Size = 15
    end
    object qryhydetailxm: TWideStringField
      FieldName = 'xm'
      Size = 50
    end
    object qryhydetailsex: TWideStringField
      FieldName = 'sex'
      Size = 2
    end
    object qryhydetailage: TIntegerField
      FieldName = 'age'
    end
    object qryhydetailbirth: TDateTimeField
      FieldName = 'birth'
    end
    object qryhydetailstar: TWideStringField
      FieldName = 'star'
      Size = 6
    end
    object qryhydetailshuxian: TWideStringField
      FieldName = 'shuxian'
      Size = 2
    end
    object qryhydetailQQ: TWideStringField
      FieldName = 'QQ'
      Size = 15
    end
    object qryhydetailtel: TWideStringField
      FieldName = 'tel'
    end
    object qryhydetailemail: TWideStringField
      FieldName = 'email'
      Size = 50
    end
    object qryhydetailzipcode: TWideStringField
      FieldName = 'zipcode'
      Size = 10
    end
    object qryhydetailaddress: TWideStringField
      FieldName = 'address'
      Size = 255
    end
    object qryhydetailprovince: TWideStringField
      FieldName = 'province'
    end
    object qryhydetailcity: TWideStringField
      FieldName = 'city'
      Size = 50
    end
    object qryhydetailsj: TDateTimeField
      FieldName = 'sj'
    end
    object qryhydetailbz: TMemoField
      FieldName = 'bz'
      BlobType = ftMemo
    end
    object qryhydetailaddfriend: TMemoField
      FieldName = 'addfriend'
      BlobType = ftMemo
    end
    object qryhydetailtougao: TMemoField
      FieldName = 'tougao'
      BlobType = ftMemo
    end
    object qryhydetailyijian: TMemoField
      FieldName = 'yijian'
      BlobType = ftMemo
    end
    object qryhydetailhuifu: TMemoField
      FieldName = 'huifu'
      BlobType = ftMemo
    end
  end
end