MonthCalendar-Wert in Edit-Feld

[Micha]

Ja genau, alle in der gleichen.

Die procedure für's Abspeichern hab ich aber schon.

[Tester]

Also hast du eine Datenbank, in der du alle Daten speicherst.
Wenn du für jedes Datum eine extra Spalte hast dann kannst du ja mit fieldbyname arbeiten.
So würde deine Form auch nur noch aus einem MonthCalender und einem Edit bestehen.

Wie sieht den deine DB aus? Welche Spalten und wo speicherst du hin alles in die selbe Spalte?

[Micha]

Das mit dem Speichern hab ich ja schon.

Jedes Datum hat eine extra Spalte. Es ist bis jetzt zum Testen noch eine Paradox. Werde ich aber dann umstellen. Aber das ist auch kein Problem.


Es müssen aber 8 EditFelder in der Form zum Eingeben da sein.

[Tester]

Müssen die Datum-Angaben eigentlich die ganze Zeit da stehen oder würde es reichen wenn du nur ein Edit hast, den Wert eingibst, wegspeicherst, eingibst, speicherst, ...

Und dann mit ner Schleife in deine Tabelle schreiben.

Gruß
TESTER

[Tester]

OK dann hat sich das ja erledigt :warn:

[Tester]

Hab ich das eigentlich richtig verstanden, das du 8MonthCalendar hast?

[Micha]

Nee, die sollen schon stehen bleiben.

Es sieht ungefähr so aus (siehe Anhang).

[Micha]

Ja, bis jetzt habe ich 8 MonthCalender.

[Tester]

Hmh

ok für was auch immer du unbedingt 8Datum angaben brauchst aber du brauchst doch keine 8Month... wie wärs wenn du jedes mal auf einen verweist diesen aufrufst und das gewählte datum ins entprechende edit schreibst.

[Tester]

Code:

// zeigt den MonthCalender für 1. Wert an 
procedure Tdlg_users_bearbeiten.btn_beginn_1Click(Sender: TObject); 
begin 
calender_beginn_1.Visible := true; 
end; 

// bei Klick wird das Datum in das Edit-Feld geschrieben 
procedure Tdlg_users_bearbeiten.calender_beginn_1Click(Sender: TObject); 
begin 
  edt_beginn1.Text := DateToStr(calender_beginn_1.Date); 
end; 

// zeigt den MonthCalender für 2. Wert an 
procedure Tdlg_users_bearbeiten.btn_beginn_1Click(Sender: TObject); 
begin 
calender_beginn_1.Visible := true; 
end; 

// bei Klick wird das Datum in das Edit-Feld geschrieben 
procedure Tdlg_users_bearbeiten.calender_beginn_1Click(Sender: TObject); 
begin 
  edt_beginn2.Text := DateToStr(calender_beginn_1.Date); 
end;

.
.
.