data_unit1.dfm

类似于安利公司的奖金制度下的会员层次关系、会员级别、会员奖金等

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 314
  Top = 11
  Height = 558
  Width = 482
  object ADOQuery_S1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 328
  end
  object ADOQuery_S2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 129
    Top = 327
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        DataType = ftFixedChar
        Precision = 50
        Size = 50
        Value = Null
      end
      item
        Name = 'AA3'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'AA4'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA5'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA6'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 30
        Size = 30
        Value = Null
      end
      item
        Name = 'AA7'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 30
        Size = 30
        Value = Null
      end
      item
        Name = 'AA8'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 50
        Size = 50
        Value = Null
      end
      item
        Name = 'AA9'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 50
        Size = 50
        Value = Null
      end
      item
        Name = 'AA10'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 4
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'AA11'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'AA12'
        Attributes = [paNullable, paLong]
        DataType = ftFixedChar
        Precision = 255
        Size = 1073741823
        Value = Null
      end>
    SQL.Strings = (
      
        'insert into member (member_id,name,class,higher_id,person,teleph' +
        'one,handphone,email,url,pay_amount,pay_date,remarks) VALUES (:AA' +
        '1,:AA2,:AA3,:AA4,:AA5,:AA6,:AA7,:AA8,:AA9,:AA10,:AA11,:AA12)')
    Left = 44
    Top = 165
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'member_type'
    Left = 113
    Top = 9
    object ADOTable1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable1class: TWordField
      FieldName = 'class'
    end
    object ADOTable1type: TWideStringField
      FieldName = 'type'
      Size = 30
    end
    object ADOTable1fudao_ratio: TSmallintField
      FieldName = 'fudao_ratio'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 178
    Top = 7
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    IndexFieldNames = 'class'
    MasterFields = 'class'
    MasterSource = DataSource1
    TableName = 'member'
    Left = 38
    Top = 60
    object ADOTable2id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable2member_id: TWideStringField
      FieldName = 'member_id'
    end
    object ADOTable2name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object ADOTable2class: TSmallintField
      FieldName = 'class'
    end
    object ADOTable2higher_id: TWideStringField
      FieldName = 'higher_id'
    end
    object ADOTable2person: TWideStringField
      FieldName = 'person'
    end
    object ADOTable2telephone: TWideStringField
      FieldName = 'telephone'
      Size = 30
    end
    object ADOTable2handphone: TWideStringField
      FieldName = 'handphone'
      Size = 30
    end
    object ADOTable2email: TWideStringField
      FieldName = 'email'
      Size = 50
    end
    object ADOTable2url: TWideStringField
      FieldName = 'url'
      Size = 50
    end
    object ADOTable2pay_amount: TBCDField
      FieldName = 'pay_amount'
      Precision = 19
    end
    object ADOTable2pay_date: TDateTimeField
      FieldName = 'pay_date'
    end
    object ADOTable2remarks: TMemoField
      FieldName = 'remarks'
      BlobType = ftMemo
    end
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'AA1'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    SQL.Strings = (
      'select * from member where class = :AA1')
    Left = 243
    Top = 9
    object ADOQuery2id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOQuery2member_id: TWideStringField
      FieldName = 'member_id'
    end
    object ADOQuery2name: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery2class: TSmallintField
      FieldName = 'class'
    end
    object ADOQuery2higher_id: TWideStringField
      FieldName = 'higher_id'
    end
    object ADOQuery2person: TWideStringField
      FieldName = 'person'
    end
    object ADOQuery2telephone: TWideStringField
      FieldName = 'telephone'
      Size = 30
    end
    object ADOQuery2handphone: TWideStringField
      FieldName = 'handphone'
      Size = 30
    end
    object ADOQuery2email: TWideStringField
      FieldName = 'email'
      Size = 50
    end
    object ADOQuery2url: TWideStringField
      FieldName = 'url'
      Size = 50
    end
    object ADOQuery2pay_amount: TBCDField
      FieldName = 'pay_amount'
      Precision = 19
    end
    object ADOQuery2pay_date: TDateTimeField
      FieldName = 'pay_date'
    end
    object ADOQuery2remarks: TMemoField
      FieldName = 'remarks'
      BlobType = ftMemo
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 306
    Top = 10
  end
  object ADOdel_member1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'delete from member where member_id = :AA1')
    Left = 44
    Top = 224
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'AA1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select id from member where higher_id = :AA1')
    Left = 121
    Top = 161
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=jiangjin.mdb;Mode=R' +
      'ead|Write;Extended Properties="";Locale Identifier=2052;Persist ' +
      'Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Regis' +
      'try Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type' +
      '=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bu' +
      'lk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data' +
      'base Password="";Jet OLEDB:Create System Database=False;Jet OLED' +
      'B:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=' +
      'False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:S' +
      'FP=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 37
    Top = 9
  end
  object ADOQuery_upgrade1: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    Left = 280
    Top = 165
  end
  object ADOQuery_upgrade2: TADOQuery
    Connection = ADOConnection1
    Parameters = <