Arbeitszeiterfassung: Die Fortsetzung

[MrSpock]

Hallo m-werk,

nach Eingabe eines neuen Datensatzes soll der Kalender angepasst werden, damit auch für das neue Datum der Tag blau markiert wird:

Delphi-Quellcode:

procedure TForm1.qrySelDataAfterPost(DataSet: TDataSet);
begin
   UpdateCalMark
end;

Wenn der Mitarbeiter einen Tag im Kalender anwählt, soll aus der Datenbank gleich der dazugehörige Datensatz angezeigt werden:

Delphi-Quellcode:

procedure TForm1.calDateChange(Sender: TObject);
begin
   with cal do
   begin
      UpdateCalMark;
      qrySelData.Locate('Datum', EncodeDate(year,month,day), [])
   end;
end;

Bevor ein neue Satz endgültig übernommen wird, sind noch ein paar Prüfungen notwendig:

Delphi-Quellcode:

procedure TForm1.qrySelDataBeforePost(DataSet: TDataSet);
var
   hilf   : TDateTime;
begin
   if Trim(qrySelDataStart.AsString) = '' then
   begin
      ShowMessage('Ungültige Startzeit');
      ActiveControl := dbeStart;
      Abort
   end;

   if Trim(qrySelDataEnde.AsString) = '' then
   begin
      ShowMessage('Ungültige Endzeit');
      ActiveControl := dbeEnde;
      Abort
   end;

   if qrySelDataStart.Value > qrySelDataEnde.Value then
   begin
      hilf := qrySelDataStart.Value;
      qrySelDataStart.Value := qrySelDataEnde.Value;
      qrySelDataEnde.Value := hilf
   end;
end;

So, jetzt hast du bereits das Wichtigste geschafft.