Hallo zusammen,
ich bin noch ziemlicher Anfänger in Sachen Delphi und besonders mit Datenbanken. Nun soll ich in der Schule eine Datenbanksoftware programmieren, habe aber mit der Filterfunktion Probleme. Ich habe schon sehr viele Möglichkeiten durchprobiert und die Delphi Hilfe gelesen, bin daraus aber nicht wirklilch schlau geworden.
Die Filterfunktion besteht bei mir aus vier Comboboxen, zwei zum Auswählen des Datenbankfeldes und zwei zum Auswählen des Mengenzeichens, sprich =,> oder <. Der Text nach dem gefiltert werden soll wird in zwei edits eingegeben. Nun soll bei Klick auf den Button nach beiden kriterien gefiltert werden. Ich muss also mit Variablen arbeiten, da ja Feld, Menge und Filtertext ausgewählt werden sollen. Diese Variablen sind alle als Strings deklariert. Ich habe folgenden Code verwendet:
Delphi-Quellcode:
menge:=cbxMenge.text;
menge2:=cbxMenge2.text;
filtertext:=edtFiltertext.text;
filtertext2:=edtFiltertext.text;
case cbxArtikelFiltern.ItemIndex of
0: begin
feld:='Artikelnummer';
stringvar:=false;
end;
1: begin
feld:='Artikelname';
stringvar:=true;
end;
2: begin
feld:='Kategorie';
stringvar:=true;
end;
3: begin
feld:='Genre';
stringvar:=true;
end;
4: begin
feld:='Hersteller';
stringvar:=true;
end;
5: begin
feld:='Erscheinungsjahr';
stringvar:=false;
end;
6: begin
feld:='Altersfreigabe';
stringvar:=true;
end;
7: begin
feld:='Preis';
stringvar:=false;
end;
8: begin
feld:='Anzahl';
stringvar:=false;
end;
end;
case cbxArtikelFiltern2.ItemIndex of
0: begin
feld2:='Artikelnummer';
stringvar:=false;
end;
1: begin
feld2:='Artikelname';
stringvar:=true;
end;
2: begin
feld2:='Kategorie';
stringvar:=true;
end;
3: begin
feld2:='Genre';
stringvar:=true;
end;
4: begin
feld2:='Hersteller';
stringvar:=true;
end;
5: begin
feld2:='Erscheinungsjahr';
stringvar:=false;
end;
6: begin
feld2:='Altersfreigabe';
stringvar:=true;
end;
7: begin
feld2:='Preis';
stringvar:=false;
end;
8: begin
feld2:='Anzahl';
stringvar:=false;
end;
end;
if (stringvar=false)AND(stringvar2=false) then
tblArtikel.Filter:='('+feld+menge+filtertext+')AND('+feld2+menge2+filtertext2+')';
if (stringvar=false)AND(stringvar2=true) then
tblArtikel.Filter:='('+feld+menge+filtertext+')AND('+feld2+menge2+QuotedStr(filtertext2)+')';
Die variablen bekommen also ihre Werte zugewiesen und je nach Filtertext typ wird die booleansche Variable stringvar auf true oder false gesetzt, da beim Filtern mit Strings als Text ja die Option QuotedStr() benutzt werden muss.
So nun mein eigentliches Problem mit dem Code. Der erste Fall, also stringvar und stringvar2:=false, also wenn man z.b. nach zwei integerwerten filtert funktioniert einwandfrei. Der zweite Fall, bei dem ein Wert aus einem String besteht und somit mit QuotedStr eingegeben werden muss funktioniert allerdings nicht! Wenn ich z.B. als ersten Filter nach Der Artikelnummer und als zweiten nach Genre (was ja ein String enthält) filtern möchte, lässt sich das Programm zwar starten, aber bei Buttonklick kommt die Fehlermeldung "Filterausdruck fehlerhaft abgeschlossen". Falls es relevant ist, ich benutze Delphi 7 Enterprise auf deutsch.
Ich hab schon so viel probiert, finde aber einfach keine Lösung. Weiß von ihnen jemand, was an dem Code falsch ist, bezw. wie man in einer AND oder OR verbindung mit QuotedStr filtern kann?
Über eine Antwort wäre ich sehr dankbar, bin ziemlich verzweifelt. Vielen Dank schonmal,
Gruß, Seto