برنامج تسيير مؤسسة تربوية

 

[color= #000000; font-weight: bold;]function GetDay[color= #009900;](IRow[color= #339933;]:integer[color= #009900;])  [color= #339933;]: string[color= #339933;];

begin

    [color= #b1b100;]case IRow of

    [color= #cc66cc;]0[color= #339933;],[color= #cc66cc;]1[color= #339933;],[color= #cc66cc;]2[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'السبت'[color= #339933;];

    [color= #cc66cc;]3[color= #339933;],[color= #cc66cc;]4[color= #339933;],[color= #cc66cc;]5[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'الاحد'[color= #339933;];

    [color= #cc66cc;]6[color= #339933;],[color= #cc66cc;]7[color= #339933;],[color= #cc66cc;]8[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'الاثنين'[color= #339933;];

    [color= #cc66cc;]9[color= #339933;],[color= #cc66cc;]10[color= #339933;],[color= #cc66cc;]11[color= #339933;]: Result   [color= #339933;]:=  [color= #0000ff;]'الثلاثاء'[color= #339933;];

    [color= #cc66cc;]12[color= #339933;],[color= #cc66cc;]13[color= #339933;],[color= #cc66cc;]14[color= #339933;]:Result   [color= #339933;]:=  [color= #0000ff;]'الاربعاء'[color= #339933;];

    [color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

 

[color= #000000; font-weight: bold;]function GetTaime[color= #009900;](ICol[color= #339933;]:integer[color= #009900;])  [color= #339933;]: string[color= #339933;];

begin

    [color= #b1b100;]case ICol of

    [color= #cc66cc;]0[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'8:10'[color= #339933;];

    [color= #cc66cc;]1[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'9:30'[color= #339933;];

    [color= #cc66cc;]2[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'11:00'[color= #339933;];

    [color= #cc66cc;]3[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'12:30'[color= #339933;];

    [color= #cc66cc;]4[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'14:00'[color= #339933;];

    [color= #cc66cc;]5[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'13:30'[color= #339933;];

    [color= #cc66cc;]6[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'15:00'[color= #339933;];

    [color= #cc66cc;]7[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'16:30'[color= #339933;];

    [color= #cc66cc;]8[color= #339933;]:   Result   [color= #339933;]:=  [color= #0000ff;]'17:00'[color= #339933;];

    [color= #990000;]end[color= #339933;];

[color= #990000;]end[color= #339933;];

 

 

procedure TFSheure[color= #339933;].StringGrid1SelectCell[color= #009900;](Sender[color= #339933;]: TObject[color= #339933;]; ACol[color= #339933;], ARow[color= #339933;]: Integer[color= #339933;]; [color= #000000; font-weight: bold;]var CanSelect[color= #339933;]: B
oolean[color= #009900;])[color= #339933;];

begin

    [color= #b1b100;]if [color= #009900;](ARow mod [color= #cc66cc;]3[color= #009900;]) [color= #339933;]= [color= #cc66cc;]0 then [color= #666666; font-style: italic;]//    if ARow in [0,3,6,9,12] then

        showmessage[color= #009900;](GetDay[color= #009900;](ARow[color= #009900;])[color= #339933;]+[color= #0000ff;]'=>'[color= #339933;]+[color= #0000ff;]'الحجرة '[color= #339933;]+ [color= #0000ff;]'=>'[color= #339933;]+GetTaime[color= #009900;](ACol[color= #009900;]) [color= #009900;])

    [color= #b1b100;]else

        [color= #b1b100;]if ARow in [color= #009900;][[color= #cc66cc;]1[color= #339933;],[color= #cc66cc;]4[color= #339933;],[color= #cc66cc;]7[color= #339933;],[color= #cc66cc;]10[color= #339933;],[color= #cc66cc;]13[color= #009900;]] then

           showmessage[color= #009900;](GetDay[color= #009900;](ARow[color= #009900;])[color= #339933;]+[color= #0000ff;]'=>'[color= #339933;]+[color= #0000ff;]'الاستاذ'[color= #339933;]+ [color= #0000ff;]'=>'[color= #339933;]+GetTaime[color= #009900;](ACol[color= #009900;]) [color= #009900;])

        [color= #b1b100;]else

           [color= #b1b100;]if ARow in [color= #009900;][[color= #cc66cc;]2[color= #339933;],[color= #cc66cc;]5[color= #339933;],[color= #cc66cc;]8[color= #339933;],[color= #cc66cc;]11[color= #339933;],[color= #cc66cc;]14[color= #009900;]] then

             showmessage[color= #009900;](GetDay[color= #009900;](ARow[color= #009900;])[color= #339933;]+[color= #0000ff;]'=>'[color= #339933;]+[color= #0000ff;]'المادة'[color= #339933;]+ [color= #0000ff;]'=>'[color= #339933;]+GetTaime[color= #009900;](ACol[color= #009900;]) [color= #009900;])[color= #339933;];

 

[color= #990000;]end[color= #339933;];