Autor Beitrag
Lui
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 84

Win XP, Win 2000, Linux
D7
BeitragVerfasst: Mi 21.05.03 21:02 
Hi,

ich habe jetzt Daten mit dem Datum von MonthCalendar ins table geschrieben:
ausblenden Quelltext
1:
2:
3:
4:
5:
  Table1.Append;
  Table1.FieldByName('Datum').AsDateTime := MonthCalendar1.Date;
  Table1.FieldByName('Was').AsString := DBEdit1.Text;
  Table1.FieldByName('Wo').AsString := DBEdit2.Text;
  Table1.Post;


Nur wie bekomme ich jetzt, wenn ich auf ein bestimmtes Datum im MonthCalendar klicke, diese wieder ausgelesen?

Beispiel: - 1 Datensatz wurde angelegt: '01.04.2003' 'Aprilscherz' 'Hier'

Nun will ich sobald ich auf den 01.04.2003 klicke das dieser Satz auch wieder im DBEdit angezeigt wird. Nur wie realisier ich denn das? Hab mir schon den Kopf darüber zerbrochen, vielleicht auch einfach nur zu gestresst, sorry.

Ihr seht ja oben wie die Daten geschrieben wurden, ich will jetzt halt nur wenn ich ein Datum anklicke (MonthCalendar.Date) dass eine "Abfrage" stattfindet, die das angeklickte Datum mit dem Datum aus dem table vergleicht und bei true ausgibt.

Ich denke es muß eine Abfrage auf Gleichheit erfolgen. Aber wie hat diese auszusehen? Wer weiß Rat? Wäre aufjedenfall sehr dankbar!

MfG

Lui

_________________
Während der C Progga sich fragt wie er es machen soll, fragt der Delphi Progga sich was soll ich machen...
MrSpock
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 262



BeitragVerfasst: Do 22.05.03 07:42 
Hallo Lui,

wenn Datum ein Schlüsselfeld ist mit:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
if Table1.FindKey([MonthCalender1.Date]) then
begin
  { Eintrag für diesen Tag existiert }
  ShowMessage(Table1.FieldByName('Wo').AsString + ' ' 
                     +Table1.FieldByName('Was').AsString
end
else
  { existiert nicht };


sonst über Locate.

_________________
Live long and prosper
MrSpock \\//