Problem mit Kalender Hintergrundfarbe von StringGrind-Zelle
Hallo erstmal!
Also...ich bin dabei, für die Schule einen Kalender zu programmieren...der KAlender selbst wird in einem stringgrid angezeigt...er soll auch die funktion besitzen, termine einzutragen. Die Tage,an denen ein termin notiert ist, soll farbig hinterlegt werden. die termine werden in einer paradox7 datenbank gespeichert (Tag, Monat, Jahr und Notiz im Memo-Feld des Erstellngsformulars) nun habe ich folgende probleme (ja es sind mehrere ;) ): 1)wie kann ich den aktuellen tag mit einer hintergrundfarbe belgen, und tage, die einen termin enthalten, mit einer anderen? und 2) Ich habe eine PRozedur geschrieben, die in .db Tabelle Daten schreiben soll. Einmal funktionierte es bereits, aber nun geschieht gar nichts mehr (Es wird nichts mehr in die Tabelle geschrieben)
Delphi-Quellcode:
zuerst wird überprüft, ob ein eintrag mit diesem datum bereits vorhanden ist (DBDataSetVorhanden). Wenn nicht, soll ein neuer angelegt werden (DBwrite).
function TFoKalender.DBDataSetVorhanden(y,m,t:integer;memo:string):boolean;
begin if (DataSource1.DataSet['Jahr']=y) and (DataSource1.DataSet['MoZahl']=m) and (DataSource1.DataSet['Tag']=t) then DBDataSetVorhanden:=true else DBDataSetVorhanden:=false; end; procedure TFoKalender.DBwrite(y,m,t:integer;memo:string); begin if DBDataSetVorhanden(y,m,t,memo)=False then begin DataSource1.DataSet.Open; DataSource1.DataSet.Insert; DataSource1.DataSet['Jahr']:=y; DataSource1.DataSet['MoZahl']:=m; DataSource1.DataSet['Tag']:=t; DataSource1.DataSet['notiz']:=memo; DataSource1.DataSet.Close; end else exit; end; Ich hoffe ich habe alles halbwegs verständlich erklären können. Dieses Programm ist für mein Abitur, und da ich leider niemanden kenne, der etwas von Delphi versteht, hoffe ich, dass mir hier jemand helfen kann.^^ meine ICQ nummer ist 220770541 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:24 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz