1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
SQL1 :='Select * from gest_horaire';colonne coneant le code à remplire dans la calendrier.
SQL2 :='select * from calendr2006';//table contenant une colonne id et 365 colonne pour les jours de l'anné
ADOQuery1.SQL.Delete(0) ;//contenant 1 et 7 colonne nommé lundi .... Dimanche
ADOQuery1.SQL.Add(sql1) ;
ADOQuery1.Active := false;
ADOQuery1.Active := true ;
ADOQuery1.first;
ADOQuery2.SQL.Delete(0) ;
ADOQuery2.SQL.Add(sql2) ;
ADOQuery2.Active := false;
ADOQuery2.Active := true ;
ADOQuery2.first;
ADOQuery1.MoveBy(1); //parcoure du 2ème ligne
for j:= 1 to ADOQuery1.FieldCount-1 do begin // parcour table gest_horaire
for i:= 1 to ADOQuery2.FieldCount-2 do begin //parcour table calendr2006
code := adoquery1.Fields[j].Value ;// code à mettre dans chaque jour de l'anné
Date1 := EncodeDateDay(2006, i);
JourSem := DayOfTheweek(Date1);//connaitre le jour de la semaine
if (adoquery2.Fields[i].Value <> code) then
begin
if j = JourSem then
begin
ADOquery2.edit;
ADOquery2.Fields[i].value := code ;
ADOquery2.post;
code := '';
end;
end;
end; |
Partager