Diff of /Unit6.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit6.pas




Diff of /Unit6.pas



 Parent Directory

|  Revision Log



|  Patch














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




revision 13 by yamat0jp,
Tue Jul 26 09:17:38 2016 UTC






#

Line 24 
 type


Line 24 
 type












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

















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

















26
   public
   public












27
 
     pay: Boolean;












28
   private
   private

















29
     function Check: Boolean;
     function Check: Boolean;

















30
   end;
   end;











#

Line 32 
 implementation


Line 33 
 implementation












33
 
 

















34
 {$R *.dfm}
 {$R *.dfm}

















35
 
 















36


 uses Unit3, Unit1, ServerController;


 uses Unit3, Unit1, ServerController, Unit7;















37
 
 

















38
 function TUserForm.Check: Boolean;
 function TUserForm.Check: Boolean;

















39
 begin
 begin











#

Line 77 
 begin


Line 78 
 begin












78
       IWEdit4.Text, nil, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);
       IWEdit4.Text, nil, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);

















79
     end
     end

















80
     else
     else















81


     begin


       with DM.FDTable1 do
















       DM.FDTable1.Edit;


 
















       with DM.FDTable1.Fields do


 















82
       begin
       begin















83


         Fields[0].AsString:=IWEdit1.Text;


         Edit;













84


         Fields[1].AsString:=IWEdit3.Text;


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













85


         Fields[2].AsString:=IWEdit2.Text;


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













86


         Fields[3].AsString:=IWEdit4.Text;


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













87


         Fields[5].AsString:=UserSession.hash(IWEdit5.Text);


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













88


 


         FieldByName('PASSWORD').AsString:=UserSession.hash(IWEdit5.Text);













89


 


         Post;















90
       end;
       end;














       DM.FDTable1.Post;
 










     end;
 













91
     WebApplication.Response.Cookies.AddCookie('user_cookie',UserSession.user_number.ToString,'/',Date+10);
     WebApplication.Response.Cookies.AddCookie('user_cookie',UserSession.user_number.ToString,'/',Date+10);












92
 
     if pay = true then







93
 
       TPayForm.Create(WebApplication).Show;












94
     Release;
     Release;

















95
     IWForm1.Page := false;
     IWForm1.Page := false;

















96
   end;
   end;





























Legend:



Removed from v.12
 


changed lines


 
Added in v.13













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit6.pas
-revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC
+revision 13 by yamat0jp,
Tue Jul 26 09:17:38 2016 UTC
 Line 24 
 type
      procedure IWButton1Click(Sender: TObject);
      procedure IWButton2Click(Sender: TObject);
    public
+     pay: Boolean;
    private
      function Check: Boolean;
    end;
-Line 32 
 implementation
+Line 33 
 implementation
  {$R *.dfm}
- uses Unit3, Unit1, ServerController;
+ uses Unit3, Unit1, ServerController, Unit7;
  function TUserForm.Check: Boolean;
  begin
-Line 77 
 begin
+Line 78 
 begin
        IWEdit4.Text, nil, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);
      end
      else
-     begin
+       with DM.FDTable1 do
-       DM.FDTable1.Edit;
-       with DM.FDTable1.Fields do
        begin
-         Fields[0].AsString:=IWEdit1.Text;
+         Edit;
-         Fields[1].AsString:=IWEdit3.Text;
+         FieldByName('NAME').AsString:=IWEdit1.Text;
-         Fields[2].AsString:=IWEdit2.Text;
+         FieldByName('EMAIL').AsString:=IWEdit3.Text;
-         Fields[3].AsString:=IWEdit4.Text;
+         FieldByName('BIRTH').AsString:=IWEdit2.Text;
-         Fields[5].AsString:=UserSession.hash(IWEdit5.Text);
+         FieldByName('ADDRESS').AsString:=IWEdit4.Text;
+         FieldByName('PASSWORD').AsString:=UserSession.hash(IWEdit5.Text);
+         Post;
        end;
-       DM.FDTable1.Post;
-     end;
      WebApplication.Response.Cookies.AddCookie('user_cookie',UserSession.user_number.ToString,'/',Date+10);
+     if pay = true then
+       TPayForm.Create(WebApplication).Show;
      Release;
      IWForm1.Page := false;
    end;
 Legend:



Removed from v.12
 


changed lines


 
Added in v.13
 Legend:



Removed from v.12
 


changed lines


 
Added in v.13
-Removed from v.12
+Added in v.13
-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