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 2 by yamat0jp, Sat Dec 19 14:35:42 2015 UTC revision 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC
# Line 7  uses Line 7  uses
7    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
8    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
9    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
10    IWTemplateProcessorHTML, PngImage, Data.DB;    IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,
11      FireDAC.Comp.Client, IWCompRadioButton, IWCompEdit, Variants;
12    
13  type  type
14    TCartForm = class(TIWAppForm)    TPayForm = class(TIWAppForm)
15      IWButton1: TIWButton;      IWButton1: TIWButton;
16      IWButton2: TIWButton;      IWButton2: TIWButton;
17      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
18      IWGrid1: TIWGrid;      IWDBLabel1: TIWDBLabel;
19      procedure IWAppFormCreate(Sender: TObject);      IWDBLabel2: TIWDBLabel;
20      procedure IWAppFormDestroy(Sender: TObject);      IWButton3: TIWButton;
21        IWRadioButton1: TIWRadioButton;
22        IWRadioButton2: TIWRadioButton;
23        IWEdit1: TIWEdit;
24        IWDBLabel3: TIWDBLabel;
25        procedure IWButton2Click(Sender: TObject);
26      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
27        procedure IWButton3Click(Sender: TObject);
28    public    public
29    end;    end;
30    
# Line 25  implementation Line 32  implementation
32    
33  {$R *.dfm}  {$R *.dfm}
34    
35  uses Unit3, Unit1, ServerController, Unit4;  uses Unit3, Unit1, ServerController;
36    
37  procedure TCartForm.IWAppFormCreate(Sender: TObject);  procedure TPayForm.IWButton1Click(Sender: TObject);
38  var  var
39    i: integer;    i, j, k: integer;
40    s: TStream;    s: string;
41    png: TPngImage;    v: Variant;
42    img: TIWImageFile;    temp: TFDQuery;
   j: integer;  
43  begin  begin
44    with DM.FDQuery1 do    if (IWRadioButton2.Checked = true) and
45        (DM.FDTable1.FieldByName('ADDRESS2').AsString = '') then
46    begin    begin
47      SQL.Clear;      if IWEdit1.Visible = true then
48      SQL.Add('select name,maker,thumbnail,volume,price');      begin
49      SQL.Add(' from item_data join cart_data');        IWEdit1.Text := '';
50      SQL.Add(' on (item_data.serial = cart_data.serial) where number = :num;');        IWEdit1.Hide;
51      Params.ParamByName('num').AsInteger := UserSession.user_number;        IWDBLabel3.Show;
52      Open;      end;
53    end;      WebApplication.ShowMessage('配達先住所が不正です');
54    IWGrid1.ColumnCount := DM.FDQuery1.Fields.Count;      Exit;
55    IWGrid1.RowCount := DM.FDQuery1.RecordCount;    end;
56    for i := 0 to IWGrid1.RowCount - 1 do    if IWRadioButton1.Checked = true then
57    begin      s := IWDBLabel1.Text
58      png := TPngImage.Create;    else
59      try      s := IWDBLabel3.Text;
60        for j := 0 to IWGrid1.ColumnCount - 1 do    i := DM.FDTable1.FieldByName('NUMBER').AsInteger;
61      v := DM.FDTable4.Lookup('NUMBER', i, 'ID;ADDRESS');
62      if VarIsNull(v) = false then
63        if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then
64        begin
65          DM.FDTable1.Last;
66          i := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
67          DM.FDTable4.Append;
68          DM.FDTable4.FieldByName('NUMBER').AsInteger := i;
69          DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;
70          DM.FDTable4.FieldByName('EMAIL').AsString :=
71            DM.FDTable1.FieldByName('EMAIL').AsString;
72          DM.FDTable4.FieldByName('ADDRESS').AsString := s;
73        end;
74      DM.FDTable6.Last;
75      k := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;
76      j := 0;
77      DM.FDQuery1.Open('select * from cart_data');
78      DM.FDQuery1.First;
79      temp := TFDQuery.Create(Self);
80      try
81        temp.Connection:=DM.FDConnection1;
82        temp.Open('select * from recent_data;');
83        while DM.FDQuery1.Eof = false do
84        begin
85          if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')
86            .AsInteger, []) = true then
87        begin        begin
88          case j of          DM.FDTable5.Last;
89            2:          k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger + 1;
90              begin          DM.FDTable5.Append;
91                s := DM.FDQuery1.CreateBlobStream          DM.FDTable5.FieldByName('VOLUME').AsInteger :=
92                  (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);            DM.FDQuery1.FieldByName('VOLUME').AsInteger;
93                try          DM.FDTable5.FieldByName('SERIAL').AsString :=
94                  png.LoadFromStream(s);            DM.FDTable2.FieldByName('SERIAL').AsString;
95                  img:=TIWImageFile.Create(IWGrid1);          DM.FDTable5.FieldByName('NAME').AsString :=
96                  img.Picture.Assign(png);            DM.FDTable2.FieldByName('NAME').AsString;
97                  IWGrid1.Cell[i, j].Control :=img;          DM.FDTable5.FieldByName('MAKER').AsString :=
98                finally            DM.FDTable2.FieldByName('MAKER').AsString;
99                  s.Free;          DM.FDTable5.FieldByName('PRICE').AsInteger :=
100                end;            DM.FDTable2.FieldByName('PRICE').AsInteger;
101              end;          DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;
102            4:          DM.FDTable5.Post;
103              IWGrid1.Cell[i, j].Text :=          temp.AppendRecord([i, DM.FDTable2.FieldByName('SERIAL')
104                (DM.FDQuery1.Fields[3].AsInteger * DM.FDQuery1.Fields[4]            .AsInteger, Date]);
105                .AsInteger).ToString;          j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *
106          else            DM.FDQuery1.FieldByName('VOLUME').AsInteger;
           IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields[j].AsString;  
         end;  
