turnrule.pas

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

unit turnrule;

interface

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

type
  TFormturnrule = class(TForm)
    DBEdit1: TDBEdit;
    DBGrid1: TDBGrid;
    Dsturnrule: TDataSource;
    ADOturn: TADODataSet;
    DSturn: TDataSource;
    ADOturnruleno: TStringField;
    ADOturnrdate: TDateTimeField;
    ADOturnclassno: TStringField;
    ADOturngotime1: TStringField;
    ADOturnouttime1: TStringField;
    ADOturnadd1: TBooleanField;
    ADOturndecrease1: TBCDField;
    ADOturndaytime1: TBCDField;
    ADOturngotime2: TStringField;
    ADOturnouttime2: TStringField;
    ADOturnadd2: TBooleanField;
    ADOturndecrease2: TBCDField;
    ADOturndaytime2: TBCDField;
    ADOturngotime3: TStringField;
    ADOturnouttime3: TStringField;
    ADOturnadd3: TBooleanField;
    ADOturndecrease3: TBCDField;
    ADOturndaytime3: TBCDField;
    ADOturngotime4: TStringField;
    ADOturnouttime4: TStringField;
    ADOturnadd4: TBooleanField;
    ADOturndecrease4: TBCDField;
    ADOturndaytime4: TBCDField;
    ADOturngotime5: TStringField;
    ADOturnouttime5: TStringField;
    ADOturnadd5: TBooleanField;
    ADOturndecrease5: TBCDField;
    ADOturndaytime5: TBCDField;
    ADOturnflag1: TStringField;
    ADOturnflag2: TStringField;
    ADOturnoperator: TStringField;
    ADOturncdate: TDateTimeField;
    ADOturnrule1: TADODataSet;
    DSturnrule1: TDataSource;
    ADOturnrule1ruleno: TStringField;
    ADOturnrule1classno1: TStringField;
    ADOturnrule1Tclassno1: TStringField;
    ADOturnrule1classno2: TStringField;
    ADOturnrule1Tclassno2: TStringField;
    ADOturnrule1classno3: TStringField;
    ADOturnrule1Tclassno3: TStringField;
    ADOturnrule1classno4: TStringField;
    ADOturnrule1Tclassno4: TStringField;
    ADOturnrule1classno5: TStringField;
    ADOturnrule1Tclassno5: TStringField;
    ADOturnrule1classno6: TStringField;
    ADOturnrule1Tclassno6: TStringField;
    ADOturnrule1classno7: TStringField;
    ADOturnrule1Tclassno7: TStringField;
    ADOturnrule1classno8: TStringField;
    ADOturnrule1Tclassno8: TStringField;
    ADOturnrule1Sdate: TDateTimeField;
    ADOturnrule1Edate: TDateTimeField;
    ADOturnrule1Ldate: TDateTimeField;
    ADOturnrule1lastday: TStringField;
    ADOturnrule1flag: TStringField;
    ToolBar1: TToolBar;
    ToolButton5: TToolButton;
    tbninput: TToolButton;
    tbnsort: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    ADOturnrule: TADODataSet;
    ADOturnruleruleno: TStringField;
    ADOturnruledayormonth: TStringField;
    ADOturnrulecircle: TIntegerField;
    ADOturnruleschenum: TIntegerField;
    ADOturnrulesche1: TStringField;
    ADOturnrulesche11: TStringField;
    ADOturnrulesche2: TStringField;
    ADOturnrulesche12: TStringField;
    ADOturnrulesche3: TStringField;
    ADOturnrulesche13: TStringField;
    ADOturnrulesche4: TStringField;
    ADOturnrulesche14: TStringField;
    ADOturnrulesche5: TStringField;
    ADOturnrulesche15: TStringField;
    ADOturnrulesche6: TStringField;
    ADOturnrulesche16: TStringField;
    ADOturnrulesche7: TStringField;
    ADOturnrulesche17: TStringField;
    ADOturnrulesche8: TStringField;
    ADOturnrulesche18: TStringField;
    ADOturnrulerest: TBooleanField;
    ADOturnruleNorestbu: TBooleanField;
    ADOturnrulelastsche: TStringField;
    ADOturnrulelastrq: TDateTimeField;
    ADOturnrulemonthkind: TStringField;
    ADOturnrulemonth15: TIntegerField;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText9: TppDBText;
    ppLabel10: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppDBText11: TppDBText;
    ppLabel12: TppLabel;
    ppDBText12: TppDBText;
    ppLabel13: TppLabel;
    ppDBText13: TppDBText;
    ppLabel14: TppLabel;
    ppDBText14: TppDBText;
    ppLabel15: TppLabel;
    ppDBText15: TppDBText;
    ppLabel16: TppLabel;
    ppDBText16: TppDBText;
    ppLabel17: TppLabel;
    ppDBText17: TppDBText;
    ppLabel18: TppLabel;
    ppDBText18: TppDBText;
    ppLabel19: TppLabel;
    ppDBText19: TppDBText;
    ppLabel20: TppLabel;
    ppDBText20: TppDBText;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppDBText24: TppDBText;
    ppLabel25: TppLabel;
    ppLine2: TppLine;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    myDBCheckBox1: TmyDBCheckBox;
    myDBCheckBox2: TmyDBCheckBox;
    ppLabel24: TppLabel;
    ppDBText21: TppDBText;
    ppLabel26: TppLabel;
    ppLabel27: TppLabel;
    ppTitleBand1: TppTitleBand;
    ppDetailBand2: TppDetailBand;
    ppDBText22: TppDBText;
    ppLabel29: TppLabel;
    ppDBText23: TppDBText;
    ppLabel30: TppLabel;
    ppDBText26: TppDBText;
    ppLabel32: TppLabel;
    ppDBText27: TppDBText;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppDBText29: TppDBText;
    ppLabel35: TppLabel;
    ppDBText30: TppDBText;
    ppLabel36: TppLabel;
    ppLabel37: TppLabel;
    ppDBText32: TppDBText;
    ppLabel38: TppLabel;
    ppDBText33: TppDBText;
    ppLabel39: TppLabel;
    ppLabel40: TppLabel;
    ppDBText35: TppDBText;
    ppLabel41: TppLabel;
    ppDBText36: TppDBText;
    ppLabel42: TppLabel;
    ppLabel43: TppLabel;
    ppDBText38: TppDBText;
    ppLabel44: TppLabel;
    ppDBText39: TppDBText;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppDBText41: TppDBText;
    ppLabel47: TppLabel;
    ppDBText42: TppDBText;
    ppLabel48: TppLabel;
    ppDBText43: TppDBText;
    ppLabel49: TppLabel;
    ppDBText44: TppDBText;
    ppLabel50: TppLabel;
    ppDBText45: TppDBText;
    ppLabel51: TppLabel;
    ppLabel28: TppLabel;
    ppLabel31: TppLabel;
    myDBCheckBox3: TmyDBCheckBox;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    myDBCheckBox4: TmyDBCheckBox;
    myDBCheckBox5: TmyDBCheckBox;
    myDBCheckBox6: TmyDBCheckBox;
    myDBCheckBox7: TmyDBCheckBox;
    myDBCheckBox8: TmyDBCheckBox;
    myDBCheckBox9: TmyDBCheckBox;
    myDBCheckBox10: TmyDBCheckBox;
    myDBCheckBox11: TmyDBCheckBox;
    myDBCheckBox12: TmyDBCheckBox;
    myDBCheckBox13: TmyDBCheckBox;
    myDBCheckBox14: TmyDBCheckBox;
    myDBCheckBox15: TmyDBCheckBox;
    myDBCheckBox16: TmyDBCheckBox;
    myDBCheckBox17: TmyDBCheckBox;
    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;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine1: TppLine;
    ppLine3: 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;
    ppLine44: TppLine;
    Panel2: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    SpeedButton3: TSpeedButton;
    Label13: TLabel;
    Panel3: TPanel;
    Label20: TLabel;
    Label21: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    DBComboBox18: TDBComboBox;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBCheckBox2: TDBCheckBox;
    DBComboBox19: TDBComboBox;
    DBComboBox20: TDBComboBox;
    DBComboBox21: TDBComboBox;
    DBComboBox22: TDBComboBox;
    DBComboBox23: TDBComboBox;
    DBComboBox24: TDBComboBox;
    DBComboBox25: TDBComboBox;
    DBComboBox26: TDBComboBox;
    DBComboBox27: TDBComboBox;
    DBComboBox28: TDBComboBox;
    DBComboBox29: TDBComboBox;
    DBComboBox30: TDBComboBox;
    DBComboBox31: TDBComboBox;
    DBComboBox32: TDBComboBox;
    DBComboBox33: TDBComboBox;
    DBComboBox34: TDBComboBox;
    DBEdit9: TDBEdit;
    DateTimePicker2: TDateTimePicker;
    DBCheckBox1: TDBCheckBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    DBEdit2: TDBEdit;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    SpeedButton1: TSpeedButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    DBEdit10: TDBEdit;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    Panel4: TPanel;
    Edit1: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    ADOturnotkind: TStringField;
    ADOturnruleday1: TIntegerField;
    ADOturnruleday2: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DateTimePicker5CloseUp(Sender: TObject);
    procedure DateTimePicker6CloseUp(Sender: TObject);
    procedure DBComboBox34Exit(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure tbnsortClick(Sender: TObject);
    procedure tbninputClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure ADOturnruleBeforeDelete(DataSet: TDataSet);
    procedure ADOturnruleBeforePost(DataSet: TDataSet);
    procedure ADOturnruledayormonthChange(Sender: TField);
    procedure DBComboBox18Exit(Sender: TObject);