ÿ
TFRMDATECHOICE0!TPF0TfrmDateChoice
frmDateChoiceLeftToprWidthGHeight{
ActiveControl
rbThisweekCaptionChose a date for reportsFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.StylePositionpoScreenCenterOnClose	FormCloseOnCreate
FormCreate
PixelsPerInch`
TextHeight
TPanelPanel2LeftTop9Width?Height'AlignalClientBorderStylebsSingleTabOrderTSpeedButtonbtnOkLeftxTopWidthaHeight!CaptionOkFlat	
Glyph.Data
zvBMvv( €€€€€€€€€¿¿¿ÿÿÿÿÿÿÿÿÿÿÿÿUUUUUUUUUUUUUUUUUUUUUUUUUUUÿUUUUUUYUUUUUUWõUUUUU™�UUUUUUwwõUUUUU™�UUUUUUwwÿUUUUY™™UUUUWwwUUUU™™™UUUUwwwõUUW™™�UUUWwuwwõUUyUY�UUUwuUWwÿUUUUUY™UUUUUWwUUUUUU™UUUUUUwõUUUUUY�UUUUUUWwÿUUUUUUyUUUUUUwõUUUUUW�UUUUUUWwÿUUUUUUY�UUUUUUWwUUUUUUUUUUUUUUUU	NumGlyphsOnClick
btnOkClickTSpeedButtonbtnCloseLeftÙTopWidthaHeight!CaptionCloseFlat	
Glyph.Data
zvBMvv( €€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ33333333333ÿÿó33339™™33333øˆˆÿó339™™™™3338ˆ�óˆÿ33™333™“33ˆÿ8?8�ó9™“339™38ˆ�ˆ�3ˆó99™333™38øˆ8338ÿ™3™“339“ˆóˆ�ó38�™39™339“ˆó88ÿ38�™33™“39“ˆó38�ó8�™339™39“ˆó3ˆ�ÿ8�™333™“9“ˆÿ3ˆƒ�øƒ9“339™938?óˆƒˆøó9™333™™38ƒÿˆ�ˆˆ33™“339“33ˆ?øÿøƒ339™™™™3338ˆ38ˆ33339™™333338ˆˆ333	NumGlyphsOnClick
btnCloseClickTPanelPanel1LeftTopWidth?Height9AlignalTopBorderStylebsSingleTabOrderTRadioButtonrbHistLeftTopWidth™HeightCaptionChose date from history fileTabOrderOnClickrbHistClickTRadioButton
rbThisweekLeftTop Width™HeightCaptionUse this week end dateTabOrderOnClickrbThisweekClick	TComboBoxcbDateLeft¨TopWidth‘Height
ItemHeight
TabOrderTextcbDateOnChangecbDateChangeTQueryqryPaysliphistDatabaseNameWages7SQL.Strings select thisweek from paysliphistgroup by thisweekorder by thisweekLeft TopTDateTimeFieldqryPaysliphistTHISWEEK	FieldNameTHISWEEK