Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit9.pas

Diff of /Unit9.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by yamat0jp, Fri Jul 22 23:40:03 2016 UTC revision 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC
# Line 29  type Line 29  type
29      procedure IWAppFormCreate(Sender: TObject);      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 37  implementation Line 39  implementation
39    
40  uses Unit3, ServerController, Unit1;  uses Unit3, ServerController, Unit1;
41    
42    procedure TMyPage.DeleteUser(EventParams: TStringList);
43    begin
44      if EventParams.Values['RetValue'] = 'true' then
45      begin
46        IWButton1Click(nil);
47        if DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true then
48          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;
65    
66  procedure TMyPage.IWAppFormCreate(Sender: TObject);  procedure TMyPage.IWAppFormCreate(Sender: TObject);
67  begin  begin
68      WebApplication.RegisterCallBack('callback', DeleteUser);
69    with DM.FDTable1 do    with DM.FDTable1 do
70    begin    begin
71      IWEdit1.Text := FieldByName('EMAIL').AsString;      IWEdit1.Text := FieldByName('EMAIL').AsString;
72      IWEdit2.Text := FieldByName('ADDRESS').AsString;      IWEdit2.Text := FieldByName('ADDRESS').AsString;
73      IWEdit4.Text:= FieldByName('PASSWORD').AsString;      IWEdit4.Text := FieldByName('PASSWORD').AsString;
74    end;    end;
75  end;  end;
76    
77  procedure TMyPage.IWButton1Click(Sender: TObject);  procedure TMyPage.IWButton1Click(Sender: TObject);
78  begin  begin
   DM.FDQuery1.Open('select * from recent_data where number = :num;',  
     [UserSession.user_number]);  
   DM.FDQuery1.Open;  
   while DM.FDQuery1.Eof = false do  
     DM.FDQuery1.Delete;  
 end;  
   
 procedure TMyPage.IWButton2Click(Sender: TObject);  
 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;  end;
94    
95  procedure TMyPage.IWButton3Click(Sender: TObject);  procedure TMyPage.IWButton3Click(Sender: TObject);
Legend:
Removed from v.11  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help