unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = 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;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

var

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

implementation

uses rep6, GJGZGL;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin

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;






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;




end;

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



procedure TForm7.Button2Click(Sender: TObject);
begin

case num of


         0:
            showmessage('没有任何指定的属性可打印');
         1:

         BEGIN
             showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds1+'的工资表打印完毕');

           END;


          2:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');

           END;




         
          3:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='属性'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');

           END;



          4:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='属性'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');




            showmessage('现在打印'+ds4+'请装纸');

            table1.Filter:='属性'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds4+'的工资表打印完毕');

           END;



         



end;





end;

end.