f_inputpoint.pas

销售业绩核算系统

      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('添加完毕！');
/////////第七人结束


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


      dengji08:=adoquery.fieldvalues['dengji'];
      count08:=adoquery.fieldvalues['zong_point'];
      point08:=adoquery.fieldvalues['current_point'];
      //name08:=adoquery.FieldValues['shangshuname'];
      //bianhao08:=adoquery.FieldValues['shangshuname'];

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

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

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

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

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

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


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

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



      adoquery.FieldValues['current_point']:=point08;
      adoquery.FieldValues['zong_point']:=count08;
//////////////////////////////////////////////////
         ADOQuery.Post;

/////////第八人结束

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


      dengji09:=adoquery.fieldvalues['dengji'];
      count09:=adoquery.fieldvalues['zong_point'];
      point09:=adoquery.fieldvalues['current_point'];
      name10:=adoquery.FieldValues['shangshuname'];
      bianhao10:=adoquery.FieldValues['shangshuname'];

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

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

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