monthcards.pas

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

    ppDBText149: TppDBText;
    ppDBText150: TppDBText;
    ppDBText151: TppDBText;
    ppDBText152: TppDBText;
    ppDBText153: TppDBText;
    ppDBText154: TppDBText;
    ppDBText155: TppDBText;
    ppDBText156: TppDBText;
    ppDBText157: TppDBText;
    ppDBText158: TppDBText;
    ppDBText159: TppDBText;
    ppDBText160: TppDBText;
    ppDBText161: TppDBText;
    ppDBText162: TppDBText;
    ppDBText163: TppDBText;
    ppDBText164: TppDBText;
    ppDBText165: TppDBText;
    ppDBText166: TppDBText;
    ppDBText167: TppDBText;
    ppDBText168: TppDBText;
    ppDBText169: TppDBText;
    ppDBText170: TppDBText;
    ppDBText171: TppDBText;
    ppDBText172: TppDBText;
    ppDBText173: TppDBText;
    ppDBText174: TppDBText;
    ppDBText175: TppDBText;
    ppDBText176: TppDBText;
    ppDBText177: TppDBText;
    ppDBText178: TppDBText;
    ppDBText179: TppDBText;
    ppDBText180: TppDBText;
    ppDBText181: TppDBText;
    ppDBText182: TppDBText;
    ppDBText183: TppDBText;
    ppDBText184: TppDBText;
    ppDBText185: TppDBText;
    ppDBText186: TppDBText;
    ppDBText187: TppDBText;
    ppDBText188: TppDBText;
    ppDBText189: TppDBText;
    ppDBText190: TppDBText;
    ppDBText191: TppDBText;
    ppLabel32: TppLabel;
    ppLabel41: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ADOQuery1cYear: TStringField;
    ADOQuery1cMonth: TStringField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cDepartMentNo: TStringField;
    ADOQuery1cDepartMentName: TStringField;
    ADOQuery1fTotalDays: TFloatField;
    ADOQuery1fLeaveDays: TFloatField;
    ADOQuery1fHolidays: TFloatField;
    ADOQuery1fValidHolidays: TFloatField;
    ADOQuery1fDays: TFloatField;
    ADOQuery1fNights: TFloatField;
    ADOQuery1cDay1In1: TStringField;
    ADOQuery1cDay1Out1: TStringField;
    ADOQuery1cDay1In2: TStringField;
    ADOQuery1cDay1Out2: TStringField;
    ADOQuery1cDay1In3: TStringField;
    ADOQuery1cDay1Out3: TStringField;
    ADOQuery1cDay2In1: TStringField;
    ADOQuery1cDay2Out1: TStringField;
    ADOQuery1cDay2In2: TStringField;
    ADOQuery1cDay2Out2: TStringField;
    ADOQuery1cDay2In3: TStringField;
    ADOQuery1cDay2Out3: TStringField;
    ADOQuery1cDay3In1: TStringField;
    ADOQuery1cDay3Out1: TStringField;
    ADOQuery1cDay3In2: TStringField;
    ADOQuery1cDay3Out2: TStringField;
    ADOQuery1cDay3In3: TStringField;
    ADOQuery1cDay3Out3: TStringField;
    ADOQuery1cDay4In1: TStringField;
    ADOQuery1cDay4Out1: TStringField;
    ADOQuery1cDay4In2: TStringField;
    ADOQuery1cDay4Out2: TStringField;
    ADOQuery1cDay4In3: TStringField;
    ADOQuery1cDay4Out3: TStringField;
    ADOQuery1cDay5In1: TStringField;
    ADOQuery1cDay5Out1: TStringField;
    ADOQuery1cDay5In2: TStringField;
    ADOQuery1cDay5Out2: TStringField;
    ADOQuery1cDay5In3: TStringField;
    ADOQuery1cDay5Out3: TStringField;
    ADOQuery1cDay6In1: TStringField;
    ADOQuery1cDay6Out1: TStringField;
    ADOQuery1cDay6In2: TStringField;
    ADOQuery1cDay6Out2: TStringField;
    ADOQuery1cDay6In3: TStringField;
    ADOQuery1cDay6Out3: TStringField;
    ADOQuery1cDay7In1: TStringField;
    ADOQuery1cDay7Out1: TStringField;
    ADOQuery1cDay7In2: TStringField;
    ADOQuery1cDay7Out2: TStringField;
    ADOQuery1cDay7In3: TStringField;
    ADOQuery1cDay7Out3: TStringField;
    ADOQuery1cDay8In1: TStringField;
    ADOQuery1cDay8Out1: TStringField;
    ADOQuery1cDay8In2: TStringField;
    ADOQuery1cDay8Out2: TStringField;
    ADOQuery1cDay8In3: TStringField;
    ADOQuery1cDay8Out3: TStringField;
    ADOQuery1cDay9In1: TStringField;
    ADOQuery1cDay9Out1: TStringField;
    ADOQuery1cDay9In2: TStringField;
    ADOQuery1cDay9Out2: TStringField;
    ADOQuery1cDay9In3: TStringField;
    ADOQuery1cDay9Out3: TStringField;
    ADOQuery1cDay10In1: TStringField;
    ADOQuery1cDay10Out1: TStringField;
    ADOQuery1cDay10In2: TStringField;
    ADOQuery1cDay10Out2: TStringField;
    ADOQuery1cDay10In3: TStringField;
    ADOQuery1cDay10Out3: TStringField;
    ADOQuery1cDay11In1: TStringField;
    ADOQuery1cDay11Out1: TStringField;
    ADOQuery1cDay11In2: TStringField;
    ADOQuery1cDay11Out2: TStringField;
    ADOQuery1cDay11In3: TStringField;
    ADOQuery1cDay11Out3: TStringField;
    ADOQuery1cDay12In1: TStringField;
    ADOQuery1cDay12Out1: TStringField;
    ADOQuery1cDay12In2: TStringField;
    ADOQuery1cDay12Out2: TStringField;
    ADOQuery1cDay12In3: TStringField;
    ADOQuery1cDay12Out3: TStringField;
    ADOQuery1cDay13In1: TStringField;
    ADOQuery1cDay13Out1: TStringField;
    ADOQuery1cDay13In2: TStringField;
    ADOQuery1cDay13Out2: TStringField;
    ADOQuery1cDay13In3: TStringField;
    ADOQuery1cDay13Out3: TStringField;
    ADOQuery1cDay14In1: TStringField;
    ADOQuery1cDay14Out1: TStringField;
    ADOQuery1cDay14In2: TStringField;
    ADOQuery1cDay14Out2: TStringField;
    ADOQuery1cDay14In3: TStringField;
    ADOQuery1cDay14Out3: TStringField;
    ADOQuery1cDay15In1: TStringField;
    ADOQuery1cDay15Out1: TStringField;
    ADOQuery1cDay15In2: TStringField;
    ADOQuery1cDay15Out2: TStringField;
    ADOQuery1cDay15In3: TStringField;
    ADOQuery1cDay15Out3: TStringField;
    ADOQuery1cDay16In1: TStringField;
    ADOQuery1cDay16Out1: TStringField;
    ADOQuery1cDay16In2: TStringField;
    ADOQuery1cDay16Out2: TStringField;
    ADOQuery1cDay16In3: TStringField;
    ADOQuery1cDay16Out3: TStringField;
    ADOQuery1cDay17In1: TStringField;
    ADOQuery1cDay17Out1: TStringField;
    ADOQuery1cDay17In2: TStringField;
    ADOQuery1cDay17Out2: TStringField;
    ADOQuery1cDay17In3: TStringField;
    ADOQuery1cDay17Out3: TStringField;
    ADOQuery1cDay18In1: TStringField;
    ADOQuery1cDay18Out1: TStringField;
    ADOQuery1cDay18In2: TStringField;
    ADOQuery1cDay18Out2: TStringField;
    ADOQuery1cDay18In3: TStringField;
    ADOQuery1cDay18Out3: TStringField;
    ADOQuery1cDay19In1: TStringField;
    ADOQuery1cDay19Out1: TStringField;
    ADOQuery1cDay19In2: TStringField;
    ADOQuery1cDay19Out2: TStringField;
    ADOQuery1cDay19In3: TStringField;
    ADOQuery1cDay19Out3: TStringField;
    ADOQuery1cDay20In1: TStringField;
    ADOQuery1cDay20Out1: TStringField;
    ADOQuery1cDay20In2: TStringField;
    ADOQuery1cDay20Out2: TStringField;
    ADOQuery1cDay20In3: TStringField;
    ADOQuery1cDay20Out3: TStringField;
    ADOQuery1cDay21In1: TStringField;
    ADOQuery1cDay21Out1: TStringField;
    ADOQuery1cDay21In2: TStringField;
    ADOQuery1cDay21Out2: TStringField;
    ADOQuery1cDay21In3: TStringField;
    ADOQuery1cDay21Out3: TStringField;
    ADOQuery1cDay22In1: TStringField;
    ADOQuery1cDay22Out1: TStringField;
    ADOQuery1cDay22In2: TStringField;
    ADOQuery1cDay22Out2: TStringField;
    ADOQuery1cDay22In3: TStringField;
    ADOQuery1cDay22Out3: TStringField;
    ADOQuery1cDay23In1: TStringField;
    ADOQuery1cDay23Out1: TStringField;
    ADOQuery1cDay23In2: TStringField;
    ADOQuery1cDay23Out2: TStringField;
    ADOQuery1cDay23In3: TStringField;
    ADOQuery1cDay23Out3: TStringField;
    ADOQuery1cDay24In1: TStringField;
    ADOQuery1cDay24Out1: TStringField;
    ADOQuery1cDay24In2: TStringField;
    ADOQuery1cDay24Out2: TStringField;
    ADOQuery1cDay24In3: TStringField;
    ADOQuery1cDay24Out3: TStringField;
    ADOQuery1cDay25In1: TStringField;
    ADOQuery1cDay25Out1: TStringField;
    ADOQuery1cDay25In2: TStringField;
    ADOQuery1cDay25Out2: TStringField;
    ADOQuery1cDay25In3: TStringField;
    ADOQuery1cDay25Out3: TStringField;
    ADOQuery1cDay26In1: TStringField;
    ADOQuery1cDay26Out1: TStringField;
    ADOQuery1cDay26In2: TStringField;
    ADOQuery1cDay26Out2: TStringField;
    ADOQuery1cDay26In3: TStringField;
    ADOQuery1cDay26Out3: TStringField;
    ADOQuery1cDay27In1: TStringField;
    ADOQuery1cDay27Out1: TStringField;
    ADOQuery1cDay27In2: TStringField;
    ADOQuery1cDay27Out2: TStringField;
    ADOQuery1cDay27In3: TStringField;
    ADOQuery1cDay27Out3: TStringField;
    ADOQuery1cDay28In1: TStringField;
    ADOQuery1cDay28Out1: TStringField;
    ADOQuery1cDay28In2: TStringField;
    ADOQuery1cDay28Out2: TStringField;
    ADOQuery1cDay28In3: TStringField;
    ADOQuery1cDay28Out3: TStringField;
    ADOQuery1cDay29In1: TStringField;
    ADOQuery1cDay29Out1: TStringField;
    ADOQuery1cDay29In2: TStringField;
    ADOQuery1cDay29Out2: TStringField;
    ADOQuery1cDay29In3: TStringField;
    ADOQuery1cDay29Out3: TStringField;
    ADOQuery1cDay30In1: TStringField;
    ADOQuery1cDay30Out1: TStringField;
    ADOQuery1cDay30In2: TStringField;
    ADOQuery1cDay30Out2: TStringField;
    ADOQuery1cDay30In3: TStringField;
    ADOQuery1cDay30Out3: TStringField;
    ADOQuery1cDay31In1: TStringField;
    ADOQuery1cDay31Out1: TStringField;
    ADOQuery1cDay31In2: TStringField;
    ADOQuery1cDay31Out2: TStringField;
    ADOQuery1cDay31In3: TStringField;
    ADOQuery1cDay31Out3: TStringField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1bChecked: TBooleanField;
    ADOQuery1fOverTime: TFloatField;
    ppSystemVariable2: TppSystemVariable;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMonthCards: TfMonthCards;

implementation

uses YearMonthSelect, Progress;

{$R *.dfm}

procedure TfMonthCards.CheckBox1Click(Sender: TObject);
begin
  inherited;
  cobDepartMent.Enabled :=checkbox1.Checked ;
end;

procedure TfMonthCards.FormCreate(Sender: TObject);
var
  temDate:TDate;
begin
  inherited;
  temDate:=IncMonth(date,-1);
  cobYear.ItemIndex :=cobYear.Items.IndexOf(formatdateTime('yyyy',temDate));
  cobMonth.ItemIndex :=cobMonth.Items.IndexOf(formatdateTime('mm',temDate));
  fdatamod.ListDepartMent(cobDepartMent.items) ;
  if cobdepartMent.Items.Count >0 then
     cobDepartMent.ItemIndex :=0;
  WindowState:=wsMaximized;
end;

procedure TfMonthCards.BitBtn1Click(Sender: TObject);
begin
   if CobYear.ItemIndex<0 then begin
       application.MessageBox('叫匡拒