[تمرين] فلترة بيانات جدول حسب الشهر في سنة معينة

[Rover]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
const
IdMonth: array[0..11]of string =('01','02','03','04','05','06','07','08','09','10','11','12');
lastDay:array[0..11]of string =('31','29','31','30','31','30','31','31','30','31','30','31');
Var
StartDate,EndDate,FLT:String;
IdCombo:Integer;
begin
IdCombo:=Combobox1.ItemIndex;
StartDate:='2008' + '/' + IdMonth[IdCombo] + '/' + '01';
EndDate:= '2008' + '/' + IdMonth[IdCombo] + '/' + lastDay[IdCombo];
FLT:= 'Date >=' + StartDate + ' And  Date <=' + EndDate;

Table1.Filtered:=true;
Table1.Filter:=FLT;
end;