Felder mit Werten füllen

**Megabyte**

Hallo bin Delphi Neuling.

Habe ein Formular erstellt mit DBEdit Feldern die auf eine mysql-Datenbank zugreifen.Dies funktioniert mit ODBC einwandfrei.
Nun mein Problem:
Ich möchte wenn ein neuer Datensatz hinzugefügt wird
machen ,dass gewisse Felder schon vorgegebene Grundwerte haben( zum Beispiel ein Feld mit Euro, dass den Grundwert 0.00 bekommt).Desweiteren
habe ich ein Feld dass mehrere Werte vorgeben muss (A= Auszahlung oder B=Bar).
Wer weiss wie so was geht?

Die Grundwerte des Eurofeldes können überschrieben werden das Feld mit den 2 Auswahlen jedoch nicht.

Danke für eure Hilfe

cu Megabyte

**sakura**

Auf der Komponente für Deine Abfrage (z.B. TQuery oder TTable) mal mit Doppelklick den Feldeditor öffnen. Dann einfach mit der Rechten Maustaste in den Editor klicken und die Felder einfügen. Jetzt kannst Du für jedes Feld die Standardwerte festlegen.

Problem 2: Schau Dir mal die TDBComboBox Komponente an, die kann die bei festen Auswahlen weiterhelfen.

**harrybo**

Hi Megabyte,

oder Du belegst die Felder im AfterInsert Event der Query/Table Komponente. Etwa mit

markieren

Code:

			Dataset.FieldByName('Preis').AsCurrency := 0;

Dataset.FieldByName('Zahlart').AsString := 'A';

Alternativ geht auch folgende Schreibweise:

markieren

Code:

			Dataset['Preis'] := 0;

Dataset['Zahlart'] := 'A';

gruß, harrybo

**Megabyte**

Leider habe ich eure Ausführungen überhaupt nicht kapiert.Es funktioniert
bei mir nicht. Den Feldeditor habe ich gefunden nur kann ich nirgends irgend welche Grundwerte eingeben die wenn ein neuer Datensatz eingegeben
werden vorgegegeben werden.
Wer kann mir weiterhelfen

Danke
Megabyte

**sakura**

Im Feldeditor der Tabelle das einzustellende Feld auswählen, und dann im Objekt Inspektor die Eigenschaft DefaultExpression ausfüllen. Siehe Grafik am Ende des Beitrages.

**MrSpock**

Hallo MegaByte,

wenn du auf die TTable Komponente doppelklickst, erschein ein kleines Fenster. Dort klickst du mit der rechten Maus und wählst "alle Felder hinzufügen". Dadurch wird für jedes Feld ein entsprechendes TField Objekt erzeugt, dort kannst du die Werte dann einstellen. Immer wenn du ein Feld in dem kleinen Fenster anwählst, wird im Objektinspektor das entsprechende TFiled Objekt ausgewählt.

Die Vorbesetzung von mehreren Feldern kann man auch bei Auftreten des OnNewRecord Ereignisses erledigen.

**Megabyte**

Hallo
vielen Dank für eure Hilfe das mit dem Default Express funktioniert nun
Es gibt mir jetzt richtig eine 0 vor.

Das Probleme mit der TDBCombox habe ich jedoch noch nicht kapiert.
Ich habe diese Combox gefunden, weiss aber nicht wie die vorgaben dort hinein kommem ( A für Auszahlung und B für Bar )

wer weiss dazu einen Rat

Merci
Megabyte

Felder mit Werten füllen

Felder mit Werten füllen

Hilfe??

Danke für die Hilfe

Forumregeln

harrybo Registriert seit: 26. Nov 2002 Ort: Aachen 87 Beiträge Delphi 6 Enterprise	#3 29. Nov 2002, 20:24 Hi Megabyte, oder Du belegst die Felder im AfterInsert Event der Query/Table Komponente. Etwa mit markieren Code: Dataset.FieldByName('Preis').AsCurrency := 0; Dataset.FieldByName('Zahlart').AsString := 'A'; Alternativ geht auch folgende Schreibweise: markieren Code: Dataset['Preis'] := 0; Dataset['Zahlart'] := 'A'; gruß, harrybo Harry Boldt
	Zitat

Megabyte Registriert seit: 23. Nov 2002 Ort: Schweiz 31 Beiträge Delphi 7 Enterprise	#4 Hilfe?? 1. Dez 2002, 10:08 Leider habe ich eure Ausführungen überhaupt nicht kapiert.Es funktioniert bei mir nicht. Den Feldeditor habe ich gefunden nur kann ich nirgends irgend welche Grundwerte eingeben die wenn ein neuer Datensatz eingegeben werden vorgegegeben werden. Wer kann mir weiterhelfen Danke Megabyte
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#5 1. Dez 2002, 10:43 Im Feldeditor der Tabelle das einzustellende Feld auswählen, und dann im Objekt Inspektor die Eigenschaft DefaultExpression ausfüllen. Siehe Grafik am Ende des Beitrages. Miniaturansicht angehängter Grafiken Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

Megabyte Registriert seit: 23. Nov 2002 Ort: Schweiz 31 Beiträge Delphi 7 Enterprise	#7 Danke für die Hilfe 1. Dez 2002, 14:00 Hallo vielen Dank für eure Hilfe das mit dem Default Express funktioniert nun Es gibt mir jetzt richtig eine 0 vor. Das Probleme mit der TDBCombox habe ich jedoch noch nicht kapiert. Ich habe diese Combox gefunden, weiss aber nicht wie die vorgaben dort hinein kommem ( A für Auszahlung und B für Bar ) wer weiss dazu einen Rat Merci Megabyte
	Zitat