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

[مجید]

فرم تغییر رمز عبور (ChangePasswordForm) را باز کنید. فرم شما باید شبیه به تصویر زیر باشد.

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

Event های OnAsyncClick و OnClick مربوط به IWGradButtonChangePassword را مانند نمونه زیر کد نویسی نمایید :

  procedure TChangePasswordForm.IWGradButtonChangePasswordAsyncClick(Sender: TObject; EventParams: TStringList);
    begin
      inherited;
      if (Trim(IWEditCurrentPassword.Text) = '') or (Trim(IWEditNewPassword.Text) = '') or
        (Trim(IWEditConfirmNewPassword.Text) = '') then
        WebApplication.ShowMessage('درج رمز عبور فعلی و رمز عبور جدید و تکرار رمز عبور جدید الزامی است')
      else if Trim(IWEditNewPassword.Text) <> Trim(IWEditConfirmNewPassword.Text) then
        WebApplication.ShowMessage('رمز عبور جدید و تکرار آن با هم یکسان نیستند')
      else
        IWGradButtonChangePasswordClick(Sender);
    end;

  procedure TChangePasswordForm.IWGradButtonChangePasswordClick(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser := aUser.GetUserInfo('', UserSession.CurrentUserID);
      if aUser <> nil then
        begin
          if aUser.Password = IWEditCurrentPassword.Text then
            begin
              aUser.ChangePassword(IWEditNewPassword.Text);
              WebApplication.ShowMessage('رمز عبور جدید با موفقیت ثبت شد');
            end
          else
            WebApplication.ShowMessage('رمز عبور فعلی نادرست است');
          aUser.Free;
        end;
    end;

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

unit ChangePasswordUnit;

interface

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

  type
    TChangePasswordForm = class(TBaseForm)
      IWEditCurrentPassword: TIWEdit;
      IWEditNewPassword: TIWEdit;
      IWEditConfirmNewPassword: TIWEdit;
      IWGradButtonChangePassword: TIWGradButton;
      procedure IWGradButtonChangePasswordClick(Sender: TObject);
      procedure IWGradButtonChangePasswordAsyncClick(Sender: TObject; EventParams: TStringList);
      private
        { Private declarations }
      public
        { Public declarations }
    end;

  var
    ChangePasswordForm: TChangePasswordForm;

implementation

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

  procedure TChangePasswordForm.IWGradButtonChangePasswordAsyncClick(Sender: TObject; EventParams: TStringList);
    begin
      inherited;
      if (Trim(IWEditCurrentPassword.Text) = '') or (Trim(IWEditNewPassword.Text) = '') or
        (Trim(IWEditConfirmNewPassword.Text) = '') then
        WebApplication.ShowMessage('درج رمز عبور فعلی و رمز عبور جدید و تکرار رمز عبور جدید الزامی است')
      else if Trim(IWEditNewPassword.Text) <> Trim(IWEditConfirmNewPassword.Text) then
        WebApplication.ShowMessage('رمز عبور جدید و تکرار آن با هم یکسان نیستند')
      else
        IWGradButtonChangePasswordClick(Sender);
    end;

  procedure TChangePasswordForm.IWGradButtonChangePasswordClick(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser := aUser.GetUserInfo('', UserSession.CurrentUserID);
      if aUser <> nil then
        begin
          if aUser.Password = IWEditCurrentPassword.Text then
            begin
              aUser.ChangePassword(IWEditNewPassword.Text);
              WebApplication.ShowMessage('رمز عبور جدید با موفقیت ثبت شد');
            end
          else
            WebApplication.ShowMessage('رمز عبور فعلی نادرست است');
          aUser.Free;
        end;
    end;

end.