reportask.pas

pasa人力资源考勤管理系统

unit reportask;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ExtCtrls, ppProd, ppClass, ppReport, ppComm, ppRelatv,
  ppDB, ppDBPipe, ppDBBDE, Db, ADODB, ppVar, ppBands, ppCtrls, ppPrnabl,
  ppCache;

type
  Treportofask = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ppBDEPipeline1: TppBDEPipeline;
    ADODataSet2: TADODataSet;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppLabel4: TppLabel;
    ppLabel24: TppLabel;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLabel25: TppLabel;
    ppLine9: TppLine;
    ppLabel26: TppLabel;
    ppLine10: TppLine;
    ppLabel28: TppLabel;
    ppLine12: TppLine;
    ppLabel29: TppLabel;
    ppLine13: TppLine;
    ppLabel30: TppLabel;
    ppLine14: TppLine;
    ppLabel31: TppLabel;
    ppLine15: TppLine;
    ppLabel32: TppLabel;
    ppLine16: TppLine;
    ppLabel33: TppLabel;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppDBText3: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppLine28: TppLine;
    ppLine27: TppLine;
    ppDBText23: TppDBText;
    ADODataSet1: TADODataSet;
    ADODataSet1askno: TStringField;
    ADODataSet1workno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1sexname: TStringField;
    ADODataSet1deptno: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet1startrq: TDateTimeField;
    ADODataSet1starttime: TStringField;
    ADODataSet1endrq: TDateTimeField;
    ADODataSet1endtime: TStringField;
    ADODataSet1askhours: TBCDField;
    ADODataSet1dechours: TBCDField;
    ADODataSet1askkind: TStringField;
    ADODataSet1havemoney: TStringField;
    ADODataSet1askreason: TStringField;
    ADODataSet1operator: TStringField;
    ADODataSet1memo: TStringField;
    ADODataSet1cdate: TDateTimeField;
    ADODataSet1dept: TStringField;
    ADODataSet1askdate: TBCDField;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel3: TppLabel;
    ppLabel5: TppLabel;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reportofask: Treportofask;

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

procedure Treportofask.RadioGroup1Click(Sender: TObject);
begin
  if radiogroup1.ItemIndex=0 then
     maskedit1.Text:='';
     maskedit2.Text:='';
end;

procedure Treportofask.Button2Click(Sender: TObject);
begin
  adodataset1.Close;
  adodataset2.Close;
  close;
end;

procedure Treportofask.FormCreate(Sender: TObject);
begin
  adodataset1.Open;
  adodataset2.open;
end;

procedure Treportofask.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  reportofask:=nil;
  action:=cafree;
end;

procedure Treportofask.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then    
   begin
     key:=#0;
     postmessage(handle,wm_keydown,vk_tab,0);
   end;
end;

procedure Treportofask.Button1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        adodataset1.Close;
        adodataset1.CommandText :='';
        adodataset1.commandtext:='select  a.*,b.dept,(a.askhours/8) as askdate  from atd13010 a  left join per24010 b  on  a.workno=b.workno ';
        adodataset1.Open;
      end;
    1:
      begin
        adodataset1.Close;
        adodataset1.CommandText :='';
        adodataset1.commandtext:='select  a.*,b.dept,(a.askhours/8) as askdate  from atd13010 a  left join per24010 b  on  a.workno=b.workno ' +
                                 'where a.startrq between  convert(datetime,'''+maskedit1.Text+''') and convert(datetime,'''+maskedit2.Text+''') and a.endrq between  convert(datetime,'''+maskedit1.Text+''') and convert(datetime,'''+maskedit2.Text+''')';
        adodataset1.Open;
      end;
  end;
  ppreport2.Print;
end;
procedure Treportofask.ppReport1AfterPrint(Sender: TObject);
begin
  adodataset1.Close;
  adodataset2.Close;
end;

procedure Treportofask.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Treportofask.ppReport2PreviewFormCreate(Sender: TObject);
begin
 tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

end.