unit4.~pas

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

     num:=num+1;

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


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


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

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


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

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

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


      8:
     begin
     ds9:=ch11.Caption;
     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;






case num of


         0:
            showmessage('没有任何指定的队别');
         1:

         BEGIN
             showmessage(ds1);

            table1.Filter:='队别'+'='+''''+ds1+'''';
            table1.Filtered:=true;
           END;
         2:
           begin
           showmessage(ds1+','+ds2);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+'''';
           table1.filtered:=true;
            end;

         3:
           begin
           showmessage(ds1+','+ds2+','+ds3);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+'''';
           table1.filtered:=true;
            end;


         4:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+'''';
           table1.filtered:=true;
            end;




         5:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+'''';
           table1.filtered:=true;
            end;


         
         6:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+'''';
           table1.filtered:=true;
            end;


       
         7:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+''''+
            '  or  ' + '队别'+'='+''''+ds7+'''';
           table1.filtered:=true;
            end;

        8:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+''''+
            '  or  ' + '队别'+'='+''''+ds7+''''+'  or  ' + '队别'+'='+''''+ds8+'''';
           table1.filtered:=true;
            end;



         9:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+''''+
            '  or  ' + '队别'+'='+''''+ds7+''''+'  or  ' + '队别'+'='+''''+ds8+''''
            +'  or  ' + '队别'+'='+''''+ds9+'''';
           table1.filtered:=true;
            end;





          10:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+''''+
            '  or  ' + '队别'+'='+''''+ds7+''''+'  or  ' + '队别'+'='+''''+ds8+''''
            +'  or  ' + '队别'+'='+''''+ds9+''''+'  or  ' + '队别'+'='+''''+ds10+'''';
           table1.filtered:=true;
            end;


          11:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='队别'+'='+''''+ds1+'''' + '  or  ' + '队别'+'='+''''+ds2+''''+
            '  or  ' + '队别'+'='+''''+ds3+''''+'  or  ' + '队别'+'='+''''+ds4+''''
            +'  or  ' + '队别'+'='+''''+ds5+''''+'  or  ' + '队别'+'='+''''+ds6+''''+
            '  or  ' + '队别'+'='+''''+ds7+''''+'  or  ' + '队别'+'='+''''+ds8+''''
            +'  or  ' + '队别'+'='+''''+ds9+''''+'  or  ' + '队别'+'='+''''+ds10+''''
            +'  or  ' + '队别'+'='+''''+ds11+'''';
           table1.filtered:=true;
            end;



end;

edit1.Text:=inttostr(table1.RecordCount);



end;
procedure TForm4.Button2Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
quickreport6.QRExpr49.Visible:=true;
quickreport6.QRExpr49.Enabled:=true;

quickreport6.QRExpr50.Enabled:=false;

quickreport6.QRExpr50.Visible:=false;

end;


if radiobutton2.Checked=true then
begin
quickreport12.QRExpr49.Visible:=true;
quickreport12.QRExpr49.Enabled:=true;

quickreport12.QRExpr50.Enabled:=false;

quickreport12.QRExpr50.Visible:=false;


quickreport12.QRExpr10.Enabled:=false;

quickreport12.QRExpr10.Visible:=false;

end;



case num of


         0: