Devart Forums

Code: Select all

PROCEDURE sp_Users_ReadUserInfo
	@UserId			bigInt
AS
BEGIN
SELECT        
	ISNULL(DateOfBirth, '01/01/1899') as DateOfBirth, 
	ISNULL(HeightInches, 0) as HeightInches, 
	ISNULL(JoinDate,  '01/01/1899') as JoinDate, 
	ISNULL(UserName, '') as UserName,
	ISNULL(Gender, 2) as Gender,
	[Password],
	Email
FROM            
	Users	
Where 
	(Id = @UserId)
return @@rowcount
END

Code: Select all

procedure ReadUserInfo(var myUser: TMyUser);
var
  QTY: Integer;
begin
  with DM1.sp_Users_ReadUserInfo do
  begin
    Prepare;
    ParamByName('@UserId').Value := myUser.UserId;
    Execute;
    QTY := ParamByName('@RETURN_VALUE').Value;
    if QTY = 1 then
    begin
      myUser.UserName := FieldValues['UserName'];
      myUser.UserJoinDate := FieldValues['JoinDate'];
      myUser.UserDOB := FieldValues['DateOfBirth'];
      myUser.UserHeightInches := FieldValues['HeightInches'];
      myUser.UserGender := FieldValues['Gender'];
      myUser.UserEMail := FieldValues['Email'];
      myUser.UserPassword := FieldValues['Password'];
    end
    else
    begin
      myUser.UserName := '';
      myUser.UserHeightInches := 0;
    end;
  end;
end;