Diff of /Unit1.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit1.pas




Diff of /Unit1.pas



 Parent Directory

|  Revision Log



|  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 279 
 begin


Line 279 
 begin












279
     while DM.FDTable1.Lookup('NUMBER', j, 'NUMBER') = j do
     while DM.FDTable1.Lookup('NUMBER', j, 'NUMBER') = j do

















280
       inc(j);
       inc(j);

















281
     UserSession.user_number := j;
     UserSession.user_number := j;















282


     DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil,


     DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil, nil,















283
       UserSession.user_number, Date]);
       UserSession.user_number, Date]);

















284
     WebApplication.Response.Cookies.AddCookie('user_cookie',
     WebApplication.Response.Cookies.AddCookie('user_cookie',

















285
       UserSession.user_number.ToString, '/', Date + 10);
       UserSession.user_number.ToString, '/', Date + 10);

















286
   end;
   end;

















287
   with DM.FDQuery1 do
   with DM.FDQuery1 do

















288
   begin
   begin















289


     SQL.Clear;


     Open('select * from cart_data;');
















     SQL.Add('select * from cart_data;');


 
















     Open;


 















290
     if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,
     if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,

















291
       UserSession.Serial]), []) = true then
       UserSession.Serial]), []) = true then

















292
     begin
     begin











#

Line 338 
 begin


Line 336 
 begin












336
       begin
       begin

















337
         with DM.FDQuery1 do
         with DM.FDQuery1 do

















338
         begin
         begin















339


           SQL.Clear;


           Open('select * from user_data where number = :num',[i]);
















           SQL.Add('select * from user_data where number = :num');


 
















           Params.ParamByName('num').AsInteger := i;


 
















           Open;


 















340
           Delete;
           Delete;















341


           SQL.Clear;


           Open('select number from cart_data where number = :num;',[i]);
















           SQL.Add('select number from cart_data where number = :num;');


 
















           Params.ParamByName('num').AsInteger := i;


 
















           Open;


 















342
           First;
           First;

















343
           while Eof = false do
           while Eof = false do

















344
           begin
           begin











#

Line 386 
 end;


Line 378 
 end;












378
 procedure TIWForm1.IWLink6Click(Sender: TObject);
 procedure TIWForm1.IWLink6Click(Sender: TObject);

















379
 begin
 begin

















380
   Page := true;
   Page := true;















381


   TIWForm3.Create(WebApplication).Show;


   TAdminPage.Create(WebApplication).Show;















382
 end;
 end;

















383
 
 

















384
 procedure TIWForm1.LoadImage;
 procedure TIWForm1.LoadImage;











#

Line 525 
 begin


Line 517 
 begin












517
     Filter := false;
     Filter := false;

















518
     if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
     if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then

















519
     begin
     begin















520


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


       WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/', Date - 1);
















         UserSession.user_number.ToString, '/', Date - 1);


 















521
       UserSession.user_number := 0;
       UserSession.user_number := 0;

















522
     end;
     end;

















523
   end;
   end;





























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
 /[zencart-clone]/Unit1.pas
-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 279 
 begin
      while DM.FDTable1.Lookup('NUMBER', j, 'NUMBER') = j do
        inc(j);
      UserSession.user_number := j;
-     DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil,
+     DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil, nil,
        UserSession.user_number, Date]);
      WebApplication.Response.Cookies.AddCookie('user_cookie',
        UserSession.user_number.ToString, '/', Date + 10);
    end;
    with DM.FDQuery1 do
    begin
-     SQL.Clear;
+     Open('select * from cart_data;');
-     SQL.Add('select * from cart_data;');
-     Open;
      if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,
        UserSession.Serial]), []) = true then
      begin
-Line 338 
 begin
+Line 336 
 begin
        begin
          with DM.FDQuery1 do
          begin
-           SQL.Clear;
+           Open('select * from user_data where number = :num',[i]);
-           SQL.Add('select * from user_data where number = :num');
-           Params.ParamByName('num').AsInteger := i;
-           Open;
            Delete;
-           SQL.Clear;
+           Open('select number from cart_data where number = :num;',[i]);
-           SQL.Add('select number from cart_data where number = :num;');
-           Params.ParamByName('num').AsInteger := i;
-           Open;
            First;
            while Eof = false do
            begin
-Line 386 
 end;
+Line 378 
 end;
  procedure TIWForm1.IWLink6Click(Sender: TObject);
  begin
    Page := true;
-   TIWForm3.Create(WebApplication).Show;
+   TAdminPage.Create(WebApplication).Show;
  end;
  procedure TIWForm1.LoadImage;
-Line 525 
 begin
+Line 517 
 begin
      Filter := false;
      if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
      begin
-       WebApplication.Response.Cookies.AddCookie('user_cookie',
+       WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/', Date - 1);
-         UserSession.user_number.ToString, '/', Date - 1);
        UserSession.user_number := 0;
      end;
    end;
 Legend:



Removed from v.11
 


changed lines


 
Added in v.12
 Legend:



Removed from v.11
 


changed lines


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