reportforpiece.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 203 行

unit reportforpiece;

interface

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

type
  Tpiecereport = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ADODataSet2: TADODataSet;
    ADODataSet1rq: TStringField;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1procno: TStringField;
    ADODataSet1billno: TStringField;
    ADODataSet1setno: TStringField;
    ADODataSet1receivenum: TBCDField;
    ADODataSet1receiverq: TDateTimeField;
    ADODataSet1goodnum: TBCDField;
    ADODataSet1returnrq: TDateTimeField;
    ADODataSet1ngnum: TBCDField;
    ADODataSet1cancelnum: TBCDField;
    ADODataSet1reworknum: TBCDField;
    ADODataSet1subnum: TBCDField;
    ADODataSet1subprice: TBCDField;
    ADODataSet1overnum: TBCDField;
    ADODataSet1overprice: TBCDField;
    ADODataSet1factmoney: TBCDField;
    ADODataSet1operator: TStringField;
    ADODataSet1cdate: TDateTimeField;
    ADODataSet1name: TStringField;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppShape1: TppShape;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel27: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppSummaryBand1: TppSummaryBand;
    ppLabel28: TppLabel;
    ppDBCalc1: TppDBCalc;
    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 FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  piecereport: Tpiecereport;

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

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

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

procedure Tpiecereport.ppReport1AfterPrint(Sender: TObject);
begin
  adodataset1.Close;
  adodataset2.Close;
end;

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

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

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

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

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

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

end.