data_unit1.dfm

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

      item
        Name = 'AA1'
        DataType = ftString
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'AA3'
        DataType = ftString
        Precision = 50
        Size = 50
        Value = Null
      end>
    Left = 284
    Top = 218
  end
  object ADOTable_fudao_ratio: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'member_type'
    Left = 398
    Top = 20
    object ADOTable_fudao_ratioid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable_fudao_ratioclass: TWordField
      FieldName = 'class'
    end
    object ADOTable_fudao_ratiotype: TWideStringField
      FieldName = 'type'
      Size = 30
    end
    object ADOTable_fudao_ratiofudao_ratio: TSmallintField
      FieldName = 'fudao_ratio'
    end
  end
  object DataSource_fudao_ratio: TDataSource
    DataSet = ADOTable_fudao_ratio
    Left = 394
    Top = 69
  end
  object ADOTable_guanli_ratio: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'type'
    MasterFields = 'type'
    MasterSource = DataSource_fudao_ratio
    TableName = 'guanli_ratio'
    Left = 397
    Top = 127
    object ADOTable_guanli_ratioid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOTable_guanli_ratiotype: TWideStringField
      FieldName = 'type'
    end
    object ADOTable_guanli_ratiolevel: TWordField
      FieldName = 'level'
    end
    object ADOTable_guanli_ratioguanli_ratio: TSmallintField
      FieldName = 'guanli_ratio'
    end
  end
  object DataSource_guanli_ratio: TDataSource
    DataSet = ADOTable_guanli_ratio
    Left = 400
    Top = 181
  end
  object ADOinsert_jiangjin: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA3'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA4'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 4
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'AA5'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'insert into jiangjin (member_id,lower_id,jj_type,amount,date_val' +
        'id) VALUES (:AA1,:AA2,:AA3,:AA4,:AA5)')
    Left = 34
    Top = 431
  end
  object DataSource2b: TDataSource
    DataSet = ADOTable2
    Left = 116
    Top = 57
  end
  object ADOQuery_jiangjin: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'AA3'
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'AA4'
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'AA5'
        DataType = ftBoolean
        Precision = 1
        Size = 2
        Value = Null
      end>
    Left = 128
    Top = 436
  end
  object DataSource5: TDataSource
    Left = 311
    Top = 61
  end
  object ADOQuery5: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select top 1 member_id from member order by member_id desc')
    Left = 243
    Top = 63
    object ADOQuery5member_id: TWideStringField
      FieldName = 'member_id'
    end
  end
  object ADOQuery_jiesuan: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        DataType = ftString
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        DataType = ftInteger
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'AA3'
        DataType = ftInteger
        Precision = 5
        Size = 2
        Value = Null
      end>
    Left = 125
    Top = 376
  end
  object ADOinsert_jiesuan: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'E'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'A'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 4
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'Y'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'M'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'D'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'S'
        DataType = ftBoolean
        Precision = 1
        Size = 2
        Value = Null
      end
      item
        Name = 'A2'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 4
        Precision = 19
        Size = 19
        Value = Null
      end
      item
        Name = 'A3'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 4
        Precision = 19
        Size = 19
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'insert into jiesuan_month_kaituo (member_id,amount,year_js,month' +
        '_js,date_valid,sign_year) VALUES (:E,:A,:Y,:M,:D,:S)')
    Left = 39
    Top = 373
  end
  object ADOinsert_memberTemp: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'AA1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        Value = Null
      end
      item
        Name = 'AA3'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Precision = 20
        Size = 20
        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 = 20
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'delete from member where member_id = :AA1')
    Left = 158
    Top = 229
  end
end