svn/view/Unit1.pas

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, Vcl.Controls, Vcl.Forms, Unit2, IWVCLBaseContainer,
  IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion, IWDBStdCtrls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompLabel,
  IWCompGrids, IWCompText, IWCompTabControl, IWCompButton, IWCompEdit,
  IWHTMLControls, IWCompExtCtrls, UserSessionUnit, PngImage, Data.DB,
  IWCompListbox, IWBaseComponent, IWBaseHTMLComponent, IWBaseHTML40Component,
  IWCompMenu, Vcl.Menus, System.Variants, Unit8, Vcl.Dialogs;

type
  TIWForm1 = class(TIWAppForm)
    IWFrame1: TIWFrame1;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLabel1: TIWLabel;
    IWDBLabel1: TIWDBLabel;
    IWRegion1: TIWRegion;
    IWRegion2: TIWRegion;
    IWText1: TIWText;
    IWGrid1: TIWGrid;
    IWRegion3: TIWRegion;
    IWRegion4: TIWRegion;
    IWLink1: TIWLink;
    IWLabel2: TIWLabel;
    IWList1: TIWList;
    IWLabel3: TIWLabel;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWLink2: TIWLink;
    IWRegion5: TIWRegion;
    IWLabel7: TIWLabel;
    IWRegion6: TIWRegion;
    IWLabel8: TIWLabel;
    IWList2: TIWList;
    IWLabel4: TIWLabel;
    IWRegion7: TIWRegion;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWList3: TIWList;
    IWImage1: TIWImage;
    IWFrame8: TIWFrame8;
    IWLink3: TIWLink;
    IWLink4: TIWLink;
    procedure IWAppFormRender(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
    procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
    procedure IWFrame8IWButton1Click(Sender: TObject);
    procedure IWFrame8IWLink1Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink4Click(Sender: TObject);
  private
    Filter: Boolean;
    function GetPage: TPage;
    procedure SetPage(const Value: TPage);
    procedure LoadImage;
    procedure ClearImage;
  public
    property Page: TPage read GetPage write SetPage;
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit6, Unit4;

procedure TIWForm1.ClearImage;
var
  i: Integer;
  j: Integer;
begin
  for i := 0 to IWGrid1.RowCount - 1 do
    for j := 0 to IWGrid1.ColumnCount - 1 do
      IWGrid1.Cell[i, j].Control.Free;
  IWGrid1.RowCount := 0;
end;

function TIWForm1.GetPage: TPage;
begin
  result := UserSession.FPage;
end;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
const
  i = 120;
var
  s: Integer;
begin
  Page := UserSession.FPage;
  s := DM.FDTable3.FieldByName('BGCOLOR').AsInteger;
  IWLabel2.BGColor := s;
  IWLabel3.BGColor := s;
  IWLabel5.BGColor := s;
  IWLabel7.BGColor := s;
  IWLabel8.BGColor := s;
  IWRegion1.Width := i;
  IWRegion2.Width := i;
  IWRegion4.Width := i;
  IWRegion5.Width := i;
  IWRegion6.Width := i;
  IWRegion7.Width := i;
end;

procedure TIWForm1.IWAppFormRender(Sender: TObject);
var
  s: string;
  i, j: Integer;
begin
  IWList1.Items.Clear;
  with DM.FDTable2 do
  begin
    if Filtered = true then
    begin
      FindFirst;
      while Found = true do
      begin
        s := FieldByName('CATEGORY').AsString;
        if s = '' then
        begin
          FindNext;
          continue;
        end;
        i := IWList1.Items.IndexOfName(s);
        if i = -1 then
          IWList1.Items.Add(s + '=1')
        else
        begin
          j := IWList1.Items.ValueFromIndex[i].ToInteger + 1;
          IWList1.Items[i] := s + '=' + j.ToString;
        end;
        FindNext;
      end;
    end
    else
    begin
      First;
      while Eof = false do
      begin
        s := FieldByName('CATEGORY').AsString;
        if s = '' then
        begin
          Next;
          continue;
        end;
        i := IWList1.Items.IndexOf(s);
        if i = -1 then
          IWList1.Items.Add(s);
        Next;
      end;
    end;
  end;
  if DM.FDTable2.Filtered = true then
    for i := 0 to IWList1.Items.Count - 1 do
    begin
      s := IWList1.Items.ValueFromIndex[i];
      if s = '1' then
        IWList1.Items[i] := IWList1.Items.Names[i]
      else
        IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';
    end;
  IWList2.Items.Clear;
  if Page = TPage.Info then
  begin
    with DM.FDQuery1 do
    begin
      SQL.Clear;
      SQL.Add('select volume,name,price from cart_data join item_data');
      SQL.Add(' on (cart_data.serial = item_data.serial)');
      SQL.Add(' where number = :num;');
      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;
    end;
  end;
  LoadImage;
  if IWGrid1.Visible = true then
    IWLabel6.Visible := Filter;
end;

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
  i: Integer;
begin
  IWFrame8IWLink1Click(Sender);
  if IWEdit1.Text <> '' then
  begin
    DM.FDTable2.Filter := 'NAME like ' + QuotedStr('%' + IWEdit1.Text + '%');
    DM.FDTable2.Filtered := true;
    i := DM.FDTable2.RecordCount;
    IWLabel6.Caption := Format(IWEdit1.Text + '����������������:%d��', [i]);
    if i = 0 then
      DM.FDTable2.Filtered := false;
    Filter := true;
  end
  else
  begin
    DM.FDTable2.Filtered := false;
    Filter := false;
  end;
end;

procedure TIWForm1.IWFrame8IWButton1Click(Sender: TObject);
var
  i: Integer;
begin
  if TryStrToInt(IWFrame8.IWEdit1.Text, i) = false then
  begin
    WebApplication.ShowMessage('�������s������');
    Exit;
  end;
  if i = 0 then
  begin
    WebApplication.ShowMessage('�P�����������������K�v����');
    Exit;
  end;
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select * from cart_data;');
    Open;
    if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,
      UserSession.Serial]), []) = true then
    begin
      Edit;
      FieldByName('VOLUME').AsInteger := FieldByName('VOLUME').AsInteger + i;
      Post;
    end
    else
      AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
  end;
  IWFrame8.IWEdit1.Text := '0';
  if MessageDlg('�J�[�g��������������', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    TCartForm.Create(WebApplication).Show;
end;

procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);
begin
  UserSession.Thumbnail := true;
  IWFrame8.Visible := false;
  IWGrid1.Visible := true;
