Kunden auf Rechnungsform eingeben/anzeigen

[LOMBI]

Hallo,

ich möchte auf der Rechnungsform den KundenNamen in ein TEdit eintragen und
wenn nötig suchen lassen.

Gebe ich z.B. "Mü" für "Müller" ein, dann sollte sich beim OnExit des TEdits die Kundenübersicht öffnen, mit den Namen aus der KundenTabelle, sortiert nach "Mü.."

Bei dem folgenden Code bekomme ich allerdings die Meldung "Parameter 'suche' nicht gefunden":

Delphi-Quellcode:

procedure TFRechnungen.EditMatchExit(Sender: TObject);
begin
  with FKunden.QueryKunden do
    begin
      SQL.Text := 'SELECT * FROM Kunden WHERE (NName like : suche) OR
                   (VName) like : suche)';
      ParamByName('suche').asString : = EditMatch.Text +'%';
      Open;

Wer weiß Bescheid? Vielen Dank für Eure Hilfe!

Gruß
Lombi

[mkinzler]

Versuchs mal so:

Delphi-Quellcode:

SQL.Text := 'SELECT * FROM Kunden WHERE (NName like :suche) OR
                   (VName like :suche)';

[LOMBI]

Danke mkinzler für den Hinweis. Hat geklappt!

Folgende Fragen gäb's noch:

Wie bitte könnte ich nur für diesen Vorgang das Fenster
der Kundenübersicht verkleinern?

Aus der Kundenübersicht möchte ich einen Kunden per Klick auswählen und
seine Daten auf der Rechnungsform in die Felder EditNName, EditVName EditStrasse usw. eingetragen lassen.

Gruß
Lombi

[marabu]

Hallo Lombi,

meinst du mit Verkleinern das Minimieren des Fensters Kundenübersicht? Ich würde das Fenster modal anzeigen, dann hast du dieses Problem gar nicht. Nach dem Auswählen des Datensatzes wird das Fenster automatisch geschlossen, wenn du es willst.

Grüße vom marabu

[LOMBI]

Hallo marabu,

ich meine nicht das Minimieren der Kundenübersicht. Normalerweise werden
die Forms in voller Bildschirmgröße dargestellt. Beim OnExit des EditMatch wird die KundenListe (FKundenListe.Show) mit den Treffern gezeigt. Bei dieser Übersicht wollte ich eben nicht den ganzen
Bildschirm ausfüllen. Mit Height/Width-Einstellung der Form scheint's
zu funktionieren.

Zitat:

Aus der Kundenübersicht möchte ich einen Kunden per Klick auswählen und
seine Daten auf der Rechnungsform in die Felder EditNName, EditVName EditStrasse usw. eingetragen lassen.

Zitat:

Nach dem Auswählen des Datensatzes wird das Fenster automatisch geschlossen, wenn du es willst.

Genau, ich möchte aus der Trefferliste (FKundenübersicht) eine Adresse per Klick auswählen, die Übersicht schließen und die Daten in die Edits auf der Rechnungsform übernehmen. OnCellClick des DBGrid hat nicht den gewünschten Erfolg gebracht.

Was ist bitte zu tun?

Gruß
Lombi

[marabu]

Hallo Lombi,

die Übernahme der Kundendaten könntest du im Ereignis OnDblClick() des DBGrid vornehmen. Nach erfolgreicher Übernahme kannst du dann ModalResult auf mrOK setzen und dein modaler Auswahldialog wird geschlossen. Die Dimensionierung der Form über die Eigenschaften Height und Width machst du schon richtig.

marabu

[LOMBI]

Schönen guten Morgen marabu!

Zitat:

ParamByName('suche').asString : = EditMatch.Text +'%';

Was müßte ich bitte noch ergänzen, damit in die Suche auch Kleinbuch-
staben einbezogen werden, z.b. statt nach "Meier" möchte ich nach
"meier" suchen und trotzdem alle "Meier, MEIER" als Treffer erhalten.

Bis dann und viele Grüße
Lombi

[marabu]

Guten Morgen Lombi,

du kannst die Zeichenketten mit der LOCALSQL-Funktion UPPER() normieren:

SQL-Code:

SELECT * FROM Kunden WHERE UPPER(NName) LIKE :suche OR UPPER(VName) LIKE :suche

Grüße vom marabu

[LOMBI]

Hallo marabu,

Zitat:

SELECT * FROM Kunden WHERE UPPER(NName) LIKE :suche OR UPPER(VName) LIKE :suche

mit diesem Code erhalte ich leider überhaupt keine Treffer im DBGrid.

Beste Grüße
Lombi

[mkinzler]

Ist der Suchstring auch Uppercase?