unit20.pas

来自「本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4」· PAS 代码 · 共 3,121 行 · 第 1/5 页

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


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


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

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

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

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

     end;

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

     end;

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

     end;

     16:
     begin
     ds17:=ch17.Caption;
     num:=num+1;

     end;

end;


 end;




if ch18.Checked=true then
begin



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

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


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


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

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


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

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

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


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


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


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

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

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

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

     end;

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

     end;

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

     end;

     16:
     begin
     ds17:=ch18.Caption;
     num:=num+1;

     end;

     17:
     begin
     ds18:=ch18.Caption;
     num:=num+1;

     end;

end;


 end;





if ch19.Checked=true then
begin



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

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


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


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

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


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

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

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


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


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


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

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

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

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

     end;

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

     end;

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

     end;

     16:
     begin
     ds17:=ch19.Caption;
     num:=num+1;

     end;

     17:
     begin
     ds18:=ch19.Caption;
     num:=num+1;

     end;

     18:
     begin
     ds19:=ch19.Caption;
     num:=num+1;

     end;

end;


 end;




if ch20.Checked=true then
begin



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

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


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


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

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


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

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

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


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


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


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

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

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

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

     end;

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

     end;

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

     end;

     16:
     begin
     ds17:=ch20.Caption;
     num:=num+1;

     end;

     17:
     begin
     ds18:=ch20.Caption;
     num:=num+1;

     end;

     18:
     begin
     ds19:=ch20.Caption;
     num:=num+1;

     end;

     19:
     begin
     ds20:=ch20.Caption;
     num:=num+1;

     end;

end;


 end;



 if ch21.Checked=true then
begin



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

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


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


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

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


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

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

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


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


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


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

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

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

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

     end;

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

     end;

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

     end;

     16:
     begin
     ds17:=ch21.Caption;
     num:=num+1;

     end;

     17:
     begin
     ds18:=ch21.Caption;
     num:=num+1;

     end;

     18:
     begin
     ds19:=ch21.Caption;
     num:=num+1;

     end;

     19:
     begin
     ds20:=ch21.Caption;
     num:=num+1;