end;

procedure TIWForm1.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
begin
  UserSession.Thumbnail := false;
  IWFrame8.Visible := true;
  IWFrame8.IWEdit1.Text := '1';
  IWLabel6.Visible := false;
  IWGrid1.Visible := false;
  UserSession.Serial := Integer(IWGrid1.Cell[ARow, AColumn].Tag);
end;

procedure TIWForm1.IWLink1Click(Sender: TObject);
begin
  with TUserForm.Create(WebApplication) do
  begin
    Form := Self;
    Show;
  end;
end;

procedure TIWForm1.IWLink2Click(Sender: TObject);
begin
  case Page of
    Main:
      begin
        if DM.FDTable1.Locate('EMAIL;PASSWORD',
          VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true
        then
        begin
          Page := Info;
          UserSession.user_number := DM.FDTable1.FieldByName('NUMBER')
            .AsInteger;
          IWEdit2.Text := '';
        end;
        IWEdit3.Text := '';
      end;
    Info:
      begin
        DM.FDTable1.Filtered := false;
        Page := Main;
        UserSession.user_number := 0;
      end;
  end;
end;

procedure TIWForm1.IWLink3Click(Sender: TObject);
begin
  WebApplication.ShowMessage('�n�j���N���b�N����������������');
  Page := Main;
  DM.FDTable1.Delete;
end;

procedure TIWForm1.IWLink4Click(Sender: TObject);
begin
  TCartForm.Create(WebApplication).Show;
end;

procedure TIWForm1.LoadImage;
var
  s: TStream;
  png: TPngImage;
  pic: TIWImage;
  i: Integer;
  j: Integer;
  x: Boolean;
  t: string;
label label1;
begin
  ClearImage;
  png := TPngImage.Create;
  try
    if UserSession.Thumbnail = true then
    begin
      i := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;
      if DM.FDTable2.RecordCount mod IWGrid1.ColumnCount > 0 then
        inc(i);
      IWGrid1.RowCount := i;
      if DM.FDTable2.Filtered = false then
        DM.FDTable2.Last
      else
        DM.FDTable2.FindLast;
      for i := 0 to IWGrid1.RowCount - 1 do
        for j := 0 to IWGrid1.ColumnCount - 1 do
        begin
          if DM.FDTable2.Filtered = false then
          begin
            if DM.FDTable2.Bof = true then
              goto label1;
          end
          else if DM.FDTable2.Found = false then
            goto label1;
          if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then
          begin
            s := DM.FDTable2.CreateBlobStream
              (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
            try
              png.LoadFromStream(s);
            finally
              s.Free;
            end;
            pic := TIWImage.Create(IWGrid1);
            pic.Picture.Assign(png);
            IWGrid1.Cell[i, j].Control := pic;
          end;
          t := DM.FDTable2.FieldByName('NAME').AsString;
          if Length(t) > 10 then
            t := Copy(t, 1, 8) + '..';
          IWGrid1.Cell[i, j].Tag :=
            Pointer(DM.FDTable2.FieldByName('SERIAL').AsInteger);
          IWGrid1.Cell[i, j].Text := t;
          IWGrid1.Cell[i, j].Alignment := taCenter;
          IWGrid1.Cell[i, j].Clickable := true;
          if DM.FDTable2.Filtered = false then
            DM.FDTable2.Prior
          else
            DM.FDTable2.FindPrior;
        end;
    label1:
    end
    else if (DM.FDTable2.Locate('SERIAL', UserSession.Serial, []) = true) and
      (DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil) then
    begin
      s := DM.FDTable2.CreateBlobStream
        (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
      try
        png.LoadFromStream(s);
        IWFrame8.IWImage1.Picture.Assign(png);
      finally
        s.Free;
      end;
    end
    else
      IWFrame8.IWImage1.Picture.Assign(nil);
  finally
    png.Free;
  end;
  png := nil;
  s := nil;
  Randomize;
  if DM.FDTable2.Filtered = true then
  begin
    x := true;
    DM.FDTable2.Filtered := false;
  end
  else
    x := false;
  DM.FDTable2.Last;
  if DM.FDTable2.Bof = true then
    Exit;
  DM.FDTable2.MoveBy(-Random(DM.FDTable2.RecordCount div 5));
  if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then
  begin
    s := DM.FDTable2.CreateBlobStream
      (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
    png := TPngImage.Create;
    try
      png.LoadFromStream(s);
      IWImage1.Picture.Assign(png);
    finally
      png.Free;
      s.Free;
    end;
  end;
  if x = true then
    DM.FDTable2.Filtered := true;
  IWLabel4.Caption := DM.FDTable2.FieldByName('NAME').AsString;
end;

procedure TIWForm1.SetPage(const Value: TPage);
var
  x: Boolean;
begin
  UserSession.FPage := Value;
  x := Value = Info;
  IWRegion7.Visible := x;
  IWDBLabel1.Visible := x;
  IWLink3.Visible := x;
  IWLink1.Visible := not x;
  IWText1.Visible := not x;
  if x = true then
  begin
    IWLabel1.Caption := '��������';
    IWLink2.Caption := '���O�A�E�g';
  end
  else
  begin
    IWLabel1.Caption := '���������Q�X�g�l';
    IWLink2.Caption := '���O�C��';
  end;
end;

initialization

TIWForm1.SetAsMainForm;

end.