Diff of /Unit7.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit7.pas




Diff of /Unit7.pas



 Parent Directory

|  Revision Log



|  Patch














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




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






#

Line 36 
 uses Unit3, Unit1, ServerController;


Line 36 
 uses Unit3, Unit1, ServerController;












36
 
 

















37
 procedure TPayForm.IWButton1Click(Sender: TObject);
 procedure TPayForm.IWButton1Click(Sender: TObject);

















38
 var
 var















39


   i, j, k: integer;


   i, j, k, m, n: integer;















40
   s: string;
   s: string;

















41
   v: Variant;
   v: Variant;

















42
   temp: TFDQuery;
   temp: TFDQuery;











#

Line 58 
 begin


Line 58 
 begin












58
   else
   else

















59
     s := IWDBLabel3.Text;
     s := IWDBLabel3.Text;

















60
   i := DM.FDTable1.FieldByName('NUMBER').AsInteger;
   i := DM.FDTable1.FieldByName('NUMBER').AsInteger;















61


   v := DM.FDTable4.Lookup('NUMBER', i, 'ID;ADDRESS');


   v := DM.FDTable4.Lookup('NUMBER', i, 'EMAIL;ADDRESS');















62
   if VarIsNull(v) = false then
   if VarIsNull(v) = false then












63
 
   begin












64
     if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then
     if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then

















65
     begin
     begin















66


       DM.FDTable1.Last;


       DM.FDTable6.Last;













67


       i := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;


       i := DM.FDTable6.FieldByName('NUMBER').AsInteger + 1;















68
       DM.FDTable4.Append;
       DM.FDTable4.Append;

















69
       DM.FDTable4.FieldByName('NUMBER').AsInteger := i;
       DM.FDTable4.FieldByName('NUMBER').AsInteger := i;

















70
       DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;
       DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;

















71
       DM.FDTable4.FieldByName('EMAIL').AsString :=
       DM.FDTable4.FieldByName('EMAIL').AsString :=

















72
         DM.FDTable1.FieldByName('EMAIL').AsString;
         DM.FDTable1.FieldByName('EMAIL').AsString;

















73
       DM.FDTable4.FieldByName('ADDRESS').AsString := s;
       DM.FDTable4.FieldByName('ADDRESS').AsString := s;












74
 
       DM.FDTable4.Post;












75
     end;
     end;












76
 
   end







77
 
   else







78
 
   begin







79
 
     DM.FDTable4.Append;







80
 
     DM.FDTable4.FieldByName('NUMBER').AsInteger :=







81
 
       DM.FDTable1.FieldByName('NUMBER').AsInteger;







82
 
     DM.FDTable4.FieldByName('ID').AsString :=







83
 
       DM.FDTable1.FieldByName('NAME').AsString;







84
 
     DM.FDTable4.FieldByName('EMAIL').AsString :=







85
 
       DM.FDTable1.FieldByName('EMAIL').AsString;







86
 
     DM.FDTable4.FieldByName('ADDRESS').AsString :=







87
 
       DM.FDTable1.FieldByName('ADDRESS').AsString;







88
 
     DM.FDTable4.Post;







89
 
   end;












90
   DM.FDTable6.Last;
   DM.FDTable6.Last;















91


   k := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;


   m := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;















92
   j := 0;
   j := 0;












93
 
   DM.FDTable5.MasterSource := nil;







94
 
   DM.FDTable5.Last;







95
 
   k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;







96
 
   DM.FDTable5.MasterSource := DM.order;












97
   DM.FDQuery1.Open('select * from cart_data');
   DM.FDQuery1.Open('select * from cart_data');

















98
   DM.FDQuery1.First;
   DM.FDQuery1.First;

















99
   temp := TFDQuery.Create(Self);
   temp := TFDQuery.Create(Self);

















100
   try
   try















101


     temp.Connection:=DM.FDConnection1;


     temp.Connection := DM.FDConnection1;















102
     temp.Open('select * from recent_data;');
     temp.Open('select * from recent_data;');

















103
     while DM.FDQuery1.Eof = false do
     while DM.FDQuery1.Eof = false do

















104
     begin
     begin

















105
       if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')
       if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')















106


         .AsInteger, []) = true then


         .AsInteger) = true then















107
       begin
       begin















108


         DM.FDTable5.Last;


         inc(k);
















         k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger + 1;


 















109
         DM.FDTable5.Append;
         DM.FDTable5.Append;

















