Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by yamat0jp, Wed Jan 13 11:20:13 2016 UTC revision 11 by yamat0jp, Fri Jul 22 23:40:03 2016 UTC
# Line 49  type Line 49  type
49      IWLink3: TIWLink;      IWLink3: TIWLink;
50      IWLink5: TIWLink;      IWLink5: TIWLink;
51      IWFrame1: TIWFrame1;      IWFrame1: TIWFrame1;
52        IWLink6: TIWLink;
53      procedure IWAppFormRender(Sender: TObject);      procedure IWAppFormRender(Sender: TObject);
54      procedure IWLink2Click(Sender: TObject);      procedure IWLink2Click(Sender: TObject);
55      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
# Line 60  type Line 61  type
61      procedure IWLink4Click(Sender: TObject);      procedure IWLink4Click(Sender: TObject);
62      procedure IWLink3Click(Sender: TObject);      procedure IWLink3Click(Sender: TObject);
63      procedure IWLink5Click(Sender: TObject);      procedure IWLink5Click(Sender: TObject);
64        procedure IWLink6Click(Sender: TObject);
65    private    private
66      Filter: Boolean;      Filter: Boolean;
67      function GetPage: Boolean;      function GetPage: Boolean;
# Line 69  type Line 71  type
71      function GetThumbnail: Boolean;      function GetThumbnail: Boolean;
72      procedure CallBack(EventParams: TStringList);      procedure CallBack(EventParams: TStringList);
73      procedure SetThumbnail(const Value: Boolean);      procedure SetThumbnail(const Value: Boolean);
     property Thumbnail: Boolean read GetThumbnail write SetThumbnail;  
74    public    public
75      property Page: Boolean read GetPage write SetPage;      property Page: Boolean read GetPage write SetPage;
76        property Thumbnail: Boolean read GetThumbnail write SetThumbnail;
77    end;    end;
78    
79  var  var
# Line 81  implementation Line 83  implementation
83    
84  {$R *.dfm}  {$R *.dfm}
85    
86  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10;  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10, Unit5;
87    
88  procedure TIWForm1.CallBack(EventParams: TStringList);  procedure TIWForm1.CallBack(EventParams: TStringList);
89  begin  begin
90    if SameText(EventParams.Values['RetValue'], 'true') = true then    if SameText(EventParams.Values['RetValue'], 'true') = true then
91      TCartForm.Create(WebApplication).Show;      TCartForm.Create(WebApplication).Show;
92      IWFrame8.IWEdit1.Text := '0';
93  end;  end;
94    
95  procedure TIWForm1.ClearImage;  procedure TIWForm1.ClearImage;
# Line 192  begin Line 195  begin
195          IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';          IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';
196      end;      end;
197    IWList2.Items.Clear;    IWList2.Items.Clear;
198    if Page = false then    with DM.FDQuery1 do
199    begin    begin
200      with DM.FDQuery1 do      SQL.Clear;
201        SQL.Add('select volume,name,price from cart_data join item_data');
202        SQL.Add(' on (cart_data.serial = item_data.serial)');
203        SQL.Add(' where number = :num;');
204        Params.ParamByName('num').AsInteger := UserSession.user_number;
205        Open;
206        First;
207        i := 0;
208        while Eof = false do
209      begin      begin
210        SQL.Clear;        s := Fields.Fields[0].AsString + 'x' + Fields.Fields[1].AsString;
211        SQL.Add('select volume,name,price from cart_data join item_data');        i := i + Fields.Fields[0].AsInteger * Fields.Fields[2].AsInteger;
212        SQL.Add(' on (cart_data.serial = item_data.serial)');        IWList2.Items.Add(s);
213        SQL.Add(' where number = :num;');        Next;
       Params.ParamByName('num').AsInteger := UserSession.user_number;  
       Open;  
       First;  
       i := 0;  
       while Eof = false do  
       begin  
         s := Fields.Fields[0].AsString + 'x' + Fields.Fields[1].AsString;  
         i := i + Fields.Fields[0].AsInteger * Fields.Fields[2].AsInteger;  
         IWList2.Items.Add(s);  
         Next;  
       end;  
       IWList2.Items.Add(i.ToString + '円');  
       Close;  
       IWList3.Items.Clear;  
       SQL.Clear;  
       SQL.Add('select name from recent_data join item_data');  
       SQL.Add(' on (recent_data.serial = item_data.serial)');  
       SQL.Add(' where number = :num;');  
       Params.ParamByName('num').AsInteger := UserSession.user_number;  
       Open;  
       First;  
       while Eof = false do  
       begin  
         IWList3.Items.Add(Fields.Fields[0].AsString);  
         Next;  
       end;  
       Close;  
