fullcompanymanchange.pas

pasa人力资源考勤管理系统

unit fullcompanymanchange;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, Qrctrls, Db, ADODB, TeeProcs, TeEngine, Chart,
  DBChart, QrTee, Series;

type
  Tfullcompanyman = class(TForm)
    QuickRep1: TQuickRep;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel16: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel17: TQRLabel;
    QRDBChart1: TQRDBChart;
    QRChart1: TQRChart;
    QRShape1: TQRShape;
    ADOleave: TADOQuery;
    Series1: TBarSeries;
    ADOexchange: TADOQuery;
    TitleBand1: TQRBand;
    SummaryBand1: TQRBand;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure QuickRep1AfterPrint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure QuickRep1AfterPreview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fullcompanyman: Tfullcompanyman;

implementation
uses main,datamol,personalreport;
{$R *.DFM}

procedure Tfullcompanyman.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
  var count1,count0,count2,count3:integer;
      qry:tadoquery;
begin
  qry:=tadoquery.create(self);
  qry.Connection:=datamod.Database1;
  qry.sql.add('select count(workno) as num1 from per24010 where leave<>1 and stoppay<>1  and (month(indate)<> month(getdate()) or  year(indate)<> year(getdate()))');
  qry.open;
  count0:=qry.fieldbyname('num1').asinteger;
  qry.Close;
  qry.SQL.clear;
  qry.SQL.Add('select count(workno) as num2 from per16010 where year(leavedate)=year(getdate()) and month(leavedate)=month(getdate())');
  qry.open;
  count0:=count0+qry.fieldbyname('num2').asinteger;
  qrlabel2.Caption:=inttostr(count0);
  qry.close;
  qry.sql.clear;
  qry.sql.add('select count(workno) as num1 from per24010 where leave<>1 and stoppay<>1 and month(indate)=month(getdate()) and year(indate)=year(getdate())');
  qry.open;
  qrlabel4.Caption:=inttostr(qry.fieldbyname('num1').asinteger);
  qry.close;
  qry.sql.clear;
  qry.sql.add('select count(workno) as num1 from per16010 where month(leavedate)=month(getdate()) and year(leavedate)=year(getdate())');
  qry.open;
  qrlabel6.Caption:=inttostr(qry.fieldbyname('num1').asinteger);
  qry.close;
  qry.sql.clear;
  qry.sql.add('select count(workno)as num3 from per16010 where year(leavedate)=year(convert(datetime,'''+formpersonalreport.maskedit2.Text+'''))');
  qry.open;
  qrlabel23.caption:=inttostr(qry.fieldbyname('num3').asinteger);
  qry.close;
  qry.sql.Clear;
  qry.sql.add('select count(workno) as num4 from per24010 where leave<>1  and year(indate)=year(convert(datetime,'''+formpersonalreport.maskedit2.Text+'''))');
  qry.open;
  count2:=qry.fieldbyname('num4').asinteger;
  qry.close;
  qry.sql.clear;
  qry.sql.add('select count(workno) as num5 from per16010 where year(indate)=year(convert(datetime,'''+formpersonalreport.maskedit2.Text+'''))');
  qry.open;
  count2:=count2+qry.fieldbyname('num5').asinteger;
  qrlabel22.caption:=inttostr(count2);
         qry.close;
       qry.SQL.Clear;
       qry.SQL.Add('select count(workno) as num1 from per24013 where month(usefuldate)=month(getdate()) and year(usefuldate)=year(getdate())');
       qry.Open;
       count1:=qry.fieldbyname('num1').asinteger;
       qry.Close;
       qry.SQL.clear;
       qry.SQL.Add('select count(workno) as num2 from per21010 where month(usefuldate)=month(getdate()) and year(usefuldate)=year(getdate())');
       qry.Open;
       count1:=count1+qry.fieldbyname('num2').asinteger;
       qrlabel8.Caption:=inttostr(count1);
       qry.Close;
       qry.SQL.Clear;
       qry.SQL.Add('select count(workno) as num3 from per24010 where leave<>1 and stoppay<>1 ');
       qry.open;
       qrlabel10.Caption:=inttostr(qry.fieldbyname('num3').asinteger);
       qrlabel17.Caption:=companyname1;
       qrlabel14.Caption:=pubworkname;
end;

procedure Tfullcompanyman.QuickRep1AfterPrint(Sender: TObject);
begin
  adoleave.Active:=false;
  adoexchange.Active:=false;
end;

procedure Tfullcompanyman.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adoleave.Active:=false;
  adoexchange.Active:=false;
  fullcompanyman:=nil;
  action:=cafree;
end;

procedure Tfullcompanyman.FormCreate(Sender: TObject);
begin
  adoleave.Active:=true;
  adoexchange.Active:=true;
  self.hide;
end;

procedure Tfullcompanyman.QuickRep1AfterPreview(Sender: TObject);
begin
  fullcompanyman.Close;
end;

end.