unit1.pas

pasa人力资源考勤管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADODataSet1: TADODataSet;
    ppBDEPipeline1: TppBDEPipeline;
    DataSource1: TDataSource;
    ppReport2: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLine1: TppLine;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel1: TppLabel;
    ppLabel14: TppLabel;
    ppLabel4: TppLabel;
    ppDBText3: TppDBText;
    ppLabel6: TppLabel;
    ppLine3: TppLine;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppLine2: TppLine;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppLine5: TppLine;
    RadioButton1: TRadioButton;
    Label4: TLabel;
    ppBDEPipeline2: TppBDEPipeline;
    MaskEdit3: TMaskEdit;
    ppLabel28: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    ADODataSet3: TADODataSet;
    DataSource3: TDataSource;
    ppBDEPipeline3: TppBDEPipeline;
    Dsatdmonth4: TDataSource;
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    ppReport1: TppReport;
    ppDBPipeline1: TppDBPipeline;
    Panel2: TPanel;
    RadioGroup2: TRadioGroup;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel22: TppLabel;
    ppLabel27: TppLabel;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText19: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ADODataSet1workno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1dept: TStringField;
    ADODataSet1rq: TDateTimeField;
    ADODataSet1gotime1: TStringField;
    ADODataSet1outtime1: TStringField;
    ADODataSet1gotime2: TStringField;
    ADODataSet1outtime2: TStringField;
    ADODataSet1gotime3: TStringField;
    ADODataSet1outtime3: TStringField;
    ADODataSet1gotime4: TStringField;
    ADODataSet1outtime4: TStringField;
    ADODataSet1gotime5: TStringField;
    ADODataSet1outtime5: TStringField;
    ADODataSet1othours: TBCDField;
    ADODataSet1facthours: TBCDField;
    ADODataSet1late: TIntegerField;
    ADODataSet1latetimes: TIntegerField;
    ADODataSet1early: TIntegerField;
    ADODataSet1earlytimes: TIntegerField;
    ADODataSet1kuanggong: TBCDField;
    ADODataSet1qianka: TStringField;
    ADODataSet1musthours: TBCDField;
    ADODataSet1leavehave: TBCDField;
    ppLabel29: TppLabel;
    ppDBText27: TppDBText;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel48: TppLabel;
    ppLabel53: TppLabel;
    ppLabel55: TppLabel;
    ADODataSet1kuanggongtimes: TBCDField;
    ppDBText31: TppDBText;
    Panel1: TPanel;
    ADOCommand1: TADOCommand;
    Adoatdmonth: TADOQuery;
    Adoatdmonthworkno: TStringField;
    Adoatdmonthcardno: TStringField;
    Adoatdmonthmonthy: TStringField;
    Adoatdmonthmusthours: TBCDField;
    Adoatdmonthfacthours: TBCDField;
    Adoatdmontheveninghours: TBCDField;
    Adoatdmonthlate: TBCDField;
    Adoatdmonthlatetimes: TIntegerField;
    Adoatdmonthearly: TBCDField;
    Adoatdmonthearlytimes: TIntegerField;
    Adoatdmonthkuanggong: TBCDField;
    Adoatdmonthkuanggongtimes: TIntegerField;
    Adoatdmonthothours: TBCDField;
    Adoatdmonthotjieri: TBCDField;
    Adoatdmonthotjiari: TBCDField;
    Adoatdmonthleavehave: TBCDField;
    Adoatdmonthsalok: TBooleanField;
    Adoatdmonthname: TStringField;
    Adoatdmonthsexname: TStringField;
    Adoatdmonthprof: TStringField;
    Adoatdmonthdeptno: TStringField;
    Adoatdmonthdept: TStringField;
    Adoatdmonthhave: TBCDField;
    Adoatdmonthnothave: TBCDField;
    ppLine7: TppLine;
    dsatdmonth: TDataSource;
    ADOatdmonth4: TADODataSet;
    ppBDEPipeline4: TppBDEPipeline;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    ADODataSet2workno: TStringField;
    ADODataSet2cardno: TStringField;
    ADODataSet2name: TStringField;
    ADODataSet2dept: TStringField;
    ADODataSet2musthours: TBCDField;
    ADODataSet2facthours: TBCDField;
    ADODataSet2late: TBCDField;
    ADODataSet2latetimes: TIntegerField;
    ADODataSet2early: TBCDField;
    ADODataSet2earlytimes: TIntegerField;
    ADODataSet2kuanggong: TBCDField;
    ADODataSet2kuanggongtimes: TIntegerField;
    ADODataSet2leavehave: TBCDField;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel32: TppLabel;
    ppLabel39: TppLabel;
    ppLabel41: TppLabel;
    ppLabel79: TppLabel;
    ppLabel81: TppLabel;
    ppLabel84: TppLabel;
    ppLabel85: TppLabel;
    ppLabel86: TppLabel;
    ppLabel92: TppLabel;
    ppLabel95: TppLabel;
    ppLabel96: TppLabel;
    ppLabel98: TppLabel;
    ppLabel99: TppLabel;
    ppLine9: TppLine;
    ppLabel100: TppLabel;
    ppLabel101: TppLabel;
    ppLabel102: TppLabel;
    ppDetailBand3: TppDetailBand;
    ppDBText30: TppDBText;
    ppDBText45: TppDBText;
    ppDBText66: TppDBText;
    ppDBText68: TppDBText;
    ppDBText69: TppDBText;
    ppDBText70: TppDBText;
    ppDBText71: TppDBText;
    ppDBText72: TppDBText;
    ppDBText73: TppDBText;
    ppDBText74: TppDBText;
    ppDBText75: TppDBText;
    ppDBText76: TppDBText;
    ppDBText79: TppDBText;
    ppSystemVariable4: TppSystemVariable;
    ppLabel105: TppLabel;
    ppLabel106: TppLabel;
    ppLabel107: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppBDEPipeline5: TppBDEPipeline;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    ADODataSet3workno: TStringField;
    ADODataSet3cardno: TStringField;
    ADODataSet3rq: TDateTimeField;
    ADODataSet3musthours: TBCDField;
    ADODataSet3facthours: TBCDField;
    ADODataSet3eveninghours: TBCDField;
    ADODataSet3late: TBCDField;
    ADODataSet3latetimes: TIntegerField;
    ADODataSet3early: TBCDField;
    ADODataSet3earlytimes: TIntegerField;
    ADODataSet3kuanggong: TBCDField;
    ADODataSet3kuanggongtimes: TIntegerField;
    ADODataSet3leavehave: TBCDField;
    ADODataSet3otall: TBCDField;
    ADODataSet3name: TStringField;
    ADODataSet3deptno: TStringField;
    ADODataSet3dept: TStringField;
    ppLabel109: TppLabel;
    ppDBText48: TppDBText;
    ADODataSet2salok: TBooleanField;
    ADODataSet2status: TStringField;
    ADODataSet2otall: TBCDField;
    ADODataSet2latekg: TBCDField;
    ADODataSet2earlykg: TBCDField;
    ppLabel110: TppLabel;
    ppDBText77: TppDBText;
    ppDBText37: TppDBText;
    ADODataSet3latekg: TBCDField;
    ADODataSet3earlykg: TBCDField;
    ppHeaderBand2: TppHeaderBand;
    ppLabel5: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel49: TppLabel;
    ppLabel87: TppLabel;
    ppLabel88: TppLabel;
    ppLabel89: TppLabel;
    ppLabel90: TppLabel;
    ppLine4: TppLine;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppDBText4: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppLine6: TppLine;
    ppSystemVariable3: TppSystemVariable;
    ppLabel91: TppLabel;
    ppLabel94: TppLabel;
    ppLabel93: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    raCodeModule1: TraCodeModule;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppDBCalc9GetText(Sender: TObject; var Text: String);
    procedure Edit1Exit(Sender: TObject);
    procedure ppDBCalc5GetText(Sender: TObject; var Text: String);
    procedure ppReport5PreviewFormCreate(Sender: TObject);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioGroup1Click(Sender: TObject);
    procedure ppReport3BeforePrint(Sender: TObject);
  private
    { Private declarations }