Not a valid time format?

[Mikael Nilsson]

Is there a control attached to a TField? If so, which control class is this?

No


This was the one in error

Code:

procedure TfrmUserDetail.FormToDb;
var
  ExpPeriod:Integer;
  aDatePwe: TDateTime;
begin

  if (UserSession.UserMode = 0)  then begin  { Insert }
  ExpPeriod:=StrToInt(UserSession.ReadProfileValue('SYSTEM', 'PW', 'PWEXPPER', '0')); {Expiration period in days }
    aDatePwe:=incDay(Now,ExpPeriod);
    UserSession.FDQryUsersMod.Insert;
    UserSession.FDQryUsersMod.FieldByName('UserID').AsString              := AnsiUppercase(inpUID.Text);
    UserSession.FDQryUsersMod.FieldByName('PartID').AsInteger              := UserSession.UsersSelectedPartId;
    UserSession.FDQryUsersMod.FieldByName('Uppldat').AsString              := FormatDateTime('c',now);
    UserSession.FDQryUsersMod.FieldByName('PwStatus').AsString              := '0';  { Normal }
    UserSession.FDQryUsersMod.FieldByName('PwExpirationDate').AsString      := FormatDateTime('yyyy-mm-dd',aDatePwe);
    UserSession.FDQryUsersMod.FieldByName('PwChangeDate').Clear;
  end
  else begin
    UserSession.FDQryUsersMod.Edit;
    if (UserSession.SysUser) then begin                                  { Allowed to move a user from one part to another }
      UserSession.FDQryUsersMod.FieldByName('PartID').AsInteger            := StrToInt(inpCompany.Items.ValueFromIndex[inpCompany.ItemIndex]);
    end;
  end;
  UserSession.FDQryUsersMod.FieldByName('Enamn').AsString                  := inpEnamn.Text;
  UserSession.FDQryUsersMod.FieldByName('Fnamn').AsString                  := inpFnamn.Text;
  UserSession.FDQryUsersMod.FieldByName('Tel').AsString                    := inpTel.Text;
  UserSession.FDQryUsersMod.FieldByName('Fax').AsString                    := inpFax.Text;
  UserSession.FDQryUsersMod.FieldByName('Email').AsString                  := AnsiLowerCase(inpEmail.Text);
  UserSession.FDQryUsersMod.FieldByName('PW').AsString                      := inpuPw.Text;
  UserSession.FDQryUsersMod.FieldByName('Funktion').AsString                := inpFunction.Items.ValueFromIndex[inpFunction.ItemIndex];
  UserSession.FDQryUsersMod.FieldByName('Anddat').AsString                  := FormatDateTime('c',now);
  UserSession.FDQryUsersMod.FieldByName('Mobnr').AsString                  := inpMob.Text;
  UserSession.FDQryUsersMod.FieldByName('WWDAUTH_eConnectivity').AsBoolean  := False;
  UserSession.FDQryUsersMod.FieldByName('WWDAUTH_eConnectivity').AsBoolean  := cbxeConnectivity.Checked;
  UserSession.FDQryUsersMod.FieldByName('WWDAUTH_Company').AsBoolean        := False;
  UserSession.FDQryUsersMod.FieldByName('WWDAUTH_Company').AsBoolean        := cbxCompany.Checked;
  UserSession.FDQryUsersMod.FieldByName('TestUser').AsBoolean              := False;
  UserSession.FDQryUsersMod.FieldByName('TestUser').AsBoolean              := cbxTestUser.Checked;
  UserSession.FDQryUsersMod.FieldByName('CompanyAdmin').AsBoolean          := False;
  UserSession.FDQryUsersMod.FieldByName('CompanyAdmin').AsBoolean          := cbxCompanyAdmin.Checked;

end;