Diff of /Unit9.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit9.pas




Diff of /Unit9.pas



 Parent Directory

|  Revision Log



|  Patch














revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC




revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC






#

Line 6 
 uses


Line 6 
 uses












6
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,

















7
   Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
   Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,

















8
   IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
   IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,















9


   IWContainerLayout, IWTemplateProcessorHTML;


   IWContainerLayout, IWTemplateProcessorHTML, IWCompEdit;















10
 
 

















11
 type
 type

















12
   TMyPage = class(TIWAppForm)
   TMyPage = class(TIWAppForm)

















13
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;














     IWLink1: TIWLink;
 













14
     IWLink2: TIWLink;
     IWLink2: TIWLink;

















15
     IWButton1: TIWButton;
     IWButton1: TIWButton;

















16
     IWButton2: TIWButton;
     IWButton2: TIWButton;












17
 
     IWEdit1: TIWEdit;







18
 
     IWEdit2: TIWEdit;







19
 
     IWButton3: TIWButton;







20
 
     IWEdit3: TIWEdit;







21
 
     IWEdit4: TIWEdit;







22
 
     IWButton4: TIWButton;







23
 
     IWEdit5: TIWEdit;












24
     procedure IWButton2Click(Sender: TObject);
     procedure IWButton2Click(Sender: TObject);

















25
     procedure IWButton1Click(Sender: TObject);
     procedure IWButton1Click(Sender: TObject);

















26
     procedure IWLink2Click(Sender: TObject);
     procedure IWLink2Click(Sender: TObject);












27
 
     procedure IWButton3Click(Sender: TObject);







28
 
     procedure IWButton4Click(Sender: TObject);







29
 
     procedure IWAppFormCreate(Sender: TObject);












30
   public
   public

















31
     Form: TIWAppForm;
     Form: TIWAppForm;












32
 
   private







33
 
     procedure DeleteUser(EventParams: TStringList);












34
   end;
   end;

















35
 
 

















36
 implementation
 implementation











#

Line 28 
 implementation


Line 39 
 implementation












39
 
 

















40
 uses Unit3, ServerController, Unit1;
 uses Unit3, ServerController, Unit1;

















41
 
 















42


 procedure TMyPage.IWButton1Click(Sender: TObject);


 procedure TMyPage.DeleteUser(EventParams: TStringList);















43
 begin
 begin















44


   DM.FDQuery1.Open('select * from recent_data where number = :num;',


   if EventParams.Values['RetValue'] = 'true' then













45


     [UserSession.user_number]);


   begin













46


   DM.FDQuery1.Open;


     IWButton1Click(nil);













47


   while DM.FDQuery1.Eof = false do


     if DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true then













48


     DM.FDQuery1.Delete;


       DM.FDTable1.Delete;













49


 


     with DM.FDQuery1 do













50


 


     begin













51


 


       Open('select serial from cart_data where number = :num;',













52


 


         [UserSession.user_number]);













53


 


       First;













54


 


       while Eof = false do













55


 


         Delete;













56


 


     end;













57


 


     (Form as TIWForm1).Page := true;













58


 


     UserSession.user_number := 0;













59


 


     WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/',













60


 


       Date - 1);













61


 


     Release;













62


 


     WebApplication.ShowMessage('退会しました');













63


 


   end;















64
 end;
 end;

















65
 
 















66


 procedure TMyPage.IWButton2Click(Sender: TObject);


 procedure TMyPage.IWAppFormCreate(Sender: TObject);













67


 


 begin













68


 


   WebApplication.RegisterCallBack('callback', DeleteUser);













69


 


   with DM.FDTable1 do













70


 


   begin













71


 


     IWEdit1.Text := FieldByName('EMAIL').AsString;













72


 


     IWEdit2.Text := FieldByName('ADDRESS').AsString;













73


 


     IWEdit4.Text := FieldByName('PASSWORD').AsString;













74


 


   end;













75


 


 end;













76


 


 













77


 


 procedure TMyPage.IWButton1Click(Sender: TObject);















78
 begin
 begin














   IWButton1Click(Sender);
 










   while DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true do
 










     DM.FDTable1.Delete;
 













