تصحيح كود StringGrid

[محمد عبد العزيز]

ما هي طريقة العمل ؟
هل تختار ترميز الاساتذة/السنة/اسم المحل/رقم القسم ثم تضغط الزر "حجز" ؟
ثم هل تستخدم "حفظ" مع حجز واحد فقط ام تكمل الحجر أكثر من مرة و اخيرا حفظ ؟
باختصار: كيف يتصرف المستخدم ما الواجهة ؟

[gheislam]

[size=x-large][size=xx-large]- المرحلة الأولى :[/size][/size]

[size=x-large]1 : اختيار رمز الاستاذ المدرس للمادة .[/size]

[size=x-large]2 : نقوم بإختيار الخلية في StringGrid   المراد حجزها ونقوم بالضغط على زر حجز .[/size]

[size=large][size=x-large][size=xx-large]- المرحلة الثانية :[/size][/size][/size]

[size=large]1 : نقوم بإخيار رمز القسم واسم القاعة .[/size]

[size=large]2 : نضغط على حفظ لكي يتم حفظ  (رمزالقسم_وقت بداية الحصة_اسم القاعة_اليوم_رمز المادة_ترميز الاستاذ) .[/size]

[size=x-large][size=xx-large]بالنسبة لسؤالك ؟[/size][/size]

ما هي طريقة العمل ؟
1 هل تختار ترميز الاساتذة/السنة/اسم المحل/رقم القسم ثم تضغط الزر "حجز" ؟
2 ثم هل تستخدم "حفظ" مع حجز واحد فقط ام تكمل الحجر أكثر من مرة و اخيرا حفظ ؟
باختصار: كيف يتصرف المستخدم ما الواجهة ؟

[size=large]1: زر الحجز فقط لحجز رمز الاستاذ لتلك الحصة في الخلية  .[/size]

[size=large]2: كل حصة يجب حجزها وحفظها لوحدها .... لانه يوجد عملية فحص الحصص بعد ذلك لكني لم اتطرق اليها بعد لكي لا يحصل تضارب في الحصص .[/size]

[محمد عبد العزيز]

نقوم بإخيار رمز القسم واسم القاعة . 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;

[gheislam]

نقوم بإخيار رمز القسم واسم القاعة . 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]

[محمد عبد العزيز]

من الاحسن ان تعيد التفكير في الطريقة/الواجهة
فكر في المستخدم: كلما كانت الامور بسيطة كانت سهلة

[gheislam]

من الاحسن ان تعيد التفكير في الطريقة/الواجهة
فكر في المستخدم: كلما كانت الامور بسيطة كانت سهلة

[size=x-large]شكرا استاذ على الاقتراح .. لكن في الحقيقة هذا اول برنامج رسمي لنا .. نحن بصدد انجاز مشروع مذكرة تخرج [/size]

[size=x-large]اتمى ان تفيدنا بخبرتك البرمجية في هذا المجال    وبارك الله فيك  [/size]