u_copy.pas

销售业绩核算系统

unit U_copy;

//unit F_inputpoint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, DB, ADODB;

type
  TForm_copy = class(TForm)
    Label9: TLabel;
    Panel1: TPanel;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label12: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    Label5: TLabel;
    Edit6: TEdit;
    SpeedButton2: TSpeedButton;
    Label15: TLabel;
    Edit13: TEdit;
    SpeedButton3: TSpeedButton;
    Edit1: TComboBox;
    ListBox1: TListBox;
    Epersonal: TEdit;
    Button1: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
   // procedure SpeedButton3Click(Sender: TObject);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_copy: TForm_copy;

implementation

uses F_selectname, F_DM;

{$R *.dfm}

procedure TForm_copy.SpeedButton1Click(Sender: TObject);
begin

//////姓名选择
form_selectname.ShowModal;
with dm do
begin
   try
     if form_selectname.ListView1.Selected<>nil then
      begin
       edit1.text:=form_selectname.ListView1.Selected.Caption;
       adotable.open;
       adotable.Filtered:=false;
       adotable.Filter:='name='''+trim(edit1.text)+'''';
       adotable.Filtered:=true;
       edit1.text:=adotable.FieldValues['name'];
       edit2.Text:=adotable.FieldValues['bianhao'];
       edit5.Text:=adotable.FieldValues['dengji'];
       edit4.Text:=adotable.FieldValues['current_point'];
       edit6.Text:=adotable.FieldValues['leiji_point'];
       edit3.Text:=adotable.FieldValues['zong_point'];
       edit13.Text:=adotable.FieldValues['money'];
       edit7.Text:=adotable.FieldValues['shangshu'];
       edit8.Text:=adotable.FieldValues['shangshuname'];
       edit9.Text:=adotable.FieldValues['proxy'];
       edit10.Text:=adotable.FieldValues['proxy_name'];
       edit11.Text:=adotable.FieldValues['proxy_'];
       edit12.Text:=adotable.FieldValues['proxy_name'];
       adotable.Filtered:=false;
      end;
   except
      showmessage('操作错误,或者没有相关的数据');
   end;
   adotable.close;
end;
//////////////////////////
//with dm do
//begin
//   adoquery.Close;
//   adoquery.SQL.Clear;
//   adoquery.sql.Text:='select * from yeji where name='''+trim(edit1.text)+'''';
//   adoquery.Open;
//   if adoquery.RecordCount>=1 then
//   begin
//      edit1.text:=adoquery.FieldValues['name'];
//      edit2.Text:=adoquery.FieldValues['bianhao'];
//      edit5.Text:=adoquery.FieldValues['dengji'];
//      edit4.Text:=adoquery.FieldValues['current_point'];
//      edit6.Text:=adoquery.FieldValues['leiji_point'];
//      edit3.Text:=adoquery.FieldValues['zong_point'];
//      edit13.Text:=adoquery.FieldValues['money'];
//      edit7.Text:=adoquery.FieldValues['shangshu'];
//      edit8.Text:=adoquery.FieldValues['shangshuname'];
//      edit9.Text:=adoquery.FieldValues['proxy'];
//      edit10.Text:=adoquery.FieldValues['proxy_name'];
//      edit11.Text:=adoquery.FieldValues['proxy_'];
//      edit12.Text:=adoquery.FieldValues['proxy_name'];
//    end;
//end;
///////////////////
end;

procedure TForm_copy.SpeedButton2Click(Sender: TObject);
var
selwhere,selsql:string;
dengji:string;
tempname:string;
bianhao:string;
woname:string;
wobianhao:string;
begin
//form_selectname.ShowModal;
  if (edit1.Text='') and (edit2.text='') then
     exit;

 if  edit2.text<>'' then
  begin
    selwhere:='bianhao';
    selsql:=trim(edit2.text);
  end;

  if edit1.text<>'' then
  begin
    selwhere:='name';
    selsql:=trim(edit1.text);
  end;

with dm do
begin
   adoquery.Close;
   adoquery.SQL.Clear;
   adoquery.sql.Text:='select * from aaa where '+trim(selwhere)+'='''+trim(selsql)+'''';
   adoquery.Open;
   if adoquery.RecordCount>=1 then
   begin
      edit1.text:=adoquery.FieldValues['name'];
      edit2.Text:=adoquery.FieldValues['bianhao'];
      edit5.Text:=adoquery.FieldValues['dengji'];
      edit4.Text:=adoquery.FieldValues['current_point'];
      edit6.Text:=adoquery.FieldValues['leiji_point'];
      edit3.Text:=adoquery.FieldValues['zong_point'];
      edit13.Text:=adoquery.FieldValues['money'];
      edit7.Text:=adoquery.FieldValues['shangshu'];
      edit8.Text:=adoquery.FieldValues['shangshuname'];
      edit9.Text:='HK080208';              //adoquery.FieldValues['proxy'];
      edit10.Text:='王新安';               //adoquery.FieldValues['proxy_name'];
     // edit11.Text:=adoquery.FieldValues['proxy_'];
     // edit12.Text:=adoquery.FieldValues['proxy_name'];
    end;
end;
////计算代理员编号和代理员
   with dm do   ///################################
   begin

      adoquery.SQL.Clear;
      adoquery.sql.Text:='select * from aaa where name='''+trim(edit8.text)+''' and bianhao='''+trim(edit7.text)+'''';
      adoquery.Open;

      //如果上属还存在上属就继续查找
      if adoquery.RecordCount>0 then       //???????????????
      begin
           dengji:=adoquery.FieldValues['dengji'];
           tempname:=trim(adoquery.FieldValues['shangshuname']);
           bianhao:=adoquery.FieldValues['shangshu'];
         while (copy(dengji,1,1)<>'B') and (adoquery.RecordCount>0) do
          begin
              adoquery.SQL.Clear;
              adoquery.sql.Text:='select * from aaa where name='''+trim(tempname)+''' and bianhao='''+trim(bianhao)+'''';
              adoquery.Open;
              if adoquery.RecordCount>0 then
              begin
                  dengji:=adoquery.FieldValues['dengji'];
                  woname:=adoquery.FieldValues['name'];    // 本人
                  wobianhao:=adoquery.FieldValues['bianhao'];  // 本人
                  tempname:=adoquery.FieldValues['shangshuname'];
                  bianhao:=adoquery.FieldValues['shangshu'];

              end;

          end;


          if copy(dengji,1,1)='B' then
             begin
                edit11.text:=trim(wobianhao);
                edit12.text:=trim(woname);
             end
             else
             begin
                edit11.text:='暂时没有代理员编号';
                edit12.text:='暂时没有代理员';
              end;
      end
      else
      begin
         edit11.text:='暂时没有代理员编号';
         edit12.text:='暂时没有代理员';
      end;                  //???????????????????
   end; ///###################################

end;



procedure TForm_copy.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
 if  not (key in ['0'..'9',#8,#46,#110,#190]) then
    begin
     messagedlg('对不起,您只能在此进行输入数字 ！',mtinformation,[mbok],0);
     (sender as Tedit).SetFocus;
     key:=#0;
     end;
end;


//###############################################################################
//###############################################################################
//###############加点数70点
procedure TForm_copy.BitBtn1Click(Sender: TObject);
var
name,bianhao,sql:string;

i,forcount:integer;
//name01,name02,name03,name04,name05,name06,name07,name08,name09,name10,name11,name12:string;  //临时名字
//bianhao01,bianhao02,bianhao03,bianhao04,bianhao05,bianhao06,bianhao07,bianhao08,bianhao09,bianhao10,bianhao11,bianhao12:string; //临时编号
//dengji01,dengji02,dengji03,dengji04,dengji05,dengji06,dengji07,dengji08,dengji09,dengji10,dengji11,dengji12:string; //临时等级
//count01,count02,count03,count04,count05,count06,count07,count08,count09,count10,count11,count12:integer;  //临时总点数
//point01,point02,point03,point04,point05,point06,point07,point08,point09,point10,point11,point12:integer;
name01,name02:string;  //临时名字
bianhao01,bianhao02:string; //临时编号
dengji01,dengji02:string; //临时等级
count01,count02:integer;  //临时总点数
point01,point02:integer;
sname,sbianhao,dengji:array[0..100] of string;
bname,bbianhao:array[0..100] of string;
count,point:array[0..50] of integer;
 p,k,m:integer;
 qian:single;   //奖金
 cha,ji:string;
 jj:integer;   //判断现在处在几级运算
 firstname,firstbianhao,firstji:string;
begin

  if (edit1.text<>'') and (edit2.text<>'') then
   begin
   name:=edit1.text;
   bianhao:=edit2.text;
   end
   else
  exit;
 if checkbox1.Checked=true then
  begin
   if application.MessageBox(' 警告信息-------您确定要输入点数吗？        '+#13+#13+'      请保证您输入数据的正确性!    ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>IDOK then
    exit;
  end;


 with dm do  //*****************
 begin


       //#####
       jj:=1;
       //#####
 /////////////第一人开始  ####### 加奖金
     adoquery.Close;
     adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(edit2.text)+'''';
     //adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(edit2.text)+'''';
     //adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(bianhao)+'''';
     adoquery.Open;
  if  ADOQuery.recordcount<1 then
        begin
    showmessage('添加完毕！');
     exit;

       end;

       dengji01:=adoquery.FieldValues['dengji'];
      count01:=adoquery.fieldvalues['zong_point'];
      point01:=adoquery.fieldvalues['current_point'];
      name02:=adoquery.FieldValues['shangshuname'];     //上级姓名
      bianhao02:=adoquery.FieldValues['shangshu'];      //上级编号

      ////////////////
      //  if adoquery.FieldValues['name']<>'杨柳' then
       //     continue;


