1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
procedure TAbsence_Mois.SpeedButton1Click(Sender: TObject);
VAR
d1,d2,r1,r2 :String;
begin
d1:=DateToStr(DateTimePicker1.Date);
r1:=d1[4]+d1[5]+d1[3]+d1[1]+d1[2]+d1[6]+d1[7]+d1[8]+d1[9]+d1[10];
d2:=DateToStr(DateTimePicker2.Date);
r2:=d2[4]+d2[5]+d2[3]+d2[1]+d2[2]+d2[6]+d2[7]+d2[8]+d2[9]+d2[10];
Data.IBQuery1.Active:=false;
Data.IBQuery1.Database:=data.IBDatabase1;
Data.DSQuery1.DataSet:=data.IBQuery1;
Data.IBQuery1.SQL.Clear;
Data.IBQuery1.SQL.Add('select EMPLOYE.NUM_EMPLOYE, EMPLOYE.NOM, EMPLOYE.PRENOM, ABSENCE.DATE_ABSENCE, ABSENCE.DUREE_ABSENCE');
Data.IBQuery1.SQL.Add('from employe join absence on employe.NUM_EMPLOYE=absence.NUM_EMPLOYE');
Data.IBQuery1.SQL.Add('where DATE_ABSENCE between '+QuotedStr(r1)+' and '+QuotedStr(r2)+' Order by EMPLOYE.NUM_EMPLOYE');
Data.IBQuery1.Active:=true;
Absence_Mois.DBGrid1.DataSource:=Data.DSQuery1;
end; |
Partager