reportofchangesche.pas

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

unit reportofchangesche;

interface

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

type
  Tchangeschereport = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    DataSource1: TDataSource;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLine1: TppLine;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel40: TppLabel;
    ppLabel39: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    ppLabel60: TppLabel;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppLabel64: TppLabel;
    ppLabel65: TppLabel;
    ppLabel66: TppLabel;
    ppLabel67: TppLabel;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppLabel72: TppLabel;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLabel73: TppLabel;
    ppLabel74: TppLabel;
    ppLabel76: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel77: TppLabel;
    ppLabel78: TppLabel;
    ppSystemVariable4: TppSystemVariable;
    ppDetailBand2: TppDetailBand;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppDBText33: TppDBText;
    ppDBText34: TppDBText;
    ppDBText36: TppDBText;
    ppDBText38: TppDBText;
    ppDBText39: TppDBText;
    myDBCheckBox7: TmyDBCheckBox;
    myDBCheckBox8: TmyDBCheckBox;
    myDBCheckBox9: TmyDBCheckBox;
    myDBCheckBox10: TmyDBCheckBox;
    myDBCheckBox11: TmyDBCheckBox;
    myDBCheckBox12: TmyDBCheckBox;
    myDBCheckBox13: TmyDBCheckBox;
    myDBCheckBox14: TmyDBCheckBox;
    myDBCheckBox15: TmyDBCheckBox;
    myDBCheckBox16: TmyDBCheckBox;
    ppDBText35: TppDBText;
    myDBCheckBox17: TmyDBCheckBox;
    myDBCheckBox18: TmyDBCheckBox;
    myDBCheckBox19: TmyDBCheckBox;
    myDBCheckBox20: TmyDBCheckBox;
    myDBCheckBox21: TmyDBCheckBox;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    ppLine31: TppLine;
    ppLine32: TppLine;
    ppLine33: TppLine;
    ppLine34: TppLine;
    ppLine35: TppLine;
    ppLine36: TppLine;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine39: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppLine43: TppLine;
    ppLine45: TppLine;
    ppLine46: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppLabel79: TppLabel;
    ppDBCalc7: TppDBCalc;
    ppLabel80: TppLabel;
    ppLabel1: TppLabel;
    Adodataset1: TADODataSet;
    Adodataset1scheno: TStringField;
    Adodataset1schename: TStringField;
    Adodataset1gotime1: TStringField;
    Adodataset1outtime1: TStringField;
    Adodataset1gotime2: TStringField;
    Adodataset1outtime2: TStringField;
    Adodataset1gotime3: TStringField;
    Adodataset1outtime3: TStringField;
    Adodataset1decrease1: TBCDField;
    Adodataset1add1: TBooleanField;
    Adodataset1continue1: TBooleanField;
    Adodataset1daytime1: TFloatField;
    Adodataset1ot1: TBooleanField;
    Adodataset1add2: TBooleanField;
    Adodataset1continue2: TBooleanField;
    Adodataset1daytime2: TFloatField;
    Adodataset1ot2: TBooleanField;
    Adodataset1add3: TBooleanField;
    Adodataset1continue3: TBooleanField;
    Adodataset1daytime3: TFloatField;
    Adodataset1ot3: TBooleanField;
    Adodataset1gotime4: TStringField;
    Adodataset1outtime4: TStringField;
    Adodataset1add4: TBooleanField;
    Adodataset1continue4: TBooleanField;
    Adodataset1daytime4: TFloatField;
    Adodataset1ot4: TBooleanField;
    Adodataset1gotime5: TStringField;
    Adodataset1outtime5: TStringField;
    Adodataset1add5: TBooleanField;
    Adodataset1continue5: TBooleanField;
    Adodataset1daytime5: TFloatField;
    Adodataset1ot5: TBooleanField;
    Adodataset1memo: TStringField;
    Adodataset1decrease2: TBCDField;
    Adodataset1decrease3: TBCDField;
    Adodataset1decrease4: TBCDField;
    Adodataset1decrease5: TBCDField;
    Adodataset1operator: TStringField;
    Adodataset1cdate: TDateTimeField;
    Adodataset1otkind: TStringField;
    procedure Button2Click(Sender: TObject);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure RadioGroup1Click(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
  changeschereport: Tchangeschereport;

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

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

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

procedure Tchangeschereport.RadioGroup1Click(Sender: TObject);
begin
  if radiogroup1.ItemIndex=0 then
  begin
     maskedit1.Text:='';
     maskedit2.text:='';
  end else
  begin
     maskedit1.Text:=formatdatetime('yyyy/mm/dd',now);
     maskedit2.text:=formatdatetime('yyyy/mm/dd',now);
  end;
end;

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

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

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

procedure Tchangeschereport.Button1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        adodataset1.Close;
        adodataset1.commandtext:='select * from atd01011';
        adodataset1.Open;
        pplabel74.Caption:=companyname1;//读取公司名称
        pplabel77.Caption :=pubworkname;//读取系统变量pubworkname
        pplabel1.Caption :='' ;
      end;
    1:
      begin
        adodataset1.Close;
        adodataset1.CommandText :='';
        adodataset1.commandtext:='select * from atd01011 where startrq between '''+maskedit1.text+''' '+
                                 'and '''+maskedit2.text+''' and endrq between '''+maskedit1.text+''' and '''+maskedit2.text+''' ';
        adodataset1.Open;
        pplabel74.Caption:=companyname1;//读取公司名称
        pplabel77.Caption :=pubworkname;//读取系统变量pubworkname
        pplabel1.Caption :=maskedit1.Text+'~~'+maskedit2.Text;
      end;
  end;
  ppreport1.Print;  
end;

end.