+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصحيح كود StringGrid (/showthread.php?tid=7431)
الصفحات:
1
2
RE: تصحيح كود StringGrid - محمد عبد العزيز - 27-01-2016
ما هي طريقة العمل ؟
هل تختار ترميز الاساتذة/السنة/اسم المحل/رقم القسم ثم تضغط الزر "حجز" ؟
ثم هل تستخدم "حفظ" مع حجز واحد فقط ام تكمل الحجر أكثر من مرة و اخيرا حفظ ؟
باختصار: كيف يتصرف المستخدم ما الواجهة ؟
RE: تصحيح كود StringGrid - gheislam - 27-01-2016
[size=x-large][size=xx-large]- المرحلة الأولى :[/size][/size]
[size=x-large]1 : اختيار رمز الاستاذ المدرس للمادة .[/size]
[size=x-large]2 : نقوم بإختيار الخلية في StringGrid المراد حجزها ونقوم بالضغط على زر حجز .[/size]
![[صورة: image.jpg]](http://s20.postimg.org/nv43wnx8d/image.jpg)
[size=large][size=x-large][size=xx-large]- المرحلة الثانية :[/size][/size][/size]
[size=large]1 : نقوم بإخيار رمز القسم واسم القاعة .[/size]
[size=large]2 : نضغط على حفظ لكي يتم حفظ (رمزالقسم_وقت بداية الحصة_اسم القاعة_اليوم_رمز المادة_ترميز الاستاذ) .[/size]
![[صورة: image.jpg]](http://s20.postimg.org/5jdgfiol9/image.jpg)
[size=x-large][size=xx-large]بالنسبة لسؤالك ؟[/size][/size]
(27-01-2016, 02:57 PM)B.M.AbdelAziZ كتب : ما هي طريقة العمل ؟
1 هل تختار ترميز الاساتذة/السنة/اسم المحل/رقم القسم ثم تضغط الزر "حجز" ؟
2 ثم هل تستخدم "حفظ" مع حجز واحد فقط ام تكمل الحجر أكثر من مرة و اخيرا حفظ ؟
باختصار: كيف يتصرف المستخدم ما الواجهة ؟
[size=large]1: زر الحجز فقط لحجز رمز الاستاذ لتلك الحصة في الخلية .[/size]
[size=large]2: كل حصة يجب حجزها وحفظها لوحدها .... لانه يوجد عملية فحص الحصص بعد ذلك لكني لم اتطرق اليها بعد لكي لا يحصل تضارب في الحصص .[/size]
RE: تصحيح كود StringGrid - محمد عبد العزيز - 28-01-2016
إقتباس :نقوم بإخيار رمز القسم واسم القاعة . 2 : نضغط على حفظ لكي يتم حفظأذن زر الحفظ لكل حصة ويتم الضغط عليه أكثر من مرة ومنه جرب ما يلي
كود :
procedure TForm1.Button2Click(Sender: TObject);
var c,r:integer;
jour,temp,codeprof,codemat:string;
begin
c:=StringGrid1.Col;
r:=StringGrid1.Row;
case c of
1:jour:='الأحد';
2:jour:='الاثنين';
3:jour:='الثلاثاء';
4:jour:='الأربعاء';
5:jour:='الخميس';
end;
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;
ShowMessage('Jour='+Jour+' Temp='+Temp);
codeprof:=DBLookupComboBox3.Text;
//codeprof:=StringGrid1.Cells[c,r];
codemat:=copy (codeprof,1,3);
ADOTable1.Edit;
//ADOTable1.FieldByName('codeprof').Value:=codeprof;
ADOTable1codeprof.Value:=DBLookupComboBox3.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:= DBLookupComboBox2.Text;
ADOTable1.FieldByName('annee').Value:= DBEdit1.Text;
ADOTable1.Post;
end;RE: تصحيح كود StringGrid - gheislam - 28-01-2016
(28-01-2016, 08:52 AM)B.M.AbdelAziZ كتب :إقتباس :نقوم بإخيار رمز القسم واسم القاعة . 2 : نضغط على حفظ لكي يتم حفظأذن زر الحفظ لكل حصة ويتم الضغط عليه أكثر من مرة ومنه جرب ما يلي
كود :procedure TForm1.Button2Click(Sender: TObject); var c,r:integer; jour,temp,codeprof,codemat:string; begin c:=StringGrid1.Col; r:=StringGrid1.Row; case c of 1:jour:='الأحد'; 2:jour:='الاثنين'; 3:jour:='الثلاثاء'; 4:jour:='الأربعاء'; 5:jour:='الخميس'; end; 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; ShowMessage('Jour='+Jour+' Temp='+Temp); codeprof:=DBLookupComboBox3.Text; //codeprof:=StringGrid1.Cells[c,r]; codemat:=copy (codeprof,1,3); ADOTable1.Edit; //ADOTable1.FieldByName('codeprof').Value:=codeprof; ADOTable1codeprof.Value:=DBLookupComboBox3.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:= DBLookupComboBox2.Text; ADOTable1.FieldByName('annee').Value:= DBEdit1.Text; ADOTable1.Post; end;
[size=x-large]شكرا أستاذ عبد العزيز ... تم حل المشكل ... بارك الله فيك وفي اهلك [/size]
![[صورة: image.jpg]](http://s20.postimg.org/mpwq5fnjx/image.jpg)
RE: تصحيح كود StringGrid - محمد عبد العزيز - 28-01-2016
من الاحسن ان تعيد التفكير في الطريقة/الواجهة
فكر في المستخدم: كلما كانت الامور بسيطة كانت سهلة
RE: تصحيح كود StringGrid - gheislam - 28-01-2016
(28-01-2016, 12:32 PM)B.M.AbdelAziZ كتب : من الاحسن ان تعيد التفكير في الطريقة/الواجهة
فكر في المستخدم: كلما كانت الامور بسيطة كانت سهلة
[size=x-large]شكرا استاذ على الاقتراح .. لكن في الحقيقة هذا اول برنامج رسمي لنا .. نحن بصدد انجاز مشروع مذكرة تخرج [/size]
[size=x-large]اتمى ان تفيدنا بخبرتك البرمجية في هذا المجال وبارك الله فيك 
[/size]
وبارك الله فيك [/size]