📄 monthkq.pas
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -