svn/view/Unit4.pas

unit Unit4;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants, IWCompLabel;

type
  TCartForm = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWGrid1: TIWGrid;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWLabel1: TIWLabel;
    procedure IWAppFormRender(Sender: TObject);
    procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, Unit7;

procedure TCartForm.IWAppFormCreate(Sender: TObject);
begin
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data join item_data');
    SQL.Add(' on (cart_data.serial = item_data.serial)');
    SQL.Add(' where number = :num');
    Params.ParamByName('num').AsInteger := DM.FDTable1.FieldByName('NUMBER')
      .AsInteger;
  end;
end;

procedure TCartForm.IWAppFormRender(Sender: TObject);
var
  i, j, k: Integer;
begin
  with DM.FDQuery1 do
  begin
    Open;
    IWGrid1.RowCount := RecordCount;
    if IWGrid1.RowCount = 0 then
      IWGrid1.Caption:='�J�[�g�����g������������';
    First;
    i := 0;
    k := 0;
    while Eof = false do
    begin
      IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
      IWGrid1.Cell[i, 2].Text := Fields.Fields[2].AsString;
      j := Fields.Fields[2].AsInteger * Fields.Fields[3].AsInteger;
      inc(k,j);
      IWGrid1.Cell[i, 3].Text := IntToStr(j);
      IWGrid1.Cell[i, 4].Text := '����';
      IWGrid1.Cell[i, 4].Clickable := true;
      Next;
      inc(i);
    end;
  end;
  IWLabel1.Text:=IntToStr(Trunc(k*1.08));
end;

procedure TCartForm.IWButton1Click(Sender: TObject);
begin
  if IWGrid1.RowCount > 0 then
    TPayForm.Create(WebApplication).Show;
  Release;
end;

procedure TCartForm.IWButton2Click(Sender: TObject);
begin
  Release;
end;

procedure TCartForm.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
var
  i, j: integer;
begin
  with DM.FDQuery1 do
  begin
    RecNo:=ARow+1;
    i:=FieldByName('NUMBER').AsInteger;
    j:=FieldByName('SERIAL').AsInteger;
    SQL.Clear;
    SQL.Add('select * from cart_data');
    Open;
    Locate('NUMBER;SERIAL',VarArrayOf([i,j]),[]);
    Delete;
  end;
  IWAppFormCreate(ASender);
end;

end.