changebcreport.pas

pasa人力资源考勤管理系统

unit changebcreport;

interface

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

type
  Tbcchangereport = class(TForm)
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppShape1: TppShape;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel19: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppDetailBand1: TppDetailBand;
    ppShape2: TppShape;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppDetailBand2: TppDetailBand;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppSummaryBand1: TppSummaryBand;
    ppShape4: TppShape;
    ppLabel1: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppFooterBand1: TppFooterBand;
    ppBDEPipeline2: TppBDEPipeline;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ADODataSet1workno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1nowsche: TStringField;
    ADODataSet1latesche: TStringField;
    ADODataSet1startrq: TDateTimeField;
    ADODataSet1operator: TStringField;
    ADODataSet1cdate: TDateTimeField;
    ADODataSet1sexname: TStringField;
    ADODataSet1dept: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet2: TADODataSet;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    ppLabel2: TppLabel;
    ppShape3: TppShape;
    ppShape5: TppShape;
    ppTitleBand1: TppTitleBand;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bcchangereport: Tbcchangereport;

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

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

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

procedure Tbcchangereport.ppReport1BeforePrint(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        datamod.adochangebc.Close;
        datamod.adochangebc.CommandText :='';
        datamod.adochangebc.commandtext:='select  * from atd08010';
        datamod.adochangebc.Open;
        pplabel12.Caption:=companyname1;//读取公司名称
        pplabel17.Caption :=pubworkname;//读取系统变量pubworkname
        pplabel14.Caption :='' ;
      end;
    1:
      begin
        datamod.adochangebc.Close;
        datamod.adochangebc.CommandText :='';
        datamod.adochangebc.commandtext:='select  * from atd08010 where cdate between  convert(datetime,'''+maskedit1.Text+''') and convert(datetime,'''+maskedit2.Text+''')';
        datamod.adochangebc.Open;
        pplabel12.Caption:=companyname1;//读取公司名称
        pplabel17.Caption :=pubworkname;//读取系统变量pubworkname
        pplabel14.Caption :=maskedit1.Text+'~~'+maskedit2.Text;
      end;
  end;
end;

procedure Tbcchangereport.ppReport1AfterPrint(Sender: TObject);
begin
  datamod.ADOchangebc.Close;
  adodataset1.Close;
  adodataset2.Close;
end;

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

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

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

procedure Tbcchangereport.Button1Click(Sender: TObject);
begin
  ppreport1.DeviceType:='Screen';
  ppreport1.Print;
end;

end.