delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

[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]

(27-01-2016, 02:57 PM)B.M.AbdelAziZ كتب : [ -> ]ما هي طريقة العمل ؟
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;

(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] Big Grin

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

(28-01-2016, 12:32 PM)B.M.AbdelAziZ كتب : [ -> ]من الاحسن ان تعيد التفكير في الطريقة/الواجهة
فكر في المستخدم: كلما كانت الامور بسيطة كانت سهلة

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

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

وبارك الله فيك Angel

[/size]

الصفحات : 1 2

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

gheislam

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

gheislam

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

gheislam