sdm.dfm

一个动画抽奖程序

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 786
  Top = 548
  Height = 369
  Width = 173
  object DBF: TABSDatabase
    CurrentVersion = '5.00 '
    DatabaseName = 'DBF'
    Exclusive = False
    Password = 'tw'
    MaxConnections = 500
    MultiUser = True
    SessionName = 'Default'
    SilentMode = True
    Left = 8
    Top = 8
  end
  object User: TABSQuery
    CurrentVersion = '5.00 '
    DatabaseName = 'DBF'
    SessionName = 'Default'
    InMemory = False
    ReadOnly = True
    SQL.Strings = (
      'Select * from User ')
    Left = 8
    Top = 64
  end
  object dspUser: TDataSetProvider
    DataSet = User
    Left = 8
    Top = 112
  end
  object cdUser: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUser'
    Left = 8
    Top = 160
    object cdUserName: TStringField
      FieldName = 'Name'
    end
    object cdUserHandPhone: TStringField
      FieldName = 'HandPhone'
      Size = 11
    end
    object cdUserUnitName: TStringField
      FieldName = 'UnitName'
      Size = 64
    end
    object cdUserUnitPhone: TStringField
      FieldName = 'UnitPhone'
    end
    object cdUserID: TAutoIncField
      AutoGenerateValue = arAutoInc
      FieldName = 'ID'
      ReadOnly = True
    end
    object cdUserJX: TBooleanField
      FieldName = 'JX'
    end
  end
  object dsUser: TDataSource
    DataSet = cdUser
    Left = 8
    Top = 216
  end
  object dsJX: TDataSource
    DataSet = cdJX
    Left = 72
    Top = 216
  end
  object cdJX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspJX'
    Left = 72
    Top = 160
    object cdJXID: TIntegerField
      FieldName = 'ID'
    end
    object cdJXJXName: TStringField
      FieldName = 'JXName'
    end
    object cdJXUser: TIntegerField
      FieldName = 'User'
    end
  end
  object dspJX: TDataSetProvider
    DataSet = JX
    Left = 72
    Top = 112
  end
  object JX: TABSQuery
    CurrentVersion = '5.00 '
    DatabaseName = 'DBF'
    SessionName = 'Default'
    InMemory = False
    ReadOnly = True
    SQL.Strings = (
      'Select * from JX')
    Left = 72
    Top = 64
  end
  object OPData: TdxMemData
    Active = True
    Indexes = <>
    SortOptions = []
    Left = 8
    Top = 272
    object OPDataHP: TStringField
      FieldName = 'HP'
      Size = 11
    end
    object OPDataTS: TBooleanField
      FieldName = 'TS'
    end
  end
  object GetTS: TABSQuery
    CurrentVersion = '5.00 '
    DatabaseName = 'DBF'
    InMemory = False
    ReadOnly = False
    SQL.Strings = (
      'select * from User where jx=True')
    Left = 72
    Top = 272
  end
  object TS: TdxMemData
    Active = True
    Indexes = <>
    SortOptions = []
    Left = 128
    Top = 272
    object TSHP: TStringField
      FieldName = 'HP'
      Size = 11
    end
    object TSTS: TBooleanField
      FieldName = 'TS'
    end
  end
  object NT: TdxMemData
    Active = True
    Indexes = <>
    SortOptions = []
    Left = 128
    Top = 224
    object NTHP: TStringField
      FieldName = 'HP'
      Size = 11
    end
    object NTTS: TBooleanField
      FieldName = 'TS'
    end
  end
end