79
   with DM.FDQuery1 do
   with DM.FDQuery1 do

















80
   begin
   begin















81


     Open;


     Open('select * from recent_data where number = :num;',
















     while Eof = false do


 
















       Delete;


 
















     Open('select serial from cart_data where number = :num;',


 















82
       [UserSession.user_number]);
       [UserSession.user_number]);















83


     Open;


     First;















84
     while Eof = false do
     while Eof = false do

















85
       Delete;
       Delete;

















86
   end;
   end;















87


   (Form as TIWForm1).Page := true;


 end;













88


   UserSession.user_number := 0;


 













89


   WebApplication.ShowMessage('退会が完了しました');


 procedure TMyPage.IWButton2Click(Sender: TObject);













90


 


 begin













91


 


   WebApplication.ShowConfirm('OKで退会しますよろしいですか', 'callback', '確認',













92


 


     'OK', 'いいえ');













93


 


 end;













94


 


 













95


 


 procedure TMyPage.IWButton3Click(Sender: TObject);













96


 


 begin













97


 


   with DM.FDTable1 do













98


 


     if IWEdit1.Text <> FieldByName('EMAIL').AsString then













99


 


     begin













100


 


       if IWEdit1.Text = IWEdit3.Text then













101


 


       begin













102


 


         Edit;













103


 


         FieldByName('EMAIL').AsString := IWEdit1.Text;













104


 


         FieldByName('ADDRESS').AsString := IWEdit2.Text;













105


 


         Post;













106


 


       end













107


 


       else













108


 


       begin













109


 


         WebApplication.ShowMessage('入力が一致しません');













110


 


         IWEdit1.Text := FieldByName('EMAIL').AsString;













111


 


         IWEdit3.Text := '';













112


 


       end;













113


 


     end













114


 


     else













115


 


     begin













116


 


       Edit;













117


 


       FieldByName('ADDRESS').AsString := IWEdit2.Text;













118


 


       Post;













119


 


     end;













120


 


 end;













121


 


 













122


 


 procedure TMyPage.IWButton4Click(Sender: TObject);













123


 


 begin













124


 


   if IWEdit4.Text <> IWEdit5.Text then













125


 


   begin













126


 


     WebApplication.ShowMessage('入力が一致しません');













127


 


     Exit;













128


 


   end













129


 


   else if Length(IWEdit4.Text) < 5 then













130


 


     WebApplication.ShowMessage('パスワードわ５文字以上が必要です')













131


 


   else













132


 


     with DM.FDTable1 do













133


 


     begin













134


 


       Edit;













135


 


       FieldByName('PASSWORD').AsString := IWEdit4.Text;













136


 


       Post;













137


 


     end;















138
 end;
 end;

















139
 
 

















140
 procedure TMyPage.IWLink2Click(Sender: TObject);
 procedure TMyPage.IWLink2Click(Sender: TObject);





























Legend:



Removed from v.7
 


changed lines


 
Added in v.12













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit9.pas
-revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC
+revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC
 Line 6 
 uses
    Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
    Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
    IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
-   IWContainerLayout, IWTemplateProcessorHTML;
+   IWContainerLayout, IWTemplateProcessorHTML, IWCompEdit;
  type
    TMyPage = class(TIWAppForm)
      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
-     IWLink1: TIWLink;
      IWLink2: TIWLink;
      IWButton1: TIWButton;
      IWButton2: TIWButton;
+     IWEdit1: TIWEdit;
+     IWEdit2: TIWEdit;
+     IWButton3: TIWButton;
+     IWEdit3: TIWEdit;
+     IWEdit4: TIWEdit;
+     IWButton4: TIWButton;
+     IWEdit5: TIWEdit;
      procedure IWButton2Click(Sender: TObject);
      procedure IWButton1Click(Sender: TObject);
      procedure IWLink2Click(Sender: TObject);
+     procedure IWButton3Click(Sender: TObject);
+     procedure IWButton4Click(Sender: TObject);
+     procedure IWAppFormCreate(Sender: TObject);
    public
      Form: TIWAppForm;
+   private
+     procedure DeleteUser(EventParams: TStringList);
    end;
  implementation
-Line 28 
 implementation
