1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

begin
   idLehrer := StrToInt(Form6.DBText4.Caption);
   if (DBEdit4.Text<>'') then
      begin
         note:=StrToInt(DBEdit4.Text);
         if ((note>6) or (note<1)) then begin
           Showmessage('Ungültige Note');
           exit;
         end
      else begin
           Daten.tLehrer.Locate('Id', idLehrer, []);
           durchschnittsnote:=Daten.TLehrer.FieldValues['Bewertung'];
           anzVerm:=Daten.tLehrer.FieldValues['#Vermittlung'];
           hilf:=((anzVerm*durchschnittsnote)+note)mod(anzVerm+1);
           note:=((anzVerm*durchschnittsnote)+note)div(anzVerm+1);
           if (hilf>=((anzVerm+1)/2)) then note:=note+1
                                      else note:=note;
           inc(anzVerm);
           Daten.tLehrer.Edit;
           Daten.tLehrer.Locate('Id', idLehrer, []);
           Daten.tLehrer.FieldByName('Bewertung').AsInteger:=note;
           Daten.tLehrer.FieldByName('#Vermittlung').AsInteger:=anzVerm;
           Daten.tLehrer.post;
           Daten.tLehrer.prior;
         end;
      end;

   daten.tVermittlung.post;
   self.Close;
end;