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 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC revision 13 by yamat0jp, Tue Jul 26 09:17:38 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: 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.FDQuery1.Open('select * from cart_data');    DM.FDQuery1.Open('select * from cart_data');
94    DM.FDQuery1.First;    DM.FDQuery1.First;
95    temp := TFDQuery.Create(Self);    temp := TFDQuery.Create(Self);
96    try    try
97      temp.Connection:=DM.FDConnection1;      temp.Connection := DM.FDConnection1;
98      temp.Open('select * from recent_data;');      temp.Open('select * from recent_data;');
99      while DM.FDQuery1.Eof = false do      while DM.FDQuery1.Eof = false do
100      begin      begin
# Line 99  begin Line 115  begin
115          DM.FDTable5.FieldByName('PRICE').AsInteger :=          DM.FDTable5.FieldByName('PRICE').AsInteger :=
116            DM.FDTable2.FieldByName('PRICE').AsInteger;            DM.FDTable2.FieldByName('PRICE').AsInteger;
117          DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;          DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;
118            DM.FDTable5.FieldByName('ORDER').AsInteger := m;
119          DM.FDTable5.Post;          DM.FDTable5.Post;
120          temp.AppendRecord([i, DM.FDTable2.FieldByName('SERIAL')          temp.AppendRecord([i, DM.FDTable2.FieldByName('SERIAL')
121            .AsInteger, Date]);            .AsInteger, Date]);
# Line 112  begin Line 129  begin
129    end;    end;
130    DM.FDQuery1.Open('select * from recent_data;');    DM.FDQuery1.Open('select * from recent_data;');
131    DM.FDQuery1.First;    DM.FDQuery1.First;
132    while Eof = false do    while DM.FDQuery1.Eof = false do
133      if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then      if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then
134        DM.FDQuery1.Delete        DM.FDQuery1.Delete
135      else      else
136        DM.FDQuery1.Next;        DM.FDQuery1.Next;
137    with DM.FDTable5 do    with DM.FDTable5 do
138    begin    begin
139      Filter := 'ORDER = ' + QuotedStr(k.ToString);      First;
     Filtered := true;  
     FindFirst;  
140      while Eof = false do      while Eof = false do
141      begin      begin
142        DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);        DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);
143        FindNext;        Next;
144      end;      end;
     Filtered := false;  
145    end;    end;
146    with DM.FDTable6 do    with DM.FDTable6 do
147    begin    begin
148      Append;      Append;
149        FieldByName('ORDER').AsInteger := m;
150      FieldByName('NUMBER').AsInteger := i;      FieldByName('NUMBER').AsInteger := i;
151      FieldByName('LASTORDER').AsDateTime := Date;      FieldByName('LASTORDER').AsDateTime := Date;
152      FieldByName('PRICE').AsInteger := j;      FieldByName('PRICE').AsInteger := j;
Legend:
Removed from v.12  
changed lines
  Added in v.13
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help