214      end;      end;
215        IWList2.Items.Add(i.ToString + '円');
216        Close;
217        IWList3.Items.Clear;
218        SQL.Clear;
219        SQL.Add('select name from recent_data join item_data');
220        SQL.Add(' on (recent_data.serial = item_data.serial)');
221        SQL.Add(' where number = :num;');
222        Params.ParamByName('num').AsInteger := UserSession.user_number;
223        Open;
224        First;
225        while Eof = false do
226        begin
227          IWList3.Items.Add(Fields.Fields[0].AsString);
228          Next;
229        end;
230        Close;
231    end;    end;
232    LoadImage;    LoadImage;
233    if IWGrid1.Visible = true then    if IWGrid1.Visible = true then
# Line 258  end; Line 258  end;
258    
259  procedure TIWForm1.IWFrame8IWButton1Click(Sender: TObject);  procedure TIWForm1.IWFrame8IWButton1Click(Sender: TObject);
260  var  var
261    i: Integer;    i, j: Integer;
262      s: string;
263  begin  begin
264    if TryStrToInt(IWFrame8.IWEdit1.Text, i) = false then    if TryStrToInt(IWFrame8.IWEdit1.Text, i) = false then
265    begin    begin
# Line 270  begin Line 271  begin
271      WebApplication.ShowMessage('１個以上のご注文が必要です');      WebApplication.ShowMessage('１個以上のご注文が必要です');
272      Exit;      Exit;
273    end;    end;
274      s := WebApplication.Request.CookieFields.Values['user_cookie'];
275      if s = '' then
276      begin
277        DM.FDTable1.Last;
278        j := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
279        while DM.FDTable1.Lookup('NUMBER', j, 'NUMBER') = j do
280          inc(j);
281        UserSession.user_number := j;
282        DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil,
283          UserSession.user_number, Date]);
284        WebApplication.Response.Cookies.AddCookie('user_cookie',
285          UserSession.user_number.ToString, '/', Date + 10);
286      end;
287    with DM.FDQuery1 do    with DM.FDQuery1 do
288    begin    begin
289      SQL.Clear;      SQL.Clear;
# Line 285  begin Line 299  begin
299      else      else
300        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
301    end;    end;
   IWFrame8.IWEdit1.Text := '0';  
302    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');
303  end;  end;
304    
# Line 308  begin Line 321  begin
321  end;  end;
322    
323  procedure TIWForm1.IWLink2Click(Sender: TObject);  procedure TIWForm1.IWLink2Click(Sender: TObject);
324    var
325      i: Integer;
326  begin  begin
327    if Page = true then    if Page = true then
328    begin    begin
329      if DM.FDTable1.Locate('EMAIL;PASSWORD',      i := UserSession.user_number;
330        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then      if (DM.FDTable1.Locate('EMAIL;PASSWORD',
331          VarArrayOf([IWEdit2.Text, UserSession.hash(IWEdit3.Text)]),
332          [loCaseInsensitive]) = true) and
333          (DM.FDTable1.FieldByName('EMAIL').AsString <> '') then
334      begin      begin
       Page := false;  
       UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;  
335        IWEdit2.Text := '';        IWEdit2.Text := '';
336          UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;
337          if i <> 0 then
338          begin
339            with DM.FDQuery1 do
340            begin
341              SQL.Clear;
342              SQL.Add('select * from user_data where number = :num');
343              Params.ParamByName('num').AsInteger := i;
344              Open;
345              Delete;
346              SQL.Clear;
347              SQL.Add('select number from cart_data where number = :num;');
348              Params.ParamByName('num').AsInteger := i;
349              Open;
350              First;
351              while Eof = false do
352              begin
353                Edit;
354                FieldByName('number').AsInteger := UserSession.user_number;
355                Next;
356              end;
357            end;
358          end;
359          Page := false;
360      end;      end;
361      IWEdit3.Text := '';      IWEdit3.Text := '';
362    end    end
363    else    else
   begin  
     UserSession.user_number := 0;  
364      Page := true;      Page := true;
   end;  
365  end;  end;
366    
367  procedure TIWForm1.IWLink3Click(Sender: TObject);  procedure TIWForm1.IWLink3Click(Sender: TObject);
# Line 346  begin Line 383  begin
383    TIWForm10.Create(WebApplication).Show;    TIWForm10.Create(WebApplication).Show;
384  end;  end;
385    
386    procedure TIWForm1.IWLink6Click(Sender: TObject);
387    begin
388      Page := true;
389      TIWForm3.Create(WebApplication).Show;
390    end;
391    
392  procedure TIWForm1.LoadImage;  procedure TIWForm1.LoadImage;
393  var  var
394    s: TStream;    s: TStream;
# Line 469  begin Line 512  begin
512    begin    begin
513      IWLabel1.Caption := 'ようこそ';      IWLabel1.Caption := 'ようこそ';
514      IWLink2.Caption := 'ログアウト';      IWLink2.Caption := 'ログアウト';
515        WebApplication.Response.Cookies.AddCookie('user_cookie',
516          UserSession.user_number.ToString, '/', Date + 10);
517    end    end
518    else    else
519    begin    begin
# Line 478  begin Line 523  begin
523      IWText1.Text := '';      IWText1.Text := '';
524      DM.FDTable2.Filtered := false;      DM.FDTable2.Filtered := false;
525      Filter := false;      Filter := false;
526        if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
527        begin
528          WebApplication.Response.Cookies.AddCookie('user_cookie',
529            UserSession.user_number.ToString, '/', Date - 1);
530          UserSession.user_number := 0;
531        end;
532    end;    end;
533  end;  end;
534    
Legend:
Removed from v.9  
changed lines
  Added in v.11
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help