svn/view/Unit7.pas

unit Unit7;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
  IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, PngImage, Data.DB;

type
  TCartForm = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWGrid1: TIWGrid;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWAppFormDestroy(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, Unit1, ServerController, Unit4;

procedure TCartForm.IWAppFormCreate(Sender: TObject);
var
  i: integer;
  s: TStream;
  png: TPngImage;
  img: TIWImageFile;
  j: integer;
begin
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select name,maker,thumbnail,volume,price');
    SQL.Add(' from item_data join cart_data');
    SQL.Add(' on (item_data.serial = cart_data.serial) where number = :num;');
    Params.ParamByName('num').AsInteger := UserSession.user_number;
    Open;
  end;
  IWGrid1.ColumnCount := DM.FDQuery1.Fields.Count;
  IWGrid1.RowCount := DM.FDQuery1.RecordCount;
  for i := 0 to IWGrid1.RowCount - 1 do
  begin
    png := TPngImage.Create;
    try
      for j := 0 to IWGrid1.ColumnCount - 1 do
      begin
        case j of
          2:
            begin
              s := DM.FDQuery1.CreateBlobStream
                (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);
              try
                png.LoadFromStream(s);
                img:=TIWImageFile.Create(IWGrid1);
                img.Picture.Assign(png);
                IWGrid1.Cell[i, j].Control :=img;
              finally
                s.Free;
              end;
            end;
          4:
            IWGrid1.Cell[i, j].Text :=
              (DM.FDQuery1.Fields[3].AsInteger * DM.FDQuery1.Fields[4]
              .AsInteger).ToString;
        else
          IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields[j].AsString;
        end;
      end;
    finally
      png.Free;
    end;
    DM.FDQuery1.Next;
  end;
end;

procedure TCartForm.IWAppFormDestroy(Sender: TObject);
begin
  DM.FDQuery1.Close;
end;

procedure TCartForm.IWButton1Click(Sender: TObject);
begin
  Release;
  if Sender = IWButton1 then
    TPayForm.Create(WebApplication).Show
  else
    TIWForm1.Create(WebApplication).Show;
end;

end.