unit4.pas

pasa人力资源考勤管理系统

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    ADOpie_money: TADODataSet;
    ADOpie_moneyworkno: TStringField;
    ADOpie_moneycardno: TStringField;
    ADOpie_moneyname: TStringField;
    ADOpie_moneydept: TStringField;
    ADOpie_moneyprocno: TStringField;
    ADOpie_moneyprocname: TStringField;
    ADOpie_moneysetno: TStringField;
    ADOpie_moneysalno: TStringField;
    ADOpie_moneyprocprice: TBCDField;
    ADOpie_moneygoodnum: TBCDField;
    ADOpie_moneyreturnrq: TDateTimeField;
    ADOpie_moneyngnum: TBCDField;
    ADOpie_moneyfactmoney: TBCDField;
    ADOpie_moneyoperator: TStringField;
    ADOpie_moneycdate: TDateTimeField;
    ADOpie_moneyprocprice1: TBCDField;
    ADOpie_moneyprocprice2: TBCDField;
    ADOpie_moneyprocprice3: TBCDField;
    Dspie_money: TDataSource;
    ppReport1: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLine3: TppLine;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel6: TppLabel;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppLabel13: TppLabel;
    ppLabel10: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel11: TppLabel;
    ppLabel22: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText16: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText17: TppDBText;
    ppLabel12: TppLabel;
    ppDBText18: TppDBText;
    ppLabel21: TppLabel;
    ppDBText19: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppLine4: TppLine;
    ppSystemVariable3: TppSystemVariable;
    ppSystemVariable4: TppSystemVariable;
    ppBDEPipeline1: TppBDEPipeline;
    ADODataSet1: TADODataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    BCDField1: TBCDField;
    BCDField2: TBCDField;
    DateTimeField1: TDateTimeField;
    BCDField3: TBCDField;
    BCDField4: TBCDField;
    StringField9: TStringField;
    DateTimeField2: TDateTimeField;
    BCDField5: TBCDField;
    BCDField6: TBCDField;
    BCDField7: TBCDField;
    DataSource1: TDataSource;
    ppReport2: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLine1: TppLine;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppLabel33: TppLabel;
    ppDBText29: TppDBText;
    ppLabel34: TppLabel;
    ppDBText30: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppLine2: TppLine;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppBDEPipeline2: TppBDEPipeline;
    ADODataSet2: TADODataSet;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    BCDField8: TBCDField;
    BCDField9: TBCDField;
    DateTimeField3: TDateTimeField;
    BCDField10: TBCDField;
    BCDField11: TBCDField;
    StringField18: TStringField;
    DateTimeField4: TDateTimeField;
    BCDField12: TBCDField;
    BCDField13: TBCDField;
    BCDField14: TBCDField;
    DataSource2: TDataSource;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLine5: TppLine;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppDBText33: TppDBText;
    ppDBText34: TppDBText;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppDetailBand3: TppDetailBand;
    ppDBText35: TppDBText;
    ppDBText36: TppDBText;
    ppDBText37: TppDBText;
    ppDBText38: TppDBText;
    ppDBText39: TppDBText;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppDBText43: TppDBText;
    ppLabel50: TppLabel;
    ppDBText44: TppDBText;
    ppLabel51: TppLabel;
    ppDBText45: TppDBText;
    ppFooterBand3: TppFooterBand;
    ppLine6: TppLine;
    ppSystemVariable5: TppSystemVariable;
    ppSystemVariable6: TppSystemVariable;
    ppBDEPipeline3: TppBDEPipeline;
    ADODataSet3: TADODataSet;
    StringField19: TStringField;
    StringField20: TStringField;
    StringField21: TStringField;
    StringField22: TStringField;
    StringField23: TStringField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    BCDField15: TBCDField;
    BCDField16: TBCDField;
    DateTimeField5: TDateTimeField;
    BCDField17: TBCDField;
    BCDField18: TBCDField;
    StringField27: TStringField;
    DateTimeField6: TDateTimeField;
    BCDField19: TBCDField;
    BCDField20: TBCDField;
    BCDField21: TBCDField;
    DataSource3: TDataSource;
    ppReport4: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppLine7: TppLine;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    ppLabel60: TppLabel;
    ppDBText46: TppDBText;
    ppDBText47: TppDBText;
    ppDBText48: TppDBText;
    ppDBText49: TppDBText;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppLabel64: TppLabel;
    ppLabel65: TppLabel;
    ppLabel66: TppLabel;
    ppDetailBand4: TppDetailBand;
    ppDBText50: TppDBText;
    ppDBText51: TppDBText;
    ppDBText52: TppDBText;
    ppDBText53: TppDBText;
    ppDBText54: TppDBText;
    ppDBText55: TppDBText;
    ppDBText56: TppDBText;
    ppDBText57: TppDBText;
    ppDBText58: TppDBText;
    ppLabel67: TppLabel;
    ppDBText59: TppDBText;
    ppLabel68: TppLabel;
    ppDBText60: TppDBText;
    ppFooterBand4: TppFooterBand;
    ppLine8: TppLine;
    ppSystemVariable7: TppSystemVariable;
    ppSystemVariable8: TppSystemVariable;
    ppBDEPipeline4: TppBDEPipeline;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADODataSet4: TADODataSet;
    StringField28: TStringField;
    StringField29: TStringField;
    StringField30: TStringField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    StringField35: TStringField;
    BCDField22: TBCDField;
    BCDField23: TBCDField;
    DateTimeField7: TDateTimeField;
    BCDField24: TBCDField;
    BCDField25: TBCDField;
    StringField36: TStringField;
    DateTimeField8: TDateTimeField;
    BCDField26: TBCDField;
    BCDField27: TBCDField;
    BCDField28: TBCDField;
    DataSource4: TDataSource;
    ppReport5: TppReport;
    ppHeaderBand5: TppHeaderBand;
    ppLine9: TppLine;
    ppLabel69: TppLabel;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppLabel72: TppLabel;
    ppLabel73: TppLabel;
    ppLabel74: TppLabel;
    ppLabel75: TppLabel;
    ppLabel76: TppLabel;
    ppLabel77: TppLabel;
    ppDBText61: TppDBText;
    ppDBText62: TppDBText;
    ppDBText63: TppDBText;
    ppDBText64: TppDBText;
    ppLabel78: TppLabel;
    ppLabel79: TppLabel;
    ppLabel80: TppLabel;
    ppLabel81: TppLabel;
    ppLabel82: TppLabel;
    ppLabel83: TppLabel;
    ppDetailBand5: TppDetailBand;
    ppDBText65: TppDBText;
    ppDBText66: TppDBText;
    ppDBText67: TppDBText;
    ppDBText68: TppDBText;
    ppDBText69: TppDBText;
    ppDBText70: TppDBText;
    ppDBText71: TppDBText;
    ppDBText72: TppDBText;
    ppDBText73: TppDBText;
    ppLabel84: TppLabel;
    ppDBText74: TppDBText;
    ppLabel85: TppLabel;
    ppDBText75: TppDBText;
    ppFooterBand5: TppFooterBand;
    ppLine10: TppLine;
    ppSystemVariable9: TppSystemVariable;
    ppSystemVariable10: TppSystemVariable;
    ppBDEPipeline5: TppBDEPipeline;
    ADOQuery1: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery1workno: TStringField;
    ADOQuery1cardno: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1dept: TStringField;
    ADOQuery1procno: TStringField;
    ADOQuery1procname: TStringField;
    ADOQuery1setno: TStringField;
    ADOQuery1procprice: TBCDField;
    ADOQuery1goodnum: TBCDField;
    ADOQuery1returnrq: TDateTimeField;
    ADOQuery1ngnum: TBCDField;
    ADOQuery1factmoney: TBCDField;
    ADOQuery1operator: TStringField;
    ADOQuery1cdate: TDateTimeField;
    ppBDEPipeline6: TppBDEPipeline;
    ppReport6: TppReport;
    ppHeaderBand6: TppHeaderBand;
    ppDetailBand6: TppDetailBand;
    ppFooterBand6: TppFooterBand;
    ppLine11: TppLine;
    ppLabel86: TppLabel;
    ppLabel87: TppLabel;
    ppLabel88: TppLabel;
    ppLabel89: TppLabel;
    ppLabel90: TppLabel;
    ppLabel91: TppLabel;
    ppLabel92: TppLabel;
    ppLabel93: TppLabel;
    ppLabel94: TppLabel;
    ppDBText76: TppDBText;
    ppDBText77: TppDBText;
    ppDBText78: TppDBText;
    ppDBText79: TppDBText;
    ppLabel95: TppLabel;
    ppLabel96: TppLabel;
    ppLabel97: TppLabel;
    ppLabel98: TppLabel;
    ppLabel99: TppLabel;
    ppLabel100: TppLabel;
    ppDBText80: TppDBText;
    ppDBText81: TppDBText;
    ppDBText82: TppDBText;
    ppDBText83: TppDBText;
    ppDBText84: TppDBText;
    ppDBText85: TppDBText;
    ppDBText86: TppDBText;
    ppDBText87: TppDBText;
    ppDBText88: TppDBText;
    ppLabel101: TppLabel;
    ppDBText89: TppDBText;
    ppLabel102: TppLabel;
    ppDBText90: TppDBText;
    ppLine12: TppLine;
    ppSystemVariable11: TppSystemVariable;
    ppSystemVariable12: TppSystemVariable;
    procedure Button1Click(Sender: TObject);
    procedure ppReport6PreviewFormCreate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
   if (maskedit1.text<>fmat1) or  (maskedit2.text<>fmat1) then
    begin
    adoquery1.close;
    adoquery1.sql.clear;

       adoquery1.sql.text:='select * from pie05010 where turnrq between convert(datetime,'''+maskedit1.text+''') and convert(datetime,'''+maskedit2.text+''') ';
     end else
     begin
      adoquery1.sql.text:='select * from pieo5010 ';
    adoquery1.open;
    end ;
    ppreport6.print;
end;

procedure TForm4.ppReport6PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  maskedit1.text:=formatdatetime('yyyy/mm/dd',date);
  maskedit2.text:=formatdatetime('yyyy/mm/dd',date);
end;

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

end.