data_unit1.pas

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

unit Data_Unit1;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOQuery_S1: TADOQuery;
    ADOQuery_S2: TADOQuery;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    ADOTable1id: TAutoIncField;
    ADOTable1class: TWordField;
    ADOTable1type: TWideStringField;
    ADOTable1fudao_ratio: TSmallintField;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    ADOTable2id: TAutoIncField;
    ADOTable2member_id: TWideStringField;
    ADOTable2name: TWideStringField;
    ADOTable2class: TSmallintField;
    ADOTable2higher_id: TWideStringField;
    ADOTable2person: TWideStringField;
    ADOTable2telephone: TWideStringField;
    ADOTable2handphone: TWideStringField;
    ADOTable2email: TWideStringField;
    ADOTable2url: TWideStringField;
    ADOTable2pay_amount: TBCDField;
    ADOTable2pay_date: TDateTimeField;
    ADOTable2remarks: TMemoField;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOdel_member1: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOQuery_upgrade1: TADOQuery;
    ADOQuery_upgrade2: TADOQuery;
    ADOQuery2id: TAutoIncField;
    ADOQuery2member_id: TWideStringField;
    ADOQuery2name: TWideStringField;
    ADOQuery2class: TSmallintField;
    ADOQuery2higher_id: TWideStringField;
    ADOQuery2person: TWideStringField;
    ADOQuery2telephone: TWideStringField;
    ADOQuery2handphone: TWideStringField;
    ADOQuery2email: TWideStringField;
    ADOQuery2url: TWideStringField;
    ADOQuery2pay_amount: TBCDField;
    ADOQuery2pay_date: TDateTimeField;
    ADOQuery2remarks: TMemoField;
    ADOTable_fudao_ratio: TADOTable;
    DataSource_fudao_ratio: TDataSource;
    ADOTable_fudao_ratioid: TAutoIncField;
    ADOTable_fudao_ratioclass: TWordField;
    ADOTable_fudao_ratiotype: TWideStringField;
    ADOTable_fudao_ratiofudao_ratio: TSmallintField;
    ADOTable_guanli_ratio: TADOTable;
    DataSource_guanli_ratio: TDataSource;
    ADOTable_guanli_ratioid: TAutoIncField;
    ADOTable_guanli_ratiotype: TWideStringField;
    ADOTable_guanli_ratiolevel: TWordField;
    ADOTable_guanli_ratioguanli_ratio: TSmallintField;
    ADOinsert_jiangjin: TADOQuery;
    DataSource2b: TDataSource;
    ADOQuery_jiangjin: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery5: TADOQuery;
    ADOQuery5member_id: TWideStringField;
    ADOQuery_jiesuan: TADOQuery;
    ADOinsert_jiesuan: TADOQuery;
    ADOinsert_memberTemp: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.