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,
  IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;

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, Unit6, ServerController;

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,item_data');
    SQL.Add(' where cart_data.serial = item_data.serial');
    SQL.Add(' and number = :num');
    ParamByName('num').AsInteger := UserSession.user_number;
  end;
end;

procedure TCartForm.IWAppFormRender(Sender: TObject);
var
  i, j, k: Integer;
  s: TStream;
  pic: TIWImage;
  png: TPngImage;
begin
  for i := 0 to IWGrid1.RowCount - 1 do
    IWGrid1.Cell[i, 0].Control.Free;
  IWGrid1.RowCount := 0;
  with DM.FDQuery1 do
  begin
    Open;
    IWGrid1.RowCount := RecordCount;
    if IWGrid1.RowCount = 0 then
      IWGrid1.Caption := '�J�[�g�����g������������';
    First;
    i := 0;
    k := 0;
    png := TPngImage.Create;
    try
      while Eof = false do
      begin
        if Fields.Fields[0].IsNull = false then
        begin
          s := CreateBlobStream(Fields.Fields[0], bmRead);
          try
            png.LoadFromStream(s);
          finally
            s.Free;
          end;
          pic := TIWImage.Create(IWGrid1);
          pic.Picture.Assign(png);
          IWGrid1.Cell[i, 0].Control := pic;
        end;
        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;
    finally
      png.Free;
    end;
  end;
  IWLabel1.Text := Format('(���v)�@%d + (������) %d = %d�~',
    [k, Trunc(k * 0.08), Trunc(k * 1.08)]);
end;

procedure TCartForm.IWButton1Click(Sender: TObject);
var
  s: TUserForm;
begin
  if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then
    if DM.FDTable1.FieldByName('EMAIL').AsString = '' then
    begin
      s := TUserForm.Create(WebApplication);
      s.pay := IWGrid1.RowCount>0;
      s.Show;
    end
    else
      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;
    Open('select * from cart_data;');
    if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
      Delete;
  end;
  IWAppFormCreate(ASender);
end;

end.