Hallo ja Farben mach ich noch ist ja ein Test
Also es gibt nur diesen CODE!!!
procedure TfraMain.btnArbeitClick(Sender: TObject);
var
vGuid : TGuid;
begin
CreateGuid(vGuid);
ZeitenEdit.Open;
ZeitenEdit.Insert;
ZeitenEditId.Value := GuidToString(vGuid);
ZeitenEditIDMITARBEITER.AsString := vMitarbeiterId;
ZeitenEditBUCHUNGSART.Astring := 'AZ';
ZeitenEditDatum.asDateTime := DateOf( Now );
ZeitenEditANFANGZEIT.AsDateTime := Now
ZeitenEditJAHR.Value := YearOf(Now);
ZeitenEditMONAT.Value := IntToStr(MonthOf(Now));
ZeitenEditTAG.Value := IntToStr(DayOf(Now));
ZeitenEditSTART.AsDateTime := TimeOf( vStartArbeit );
ZeitenEdit.Post;
ZeitenEdit.Close;
end
Es muss irgendwie an dem Grid bzw FMX liegen, da die Daten in der
DB richtig stehen.