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 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC revision 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC
# Line 89  procedure TIWForm1.CallBack(EventParams: Line 89  procedure TIWForm1.CallBack(EventParams:
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 194  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 260  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 272  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, 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;      Open('select * from cart_data;');
     SQL.Add('select * from cart_data;');  
     Open;  
290      if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,      if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,
291        UserSession.Serial]), []) = true then        UserSession.Serial]), []) = true then
292      begin      begin
# Line 287  begin Line 297  begin
297      else      else
298        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
299    end;    end;
   IWFrame8.IWEdit1.Text := '0';  
300    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');
301  end;  end;
302    
# Line 310  begin Line 319  begin
319  end;  end;
320    
321  procedure TIWForm1.IWLink2Click(Sender: TObject);  procedure TIWForm1.IWLink2Click(Sender: TObject);
322    var
323      i: Integer;
324  begin  begin
325    if Page = true then    if Page = true then
326    begin    begin
327      if DM.FDTable1.Locate('EMAIL;PASSWORD',      i := UserSession.user_number;
328        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then      if (DM.FDTable1.Locate('EMAIL;PASSWORD',
329          VarArrayOf([IWEdit2.Text, UserSession.hash(IWEdit3.Text)]),
330          [loCaseInsensitive]) = true) and
331          (DM.FDTable1.FieldByName('EMAIL').AsString <> '') then
332      begin      begin
       Page := false;  
333        IWEdit2.Text := '';        IWEdit2.Text := '';
334          UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;
335          if i <> 0 then
336          begin
337            with DM.FDQuery1 do
338            begin
339              Open('select * from user_data where number = :num',[i]);
340              Delete;
341              Open('select number from cart_data where number = :num;',[i]);
342              First;
343              while Eof = false do
344              begin
345                Edit;
346                FieldByName('number').AsInteger := UserSession.user_number;
347                Next;
348              end;
349            end;
350          end;
351          Page := false;
352      end;      end;
353      IWEdit3.Text := '';      IWEdit3.Text := '';
354    end    end
# Line 346  end; Line 377  end;
377    
378  procedure TIWForm1.IWLink6Click(Sender: TObject);  procedure TIWForm1.IWLink6Click(Sender: TObject);
379  begin  begin
380    Page:=true;    Page := true;
381    TIWForm3.Create(WebApplication).Show;    TAdminPage.Create(WebApplication).Show;
382  end;  end;
383    
384  procedure TIWForm1.LoadImage;  procedure TIWForm1.LoadImage;
# Line 473  begin Line 504  begin
504    begin    begin
505      IWLabel1.Caption := 'ようこそ';      IWLabel1.Caption := 'ようこそ';
506      IWLink2.Caption := 'ログアウト';      IWLink2.Caption := 'ログアウト';
507      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;      WebApplication.Response.Cookies.AddCookie('user_cookie',
508          UserSession.user_number.ToString, '/', Date + 10);
509    end    end
510    else    else
511    begin    begin
# Line 483  begin Line 515  begin
515      IWText1.Text := '';      IWText1.Text := '';
516      DM.FDTable2.Filtered := false;      DM.FDTable2.Filtered := false;
517      Filter := false;      Filter := false;
518      UserSession.user_number:=0;      if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
519        begin
520          WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/', Date - 1);
521          UserSession.user_number := 0;
522        end;
523    end;    end;
524  end;  end;
525    
Legend:
Removed from v.10  
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