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

[مجید]

فرم ثبت عضویت (RegisterForm) را باز کنید. فرم شما باید شبیه به تصویر زیر باشد.

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

یونیت SelectDifficultyLevelUnit را به قسمت uses واقع در implementation اضافه کنید.
Event های OnAsyncClick و OnClick مربوط به IWGradButtonRegister را مانند نمونه زیر کد نویسی نمایید :

  procedure TRegisterForm.IWGradButtonRegisterAsyncClick(Sender: TObject; EventParams: TStringList);
    begin
      inherited;
      if (Trim(IWEditUsername.Text) = '') or (Trim(IWEmailEdit.Text) = '') or (Trim(IWEditPassword.Text) = '') or
        (Trim(IWEditConfirmPassword.Text) = '') or (Trim(IWEditFullName.Text) = '') then
        WebApplication.ShowMessage('لطفا تمام قسمت های فرم را کامل کنید')
      else
        if IWEditPassword.Text <> IWEditConfirmPassword.Text then
        WebApplication.ShowMessage('رمز عبور و تکرار آن با هم یکسان نیستند')
      else
        IWGradButtonRegisterClick(Sender);
    end;

  procedure TRegisterForm.IWGradButtonRegisterClick(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser          := TUser.Create;
      aUser.Username := IWEditUsername.Text;
      aUser.EMail    := IWEmailEdit.Text;
      aUser.Password := IWEditPassword.Text;
      aUser.FullName := IWEditFullName.Text;
      aUser          := aUser.RegisterUser;
      if aUser = nil then
        WebApplication.ShowMessage('کاربری قبلا با این نام عضو شده است . لطفا نام کاربری دیگری انتخاب کنید')
      else
        begin
          WebApplication.ShowMessage('ثبت نام با موفقیت انجام شد');
          TSelectDifficultyLevelForm.Create(WebApplication).Show;
        end;
      aUser.Free;
    end;

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

unit RegisterUnit;

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,
    IWCompGradButton,
    IWTMSCtrls,
    IWVCLBaseControl,
    IWBaseControl,
    IWBaseHTMLControl,
    IWControl,
    IWCompEdit;

  type
    TRegisterForm = class(TBaseForm)
      IWEditUsername: TIWEdit;
      IWEditPassword: TIWEdit;
      IWGradButtonRegister: TIWGradButton;
      IWEditConfirmPassword: TIWEdit;
      IWEmailEdit: TTIWEmailEdit;
      IWEditFullName: TIWEdit;
      procedure IWGradButtonRegisterClick(Sender: TObject);
      procedure IWGradButtonRegisterAsyncClick(Sender: TObject; EventParams: TStringList);
      private
        { Private declarations }
      public
        { Public declarations }
    end;

  var
    RegisterForm: TRegisterForm;

implementation

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

  procedure TRegisterForm.IWGradButtonRegisterAsyncClick(Sender: TObject; EventParams: TStringList);
    begin
      inherited;
      if (Trim(IWEditUsername.Text) = '') or (Trim(IWEmailEdit.Text) = '') or (Trim(IWEditPassword.Text) = '') or
        (Trim(IWEditConfirmPassword.Text) = '') or (Trim(IWEditFullName.Text) = '') then
        WebApplication.ShowMessage('لطفا تمام قسمت های فرم را کامل کنید')
      else
        if IWEditPassword.Text <> IWEditConfirmPassword.Text then
        WebApplication.ShowMessage('رمز عبور و تکرار آن با هم یکسان نیستند')
      else
        IWGradButtonRegisterClick(Sender);
    end;

  procedure TRegisterForm.IWGradButtonRegisterClick(Sender: TObject);
    var
      aUser: TUser;
    begin
      inherited;
      aUser          := TUser.Create;
      aUser.Username := IWEditUsername.Text;
      aUser.EMail    := IWEmailEdit.Text;
      aUser.Password := IWEditPassword.Text;
      aUser.FullName := IWEditFullName.Text;
      aUser          := aUser.RegisterUser;
      if aUser = nil then
        WebApplication.ShowMessage('کاربری قبلا با این نام عضو شده است . لطفا نام کاربری دیگری انتخاب کنید')
      else
        begin
          WebApplication.ShowMessage('ثبت نام با موفقیت انجام شد');
          TSelectDifficultyLevelForm.Create(WebApplication).Show;
        end;
      aUser.Free;
    end;

end.