CreatePersonAndAllocate(lPersonID,lName,URL,Position);
DataSetBroker1.DataSet.Refresh;
DataSetBroker1.DataSet.Locate('FLOGINID',lPersonID,[]);
DataSetBroker1.DataSet.Edit;
s:= FormatDateTime('yyyymmdd',Now) + rightstr('0000'+inttostr(Random(9999)),4);
DataSetBroker1.DataSet.FieldByName('EE_MAIL').AsString:=Edit2.Text;
DataSetBroker1.DataSet.FieldByName('FID').AsString:=s;
DataSetBroker1.DataSet.Post; |