Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit4.pas

Diff of /Unit4.pas

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

revision 13 by yamat0jp, Tue Jul 26 09:17:38 2016 UTC revision 15 by yamat0jp, Fri Aug 5 10:33:26 2016 UTC
# Line 36  begin Line 36  begin
36    with DM.FDQuery1 do    with DM.FDQuery1 do
37    begin    begin
38      SQL.Clear;      SQL.Clear;
39      SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data join item_data');      SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data,item_data');
40      SQL.Add(' on (cart_data.serial = item_data.serial)');      SQL.Add(' where cart_data.serial = item_data.serial');
41      SQL.Add(' where number = :num');      SQL.Add(' and number = :num');
42      Params.ParamByName('num').AsInteger := UserSession.user_number;      ParamByName('num').AsInteger := UserSession.user_number;
43    end;    end;
44  end;  end;
45    
# Line 66  begin Line 66  begin
66      try      try
67        while Eof = false do        while Eof = false do
68        begin        begin
69          if Fields.Fields[0].AsBytes <> nil then          if Fields.Fields[0].IsNull = false then
70          begin          begin
71            s := CreateBlobStream(Fields.Fields[0], bmRead);            s := CreateBlobStream(Fields.Fields[0], bmRead);
72            try            try
# Line 127  begin Line 127  begin
127      RecNo := ARow + 1;      RecNo := ARow + 1;
128      i := FieldByName('NUMBER').AsInteger;      i := FieldByName('NUMBER').AsInteger;
129      j := FieldByName('SERIAL').AsInteger;      j := FieldByName('SERIAL').AsInteger;
130      Open('select * from cart_data');      Open('select * from cart_data;');
131      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
132        Delete;        Delete;
133    end;    end;
Legend:
Removed from v.13  
changed lines
  Added in v.15
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help