monthkq.pas

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

unit MonthKQ;

interface

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

type
  TfMonthKQ = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    cobYear: TComboBox;
    cobMonth: TComboBox;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    cobDepartMent: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1: TADOQuery;
    DataSource: TDataSource;
    ADOQuery1cYear: TStringField;
    ADOQuery1cMonth: TStringField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cDepartMentNo: TStringField;
    ADOQuery1cDepartMentName: TStringField;
    ADOQuery1fUnOutDays: TFloatField;
    ADOQuery1fLeaveDays: TFloatField;
    ADOQuery1fDays: TFloatField;
    ADOQuery1fNights: TFloatField;
    ADOQuery1iDay011: TIntegerField;
    ADOQuery1iDay012: TIntegerField;
    ADOQuery1iDay013: TIntegerField;
    ADOQuery1iDay021: TIntegerField;
    ADOQuery1iDay022: TIntegerField;
    ADOQuery1iDay023: TIntegerField;
    ADOQuery1iDay031: TIntegerField;
    ADOQuery1iDay032: TIntegerField;
    ADOQuery1iDay033: TIntegerField;
    ADOQuery1iDay041: TIntegerField;
    ADOQuery1iDay042: TIntegerField;
    ADOQuery1iDay043: TIntegerField;
    ADOQuery1iDay051: TIntegerField;
    ADOQuery1iDay052: TIntegerField;
    ADOQuery1iDay053: TIntegerField;
    ADOQuery1iDay061: TIntegerField;
    ADOQuery1iDay062: TIntegerField;
    ADOQuery1iDay063: TIntegerField;
    ADOQuery1iDay071: TIntegerField;
    ADOQuery1iDay072: TIntegerField;
    ADOQuery1iDay073: TIntegerField;
    ADOQuery1iDay081: TIntegerField;
    ADOQuery1iDay082: TIntegerField;
    ADOQuery1iDay083: TIntegerField;
    ADOQuery1iDay091: TIntegerField;
    ADOQuery1iDay092: TIntegerField;
    ADOQuery1iDay093: TIntegerField;
    ADOQuery1iDay101: TIntegerField;
    ADOQuery1iDay102: TIntegerField;
    ADOQuery1iDay103: TIntegerField;
    ADOQuery1iDay111: TIntegerField;
    ADOQuery1iDay112: TIntegerField;
    ADOQuery1iDay113: TIntegerField;
    ADOQuery1iDay121: TIntegerField;
    ADOQuery1iDay122: TIntegerField;
    ADOQuery1iDay123: TIntegerField;
    ADOQuery1iDay131: TIntegerField;
    ADOQuery1iDay132: TIntegerField;
    ADOQuery1iDay133: TIntegerField;
    ADOQuery1iDay141: TIntegerField;
    ADOQuery1iDay142: TIntegerField;
    ADOQuery1iDay143: TIntegerField;
    ADOQuery1iDay151: TIntegerField;
    ADOQuery1iDay152: TIntegerField;
    ADOQuery1iDay153: TIntegerField;
    ADOQuery1iDay161: TIntegerField;
    ADOQuery1iDay162: TIntegerField;
    ADOQuery1iDay163: TIntegerField;
    ADOQuery1iDay171: TIntegerField;
    ADOQuery1iDay172: TIntegerField;
    ADOQuery1iDay173: TIntegerField;
    ADOQuery1iDay181: TIntegerField;
    ADOQuery1iDay182: TIntegerField;
    ADOQuery1iDay183: TIntegerField;
    ADOQuery1iDay191: TIntegerField;
    ADOQuery1iDay192: TIntegerField;
    ADOQuery1iDay193: TIntegerField;
    ADOQuery1iDay201: TIntegerField;
    ADOQuery1iDay202: TIntegerField;
    ADOQuery1iDay203: TIntegerField;
    ADOQuery1iDay211: TIntegerField;
    ADOQuery1iDay212: TIntegerField;
    ADOQuery1iDay213: TIntegerField;
    ADOQuery1iDay221: TIntegerField;
    ADOQuery1iDay222: TIntegerField;
    ADOQuery1iDay223: TIntegerField;
    ADOQuery1iDay231: TIntegerField;
    ADOQuery1iDay232: TIntegerField;
    ADOQuery1iDay233: TIntegerField;
    ADOQuery1iDay241: TIntegerField;
    ADOQuery1iDay242: TIntegerField;
    ADOQuery1iDay243: TIntegerField;
    ADOQuery1iDay251: TIntegerField;
    ADOQuery1iDay252: TIntegerField;
    ADOQuery1iDay253: TIntegerField;
    ADOQuery1iDay261: TIntegerField;
    ADOQuery1iDay262: TIntegerField;
    ADOQuery1iDay263: TIntegerField;
    ADOQuery1iDay271: TIntegerField;
    ADOQuery1iDay272: TIntegerField;
    ADOQuery1iDay273: TIntegerField;
    ADOQuery1iDay281: TIntegerField;
    ADOQuery1iDay282: TIntegerField;
    ADOQuery1iDay283: TIntegerField;
    ADOQuery1iDay291: TIntegerField;
    ADOQuery1iDay292: TIntegerField;
    ADOQuery1iDay293: TIntegerField;
    ADOQuery1iDay301: TIntegerField;
    ADOQuery1iDay302: TIntegerField;
    ADOQuery1iDay303: TIntegerField;
    ADOQuery1iDay311: TIntegerField;
    ADOQuery1iDay312: TIntegerField;
    ADOQuery1iDay313: TIntegerField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1cDay011: TStringField;
    ADOQuery1cDay012: TStringField;
    ADOQuery1cDay013: TStringField;
    ADOQuery1cDay021: TStringField;
    ADOQuery1cDay022: TStringField;
    ADOQuery1cDay023: TStringField;
    ADOQuery1cDay031: TStringField;
    ADOQuery1cDay032: TStringField;
    ADOQuery1cDay033: TStringField;
    ADOQuery1cDay041: TStringField;
    ADOQuery1cDay042: TStringField;
    ADOQuery1cDay043: TStringField;
    ADOQuery1cDay051: TStringField;
    ADOQuery1cDay052: TStringField;
    ADOQuery1cDay061: TStringField;
    ADOQuery1cDay062: TStringField;
    ADOQuery1cDay063: TStringField;
    ADOQuery1cDay071: TStringField;
    ADOQuery1cDay072: TStringField;
    ADOQuery1cDay073: TStringField;
    ADOQuery1cDay081: TStringField;
    ADOQuery1cDay082: TStringField;
    ADOQuery1cDay083: TStringField;
    ADOQuery1cDay091: TStringField;
    ADOQuery1cDay092: TStringField;
    ADOQuery1cDay093: TStringField;
    ADOQuery1cDay101: TStringField;
    ADOQuery1cDay102: TStringField;
    ADOQuery1cDay103: TStringField;
    ADOQuery1cDay111: TStringField;
    ADOQuery1cDay112: TStringField;
    ADOQuery1cDay113: TStringField;
    ADOQuery1cDay121: TStringField;
    ADOQuery1cDay122: TStringField;
    ADOQuery1cDay123: TStringField;
    ADOQuery1cDay131: TStringField;
    ADOQuery1cDay132: TStringField;
    ADOQuery1cDay133: TStringField;
    ADOQuery1cDay141: TStringField;
    ADOQuery1cDay142: TStringField;
    ADOQuery1cDay143: TStringField;
    ADOQuery1cDay151: TStringField;
    ADOQuery1cDay152: TStringField;
    ADOQuery1cDay153: TStringField;
    ADOQuery1cDay161: TStringField;
    ADOQuery1cDay162: TStringField;
    ADOQuery1cDay163: TStringField;
    ADOQuery1cDay171: TStringField;
    ADOQuery1cDay172: TStringField;
    ADOQuery1cDay173: TStringField;
    ADOQuery1cDay181: TStringField;
    ADOQuery1cDay182: TStringField;
    ADOQuery1cDay183: TStringField;
    ADOQuery1cDay191: TStringField;
    ADOQuery1cDay192: TStringField;
    ADOQuery1cDay193: TStringField;
    ADOQuery1cDay201: TStringField;
    ADOQuery1cDay202: TStringField;
    ADOQuery1cDay203: TStringField;
    ADOQuery1cDay211: TStringField;
    ADOQuery1cDay212: TStringField;
    ADOQuery1cDay213: TStringField;
    ADOQuery1cDay221: TStringField;
    ADOQuery1cDay222: TStringField;
    ADOQuery1cDay223: TStringField;
    ADOQuery1cDay231: TStringField;
    ADOQuery1cDay232: TStringField;
    ADOQuery1cDay233: TStringField;
    ADOQuery1cDay241: TStringField;
    ADOQuery1cDay242: TStringField;
    ADOQuery1cDay243: TStringField;
    ADOQuery1cDay251: TStringField;
    ADOQuery1cDay252: TStringField;
    ADOQuery1cDay253: TStringField;
    ADOQuery1cDay261: TStringField;
    ADOQuery1cDay262: TStringField;
    ADOQuery1cDay263: TStringField;
    ADOQuery1cDay271: TStringField;
    ADOQuery1cDay272: TStringField;
    ADOQuery1cDay273: TStringField;
    ADOQuery1cDay281: TStringField;
    ADOQuery1cDay282: TStringField;
    ADOQuery1cDay283: TStringField;
    ADOQuery1cDay291: TStringField;
    ADOQuery1cDay292: TStringField;
    ADOQuery1cDay293: TStringField;
    ADOQuery1cDay301: TStringField;
    ADOQuery1cDay302: TStringField;
    ADOQuery1cDay303: TStringField;
    ADOQuery1cDay311: TStringField;
    ADOQuery1cDay312: TStringField;
    ADOQuery1cDay313: TStringField;
    ADOQuery1cDay053: TStringField;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppLine1: TppLine;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppLine4: TppLine;
    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;