+Line 39 
 implementation
  uses Unit3, ServerController, Unit1;
- procedure TMyPage.IWButton1Click(Sender: TObject);
+ procedure TMyPage.DeleteUser(EventParams: TStringList);
  begin
-   DM.FDQuery1.Open('select * from recent_data where number = :num;',
+   if EventParams.Values['RetValue'] = 'true' then
-     [UserSession.user_number]);
+   begin
-   DM.FDQuery1.Open;
+     IWButton1Click(nil);
-   while DM.FDQuery1.Eof = false do
+     if DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true then
-     DM.FDQuery1.Delete;
+       DM.FDTable1.Delete;
+     with DM.FDQuery1 do
+     begin
+       Open('select serial from cart_data where number = :num;',
+         [UserSession.user_number]);
+       First;
+       while Eof = false do
+         Delete;
+     end;
+     (Form as TIWForm1).Page := true;
+     UserSession.user_number := 0;
+     WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/',
+       Date - 1);
+     Release;
+     WebApplication.ShowMessage('退会しました');
+   end;
  end;
- procedure TMyPage.IWButton2Click(Sender: TObject);
+ procedure TMyPage.IWAppFormCreate(Sender: TObject);
+ begin
+   WebApplication.RegisterCallBack('callback', DeleteUser);
+   with DM.FDTable1 do
+   begin
+     IWEdit1.Text := FieldByName('EMAIL').AsString;
+     IWEdit2.Text := FieldByName('ADDRESS').AsString;
+     IWEdit4.Text := FieldByName('PASSWORD').AsString;
+   end;
+ end;
+ procedure TMyPage.IWButton1Click(Sender: TObject);
  begin
-   IWButton1Click(Sender);
-   while DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true do
-     DM.FDTable1.Delete;
    with DM.FDQuery1 do
    begin
-     Open;
+     Open('select * from recent_data where number = :num;',
-     while Eof = false do
-       Delete;
-     Open('select serial from cart_data where number = :num;',
        [UserSession.user_number]);
-     Open;
+     First;
      while Eof = false do
        Delete;
    end;
-   (Form as TIWForm1).Page := true;
+ end;
-   UserSession.user_number := 0;
-   WebApplication.ShowMessage('退会が完了しました');
+ procedure TMyPage.IWButton2Click(Sender: TObject);
+ begin
+   WebApplication.ShowConfirm('OKで退会しますよろしいですか', 'callback', '確認',
+     'OK', 'いいえ');
+ end;
+ procedure TMyPage.IWButton3Click(Sender: TObject);
+ begin
+   with DM.FDTable1 do
+     if IWEdit1.Text <> FieldByName('EMAIL').AsString then
+     begin
+       if IWEdit1.Text = IWEdit3.Text then
+       begin
+         Edit;
+         FieldByName('EMAIL').AsString := IWEdit1.Text;
+         FieldByName('ADDRESS').AsString := IWEdit2.Text;
+         Post;
+       end
+       else
+       begin
+         WebApplication.ShowMessage('入力が一致しません');
+         IWEdit1.Text := FieldByName('EMAIL').AsString;
+         IWEdit3.Text := '';
+       end;
+     end
+     else
+     begin
+       Edit;
+       FieldByName('ADDRESS').AsString := IWEdit2.Text;
+       Post;
+     end;
+ end;
+ procedure TMyPage.IWButton4Click(Sender: TObject);
+ begin
+   if IWEdit4.Text <> IWEdit5.Text then
+   begin
+     WebApplication.ShowMessage('入力が一致しません');
+     Exit;
+   end
+   else if Length(IWEdit4.Text) < 5 then
+     WebApplication.ShowMessage('パスワードわ５文字以上が必要です')
+   else
+     with DM.FDTable1 do
+     begin
+       Edit;
+       FieldByName('PASSWORD').AsString := IWEdit4.Text;
+       Post;
+     end;
  end;
  procedure TMyPage.IWLink2Click(Sender: TObject);
 Legend:



Removed from v.7
 


changed lines


 
Added in v.12
 Legend:



Removed from v.7
 


changed lines


 
Added in v.12
-Removed from v.7
+Added in v.12
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository