unit15.pas

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

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;

type
  TForm15 = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Ch1: TCheckBox;
    Ch2: TCheckBox;
    Ch3: TCheckBox;
    Ch4: TCheckBox;
    Ch5: TCheckBox;
    Ch6: TCheckBox;                        
    Ch7: TCheckBox;
    Ch8: TCheckBox;
    Ch9: TCheckBox;
    Ch10: TCheckBox;
    Ch11: TCheckBox;
    Ch12: TCheckBox;
    Ch13: TCheckBox;
    Ch14: TCheckBox;
    Ch15: TCheckBox;
    Ch16: TCheckBox;
    Ch17: TCheckBox;
    Ch18: TCheckBox;
    Ch19: TCheckBox;
    Ch20: TCheckBox;
    Ch21: TCheckBox;
    Ch22: TCheckBox;
    Ch23: TCheckBox;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

ds1,ds2,ds3,ds4,ds5,ds6,ds7,ds8,ds9,ds10,ds11,ds12,ds13,ds14:string;
  ds1a:array[1..15] of string;
  num:integer;
  sum:double;

implementation

uses rep6, GJGZGL, Unit1, Unit5;

{$R *.dfm}

procedure Tform15.Button1Click(Sender: TObject);
begin

quickreport8.QRExpr5.Visible:=false;
quickreport8.QRExpr5.Enabled:=false;


quickreport8.QRExpr6.Visible:=false;
quickreport8.QRExpr6.Enabled:=false;


quickreport8.QRExpr7.Visible:=true;
quickreport8.QRExpr7.Enabled:=true;

num:=0;
if ch1.Checked=true then
begin



num:=num+1;
ds1:=ch1.Caption;
end;


if ch2.Checked=true then
begin


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

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

     end;

     end;
end;


if ch3.Checked=true then
begin


case num of



   0:
     begin
     ds1:=ch3.Caption;
     num:=num+1;

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


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

end;

end;


if ch4.Checked=true then
begin

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

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


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


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



end;


if ch5.Checked=true then
begin


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

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


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


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

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




end;






end;



if ch6.Checked=true then
begin


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

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


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


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

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


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

end;






end;



if ch7.Checked=true then
begin


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

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


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


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

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


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

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






end;



if ch8.Checked=true then
begin



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

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


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


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

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


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

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

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







end;


if ch9.Checked=true then
begin


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

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


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


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

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


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

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

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


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

end;



end;


if ch10.Checked=true then
begin


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

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


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


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

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


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

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

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


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


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





end;




if ch11.Checked=true then
begin


case num of
   0:
     begin
     ds1:=ch11.Caption;
     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;