Termine anzeigen

[Walter Landwehr]

Habe es gelöst. So geht es.

Delphi-Quellcode:

    Termineqry.Close;
    Termineqry.ParamByName('Patientennummer').AsInteger := Patient1Qry.FieldByName('Patientennummer').AsInteger;
    Termineqry.ParamByName('Startdatum').asString := DateTimeToStr(Now);
    Termineqry.ParamByName('ENDDATUM').asString := DateTimeToStr(now + dmMain.ibqryOptionen.FieldByName('TERMINTAGE').AsInteger);
    Termineqry.Open;