f_inputpoint.pas

销售业绩核算系统

      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;
       showmessage('成功！');
/////////第11人结束


    

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

end;
 
procedure TForm_inputpoint.FormActivate(Sender: TObject);
var
i:integer;
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:='';
Edit1.Clear;
with dm do
begin
   adoquery.SQL.Clear;
   adoquery.SQL.Text:='select shangshuname from aaa';
   adoquery.Open;
   if adoquery.Eof then
     begin
      adoquery.Last;
      for i :=1  to 65 do
      begin
        edit1.Items.Add(adoquery.FieldValues['shangshuname']);
        adoquery.Prior;
      end;

     end;
end;


end;

procedure TForm_inputpoint.BitBtn3Click(Sender: TObject);
var
i:integer;
begin
  with dm do
  begin
     adoquery.SQL.Clear;
     adoquery.sql.text:='select * from aaa';
     adoquery.Open;
      
     for  i:=0  to adoquery.RecordCount-1 do
     begin
           adoquery.Edit;
        //   adoquery.FieldValues['dengji']:='E';
        //  adoquery.FieldValues['current_point']:=0;
        //  adoquery.FieldValues['leiji_point']:=0;
        //  adoquery.FieldValues['zong_point']:=0;
        //  adoquery.FieldValues['money']:=0;
         // adoquery.FieldValues['proxyname']:='王新安';
          adoquery.FieldValues['proxy']:='HK080208';
          adoquery.Post;
          adoquery.Next;
     end;

    // adoquery.SQL.text:='update aaa set dengji=''E'',current_point=0,leiji_point=0,zong_point=0,money=0';
    // adoquery.ExecSQL;
     adoquery.Close;
  end;


end;

end.