///////////第一人第一人////判断定级别 ### 升级 ### 加点数(2) 11111111111111111111111

      ji:='';
      point01:=adoquery.FieldValues['current_point']+70;
      count01:=adoquery.FieldValues['zong_point']+70;

       if  (count01>=6510) and ((dengji01='C01') or (dengji01='C')) then
           ji:='B'
       else if   (count01<6510) and (count01>=980) and (dengji01='D')  then
           ji:='C'
      else if (count01<980) and (count01>=280) and (dengji01='E') then
             ji:='D'
      else if (count01<280) then
               ji:='E';


        qian:=0;       //钱进行初始化
      /////////////////
       if  count01>=6510 then
               qian:=1029
           else if   (count01<6510) and (count01>=980)  then
               qian:=735
              else if (count01<980) and (count01>=280) then
                  qian:=490
                else
                   qian:=367.5; 

        //#############
        ///  业绩表单开始
       ad.SQL.Clear;
       ad.SQL.Text:='select * from yejidan';
       ad.Open;
       ad.Append;
       ad.FieldValues['bianhao']:=adoquery.FieldValues['bianhao'];
       ad.FieldValues['zhiname']:=adoquery.FieldValues['name'];
         if ji<>'' then
         begin
        ad.FieldValues['dengji']:=ji;
        firstji:=ji;
        ad.FieldValues['dengji_02']:=ji;
         end
        else
          begin
          ad.FieldValues['dengji']:=adoquery.FieldValues['dengji'];
          ad.FieldValues['dengji_02']:=adoquery.FieldValues['dengji'];
          firstji:=adoquery.FieldValues['dengji'];
          end ;

       firstbianhao:=adoquery.FieldValues['bianhao'];
       firstname:=adoquery.FieldValues['name'];

       ad.FieldValues['username']:=adoquery.FieldValues['name'];
       ad.FieldValues['bianhao_02']:=adoquery.FieldValues['bianhao'];
       
       ad.FieldValues['leibie']:='直销';
       ad.FieldValues['jiangjin']:=qian;
       ad.FieldValues['shijian']:=date;
       ad.Post;
       ///  业绩表单结束
       //##############################

       adoquery.Edit;
       adoquery.FieldValues['money']:=adoquery.FieldValues['money']+qian;
        if ji<>'' then
       adoquery.FieldValues['dengji']:=ji;
      adoquery.FieldValues['current_point']:=point01;
      adoquery.FieldValues['zong_point']:=count01;
      adoquery.Post;
      adoquery.SQL.Clear;
      adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(edit2.text)+'''';
      //adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(edit2.text)+'''';
      //adoquery.sql.Text:='select * from aaa where name='''+trim(edit1.text)+''' and bianhao='''+trim(bianhao)+'''';
      adoquery.Open;
      dengji01:=adoquery.FieldValues['dengji'];
     // count01:=adoquery.fieldvalues['zong_point'];
     // point01:=adoquery.fieldvalues['current_point'];


//////////////////////////////////////////////////
/////////第一人结束




/////////第二人开始  #######
     adoquery.SQL.Clear;
     adoquery.sql.Text:='select * from aaa where name='''+trim(name02)+''' and bianhao='''+trim(bianhao02)+'''';
     adoquery.Open;
   if  ADOQuery.recordcount<1 then
        begin
     showmessage('添加完毕！');