salary.pas

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

unit salary;

interface

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

type
  Tsalaryreport = class(TForm)
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Edit1: TMaskEdit;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel51: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine8: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLabel53: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel58: TppLabel;
    ppLabel60: TppLabel;
    ppLabel61: TppLabel;
    ppLine26: TppLine;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppLine29: TppLine;
    ppFooterBand1: TppFooterBand;
    ppBDEPipeline1: TppBDEPipeline;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppLabel13: TppLabel;
    ppDBText22: TppDBText;
    Edit2: TEdit;
    Edit3: TEdit;
    ppLabel43: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppDBText23: TppDBText;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText43: TppDBText;
    ppDBText44: TppDBText;
    ppDBText45: TppDBText;
    ppDBText46: TppDBText;
    ppDBText47: TppDBText;
    ppDBText48: TppDBText;
    ppDBText49: TppDBText;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppDBText50: TppDBText;
    ppDBText51: TppDBText;
    ppDBText52: TppDBText;
    ppDBText53: TppDBText;
    ppDBText54: TppDBText;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppDBText55: TppDBText;
    ppDBText57: TppDBText;
    ppDBText97: TppDBText;
    ppDBText98: TppDBText;
    ppDBText99: TppDBText;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppDBText100: TppDBText;
    ppDBText101: TppDBText;
    ppDBText102: TppDBText;
    ppDBText103: TppDBText;
    ppDBText104: TppDBText;
    ppLabel14: TppLabel;
    ppDBText105: TppDBText;
    ppLabel35: TppLabel;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppLabel45: TppLabel;
    ppDBText106: TppDBText;
    ppDBText107: TppDBText;
    ppDBText108: TppDBText;
    ppDBText109: TppDBText;
    ppLabel57: TppLabel;
    ppDBText110: TppDBText;
    ppLabel59: TppLabel;
    ppDBText111: TppDBText;
    ppLabel64: TppLabel;
    ppDBText112: TppDBText;
    ppLabel66: TppLabel;
    ppDBText114: TppDBText;
    ppLabel65: TppLabel;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppLine1: TppLine;
    ppLine13: TppLine;
    ppLine16: TppLine;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLine17: TppLine;
    ppLabel11: TppLabel;
    ppDBText1: TppDBText;
    ppLabel12: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppDBText2: TppDBText;
    ppLabel17: TppLabel;
    ppLabel38: TppLabel;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppLabel44: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel52: TppLabel;
    ppLabel54: TppLabel;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppLabel67: TppLabel;
    ppDBText31: TppDBText;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppDBText32: TppDBText;
    ppDBText33: TppDBText;
    ppDBText34: TppDBText;
    ppDBText35: TppDBText;
    ppLabel72: TppLabel;
    ppDBText36: TppDBText;
    ppLabel73: TppLabel;
    ppDBText37: TppDBText;
    ppLabel74: TppLabel;
    ppDBText38: TppDBText;
    ppLabel75: TppLabel;
    ppDBText39: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppReport3: TppReport;
    ppDetailBand3: TppDetailBand;
    ppFooterBand3: TppFooterBand;
    ppLabel76: TppLabel;
    ppLabel77: TppLabel;
    ppLabel78: TppLabel;
    ppLabel79: TppLabel;
    ppLabel80: TppLabel;
    ppLabel81: TppLabel;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppDBText56: TppDBText;
    ppDBText58: TppDBText;
    ppLabel82: TppLabel;
    ppLabel84: TppLabel;
    ppLabel86: TppLabel;
    ppLabel87: TppLabel;
    ppDBText59: TppDBText;
    ppLabel88: TppLabel;
    ppLabel89: TppLabel;
    ppLabel90: TppLabel;
    ppLabel91: TppLabel;
    ppLabel92: TppLabel;
    ppDBText60: TppDBText;
    ppDBText61: TppDBText;
    ppDBText62: TppDBText;
    ppDBText63: TppDBText;
    ppDBText64: TppDBText;
    ppDBText65: TppDBText;
    ppDBText66: TppDBText;
    ppLabel93: TppLabel;
    ppLabel96: TppLabel;
    ppLabel97: TppLabel;
    ppDBText67: TppDBText;
    ppDBText70: TppDBText;
    ppDBText71: TppDBText;
    ppLabel98: TppLabel;
    ppDBText72: TppDBText;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1deptno: TStringField;
    ADODataSet1deptname: TStringField;
    ADODataSet1brushcard: TBooleanField;
    ADODataSet1dayormon: TStringField;
    ADODataSet1indate: TDateTimeField;
    ADODataSet1monthy: TStringField;
    ADODataSet1mustdays: TBCDField;
    ADODataSet1factdays: TBCDField;
    ADODataSet1musthours: TBCDField;
    ADODataSet1facthours: TBCDField;
    ADODataSet1eveninghours: TBCDField;
    ADODataSet1late: TBCDField;
    ADODataSet1latetimes: TIntegerField;
    ADODataSet1early: TBCDField;
    ADODataSet1earlytimes: TIntegerField;
    ADODataSet1kuanggong: TBCDField;
    ADODataSet1othours: TBCDField;
    ADODataSet1otjieri: TBCDField;
    ADODataSet1otjiari: TBCDField;
    ADODataSet1leavehave: TBCDField;
    ADODataSet1kuanggongtimes: TBCDField;
    ADODataSet1basepay: TBCDField;
    ADODataSet1factbasepay: TBCDField;
    ADODataSet1factprof: TBCDField;
    ADODataSet1facttech: TBCDField;
    ADODataSet1factdept: TBCDField;
    ADODataSet1money1: TBCDField;
    ADODataSet1money2: TBCDField;
    ADODataSet1add1: TBCDField;
    ADODataSet1add2: TBCDField;
    ADODataSet1present: TBCDField;
    ADODataSet1other1: TBCDField;
    ADODataSet1rewardmoney: TBCDField;
    ADODataSet1resultmoney: TBCDField;
    ADODataSet1otmoney: TBCDField;
    ADODataSet1yearmoney: TBCDField;
    ADODataSet1smoney: TBCDField;
    ADODataSet1mustgive: TBCDField;
    ADODataSet1staymoney: TBCDField;
    ADODataSet1insurance: TBCDField;
    ADODataSet1meatmoney: TBCDField;
    ADODataSet1decrease1: TBCDField;
    ADODataSet1kuanggongdec: TBCDField;
    ADODataSet1leavemoney: TBCDField;
    ADODataSet1panishmoney: TBCDField;
    ADODataSet1tax: TBCDField;
    ADODataSet1mustdec: TBCDField;
    ADODataSet1factmoney: TBCDField;
    ADODataSet1other2: TBCDField;
    ADODataSet1manage: TBCDField;
    ADODataSet1medmoney: TBCDField;
    ADODataSet1earlydec: TBCDField;
    ADODataSet1profmoney: TBCDField;
    ADODataSet1techmoney: TBCDField;
    ADODataSet1deptmoney: TBCDField;
    ppLabel113: TppLabel;
    ppLabel114: TppLabel;
    ppLabel115: TppLabel;
    ppLabel116: TppLabel;
    ppLabel117: TppLabel;
    ppLabel118: TppLabel;
    ppLabel119: TppLabel;
    ppLabel120: TppLabel;
    ppLabel121: TppLabel;
    ppLabel122: TppLabel;
    ppDBText85: TppDBText;
    ppDBText86: TppDBText;
    ppDBText87: TppDBText;
    ppDBText88: TppDBText;
    ppDBText89: TppDBText;
    ppDBText90: TppDBText;
    ppDBText91: TppDBText;
    ppDBText92: TppDBText;
    ppDBText93: TppDBText;
    ppDBText94: TppDBText;
    ppLabel124: TppLabel;
    ppLabel125: TppLabel;
    ppLabel126: TppLabel;
    ppLabel127: TppLabel;
    ppLabel128: TppLabel;
    ppLabel129: TppLabel;
    ppLabel130: TppLabel;
    ppDBText95: TppDBText;
    ppDBText96: TppDBText;
    ppDBText113: TppDBText;
    ppDBText115: TppDBText;
    ppDBText116: TppDBText;
    ppDBText117: TppDBText;
    ppLabel131: TppLabel;
    ppDBText118: TppDBText;
    ppLabel132: TppLabel;
    ppDBText119: TppDBText;
    ppLabel133: TppLabel;
    ppDBText120: TppDBText;
    ppLabel134: TppLabel;
    ppLine2: TppLine;
    ppLabel135: TppLabel;
    ppLabel123: TppLabel;
    ppLabel136: TppLabel;
    ppDBText121: TppDBText;
    ADODataSet1clearpay: TBCDField;
    ppLabel137: TppLabel;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine7: TppLine;
    ppLine9: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLabel106: TppLabel;
    ppLabel107: TppLabel;
    ppLabel108: TppLabel;
    ppLabel109: TppLabel;
    ppLabel110: TppLabel;
    ppLabel111: TppLabel;
    ppLabel112: TppLabel;
    ppDBText79: TppDBText;
    ppDBText80: TppDBText;
    ppDBText81: TppDBText;
    ppDBText82: TppDBText;
    ppDBText83: TppDBText;
    ppDBText84: TppDBText;
    ppLabel83: TppLabel;
    ppLabel85: TppLabel;
    ppLabel94: TppLabel;
    ppLabel95: TppLabel;
    ppLabel99: TppLabel;
    ppLabel100: TppLabel;
    ppLabel101: TppLabel;
    ppDBText68: TppDBText;
    ppDBText69: TppDBText;
    ppDBText73: TppDBText;
    ppDBText74: TppDBText;
    ppDBText75: TppDBText;
    ppDBText76: TppDBText;
    ppDBText77: TppDBText;
    ADODataSet1noname11: TBCDField;
    ADODataSet1noname22: TBCDField;
    ADODataSet1noname33: TBCDField;
    ADODataSet1noname44: TBCDField;
    ADODataSet1noname55: TBCDField;
    ADODataSet1noname66: TBCDField;
    ADODataSet1noname77: TBCDField;
    ppLabel102: TppLabel;
    ppLabel103: TppLabel;
    ppLabel104: TppLabel;
    ppLabel105: TppLabel;
    ppDBText78: TppDBText;
    ppDBText122: TppDBText;
    ppDBText123: TppDBText;
    ppDBText124: TppDBText;
    ADODataSet1noname88: TBCDField;
    ADODataSet1noname99: TBCDField;