f_inpoint.pas

销售业绩核算系统

/////////第八人开始  ####### 加奖金
     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

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

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

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


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

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



      adoquery.FieldValues['current_point']:=point09;
      adoquery.FieldValues['zong_point']:=count09;
//////////////////////////////////////////////////
         ADOQuery.Post;

/////////第九人结束

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


      dengji10:=adoquery.fieldvalues['dengji'];
      count10:=adoquery.fieldvalues['zong_point'];
      point10:=adoquery.fieldvalues['current_point'];
      name11:=adoquery.FieldValues['shangshuname'];
      bianhao11:=adoquery.FieldValues['shangshuname'];

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

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

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

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

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

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


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

          point10:=point10+70;
          count10:=count10+70;
      if  (count10>=6510) and (dengji09='B01') and (dengji10='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count10>=6510) and (dengji09='B') and (dengji10='B') then
           adoquery.FieldValues['dengji']:='B01'
      else  if  (count10>=6510) and (dengji10='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count10<6510) and (count10>=980)  and (dengji09='C') and (dengji10='C')  then
              adoquery.FieldValues['dengji']:='C01'
      else  if   (count10<6510) and (count10>=980) and (dengji10='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count10<980) and (count10>=280) then
        adoquery.FieldValues['dengji']:='D';



      adoquery.FieldValues['current_point']:=point10;
      adoquery.FieldValues['zong_point']:=count10;
//////////////////////////////////////////////////
         ADOQuery.Post;

/////////第十人结束

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


      dengji11:=adoquery.fieldvalues['dengji'];
      count11:=adoquery.fieldvalues['zong_point'];
      point11:=adoquery.fieldvalues['current_point'];
      name12:=adoquery.FieldValues['shangshuname'];
      bianhao12:=adoquery.FieldValues['shangshuname'];

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

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

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

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

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

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


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

          point11:=point11+70;
          count11:=count11+70;
      if  (count11>=6510) and (dengji10='B01') and (dengji11='B01') then
           adoquery.FieldValues['dengji']:='B02'
      else if  (count11>=6510) and (dengji10='B') and (dengji11='B') then
           adoquery.FieldValues['dengji']:='B01'
      else  if  (count11>=6510) and (dengji11='C') then
           adoquery.FieldValues['dengji']:='B'
      else if   (count11<6510) and (count11>=980)  and (dengji10='C') and (dengji11='C')  then
              adoquery.FieldValues['dengji']:='C01'
      else  if   (count11<6510) and (count11>=980) and (dengji11='D') then
              adoquery.FieldValues['dengji']:='C'
      else if (count11<980) and (count11>=280) then
        adoquery.FieldValues['dengji']:='D';



      adoquery.FieldValues['current_point']:=point11;
      adoquery.FieldValues['zong_point']:=count11;
//////////////////////////////////////////////////
         ADOQuery.Post;
         ado.Next;
     end;
/////////第11人结束


    

end;  //*****************

end;
 
procedure TForm_inputpoint.FormActivate(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
edit10.text:='';
edit11.text:='';
edit12.text:='';                                   edit13.text:='';

end;

end.