⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.~pas

📁 奖金提成器的制作
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
     begin
       a:=310*m*0.02+(n-310)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>350) and (n<=400)) then
     begin
       a:=310*m*0.02+40*m*0.09+(n-350)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 400<n then
     begin
       a:=310*m*0.02+40*m*0.09+50*m*0.12+(n-400)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end;
    end;
   2:begin
     if n<=500 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>500) and (n<=570)) then
     begin
       a:=500*m*0.02+(n-500)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>570) and (n<=650)) then
     begin
       a:=500*m*0.02+70*m*0.09+(n-570)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 650<n then
     begin
       a:=500*m*0.02+70*m*0.09+80*m*0.12+(n-650)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   3:begin
     if n<=500 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>500) and (n<=570)) then
     begin
       a:=500*m*0.02+(n-500)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>570) and (n<=650)) then
     begin
       a:=500*m*0.02+70*m*0.09+(n-570)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 650<n then
     begin
       a:=500*m*0.02+70*m*0.09+80*m*0.12+(n-650)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   4:begin
     if n<=500 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>500) and (n<=570)) then
     begin
       a:=500*m*0.02+(n-500)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>570) and (n<=650)) then
     begin
       a:=500*m*0.02+70*m*0.09+(n-570)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 650<n then
     begin
       a:=500*m*0.02+70*m*0.09+80*m*0.12+(n-650)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   5:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   6:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   7:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   8:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
     end;
   9:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   10:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   end;
  end
  else
  if ComboBox1.Text='配电监测仪'   then
  begin
    case ComboBox2.ItemIndex  of
    0:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   1:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   2:begin
     if n<=1000 then
     begin
       a:=n*m*0.02;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1000) and (n<=1150)) then
     begin
       a:=1000*m*0.02+(n-1000)*m*0.09;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if ((n>1150) and (n<=1300)) then
     begin
       a:=1000*m*0.02+150*m*0.09+(n-1300)*m*0.12;
       EdtTC.Text:=FloatToStr(a);
     end
     else
     if 1300<n then
     begin
       a:=1000*m*0.02+150*m*0.09+150*m*0.12+(n-1300)*m*0.18;
       EdtTC.Text:=FloatToStr(a);
     end
    end;
   end;
  end
  else
  if ComboBox1.Text='GPRS数传模块' then
  begin
    case ComboBox2.ItemIndex  of
   0:begin
      end;
   1:begin
      end;
    end;
  end;
  sum:=sum+a;
  EdtSum.Text := FloatToStr(sum);
end;

procedure TForm1.Edit1Change(Sender: TObject); //判断输入是否为数字
var
  Str:string;
begin
  Str:='';
  Str:=Edit1.Text;
  if Length(Str)>0 then
  if not (Str[Length(Str)] in ['0'..'9',#8]) then
  begin
    Application.MessageBox('请输入数字!','友情提示',MB_OKCANCEL+MB_ICONINFORMATION);
    Edit1.Text:=LeftStr(Str,Length(Str)-1);
  end;
  Edit1.SelStart:=Length(Edit1.Text);

end;

procedure TForm1.Edit2Change(Sender: TObject);
var
  Str:string;
begin
Str:='';
  Str:=Edit2.Text;
  if Length(Str)>0 then
  if not (Str[Length(Str)] in ['0'..'9',#8]) then
  begin
    Application.MessageBox('请输入数字!','友情提示',MB_OKCANCEL+MB_ICONINFORMATION);
    Edit2.Text:=LeftStr(Str,Length(Str)-1);
  end;
  Edit2.SelStart:=Length(Edit2.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sum:=0;
  ComboBox1.ItemIndex:=0;
  ComboBox1Change(self);
end;

procedure TForm1.BtnClearClick(Sender: TObject);
begin
  sum:=0;
  EdtSum.Text:='0';
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -