شروع پروژه بازی آنلاین - Delphi XE5 & Intaweb 14.0.32 & TMS Intraweb Component & SQL Server - علاقمندان به ما بپیوندند

[مجید]

فرم پروفایل کاربر (UserProfileForm) را باز کنید. فرم شما باید شبیه به تصویر زیر باشد.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

کد OnCreate مربوط به UserProfileForm را مانند نمونه زیر وارد کنید :

  procedure TUserProfileForm.IWAppFormCreate(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser                     := aUser.GetUserInfo('', UserSession.CurrentUserID);
      IWLabelUsername.Caption   := aUser.Username;
      IWLabelTotalPoint.Caption := IntToStr(aUser.TotalPoint);
      IWLabelEMail.Caption      := aUser.EMail;
      IWLabelPoint3.Caption     := IntToStr(aUser.UserProfile.Point3);
      IWLabelPoint4.Caption     := IntToStr(aUser.UserProfile.Point4);
      IWLabelPoint5.Caption     := IntToStr(aUser.UserProfile.Point5);
      IWLabelCount3.Caption     := IntToStr(aUser.UserProfile.Count3);
      IWLabelCount4.Caption     := IntToStr(aUser.UserProfile.Count4);
      IWLabelCount5.Caption     := IntToStr(aUser.UserProfile.Count5);
      aUser.Free;
    end;

در انتها فایل کد UserProfileUnit.pas باید به شکل زیر باشد :

unit UserProfileUnit;

interface

  uses
    WordGame_Namespace,
    Winapi.Windows,
    Winapi.Messages,
    System.SysUtils,
    System.Variants,
    System.Classes,
    Vcl.Graphics,
    Vcl.Controls,
    Vcl.Forms,
    Vcl.Dialogs,
    BaseUnit,
    IWVCLComponent,
    IWBaseLayoutComponent,
    IWBaseContainerLayout,
    IWContainerLayout,
    IWTemplateProcessorHTML,
    IWVCLBaseControl,
    IWBaseControl,
    IWBaseHTMLControl,
    IWControl,
    IWCompLabel;

  type
    TUserProfileForm = class(TBaseForm)
      IWLabelUsername: TIWLabel;
      IWLabelTotalPoint: TIWLabel;
      IWLabelEMail: TIWLabel;
      IWLabelPoint3: TIWLabel;
      IWLabelPoint4: TIWLabel;
      IWLabelPoint5: TIWLabel;
      IWLabelCount3: TIWLabel;
      IWLabelCount4: TIWLabel;
      IWLabelCount5: TIWLabel;
      procedure IWAppFormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
    end;

  var
    UserProfileForm: TUserProfileForm;

implementation

  uses
    ServerController,
    UserSessionUnit;
{$R *.dfm}

  procedure TUserProfileForm.IWAppFormCreate(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser                     := aUser.GetUserInfo('', UserSession.CurrentUserID);
      IWLabelUsername.Caption   := aUser.Username;
      IWLabelTotalPoint.Caption := IntToStr(aUser.TotalPoint);
      IWLabelEMail.Caption      := aUser.EMail;
      IWLabelPoint3.Caption     := IntToStr(aUser.UserProfile.Point3);
      IWLabelPoint4.Caption     := IntToStr(aUser.UserProfile.Point4);
      IWLabelPoint5.Caption     := IntToStr(aUser.UserProfile.Point5);
      IWLabelCount3.Caption     := IntToStr(aUser.UserProfile.Count3);
      IWLabelCount4.Caption     := IntToStr(aUser.UserProfile.Count4);
      IWLabelCount5.Caption     := IntToStr(aUser.UserProfile.Count5);
      aUser.Free;
    end;

end.