saldata.pas

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

unit saldata;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ImgList, DBCtrls, ComCtrls, ToolWin, Menus,
  Grids, DBGrids, DBActns, ActnList, Mask, ppCtrls, ppPrnabl, ppClass,
  ppVar, ppBands, ppCache, ppDB, ppProd, ppReport, ppComm, ppRelatv,
  ppDBPipe, ppDBBDE, Db, ADODB, myChkBox, ppViewr;

type
  TFormsaldata = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    TabSheet7: TTabSheet;
    DBGrid4: TDBGrid;
    ImageList2: TImageList;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    shistory: TToolButton;
    tbrefrush: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton10: TToolButton;
    DBNavigator1: TDBNavigator;
    MaskEdit1: TMaskEdit;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    TabSheet6: TTabSheet;
    DBGrid5: TDBGrid;
    adofacevalue: TADODataSet;
    dsfacevalue: TDataSource;
    adofacevalueworkno: TStringField;
    adofacevaluecardno: TStringField;
    adofacevaluef100: TIntegerField;
    adofacevaluef50: TIntegerField;
    adofacevaluef20: TIntegerField;
    adofacevaluef10: TIntegerField;
    adofacevaluef5: TIntegerField;
    adofacevaluef2: TIntegerField;
    adofacevaluef1: TIntegerField;
    adofacevaluemonthy: TStringField;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText9: TppDBText;
    ppLabel10: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppDBText13: TppDBText;
    ppLabel14: TppLabel;
    ppDBText14: TppDBText;
    ppLabel15: TppLabel;
    ppDBText16: TppDBText;
    ppLabel17: TppLabel;
    ppDBText18: TppDBText;
    ppLabel19: TppLabel;
    ppDBText19: TppDBText;
    ppLabel20: TppLabel;
    ppDBText20: TppDBText;
    ppLabel21: TppLabel;
    ppLine1: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppSystemVariable7: TppSystemVariable;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppSystemVariable8: TppSystemVariable;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLabel34: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel33: TppLabel;
    ppLine4: TppLine;
    myDBCheckBox1: TmyDBCheckBox;
    myDBCheckBox2: TmyDBCheckBox;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel22: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLabel23: TppLabel;
    ppShape1: TppShape;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine5: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine43: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    ppLine31: TppLine;
    ppLine32: TppLine;
    ppLine33: TppLine;
    ppLine36: TppLine;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppLine44: TppLine;
    ppLine45: TppLine;
    ppLine46: TppLine;
    ppLine54: TppLine;
    ppLine47: TppLine;
    ppLine48: TppLine;
    ppLine51: TppLine;
    ppLine52: TppLine;
    ppLine53: TppLine;
    ppLine56: TppLine;
    ppLine57: TppLine;
    ppLine58: TppLine;
    ppLine59: TppLine;
    ppLine60: TppLine;
    ppDBCalc2: TppDBCalc;
    ppDBCalc4: TppDBCalc;
    ppDBCalc7: TppDBCalc;
    ppDBCalc8: TppDBCalc;
    ppDBCalc10: TppDBCalc;
    ppDBCalc12: TppDBCalc;
    ppDBCalc13: TppDBCalc;
    ppDBCalc14: TppDBCalc;
    ppLine65: TppLine;
    ppLine66: TppLine;
    ppLine67: TppLine;
    ppLine68: TppLine;
    ppLine69: TppLine;
    ppLine71: TppLine;
    ppLine72: TppLine;
    ppLine73: TppLine;
    ppLine74: TppLine;
    ppLine75: TppLine;
    ppDBCalc15: TppDBCalc;
    ppDBCalc16: TppDBCalc;
    ppDBCalc19: TppDBCalc;
    ppDBCalc20: TppDBCalc;
    ppDBCalc22: TppDBCalc;
    ppDBCalc24: TppDBCalc;
    ppDBCalc25: TppDBCalc;
    ppDBCalc26: TppDBCalc;
    ppLine80: TppLine;
    ppLine81: TppLine;
    ppLine82: TppLine;
    ppLine83: TppLine;
    ppLine84: TppLine;
    ppBDEPipeline4: TppBDEPipeline;
    ppReport4: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppDBText35: TppDBText;
    ppLabel60: TppLabel;
    ppDBText36: TppDBText;
    ppLabel70: TppLabel;
    ppDBText37: TppDBText;
    ppLabel71: TppLabel;
    ppDBText38: TppDBText;
    ppLabel72: TppLabel;
    ppDBText39: TppDBText;
    ppLabel73: TppLabel;
    ppDBText40: TppDBText;
    ppLabel74: TppLabel;
    ppDBText41: TppDBText;
    ppLabel75: TppLabel;
    ppDBText42: TppDBText;
    ppLabel76: TppLabel;
    ppDBText43: TppDBText;
    ppLabel77: TppLabel;
    ppDBText44: TppDBText;
    ppLabel78: TppLabel;
    ppLine87: TppLine;
    ppSummaryBand4: TppSummaryBand;
    ppLabel84: TppLabel;
    ppLabel85: TppLabel;
    ppLabel86: TppLabel;
    ppLabel87: TppLabel;
    ppLabel88: TppLabel;
    ppSystemVariable9: TppSystemVariable;
    ppLabel89: TppLabel;
    ppLabel90: TppLabel;
    ppSystemVariable10: TppSystemVariable;
    ppLabel91: TppLabel;
    ppDBCalc40: TppDBCalc;
    ppLabel92: TppLabel;
    ppLine90: TppLine;
    ppDBCalc37: TppDBCalc;
    ppDBCalc38: TppDBCalc;
    ppDBCalc39: TppDBCalc;
    ppDBCalc41: TppDBCalc;
    ppDBCalc42: TppDBCalc;
    ppDBCalc43: TppDBCalc;
    ppDBCalc44: TppDBCalc;
    ppLabel57: TppLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N3: TMenuItem;
    adofacevalueoperator: TStringField;
    adofacevaluecdate: TDateTimeField;
    adofacevaluetotalmoney: TBCDField;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1workno: TStringField;
    ADODataSet1cardno: TStringField;
    ADODataSet1monthy: TStringField;
    ADODataSet1leavekind: TStringField;
    ADODataSet1leavehours: TBCDField;
    ADODataSet1leavemoney: TBCDField;
    ADODataSet1havemoney: TStringField;
    ppLabel12: TppLabel;
    ppDBText6: TppDBText;
    ppDBCalc5: TppDBCalc;
    ppDBCalc9: TppDBCalc;
    ppLabel16: TppLabel;
    ppDBText7: TppDBText;
    ppDBCalc11: TppDBCalc;
    ppDBCalc17: TppDBCalc;
    ppLabel13: TppLabel;
    ppDBText11: TppDBText;
    ppDBCalc6: TppDBCalc;
    ppDBCalc18: TppDBCalc;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine34: TppLine;
    ppLine35: TppLine;
    ppReport2: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel18: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppDBText12: TppDBText;
    ppLabel24: TppLabel;
    ppDBText15: TppDBText;
    ppLabel25: TppLabel;
    ppDBText17: TppDBText;
    ppLabel26: TppLabel;
    ppDBText21: TppDBText;
    ppLabel35: TppLabel;
    ppDBText22: TppDBText;
    ppLabel36: TppLabel;
    ppDBText23: TppDBText;
    ppLabel37: TppLabel;
    ppLine39: TppLine;
    ppLine49: TppLine;
    ADODataSet1name: TStringField;
    ppLabel38: TppLabel;
    ppDBText24: TppDBText;
    ppLabel39: TppLabel;
    ADODataSet2: TADODataSet;
    Label3: TLabel;
    DataSource2: TDataSource;
    ADODataSet2workno: TStringField;
    ADODataSet2cardno: TStringField;
    ADODataSet2name: TStringField;
    ADODataSet2deptname: TStringField;
    ADODataSet2indate: TDateTimeField;
    ADODataSet2brushcard: TBooleanField;
    ADODataSet2dayormon: TBooleanField;
    ADODataSet2mankind: TStringField;
    ADODataSet2leave: TBooleanField;
    ADODataSet2monthy: TStringField;
    ADODataSet2mustdays: TBCDField;
    ADODataSet2factdays: TBCDField;
    ADODataSet2musthours: TBCDField;
    ADODataSet2facthours: TBCDField;
    ADODataSet2eveninghours: TBCDField;
    ADODataSet2late: TBCDField;
    ADODataSet2latetimes: TIntegerField;
    ADODataSet2early: TBCDField;
    ADODataSet2earlytimes: TIntegerField;
    ADODataSet2kuanggong: TBCDField;
    ADODataSet2kuanggongtimes: TBCDField;
    ADODataSet2othours: TBCDField;
    ADODataSet2otjieri: TBCDField;
    ADODataSet2otjiari: TBCDField;
    ADODataSet2leavehave: TBCDField;
    ADODataSet2basepay: TBCDField;
    ADODataSet2factbasepay: TBCDField;
    ADODataSet2profmoney: TBCDField;
    ADODataSet2factprof: TBCDField;
    ADODataSet2techmoney: TBCDField;
    ADODataSet2facttech: TBCDField;
    ADODataSet2deptmoney: TBCDField;
    ADODataSet2factdept: TBCDField;
    ADODataSet2money1: TBCDField;
    ADODataSet2money2: TBCDField;
    ADODataSet2add1: TBCDField;
    ADODataSet2add2: TBCDField;
    ADODataSet2present: TBCDField;
    ADODataSet2rewardmoney: TBCDField;
    ADODataSet2yearmoney: TBCDField;
    ADODataSet2resultmoney: TBCDField;
    ADODataSet2otmoney: TBCDField;
    ADODataSet2mustgive: TBCDField;
    ADODataSet2manage: TBCDField;
    ADODataSet2clearpay: TBCDField;
    ADODataSet2staymoney: TBCDField;
    ADODataSet2meatmoney: TBCDField;
    ADODataSet2other1: TBCDField;
    ADODataSet2other2: TBCDField;
    ADODataSet2decrease1: TBCDField;
    ADODataSet2decrease2: TBCDField;
    ADODataSet2insurance: TBCDField;
    ADODataSet2medmoney: TBCDField;
    ADODataSet2latedec: TBCDField;
    ADODataSet2kuanggongdec: TBCDField;
    ADODataSet2leavemoney: TBCDField;
    ADODataSet2panishmoney: TBCDField;
    ADODataSet2tax: TBCDField;
    ADODataSet2mustdec: TBCDField;
    ADODataSet2factmoney: TBCDField;
    ADODataSet2smoney: TBCDField;
    ADODataSet2operator: TStringField;
    ADODataSet2cdate: TDateTimeField;
    ADODataSet2noname11: TBCDField;
    ADODataSet2noname22: TBCDField;
    ADODataSet2noname33: TBCDField;
    ADODataSet2noname44: TBCDField;
    ADODataSet2noname55: TBCDField;
    ADODataSet2noname66: TBCDField;
    ADODataSet2noname77: TBCDField;
    ADODataSet2peopleID_1: TStringField;
    ADODataSet2homeadd_1: TStringField;
    ADOvsal: TADODataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    DateTimeField1: TDateTimeField;
    BooleanField1: TBooleanField;
    BooleanField2: TBooleanField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    BooleanField3: TBooleanField;
    StringField8: TStringField;
    BCDField1: TBCDField;
    BCDField2: TBCDField;
    BCDField3: TBCDField;
    BCDField4: TBCDField;