Servus Leute!
Mein Schulprojekt bzw. Hausübung größeren Ausmaßes nähert sich allmählich dem Ende zu. Nur 1 kleiner Punkt muss nun nur noch funktionieren.
Es gibt eine Datenbank-Tabelle namens "KV", wo die Namen und Klassen der Lehrer (Klassenvorstände) gespeichert werden.
Das Hinzufügen von Lehrern funktioniert bereits einwandfrei.
Der Lehrer einer bestimmten Klasse wird nun im Label angezeigt.
- zB 1AHK hat Lehrer XY
Wenn ich jedoch eine Klasse auswähle, die noch keinen Lehrer zugeteilt hat, wird im Label trotzdem ein Lehrername angezeigt.
Wenn die Klasse keinen KV hat, soll auch keiner angezeigt werden.
Hier wäre einmal mein Quelltext:
Delphi-Quelltext
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:
| procedure Tform1.lehrereinlesen();
var
Alle : string;
begin
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('SELECT * FROM KV where Klasse = ' + QuotedStr(Klass));
ADOQuery1.Open;
While not ADOQuery1.Eof do begin
lb_kv.caption := Adoquery1.fieldvalues['KVName'];
ADOQuery1.Next;
end;
Adoquery1.close;
Alle := form1.cb_schuler.Items[form1.cb_schuler.ItemIndex];
if Alle = 'Alle' then
begin
lb_kv.caption := '';
end;
end; |
Da ich in meiner Combobox einen Eintrag namens "Alle" habe, wo alle Schüler und Klassen angezeigt werden, werden natürlich keine Lehrer angezeigt.
Ich hoffe, dass Ihr mir auch hierbei wieder helfen könnt. - Dann wär's das für dieses Wochenende
Schönen Sonntag noch wünscht euch
Christoph
Moderiert von 
Narses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.
