Thema: Delphi Konfuse Anweisungen

Einzelnen Beitrag anzeigen

Svenkan

Registriert seit: 10. Feb 2007
Ort: Bersenbrück
547 Beiträge
 
Delphi 7 Enterprise
 
#1

Konfuse Anweisungen

  Alt 23. Mai 2008, 12:13
Datenbank: dBase • Zugriff über: TQuery
Hallo Leute!
Folgendes Problem: Ich möchte, dass in meinen Plänen Einträge ausgeblendet werden, die in der Schülerbemerkung den Eintrag 'fällt aus' beinhalten. Nun ist es so, dass dies nicht immer so eingetragen wird in der Form (z.B. 'Diese Stunde (xxxx) fällt aus' etc.).

Delphi-Quellcode:
 if ausfallstunden_weg then
  ausfall_sql:='AND NOT BEMER_SCH Like ''%ällt aus%'' AND S >="'+IntToStr(ausfallstunden_weg_wann)+'"'
 else
  ausfall_sql:='';
Problem 1: Es werden alle Einträge ausgeblendet, die diesen String beinhalten oder gar keine Bemerkung.
Problem 2: Wie verknüpfe ich die Bedingungen nun so miteinander, dass sich die AND-Bedingung mit den betroffenen Ausfallstunden NUR auf die hier dargestellte Zeile bezieht und nicht auf die restlichen Abfragen?

Delphi-Quellcode:
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM "VT'+sj+'"';
  Query1.SQL.Add('WHERE S NOT IN ("M","E","H") '+abteilung+' AND DATUM=:today');
  if ausfallstunden_weg then Query1.SQL.Add(ausfall_sql);
  Query1.SQL.Add('ORDER BY '+order1);
  Query1.ParamByName('today').Value := today;
  Query1.Open;
Ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken..
Sven Kannenberg
  Mit Zitat antworten Zitat