أستاذ عبد العزيز , بقي لدي مشكل في تحديد الايام والساعات في الحلقة الأولى والثانية Case ؟
فهو يقوم بأخذ آخر قيم .... يأخذ مثلا الأحد أو الخميس او الوقت 8:00 او 16:00 في تحديد الخلية ؟
PHP كود :
procedure TForm12.Button2Click(Sender: TObject);
var
c,r:integer;
jour,temp,codeprof,codemat:string;
begin //الحلقة الاولى
for c := 1 to 5 do
begin //الحلقة الثانية
for r := 1 to 7 do
begin //بداية حلقة الأيام
case c of
1:jour:='الأحد';
2:jour:='الاثنين';
3:jour:='الثلاثاء';
4:jour:='الأربعاء';
5:jour:='الخميس';
end; //نهاية حلقة الأيام
begin //بداية حلقة الوقت المتداخلة
case r of
1:temp:='08:00';
2:temp:='09:00';
3:temp:='10:00';
4:temp:='11:00';
5:temp:='14:00';
6:temp:='15:00';
7:temp:='16:00';
end; //نهاية حلقة الأيام
end; //الخروج من حلقة الوقت
end; //الخروج من حلقة الأيام
codeprof:=DBLookupComboBox6.Text;
// codeprof:=StringGrid1.Cells[c,r];
codemat:=copy (codeprof,1,3);
// codemat:=Copy
ADOTable1.Edit;
// ADOTable1.FieldByName('codeprof').Value:=codeprof;
ADOTable1codeprof.Value:=DBLookupComboBox6.Text;
ADOTable1.FieldByName('codemat').Value:=codemat;
ADOTable1.FieldByName('nomjour').Value:=jour;
ADOTable1.FieldByName('tempstart').Value:=temp;
ADOTable1.FieldByName('codeclasse').Value:= DBLookupComboBox1.Text;
ADOTable1.FieldByName('nomlocale').Value:= DBLookupComboBox3.Text;
ADOTable1.FieldByName('annee').Value:= DBEdit1.Text;
ADOTable1.Post;
end; //الخروج من الحلقة الثانية
end; //الخروج من الحلقة الأولى