f_inputpoint.pas

销售业绩核算系统

      if  (count02>=6510) then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+98 

      end;    //EEEEEEEEEE

      if dengji01='B01' then
       begin       //EEEEEEEEEE
      if  (count02>=6510)  then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+49
      end;    //EEEEEEEEEE

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

          point02:=point02+70;
          count02:=count02+70;
      if  (count02>=6510) and (dengji01='B01') and (dengji02='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count02>=6510) and (dengji01='B') and (dengji02='B')then
           adoquery.FieldValues['dengji']:='B01'
       else if  (count02>=6510) and (dengji02='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count02<6510) and (count02>=980) and (dengji01='C') and (dengji02='C') then
              adoquery.FieldValues['dengji']:='C01'
      else if   (count02<6510) and (count02>=980) and (dengji02='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count02<980) and (count02>=280) then
            adoquery.FieldValues['dengji']:='D'
      else if count02<280 then
            adoquery.FieldValues['dengji']:='E';

      adoquery.FieldValues['current_point']:=point02;
       adoquery.FieldValues['zong_point']:=count02;
//////////////////////////////////////////////////
      adoquery.Post;
/////////第二人结束


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

      dengji03:=adoquery.fieldvalues['dengji'];
      count03:=adoquery.fieldvalues['zong_point'];
      point03:=adoquery.fieldvalues['current_point'];
      name04:=adoquery.FieldValues['shangshuname'];
      bianhao04:=adoquery.FieldValues['shangshu'];

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

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

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

      if dengji02='C01' then
     begin       //EEEEEEEEEE
      if  (count03>=6510)  then
         adoquery.FieldValues['money']:=adoquery.FieldValues['money']+196
       end;    //EEEEEEEEEE

     if dengji02='B'  then
       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;