110
         DM.FDTable5.FieldByName('VOLUME').AsInteger :=
         DM.FDTable5.FieldByName('VOLUME').AsInteger :=

















111
           DM.FDQuery1.FieldByName('VOLUME').AsInteger;
           DM.FDQuery1.FieldByName('VOLUME').AsInteger;














         DM.FDTable5.FieldByName('SERIAL').AsString :=
 










           DM.FDTable2.FieldByName('SERIAL').AsString;
 













112
         DM.FDTable5.FieldByName('NAME').AsString :=
         DM.FDTable5.FieldByName('NAME').AsString :=

















113
           DM.FDTable2.FieldByName('NAME').AsString;
           DM.FDTable2.FieldByName('NAME').AsString;

















114
         DM.FDTable5.FieldByName('MAKER').AsString :=
         DM.FDTable5.FieldByName('MAKER').AsString :=











#

Line 99 
 begin


Line 116 
 begin












116
         DM.FDTable5.FieldByName('PRICE').AsInteger :=
         DM.FDTable5.FieldByName('PRICE').AsInteger :=

















117
           DM.FDTable2.FieldByName('PRICE').AsInteger;
           DM.FDTable2.FieldByName('PRICE').AsInteger;

















118
         DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;
         DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;












119
 
         DM.FDTable5.FieldByName('ORDER').AsInteger := m;







120
 
         DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := false;







121
 
         n := DM.FDTable2.FieldByName('SERIAL').AsInteger;







122
 
         DM.FDTable5.FieldByName('SERIAL').AsInteger := n;












123
         DM.FDTable5.Post;
         DM.FDTable5.Post;















124


         temp.AppendRecord([i, DM.FDTable2.FieldByName('SERIAL')


         temp.AppendRecord([i, n, Date]);
















           .AsInteger, Date]);


 















125
         j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *
         j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *

















126
           DM.FDQuery1.FieldByName('VOLUME').AsInteger;
           DM.FDQuery1.FieldByName('VOLUME').AsInteger;

















127
       end;
       end;











#

Line 112 
 begin


Line 132 
 begin












132
   end;
   end;

















133
   DM.FDQuery1.Open('select * from recent_data;');
   DM.FDQuery1.Open('select * from recent_data;');

















134
   DM.FDQuery1.First;
   DM.FDQuery1.First;















135


   while Eof = false do


   while DM.FDQuery1.Eof = false do















136
     if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then
     if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then

















137
       DM.FDQuery1.Delete
       DM.FDQuery1.Delete

















138
     else
     else

















139
       DM.FDQuery1.Next;
       DM.FDQuery1.Next;

















140
   with DM.FDTable5 do
   with DM.FDTable5 do

















141
   begin
   begin















142


     Filter := 'ORDER = ' + QuotedStr(k.ToString);


     First;
















     Filtered := true;


 
















     FindFirst;


 















143
     while Eof = false do
     while Eof = false do

















144
     begin
     begin

















145
       DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);
       DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);















146


       FindNext;


       Next;















147
     end;
     end;














     Filtered := false;
 













148
   end;
   end;

















149
   with DM.FDTable6 do
   with DM.FDTable6 do

















150
   begin
   begin

















151
     Append;
     Append;












152
 
     FieldByName('ORDER').AsInteger := m;












153
     FieldByName('NUMBER').AsInteger := i;
     FieldByName('NUMBER').AsInteger := i;

















154
     FieldByName('LASTORDER').AsDateTime := Date;
     FieldByName('LASTORDER').AsDateTime := Date;

















155
     FieldByName('PRICE').AsInteger := j;
     FieldByName('PRICE').AsInteger := j;





























Legend:



Removed from v.12
 


changed lines


 
Added in v.17













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit7.pas
-revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC
+revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC
 Line 36 
 uses Unit3, Unit1, ServerController;
  procedure TPayForm.IWButton1Click(Sender: TObject);
  var
-   i, j, k: integer;
+   i, j, k, m, n: integer;
    s: string;
    v: Variant;
    temp: TFDQuery;
 Line 58 
 begin
    else
      s := IWDBLabel3.Text;
    i := DM.FDTable1.FieldByName('NUMBER').AsInteger;
-   v := DM.FDTable4.Lookup('NUMBER', i, 'ID;ADDRESS');
+   v := DM.FDTable4.Lookup('NUMBER', i, 'EMAIL;ADDRESS');
    if VarIsNull(v) = false then
