Diff of /Unit4.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit4.pas




Diff of /Unit4.pas



 Parent Directory

|  Revision Log



|  Patch














revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC




revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC






#

Line 8 
 uses


Line 8 
 uses












8
   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,

















9
   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,

















10
   IWCompLabel,
   IWCompLabel,















11


   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;


   IWDBStdCtrls, IWCompExtCtrls, Data.DB, Jpeg;















12
 
 

















13
 type
 type

















14
   TCartForm = class(TIWAppForm)
   TCartForm = class(TIWAppForm)











#

Line 29 
 implementation


Line 29 
 implementation












29
 
 

















30
 {$R *.dfm}
 {$R *.dfm}

















31
 
 















32


 uses Unit3, Unit7;


 uses Unit3, Unit7, Unit6, ServerController;















33
 
 

















34
 procedure TCartForm.IWAppFormCreate(Sender: TObject);
 procedure TCartForm.IWAppFormCreate(Sender: TObject);

















35
 begin
 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 := DM.FDTable1.FieldByName('NUMBER')


     ParamByName('num').AsInteger := UserSession.user_number;
















       .AsInteger;


 















43
   end;
   end;

















44
 end;
 end;

















45
 
 











#

Line 49 
 var


Line 48 
 var












48
   i, j, k: Integer;
   i, j, k: Integer;

















49
   s: TStream;
   s: TStream;

















50
   pic: TIWImage;
   pic: TIWImage;















51


   png: TPngImage;


   jpg: TJpegImage;















52
 begin
 begin

















53
   for i := 0 to IWGrid1.RowCount - 1 do
   for i := 0 to IWGrid1.RowCount - 1 do

















54
     IWGrid1.Cell[i, 0].Control.Free;
     IWGrid1.Cell[i, 0].Control.Free;











#

Line 63 
 begin


Line 62 
 begin












62
     First;
     First;

















63
     i := 0;
     i := 0;

















64
     k := 0;
     k := 0;















65


     png := TPngImage.Create;


     jpg := TJpegImage.Create;















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















73


             png.LoadFromStream(s);


             jpg.LoadFromStream(s);















74
           finally
           finally

















75
             s.Free;
             s.Free;

















76
           end;
           end;

















77
           pic := TIWImage.Create(IWGrid1);
           pic := TIWImage.Create(IWGrid1);















78


           pic.Picture.Assign(png);


           pic.Picture.Assign(jpg);















79
           IWGrid1.Cell[i, 0].Control := pic;
           IWGrid1.Cell[i, 0].Control := pic;

















80
         end;
         end;

















81
         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;











#

Line 90 
 begin


Line 89 
 begin












89
         inc(i);
         inc(i);

















90
       end;
       end;

















91
     finally
     finally















92


       png.Free;


       jpg.Free;















93
     end;
     end;

















94
   end;
   end;















95


   IWLabel1.Text := IntToStr(Trunc(k * 1.08));


   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',













96


 


     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);















97
 end;
 end;

















98
 
 

















99
 procedure TCartForm.IWButton1Click(Sender: TObject);
 procedure TCartForm.IWButton1Click(Sender: TObject);












100
 
 var







101
 
   s: TUserForm;












102
 begin
 begin















103


   if IWGrid1.RowCount > 0 then


   if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then













104


     TPayForm.Create(WebApplication).Show;


     if DM.FDTable1.FieldByName('EMAIL').AsString = '' then













105


 


     begin













106


 


       s := TUserForm.Create(WebApplication);













107


 


       s.pay := IWGrid1.RowCount>0;













108


 


       s.Show;













109


 


     end













110


 


     else













111


 


       TPayForm.Create(WebApplication).Show;















112
   Release;
   Release;

















113
 end;
 end;

















114
 
 











#

Line 118 
 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


     SQL.Clear;


     Open('select * from cart_data;');













131


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


     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then













132


     Open;


       Delete;
















     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);


 
















     Delete;


 















133
   end;
   end;

















134
   IWAppFormCreate(ASender);
   IWAppFormCreate(ASender);

















135
 end;
 end;





























Legend:



Removed from v.6
 


changed lines


 
Added in v.17













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit4.pas
-revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC
+revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC
 Line 8 
 uses
    IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
    IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
    IWCompLabel,
-   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;
+   IWDBStdCtrls, IWCompExtCtrls, Data.DB, Jpeg;
  type
    TCartForm = class(TIWAppForm)
 Line 29 
 implementation
  {$R *.dfm}
- uses Unit3, Unit7;
+ uses Unit3, Unit7, Unit6, ServerController;
  procedure TCartForm.IWAppFormCreate(Sender: TObject);
  begin
    with DM.FDQuery1 do
    begin
      SQL.Clear;
-     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');
-     SQL.Add(' on (cart_data.serial = item_data.serial)');
+     SQL.Add(' where cart_data.serial = item_data.serial');
-     SQL.Add(' where number = :num');
+     SQL.Add(' and number = :num');
-     Params.ParamByName('num').AsInteger := DM.FDTable1.FieldByName('NUMBER')
+     ParamByName('num').AsInteger := UserSession.user_number;
-       .AsInteger;
    end;
  end;
-Line 49 
 var
+Line 48 
 var
    i, j, k: Integer;
    s: TStream;
    pic: TIWImage;
-   png: TPngImage;
+   jpg: TJpegImage;
  begin
    for i := 0 to IWGrid1.RowCount - 1 do
      IWGrid1.Cell[i, 0].Control.Free;
-Line 63 
 begin
+Line 62 
 begin
      First;
      i := 0;
      k := 0;
-     png := TPngImage.Create;
+     jpg := TJpegImage.Create;
      try
        while Eof = false do
        begin
-         if Fields.Fields[0].AsBytes <> nil then
+         if Fields.Fields[0].IsNull = false then
          begin
            s := CreateBlobStream(Fields.Fields[0], bmRead);
            try
-             png.LoadFromStream(s);
+             jpg.LoadFromStream(s);
            finally
              s.Free;
            end;
            pic := TIWImage.Create(IWGrid1);
-           pic.Picture.Assign(png);
+           pic.Picture.Assign(jpg);
            IWGrid1.Cell[i, 0].Control := pic;
          end;
          IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
-Line 90 
 begin
+Line 89 
 begin
          inc(i);
        end;
      finally
-       png.Free;
+       jpg.Free;
      end;
    end;
-   IWLabel1.Text := IntToStr(Trunc(k * 1.08));
+   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',
+     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);
  end;
  procedure TCartForm.IWButton1Click(Sender: TObject);
+ var
+   s: TUserForm;
  begin
-   if IWGrid1.RowCount > 0 then
+   if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then
-     TPayForm.Create(WebApplication).Show;
+     if DM.FDTable1.FieldByName('EMAIL').AsString = '' then
+     begin
+       s := TUserForm.Create(WebApplication);
+       s.pay := IWGrid1.RowCount>0;
+       s.Show;
+     end
+     else
+       TPayForm.Create(WebApplication).Show;
    Release;
  end;
-Line 118 
 begin
+Line 127 
 begin
      RecNo := ARow + 1;
      i := FieldByName('NUMBER').AsInteger;
      j := FieldByName('SERIAL').AsInteger;
-     SQL.Clear;
+     Open('select * from cart_data;');
-     SQL.Add('select * from cart_data');
+     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
-     Open;
+       Delete;
-     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);
-     Delete;
    end;
    IWAppFormCreate(ASender);
  end;
 Legend:



Removed from v.6
 


changed lines


 
Added in v.17
 Legend:



Removed from v.6
 


changed lines


 
Added in v.17
-Removed from v.6
+Added in v.17
-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