f_inpoint.pas

销售业绩核算系统

       begin       //EEEEEEEEEE
      if  (count03>=6510)  then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98


      end;    //EEEEEEEEEE

      if dengji02='B01'  then
       begin       //EEEEEEEEEE
      if  (count03>=6510) then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE
///////////判断定级别 ### 升级 ### 加点数(2) 222222222222//只考虑比现有级别高才升级的情况

          point03:=point03+70;
          count03:=count03+70;
       if  (count03>=6510) and (dengji02='B01') and (dengji03='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count03>=6510) and (dengji02='B') and (dengji03='B') then
           adoquery.FieldValues['dengji']:='B01'
      else if  (count03>=6510) and (dengji03='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count03<6510) and (count03>=980) and (dengji02='C') and (dengji03='C') then
              adoquery.FieldValues['dengji']:='C01'
      else if   (count03<6510) and (count03>=980) and (dengji03='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count03<980) and (count03>=280) then
        adoquery.FieldValues['dengji']:='D'
      else if count03<280 then                               //错误///count04
      adoquery.FieldValues['dengji']:='E';



      adoquery.FieldValues['current_point']:=point03;
       adoquery.FieldValues['zong_point']:=count03;
//////////////////////////////////////////////////
      adoquery.Post;
/////////第三人结束



////////第四人开始  ####### 加奖金
      adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(name04)+''' and bianhao='''+trim(bianhao04)+'''';
     adoquery.Open;
     if adoquery.RecordCount<1 then
        begin
     // showmessage('添加完毕！');
      // exit;
       ado.Next;
       continue;
       end;

      dengji04:=adoquery.fieldvalues['dengji'];
      count04:=adoquery.fieldvalues['zong_point'];
      point04:=adoquery.fieldvalues['current_point'];
      name05:=adoquery.FieldValues['shangshuname'];
      bianhao05:=adoquery.FieldValues['shangshu'];

   adoquery.Edit;
   if dengji03='E' then
     begin       //EEEEEEEEEE
       if  count04>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+661.5
           else if   (count04<6510) and (count04>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+367.5
              else if (count04<980) and (count04>=280) then
                adoquery.FieldValues['money']:=adoquery.FieldValues['money']+122.5;
       end;    //EEEEEEEEEE

     if dengji03='D' then
     begin       //EEEEEEEEEE
      if  count04>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+539
           else if   (count04<6510) and (count04>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+245;
      end;    //EEEEEEEEEE

       if dengji03='C' then
     begin       //EEEEEEEEEE
       if  count04>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+294
           else if (count04<6510) and (count04>=980) and (dengji04='C01') then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98;
      end;    //EEEEEEEEEE

      if dengji03='C01' then
     begin       //EEEEEEEEEE
      if  count04>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+196
       end;    //EEEEEEEEEE

     if dengji03='B'  then
       begin       //EEEEEEEEEE
      if  (count04>=6510) and (dengji04='B01') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98

      end;    //EEEEEEEEEE

      if dengji03='B01'  then
       begin       //EEEEEEEEEE
      if  (count04>=6510) and (dengji04='B02') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE
///////////判断定级别 ### 升级 ### 加点数(2) 222222222222222222

          point04:=point04+70;
          count04:=count04+70;
      if (count04>=6510) and (dengji03='B01') and (dengji04='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count04>=6510) and (dengji03='B') and (dengji04='B') then
           adoquery.FieldValues['dengji']:='B01'
      else if (count04>=6510) and (dengji04='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count04<6510) and (count04>=980) and (dengji03='C') and (dengji04='C') then
              adoquery.FieldValues['dengji']:='C01'
      else if   (count04<6510) and (count04>=980) and (dengji04='D') then    //##########################
              adoquery.FieldValues['dengji']:='C'
      else if (count04<980) and (count04>=280) then
        adoquery.FieldValues['dengji']:='D'
      else if count04<280 then
      adoquery.FieldValues['dengji']:='E';



      adoquery.FieldValues['current_point']:=point04;
      adoquery.FieldValues['zong_point']:=count04;
//////////////////////////////////////////////////
       adoquery.Post;
///////////第四人结束


//////////第五人开始  ####### 加奖金
      adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(name05)+''' and bianhao='''+trim(bianhao05)+'''';
     adoquery.Open;
     if adoquery.RecordCount<1 then
        begin
     // showmessage('添加完毕！');
     //  exit;
      ado.Next;
      continue;
       end;

      dengji05:=adoquery.fieldvalues['dengji'];
      count05:=adoquery.fieldvalues['zong_point'];
      point05:=adoquery.fieldvalues['current_point'];
      name06:=adoquery.FieldValues['shangshuname'];
      bianhao06:=adoquery.FieldValues['shangshu'];

   adoquery.Edit;
   if dengji04='E' then
     begin       //EEEEEEEEEE
       if  count05>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+661.5
           else if   (count05<6510) and (count05>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+367.5
              else if (count05<980) and (count05>=280) then
                adoquery.FieldValues['money']:=adoquery.FieldValues['money']+122.5;
       end;    //EEEEEEEEEE

     if dengji04='D' then
     begin       //EEEEEEEEEE
      if  count05>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+539
           else if   (count05<6510) and (count05>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+245;
      end;    //EEEEEEEEEE

       if dengji04='C' then
     begin       //EEEEEEEEEE
       if  count05>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+294
           else if   (count05<6510) and (count05>=980) and (dengji05='C01') then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98;
      end;    //EEEEEEEEEE

      if dengji04='C01' then
     begin       //EEEEEEEEEE
      if  count05>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+196     //dddddd//C01
       end;    //EEEEEEEEEE

     if dengji04='B'  then
       begin       //EEEEEEEEEE
      if  (count05>=6510) and (dengji05='B01') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98
          
      end;    //EEEEEEEEEE

      if dengji04='B01'  then
       begin       //EEEEEEEEEE
      if  (count05>=6510) and (dengji05='B02') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE
///////////判断定级别 ### 升级 ### 加点数(2) 222222222222222222

          point05:=point05+70;
          count05:=count05+70;
      if  (count05>=6510) and (dengji04='B01') and (dengji05='B01')  then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count05>=6510) and (dengji04='B') and (dengji05='B') then
           adoquery.FieldValues['dengji']:='B01'
      else if  (count05>=6510) and (dengji05='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count05<6510) and (count05>=980) and (dengji04='C') and (dengji05='C') then
              adoquery.FieldValues['dengji']:='C01'
      else if   (count05<6510) and (count05>=980) and (dengji05='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count05<980) and (count05>=280) then
        adoquery.FieldValues['dengji']:='D';



      adoquery.FieldValues['current_point']:=point05;
       adoquery.FieldValues['zong_point']:=count05;
//////////////////////////////////////////////////
      adoquery.Post;
/////////第五人结束


/////////第六人开始  ####### 加奖金
      adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(name06)+''' and bianhao='''+trim(bianhao06)+'''';
     adoquery.Open;
     if adoquery.RecordCount<>1 then
        begin
     // showmessage('添加完毕！');
     //  exit;
      ado.Next;
       continue;
       end;

      dengji06:=adoquery.fieldvalues['dengji'];
      count06:=adoquery.fieldvalues['zong_point'];
      point06:=adoquery.fieldvalues['current_point'];
      name07:=adoquery.FieldValues['shangshuname'];
      bianhao07:=adoquery.FieldValues['shangshu'];

   ADOquery.Edit;
   if dengji05='E' then
     begin       //EEEEEEEEEE
       if  count06>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+661.5
           else if   (count06<6510) and (count06>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+367.5
              else if (count06<980) and (count06>=280) then
                adoquery.FieldValues['money']:=adoquery.FieldValues['money']+122.5;
       end;    //EEEEEEEEEE

     if dengji05='D' then
     begin       //EEEEEEEEEE
      if  count06>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+539
           else if   (count06<6510) and (count06>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+245;
      end;    //EEEEEEEEEE

       if dengji05='C' then
     begin       //EEEEEEEEEE
       if  count06>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+294
           else if   (count06<6510) and (count06>=980) and (dengji06='C01') then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98;
      end;    //EEEEEEEEEE

      if dengji05='C01' then
     begin       //EEEEEEEEEE
      if  count06>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+196
       end;    //EEEEEEEEEE

     if dengji05='B'  then
       begin       //EEEEEEEEEE
      if  (count06>=6510) and (dengji06='B01') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98
           else if (count06>=6510) and (dengji06='B02')   then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49;
      end;    //EEEEEEEEEE

      if dengji05='B01'  then
       begin       //EEEEEEEEEE
      if  (count06>=6510) and (dengji06='B02') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE
///////////判断定级别 ### 升级 ### 加点数(2) 222222222222222222

          point06:=point06+70;
          count06:=count06+70;
      if  (count06>=6510) and (dengji05='B01') and (dengji06='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count06>=6510) and (dengji05='B') and (dengji06='B') then
           adoquery.FieldValues['dengji']:='B01'
      else  if (count06>=6510) and (dengji06='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count06<6510) and (count06>=980) and (dengji05='C') and (dengji06='C') then
              adoquery.FieldValues['dengji']:='C01'
      else  if  (count06<6510) and (count06>=980) and (dengji06='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count06<980) and (count06>=280) then
        adoquery.FieldValues['dengji']:='D';

        

      adoquery.FieldValues['current_point']:=point06;
      adoquery.FieldValues['zong_point']:=count06;
//////////////////////////////////////////////////
     ADOQuery.Post;
/////////第六人结束


/////////第七人开始  ####### 加奖金
     adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(name07)+''' and bianhao='''+trim(bianhao07)+'''';
     adoquery.Open;
     if adoquery.RecordCount<>1 then
       begin
     // showmessage('添加完毕！');
    //    exit;
    ado.Next;
    continue;
       end;
       


      dengji07:=adoquery.fieldvalues['dengji'];
      count07:=adoquery.fieldvalues['zong_point'];
      point07:=adoquery.fieldvalues['current_point'];
      //name08:=adoquery.FieldValues['shangshuname'];
      //bianhao08:=adoquery.FieldValues['shangshuname'];

   ADOQuery.Edit;
   if dengji06='E' then
     begin       //EEEEEEEEEE
       if  count07>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+661.5
           else if   (count07<6510) and (count07>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+367.5
              else if (count07<980) and (count07>=280) then
                adoquery.FieldValues['money']:=adoquery.FieldValues['money']+122.5;
       end;    //EEEEEEEEEE

     if dengji06='D' then
     begin       //EEEEEEEEEE
      if  count07>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+539
           else if   (count07<6510) and (count07>=980)  then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+245;
      end;    //EEEEEEEEEE

       if dengji06='C' then
     begin       //EEEEEEEEEE
       if  count07>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+294
           else if   (count07<6510) and (count07>=980) and (dengji07='C01') then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98;
      end;    //EEEEEEEEEE

      if dengji06='C01' then
     begin       //EEEEEEEEEE
      if  count07>=6510 then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+196
       end;    //EEEEEEEEEE

     if dengji06='B'  then
       begin       //EEEEEEEEEE
      if  (count07>=6510) and (dengji07='B01') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98
           else if (count07>=6510) and (dengji07='B02')   then
            adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49;
      end;    //EEEEEEEEEE

      if dengji06='B01'  then
       begin       //EEEEEEEEEE
      if  (count07>=6510) and (dengji07='B02') then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE


///////////判断定级别 ### 升级 ### 加点数(2) 777777777777777777

          point07:=point07+70;
          count07:=count07+70;
      if  (count07>=6510) and (dengji06='B01') and (dengji07='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count07>=6510) and (dengji06='B') and (dengji07='B') then
           adoquery.FieldValues['dengji']:='B01'
      else  if  (count07>=6510) and (dengji07='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count07<6510) and (count07>=980)  and (dengji06='C') and (dengji07='C')  then
              adoquery.FieldValues['dengji']:='C01'
      else  if   (count07<6510) and (count07>=980) and (dengji07='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count07<980) and (count07>=280) then
        adoquery.FieldValues['dengji']:='D';



      adoquery.FieldValues['current_point']:=point07;
      adoquery.FieldValues['zong_point']:=count07;
//////////////////////////////////////////////////
         ADOQuery.Post;


         showmessage('添加完毕！');
/////////第七人结束