+   begin
      if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then
      begin
-       DM.FDTable1.Last;
+       DM.FDTable6.Last;
-       i := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
+       i := DM.FDTable6.FieldByName('NUMBER').AsInteger + 1;
        DM.FDTable4.Append;
        DM.FDTable4.FieldByName('NUMBER').AsInteger := i;
        DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;
        DM.FDTable4.FieldByName('EMAIL').AsString :=
          DM.FDTable1.FieldByName('EMAIL').AsString;
        DM.FDTable4.FieldByName('ADDRESS').AsString := s;
+       DM.FDTable4.Post;
      end;
+   end
+   else
+   begin
+     DM.FDTable4.Append;
+     DM.FDTable4.FieldByName('NUMBER').AsInteger :=
+       DM.FDTable1.FieldByName('NUMBER').AsInteger;
+     DM.FDTable4.FieldByName('ID').AsString :=
+       DM.FDTable1.FieldByName('NAME').AsString;
+     DM.FDTable4.FieldByName('EMAIL').AsString :=
+       DM.FDTable1.FieldByName('EMAIL').AsString;
+     DM.FDTable4.FieldByName('ADDRESS').AsString :=
+       DM.FDTable1.FieldByName('ADDRESS').AsString;
+     DM.FDTable4.Post;
+   end;
    DM.FDTable6.Last;
-   k := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;
+   m := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;
    j := 0;
+   DM.FDTable5.MasterSource := nil;
+   DM.FDTable5.Last;
+   k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
+   DM.FDTable5.MasterSource := DM.order;
    DM.FDQuery1.Open('select * from cart_data');
    DM.FDQuery1.First;
    temp := TFDQuery.Create(Self);
    try
-     temp.Connection:=DM.FDConnection1;
+     temp.Connection := DM.FDConnection1;
      temp.Open('select * from recent_data;');
      while DM.FDQuery1.Eof = false do
      begin
        if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')
-         .AsInteger, []) = true then
+         .AsInteger) = true then
        begin
-         DM.FDTable5.Last;
+         inc(k);
-         k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger + 1;
          DM.FDTable5.Append;
          DM.FDTable5.FieldByName('VOLUME').AsInteger :=
            DM.FDQuery1.FieldByName('VOLUME').AsInteger;
-         DM.FDTable5.FieldByName('SERIAL').AsString :=
-           DM.FDTable2.FieldByName('SERIAL').AsString;
          DM.FDTable5.FieldByName('NAME').AsString :=
            DM.FDTable2.FieldByName('NAME').AsString;
          DM.FDTable5.FieldByName('MAKER').AsString :=
-Line 99 
 begin
+Line 116 
 begin
          DM.FDTable5.FieldByName('PRICE').AsInteger :=
            DM.FDTable2.FieldByName('PRICE').AsInteger;
          DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;
+         DM.FDTable5.FieldByName('ORDER').AsInteger := m;
+         DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := false;
+         n := DM.FDTable2.FieldByName('SERIAL').AsInteger;
+         DM.FDTable5.FieldByName('SERIAL').AsInteger := n;
          DM.FDTable5.Post;
-         temp.AppendRecord([i, DM.FDTable2.FieldByName('SERIAL')
+         temp.AppendRecord([i, n, Date]);
-           .AsInteger, Date]);
          j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *
            DM.FDQuery1.FieldByName('VOLUME').AsInteger;
        end;
-Line 112 
 begin
+Line 132 
 begin
    end;
    DM.FDQuery1.Open('select * from recent_data;');
    DM.FDQuery1.First;
-   while Eof = false do
+   while DM.FDQuery1.Eof = false do
      if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then
        DM.FDQuery1.Delete
      else
        DM.FDQuery1.Next;
    with DM.FDTable5 do
    begin
-     Filter := 'ORDER = ' + QuotedStr(k.ToString);
+     First;
-     Filtered := true;
-     FindFirst;
      while Eof = false do
      begin
        DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);
-       FindNext;
+       Next;
      end;
-     Filtered := false;
    end;
    with DM.FDTable6 do
    begin
      Append;
+     FieldByName('ORDER').AsInteger := m;
      FieldByName('NUMBER').AsInteger := i;
      FieldByName('LASTORDER').AsDateTime := Date;
      FieldByName('PRICE').AsInteger := j;
 Legend:



Removed from v.12
 


changed lines


 
Added in v.17
 Legend:



Removed from v.12
 


changed lines


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