Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit7.pas

Diff of /Unit7.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 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, m: integer;    i, j, k, m, n: integer;
40    s: string;    s: string;
41    v: Variant;    v: Variant;
42    temp: TFDQuery;    temp: TFDQuery;
# Line 90  begin Line 90  begin
90    DM.FDTable6.Last;    DM.FDTable6.Last;
91    m := 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);
# Line 99  begin Line 103  begin
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 116  begin Line 117  begin
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;          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;
Legend:
Removed from v.13  
changed lines
  Added in v.17
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help