unit20.pas

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

     num:=num+1;
     end;


      9:
     begin
     ds10:=ch11.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch11.Caption;
     num:=num+1;


     end;







end;





end;




if ch12.Checked=true then
begin

case num of
   0:
     begin
     ds1:=ch12.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch12.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch12.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch12.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch12.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch12.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch12.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch12.Caption;
     num:=num+1;
     end;


      8:
     begin
     ds9:=ch12.Caption;
     num:=num+1;
     end;


      9:
     begin
     ds10:=ch12.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch12.Caption;
     num:=num+1;
     end;

    11:
     begin
     ds12:=ch12.Caption;
     num:=num+1;
     end;



end;




end;



if ch13.Checked=true then
begin



case num of
   0:
     begin
     ds1:=ch13.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch13.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch13.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch13.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch13.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch13.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch13.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch13.Caption;
     num:=num+1;
     end;


      8:
     begin
     ds9:=ch13.Caption;
     num:=num+1;
     end;


      9:
     begin
     ds10:=ch13.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch13.Caption;
     num:=num+1;
     end;

     11:
     begin
     ds12:=ch13.Caption;
     num:=num+1;
     end;

    12:
     begin
     ds13:=ch13.Caption;
     num:=num+1;
     end;



end;





end;


if ch14.Checked=true then
begin



case num of
   0:
     begin
     ds1:=ch14.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch14.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch14.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch14.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch14.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch14.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch14.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch14.Caption;
     num:=num+1;
     end;


      8:
     begin
     ds9:=ch14.Caption;
     num:=num+1;
     end;


      9:
     begin
     ds10:=ch14.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch14.Caption;
     num:=num+1;
     end;

     11:
     begin
     ds12:=ch14.Caption;
     num:=num+1;
     end;

    12:
     begin
     ds13:=ch14.Caption;
     num:=num+1;
     end;

     13:
     begin
     ds14:=ch14.Caption;
     num:=num+1;

     end;

end;


 end;




if ch15.Checked=true then
begin



case num of
   0:
     begin
     ds1:=ch15.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch15.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch15.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch15.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch15.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch15.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch15.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch15.Caption;
     num:=num+1;
     end;


      8:
     begin
     ds9:=ch15.Caption;
     num:=num+1;
     end;


      9:
     begin
     ds10:=ch15.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch15.Caption;
     num:=num+1;
     end;

     11:
     begin
     ds12:=ch15.Caption;
     num:=num+1;
     end;

    12:
     begin
     ds13:=ch15.Caption;
     num:=num+1;
     end;

     13:
     begin
     ds14:=ch15.Caption;
     num:=num+1;

     end;

     14:
     begin
     ds15:=ch15.Caption;
     num:=num+1;

     end;

end;


 end;





 if ch16.Checked=true then
begin



case num of
   0:
     begin
     ds1:=ch16.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch16.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch16.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch16.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch16.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch16.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch16.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch16.Caption;
     num:=num+1;
     end;


      8:
     begin
     ds9:=ch16.Caption;
     num:=num+1;
     end;


      9:
     begin
     ds10:=ch16.Caption;
     num:=num+1;
     end;


      10:
     begin
     ds11:=ch16.Caption;
     num:=num+1;
     end;

     11:
     begin
     ds12:=ch16.Caption;
     num:=num+1;
     end;

    12:
     begin
     ds13:=ch16.Caption;
     num:=num+1;
     end;

     13:
     begin
     ds14:=ch16.Caption;
     num:=num+1;

     end;

     14:
     begin
     ds15:=ch16.Caption;
     num:=num+1;

     end;

     15:
     begin
     ds16:=ch16.Caption;
     num:=num+1;

     end;

end;


 end;





 if ch17.Checked=true then
begin



case num of
   0:
     begin
     ds1:=ch17.Caption;
     num:=num+1;

     end;
   1:
     begin
     ds2:=ch17.Caption;
     num:=num+1;
     end;


  2:
     begin
     ds3:=ch17.Caption;
     num:=num+1;
     end;


     3:
     begin
     ds4:=ch17.Caption;
     num:=num+1;
     end;

     4:
     begin
     ds5:=ch17.Caption;
     num:=num+1;
     end;


     5:
     begin
     ds6:=ch17.Caption;
     num:=num+1;
     end;

     6:
     begin
     ds7:=ch17.Caption;
     num:=num+1;
     end;

     7:
     begin
     ds8:=ch17.Caption;
     num:=num+1;
     end;