107        end;        end;
108      finally        DM.FDQuery1.Delete;
109        png.Free;      end;
110      finally
111        temp.Free;
112      end;
113      DM.FDQuery1.Open('select * from recent_data;');
114      DM.FDQuery1.First;
115      while Eof = false do
116        if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then
117          DM.FDQuery1.Delete
118        else
119          DM.FDQuery1.Next;
120      with DM.FDTable5 do
121      begin
122        Filter := 'ORDER = ' + QuotedStr(k.ToString);
123        Filtered := true;
124        FindFirst;
125        while Eof = false do
126        begin
127          DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);
128          FindNext;
129      end;      end;
130      DM.FDQuery1.Next;      Filtered := false;
131    end;    end;
132      with DM.FDTable6 do
133      begin
134        Append;
135        FieldByName('NUMBER').AsInteger := i;
136        FieldByName('LASTORDER').AsDateTime := Date;
137        FieldByName('PRICE').AsInteger := j;
138        Post;
139      end;
140      WebApplication.ShowMessage('お買い上げありがとうございました');
141      Release;
142      IWForm1.Thumbnail := true;
143  end;  end;
144    
145  procedure TCartForm.IWAppFormDestroy(Sender: TObject);  procedure TPayForm.IWButton2Click(Sender: TObject);
146  begin  begin
147    DM.FDQuery1.Close;    Release;
148  end;  end;
149    
150  procedure TCartForm.IWButton1Click(Sender: TObject);  procedure TPayForm.IWButton3Click(Sender: TObject);
151  begin  begin
152    Release;    if IWDBLabel3.Visible = true then
153    if Sender = IWButton1 then    begin
154      TPayForm.Create(WebApplication).Show      IWEdit1.Text := IWDBLabel3.Caption;
155        IWDBLabel3.Hide;
156        IWEdit1.Show;
157      end
158    else    else
159      TIWForm1.Create(WebApplication).Show;    begin
160        DM.FDTable1.Edit;
161        DM.FDTable1.FieldByName('ADDRESS2').AsString := IWEdit1.Text;
162        DM.FDTable1.Post;
163        IWEdit1.Hide;
164        IWDBLabel3.Show;
165      end;
166  end;  end;
167    
168  end.  end.
Legend:
Removed from v.2  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help