SearchRecordItem

papafishbone · Hält's aus hier Beiträge: 8 Windows XP Delphi 3 Prof

Hallo ,
Habe mich wieder an den Rechner gesetzt ,damit ich eventuell mein begonnenes Vogelverwaltungsprogramm in den Griff bekomme und möchte Euch um Hilfe bitten.
Meine Daten kommen aus einer dBase Datenbank und ich möchte über eine Inputquery folgendes abfragen.
Feld1 ( Ringnummer) 01/001/00153 soll in der Inputquery wenn möglich formatiert im Eingabefeld erscheinen, so dass nur noch die Zahlen , nicht die Schrägstriche,eingegeben werden müssen und nach der Abfrage bei "Ja " der Datensatz angezeigt und bei "Nein" gefragt wird "möchten Sie den Datensatz anlegen" und zur Eingabemaske gesprungen wird.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TStammForm.SearchRecordItemClick(Sender;TObjekt)
var
FLD1:String;
begin
FLD1:)=' '
if InputQuery('Vogel nach Ringnummer suchen','Geben Sie'+
 'kompl. Nummer ein',FLD1)then
begin
StammTable.Set Key;
StammTable.FieldByFeld('FLD1').AsString:=FLD1;
if not StammTable.GoToKey then
MessangeDlg('Vogel nicht gefunden',mtInformation,
[mbOK],0);
end;
end;

Moderiert von raziel: Delphi-Tags hinzugefügt

Horst_H · Verfasst: So 15.01.06 15:27

Hallo,

du suchst also eher ein Inputquery mit drei Editfeldern
aa/bbb/ccccccc die optimal selbst von einem zum anderen wandern falls die maximale Zeichenzahl ueberschritten wird.
Ich sehe bei Benutzung des Ziffernblockes keinen grossen Vorteil, dass nicht doch selbst einzugeben.

Gruss Horst
P.S.
Gehoert das zu Datenbanken?

papafishbone · Hält's aus hier Beiträge: 8 Windows XP Delphi 3 Prof

Hallo Horst,
schönen Dank für Dein Interesse an meiner Fragestellung

Das abzufragende Feld 1 ist immer 12 Zeichen lang und beinhaltet zur Sicherheit der Plausibilität folgende Kriterien

1) 01/ ist das Zuchtjahr
2) __/001 ist die laufende Ringnummer
3) __/___/00153 ist die Verbandsnummer des Züchters
nur wenn alle Nummern in einem Atribut eingegeben werden ist die Sicherheit gewährleistet, dass eine Ringnummer nur einmal vergeben wurde.
Für die einzelnen Suchkreterien (Zuchtjahr, Ringnummer,Verbandsnummer ) habe ich bereits je eine InPutQuery erstellt und sie funktionieren auch .
Die InputQuery in der nach allen drei Kriterien gesucht werden soll 01/001/00153 bekomme ich leider nicht so hin , wie ich sie gerne hätte , da ich immer alles eingeben muß (auch die Schrägstriche ) gibt es dafür eine Lösung die Schrägstriche in einer Maske fest zu verankern ???
sodass nur noch die 10 Zahlen eingegeben werden müssen ???

Danke für die Umsetzung in die richtige Rubrik

_________________
Alter schützt nicht vor Torheit, doch man möchte mit seinen Kindern mithalten. Wer rastet der rostet. Danke für jegliche geleistete Hilfe im voraus

Horst_H · Verfasst: Do 19.01.06 07:56

Hallo,

seid vorgestern gibt es bei Borland ein Monster an zusaetzlichen Mask Edit 's etc......
cc.borland.com/Item.aspx?id=23904
Copyright: Commercial use requires permission
Ich hoffe es ist etwas dabei, was Dir weiterhilft.

Gruss Horst

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme