monthsuma.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit MonthSumA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls,DataMod, DB, ADODB,
  Grids, Wwdbigrd, Wwdbgrid, ppCtrls, ppPrnabl, ppClass, ppDB, ppBands,
  ppCache, ppProd, ppReport, ppComm, ppRelatv, ppDBPipe, ppVar,DateUtils;

type
  TfMonthSumA = class(TfBaseChildForm)
    Panel1: TPanel;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1: TADOQuery;
    DataSource: TDataSource;
    ADOQuery1cYear: TStringField;
    ADOQuery1cMonth: TStringField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cDepartMentNo: TStringField;
    ADOQuery1cDepartMentName: TStringField;
    ADOQuery1fDays: TFloatField;
    ADOQuery1fNights: TFloatField;
    ADOQuery1fOverTime: TFloatField;
    ADOQuery1fUnOutDays: TFloatField;
    ADOQuery1fLeaveDays: TFloatField;
    ADOQuery1iLaterTimes: TIntegerField;
    ADOQuery1iLaterTime: TIntegerField;
    ADOQuery1iLeaveEarlyTimes: TIntegerField;
    ADOQuery1iLeaveEarlyTime: TIntegerField;
    ADOQuery1fTotalDays: TFloatField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1YearMonth: TStringField;
    CheckBox1: TCheckBox;
    cobDepartMent: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ADOQuery1fHolidays: TFloatField;
    ppDBText13: TppDBText;
    ppLine30: TppLine;
    ppLine31: TppLine;
    ppLine32: TppLine;
    ppLine33: TppLine;
    ppLine34: TppLine;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel18: TppLabel;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppLine35: TppLine;
    ppLine36: TppLine;
    ppLabel19: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ADOQuery1fExtOverTime: TFloatField;
    ADOQuery1TotalOverTime: TFloatField;
    BitBtn4: TBitBtn;
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont;
      ABrush: TBrush);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
     function GetDayOverTime(const dDate:TDateTime;const WorkerNo:string):Integer;
     function IsThrouNight(const dDate:TDateTime;const WorkerNo:string):Boolean;
  public
    { Public declarations }
    strYearMonth:string;
  end;

var
  fMonthSumA: TfMonthSumA;

implementation

uses Progress, MonthSum_Edit, MonthSum;

{$R *.dfm}

procedure TfMonthSumA.ADOQuery1CalcFields(DataSet: TDataSet);
begin
  inherited;
  AdoQuery1.FieldByName('Yearmonth').AsString:=AdoQuery1.fieldbyName('cYear').asString+'