personalreport.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 813 行 · 第 1/2 页

unit personalreport;

interface

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

type
  Tformpersonalreport = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    ppDBPipeline1: TppDBPipeline;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppReport8: TppReport;
    ppHeaderBand8: TppHeaderBand;
    ppDetailBand8: TppDetailBand;
    ppFooterBand8: TppFooterBand;
    ppLabel150: TppLabel;
    ppLabel151: TppLabel;
    ppDBText83: TppDBText;
    ppDBText84: TppDBText;
    ppDBText85: TppDBText;
    ppDBText86: TppDBText;
    ppDBText87: TppDBText;
    ppDBText88: TppDBText;
    ppDBText89: TppDBText;
    ppDBText90: TppDBText;
    ppDBText91: TppDBText;
    ppLabel152: TppLabel;
    ppLabel153: TppLabel;
    ppLabel154: TppLabel;
    ppLabel155: TppLabel;
    ppSystemVariable15: TppSystemVariable;
    ppLabel156: TppLabel;
    ppSystemVariable16: TppSystemVariable;
    ppLabel157: TppLabel;
    ppLabel158: TppLabel;
    ppLabel159: TppLabel;
    ppLabel160: TppLabel;
    ppLabel161: TppLabel;
    ppLabel162: TppLabel;
    ppLabel163: TppLabel;
    ppLabel164: TppLabel;
    ppLabel165: TppLabel;
    ppLine11: TppLine;
    DataSource7: TDataSource;
    ADODataSet7: TADODataSet;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport9: TppReport;
    Label2: TLabel;
    Edit1: TEdit;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    ppBDEPipeline2: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppSummaryBand1: TppSummaryBand;
    ppLabel9: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppDBCalc4: TppDBCalc;
    ppDBCalc5: TppDBCalc;
    ppDBCalc6: TppDBCalc;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel13: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    ppHeaderBand9: TppHeaderBand;
    ppLabel166: TppLabel;
    ppLabel167: TppLabel;
    ppLabel169: TppLabel;
    ppLabel170: TppLabel;
    ppLabel171: TppLabel;
    ppSystemVariable17: TppSystemVariable;
    ppLabel172: TppLabel;
    ppSystemVariable18: TppSystemVariable;
    ppLabel173: TppLabel;
    ppLabel174: TppLabel;
    ppLabel175: TppLabel;
    ppLabel176: TppLabel;
    ppLabel177: TppLabel;
    ppLabel178: TppLabel;
    ppLine12: TppLine;
    ppDetailBand9: TppDetailBand;
    ppDBText92: TppDBText;
    ppDBText93: TppDBText;
    ppDBText94: TppDBText;
    ppDBText95: TppDBText;
    ppDBText96: TppDBText;
    ppDBText97: TppDBText;
    ppSummaryBand2: TppSummaryBand;
    ppLabel16: TppLabel;
    ppDBCalc7: TppDBCalc;
    ppDBCalc8: TppDBCalc;
    ppDBCalc9: TppDBCalc;
    ppDBCalc11: TppDBCalc;
    DataSource3: TDataSource;
    ADODataSet3: TADODataSet;
    ppBDEPipeline3: TppBDEPipeline;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLine22: TppLine;
    ppSystemVariable3: TppSystemVariable;
    ppSystemVariable4: TppSystemVariable;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppSummaryBand3: TppSummaryBand;
    ppLabel33: TppLabel;
    ppDBCalc12: TppDBCalc;
    ppDBCalc13: TppDBCalc;
    ppDBCalc14: TppDBCalc;
    ADOold: TADODataSet;
    Dsold: TDataSource;
    ppBDEPipeline4: TppBDEPipeline;
    ppReport3: TppReport;
    ADOolddeptno: TStringField;
    ADOolddept: TStringField;
    ADOoldnum1: TIntegerField;
    ADOoldnum2: TIntegerField;
    ADOoldnum3: TIntegerField;
    ADOoldnum4: TIntegerField;
    ADOoldnum5: TIntegerField;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppFooterBand2: TppFooterBand;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppLabel42: TppLabel;
    ppLine23: TppLine;
    ppSummaryBand4: TppSummaryBand;
    ppDBCalc18: TppDBCalc;
    ppDBCalc19: TppDBCalc;
    ppDBCalc20: TppDBCalc;
    ppDBCalc21: TppDBCalc;
    ppDBCalc22: TppDBCalc;
    ADOJIGUAN: TADODataSet;
    Dsjiguan: TDataSource;
    ppBDEPipeline5: TppBDEPipeline;
    ppReport4: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel49: TppLabel;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppDBCalc23: TppDBCalc;
    ppSummaryBand5: TppSummaryBand;
    ppLine24: TppLine;
    ppDBCalc24: TppDBCalc;
    ppDBCalc25: TppDBCalc;
    ppDBCalc26: TppDBCalc;
    ppDBCalc27: TppDBCalc;
    ppDBCalc28: TppDBCalc;
    ppLine26: TppLine;
    ppLabel52: TppLabel;
    ppLine27: TppLine;
    ADOjiguan2: TADODataSet;
    Dsjiguan2: TDataSource;
    ppBDEPipeline6: TppBDEPipeline;
    ppReport5: TppReport;
    ppHeaderBand5: TppHeaderBand;
    ppDetailBand5: TppDetailBand;
    ppFooterBand3: TppFooterBand;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppSummaryBand6: TppSummaryBand;
    ppLine25: TppLine;
    ppDBCalc29: TppDBCalc;
    ppDBCalc30: TppDBCalc;
    ppDBCalc31: TppDBCalc;
    ppLabel59: TppLabel;
    ADOdegreedept: TADODataSet;
    Dsdegreedept: TDataSource;
    ADOdegree: TADODataSet;
    Dsdegree: TDataSource;
    ppBDEPipeline7: TppBDEPipeline;
    ppReport6: TppReport;
    ppBDEPipeline8: TppBDEPipeline;
    ppReport7: TppReport;
    ADOdegreedeptdegreename: TStringField;
    ADOdegreedeptnum1: TIntegerField;
    ADOdegreedeptnum2: TIntegerField;
    ADOdegreedeptnum3: TIntegerField;
    ADOdegreedeptdeptno: TStringField;
    ADOdegreedeptdept: TStringField;
    ppHeaderBand6: TppHeaderBand;
    ppDetailBand6: TppDetailBand;
    ppFooterBand4: TppFooterBand;
    ppLabel60: TppLabel;
    ppLabel61: TppLabel;
    ppDBText33: TppDBText;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppLabel62: TppLabel;
    ppDBText34: TppDBText;
    ppLabel63: TppLabel;
    ppDBText35: TppDBText;
    ppLabel64: TppLabel;
    ppLabel65: TppLabel;
    ppLabel66: TppLabel;
    ppLabel67: TppLabel;
    ppDBText36: TppDBText;
    ppDBText37: TppDBText;
    ppDBText38: TppDBText;
    ppLine28: TppLine;
    ppLabel68: TppLabel;
    ppDBCalc32: TppDBCalc;
    ppDBCalc33: TppDBCalc;
    ppDBCalc34: TppDBCalc;
    ppSummaryBand7: TppSummaryBand;
    ppLine29: TppLine;
    ppLabel69: TppLabel;
    ppDBCalc35: TppDBCalc;
    ppDBCalc36: TppDBCalc;
    ppDBCalc37: TppDBCalc;
    ppSystemVariable7: TppSystemVariable;
    ppSystemVariable8: TppSystemVariable;
    ADOdegreedegreename: TStringField;
    ADOdegreenum1: TIntegerField;
    ADOdegreenum2: TIntegerField;
    ADOdegreenum3: TIntegerField;
    ppHeaderBand7: TppHeaderBand;
    ppDetailBand7: TppDetailBand;
    ppFooterBand5: TppFooterBand;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppLabel72: TppLabel;
    ppLabel73: TppLabel;
    ppLabel74: TppLabel;
    ppLabel75: TppLabel;
    ppDBText39: TppDBText;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppSummaryBand8: TppSummaryBand;
    ppLine30: TppLine;
    ppLabel76: TppLabel;
    ppDBCalc38: TppDBCalc;
    ppDBCalc39: TppDBCalc;
    ppDBCalc40: TppDBCalc;
    ppLabel77: TppLabel;
    ADOjiguan2provname: TStringField;
    ADOjiguan2num1: TIntegerField;
    ADOjiguan2num2: TIntegerField;
    ADOjiguan2num3: TIntegerField;
    ADOJIGUANprovname: TStringField;
    ADOJIGUANnum1: TIntegerField;
    ADOJIGUANnum2: TIntegerField;
    ADOJIGUANnum3: TIntegerField;
    ADOJIGUANdeptno: TStringField;
    ADOJIGUANdept: TStringField;
    ADODataSet3deptno: TStringField;
    ADODataSet3dept: TStringField;
    ADODataSet3nan: TIntegerField;
    ADODataSet3nu: TIntegerField;
    ADODataSet3xiaoji: TIntegerField;
    ADODataSet2dept: TStringField;
    ADODataSet2COLUMN1: TIntegerField;
    ADODataSet2COLUMN2: TIntegerField;
    ADODataSet2COLUMN3: TIntegerField;
    ADODataSet2COLUMN4: TIntegerField;
    ADODataSet2COLUMN5: TIntegerField;
    ADODataSet2num5: TIntegerField;
    ADODataSet7dept: TStringField;
    ADODataSet7num1: TIntegerField;
    ADODataSet7num2: TIntegerField;
    ADODataSet7num3: TIntegerField;
    ADODataSet7num4: TIntegerField;
    ADODataSet7num5: TIntegerField;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1dept: TStringField;
    ADODataSet1prof: TStringField;
    ADODataSet1sexname: TStringField;
    ADODataSet1birthday: TDateTimeField;
    ADODataSet1age: TIntegerField;
    ADODataSet1provname: TStringField;
    StaticText1: TStaticText;
    ppDBCalc15: TppDBCalc;
    ppLabel30: TppLabel;
    ppDBCalc10: TppDBCalc;
    ppLabel31: TppLabel;
    ppDBText13: TppDBText;
    ppDBCalc16: TppDBCalc;
    ADODataSet7num6: TIntegerField;
    ppLine31: TppLine;
    ppLabel32: TppLabel;
    ppLabel79: TppLabel;
    ppLabel78: TppLabel;
    ppSystemVariable9: TppSystemVariable;
    ppSystemVariable10: TppSystemVariable;
    ppLabel80: TppLabel;
    ppLine32: TppLine;
    ppLabel81: TppLabel;
    ppLabel82: TppLabel;
    ppLabel83: TppLabel;
    ppSystemVariable11: TppSystemVariable;
    ppSystemVariable12: TppSystemVariable;
    ppLabel84: TppLabel;